ALGORITMO EPM
/* La empresas publicas de Medellin requieren
desarrollar un programa que permita leer el nombre,
la dirección, teléfono, metros cúbicos de agua
consumidos y estrato del usuario. Si el estrato
del usuario es 1 o 2 el metro cubico tiene un
valor de 1000, si el estrato es 3 o 4 el metro
cubico tiene un valor de 2000 y si es 5 o 6
el metro cubico tiene un valor de 3000 muestre
toda la información*/
ESTRUCTURA CASO
entero mtc,pagar
caracter estracto
inicio
escriba "Ingrese Nombre: "
lea nombre
escriba "Ingrese Direccion: "
lea direcc
escriba "Ingrese Telefono: "
lea telefono
escriba "Ingrese m3 consumidos: "
lea mtc
escriba "Ingrese Esracto: "
lea estracto
caso estracto
'1','2': pagar<-mtc*1000
'3','4': pagar<-mtc*2000
'5','6': pagar<-mtc*3000
fin caso
Escriba "Su nombre es: ",nombre,", Telefono: ",telefono,", Direccion: ",direcc
llamar nueva_linea
Escriba "Metros Cubicos consumidos: ",mtc,", Estracto: ",estracto
llamar nueva_linea
Escriba "Total a pagar: ",pagar
fin
ESTRUCTURA SI
entero mtc,pagar,estracto
inicio
escriba "Ingrese Nombre: "
lea nombre
escriba "Ingrese Direccion: "
lea direcc
escriba "Ingrese Telefono: "
lea telefono
escriba "Ingrese m3 consumidos: "
lea mtc
escriba "Ingrese Esracto: "
lea estracto
si estracto = 1 o 2 entonces
pagar<-mtc*1000
fin si
si estracto = 3 o 4 entonces
pagar<-mtc*1000
fin si
si estracto = 5 o 6 entonces
pagar<-mtc*1000
fin si
Escriba "Su nombre es: ",nombre,", Telefono: ",telefono,", Direccion: ",direcc
llamar nueva_linea
Escriba "Metros Cubicos consumidos: ",mtc,", Estracto: ",estracto
llamar nueva_linea
Escriba "Total a pagar: ",pagar
fin
ESTRUCTURA MIENTRAS
entero mtc,pagar
caracter estracto
inicio
resp<-"si"
mientras resp = "si" haga
escriba "Ingrese Nombre: "
lea nombre
escriba "Ingrese Direccion: "
lea direcc
escriba "Ingrese Telefono: "
lea telefono
escriba "Ingrese m3 consumidos: "
lea mtc
escriba "Ingrese Esracto: "
lea estracto
caso estracto
'1','2': pagar<-mtc*1000
'3','4': pagar<-mtc*2000
'5','6': pagar<-mtc*3000
fin caso
Escriba "Su nombre es: ",nombre,", Telefono: ",telefono,", Direccion: ",direcc
llamar nueva_linea
Escriba "Metros Cubicos consumidos: ",mtc,", Estracto: ",estracto
llamar nueva_linea
Escriba "Total a pagar: ",pagar
llamar nueva_linea
Escriba "Recuerse Las respuestas solo son 'si' o 'no'"
llamar nueva_linea
Escriba "Desea Continuar"
lea resp
fin mientras
fin
HAGA PARA
entero mtc,pagar,i
caracter estracto
inicio
para i<-1 hasta 2 haga
escriba "Ingrese Nombre: "
lea nombre
escriba "Ingrese Direccion: "
lea direcc
escriba "Ingrese Telefono: "
lea telefono
escriba "Ingrese m3 consumidos: "
lea mtc
escriba "Ingrese Esracto: "
lea estracto
caso estracto
'1','2': pagar<-mtc*1000
'3','4': pagar<-mtc*2000
'5','6': pagar<-mtc*3000
fin caso
Escriba "Su nombre es: ",nombre,", Telefono: ",telefono,", Direccion: ",direcc
llamar nueva_linea
Escriba "Metros Cubicos consumidos: ",mtc,", Estracto: ",estracto
llamar nueva_linea
Escriba "Total a pagar: ",pagar
llamar nueva_linea
fin para
fin
ARREGLO "VECTOR"
arreglo [2] de entero pagar
cadena [15] direcc,telefono
entero mtc,i
caracter estracto
inicio
para i<-1 hasta 2 haga
escriba "Ingrese Nombre: "
lea nombre[i]
escriba "Ingrese Direccion: "
lea direcc
escriba "Ingrese Telefono: "
lea telefono
escriba "Ingrese m3 consumidos: "
lea mtc
escriba "Ingrese Esracto: "
lea estracto
caso estracto
'1','2': pagar[i]<-mtc*1000
'3','4': pagar[i]<-mtc*2000
'5','6': pagar[i]<-mtc*3000
fin caso
fin para
para i<-1 hasta 2 haga
Escriba nombre[i]," ",pagar[i]
llamar nueva_linea
fin para
fin