ALGORITMO EPM

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

cadena [15] nombre,direcc,telefono
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 

cadena [15] nombre,direcc,telefono
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

cadena [15] nombre,direcc,telefono,resp
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 

cadena [15] nombre,direcc,telefono
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 cadena [15] nombre
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