Proceso DiaPagoMayor
//Variables:
Definir gastoMayor, gastoTotal, cantDias, cont Como Entero
gastoMayor<-0
gastoTotal<-0
dias<-0
aux<-1//Decimos que el aux=1 para que comience en el vector 1, el cual esta identificado como el dia "lunes"
//Ingresamos los datos:
Escribir 'Ingrese la cantidad de dias'
Leer cantDias
Escribir ''
//Declaramos los vectores:
Dimension vector[cantDias] //Este vector almacena
Dimension strDias[7]
strDias[1] <- 'lunes'
strDias[2] <- 'martes'
strDias[3] <- 'miercoles'
strDias[4] <- 'jueves'
strDias[5] <- 'viernes'
strDias[6] <- 'sabado'
strDias[7] <- 'domingo'
//Creamos un ciclo que al llegar a 7 vuelva a empezar hasta que termine de llenar la cantidad de dias establecidos
Para i<-1 Hasta cantDias Hacer
//Cuando aux=8 el aux comenzara de nuevo en 1, este aux lo introducimos en el corchete de strDias[] para que
//indique el dia
Si aux=8 Entonces
aux<-1
Fin Si
//Ingresamos los datos:
Escribir 'Ingrese los gastos del dia ',strDias[aux],':'
Leer vector[i]
aux<-aux+1
cont<-aux-1
Fin Para
//Calculamos el gasto total de 'n' cantidad de dias:
Para i<-1 Hasta cantDias Hacer
gastoTotal<-gastoTotal+vector[i]
Fin Para
//Calculamos el mayor gasto:
Para i<-1 Hasta cantDias Hacer
Si vector[i]>gastoMayor Entonces
gastoMayor<-vector[i]
dias<-i
Fin Si
Fin Para
Escribir ''
Escribir 'El mayor gasto fue de ', gastoMayor, ' del dia ',strDias[dias]
Escribir 'El gasto total fue de: ',gastoTotal
FinProceso
Comentarios sobre la versión: 2018 (0)
No hay comentarios