ejercicios de vectores

Algoritmo yy
dimension tax(10)
Definir precio Como Entero
presio<-3
tt<-0
Para recorri<-1 Hasta 10 Con Paso 1 Hacer

Escribir 'cuanto recorrio en el viaje ?  ', recorri
Leer reco
tax(recorri)<-reco

rfin<-reco/1000
Si rfin>5000 Entonces

rec<-rfin*5

SiNo
rec<-rfin*3
Fin Si
total<-presio*rec
tax(recorri)<-total


Escribir 'debe pagar ', total ,' pesos '


total2<-total+tt
total<-tt
tt<-total2


Fin Para

Escribir 'total de todas las carreras ', total
Para recorri<-1 Hasta 10 Con Paso 1 Hacer
Escribir 'en el viaje ', recorri, 'pagaron ',tax(recorri)

Fin Para

FinAlgoritmo

Algoritmo viaje

Dimension viaj(10)

definir recorrido, tiempo Como Entero

recorrido<-180

tiempo<-2

px<-0
tt<-0

Para puntox<-1 Hasta 10 Con Paso 1  Hacer

Escribir 'en que punto desea saber el tiempo?'

Leer px

viaj(puntox)<-px

total<-px*(tiempo/recorrido)

viaj(puntox)<-total

Escribir 'han pasado  ', total
total2<-total+tt
total<-tt
tt<-total2


Fin Para
Para puntox<-1 Hasta 10 Con Paso 1 Hacer
Escribir 'en punto ',puntox,'el tiempo es  ',viaj(puntox)
Fin Para
Escribir 'en total de todos ',total2 

FinAlgoritmo

Algoritmo acerradero

Dimension liston(10)

Definir listonc, cajao Como Entero

listonc<-5

cajao<-12

Para list<-1 Hasta 10 Con Paso 1 Hacer

Escribir 'dijite los metros del liston  ', list

Leer mts

liston(list)<-mts

cajasx<-(mts/listonc)/cajao

Escribir 'el liston a ocupado ', cajasx ,' cajas'

Fin Para

FinAlgoritmo