ALGORITMOS EPM

ALGORITMO EPM--ALGORITMO EPM--ALGORITMO EPM--ALGORITMO EPM  

ALGORITMOS EPM

Las epm requieren desarrollar un programa que permita leer nombre, direccion, tel, M3 de agua consumida y estrato del usurario.
*si el estrato es 1 o 2 el M³ tiene un valor de 1000 $.
*si es 3 o 4 el M³ tiene un valor de 2000 $.
*si el 5 o 6 tiene un valor de 3000 $ 


SOLUCIONES:


CASO:

cadena [10] nom 
real direc, tel, m3
caracter estra
inicio
    escriba "ingrese nombre"
    lea nom
    escriba "ingrese numero:"
    lea tel
    escriba "ingrese direccion:"
    lea direc
    escriba "ingrese estrato:"
    lea estra
    escriba "ingrese los metros cuadrados consumidos:"
    lea m3
    caso estra 
    '1','2': m3<-m3*1000
    '3','4': m3<-m3+2000
    '5','6': m3<-m3+3000
    fin caso
    escriba "su nombre es:",nom
    llamar nueva_linea
    escriba "su numero es:", tel
    llamar nueva_linea
    escriba "su estrato es :", estra
    llamar nueva_linea
    escriba "total a pagar:",m3
fin
    


SI ANIDADO:

cadena[10] nom
real direc,tel,m3,estra,tot

inicio
 escriba "ingrese nombre de usuario:" 
 lea nom
 escriba "ingrese direccion :"
 lea direc
 escriba "ingrese telefono:"
 lea tel
 escriba "ingrese estrato:"
 lea estra
 escriba "ingrese los metros cuadrados que consumio:"
 lea m3
 si estra = (1) o (2) entonces 
 tot <- m3 * 1000
   escriba "El total a pagar es:",tot
  sino si estra = (3) o (4) entonces 
  tot <- m3 * 2000
    escriba "El total a pagar es:",tot
   sino si estra = (5) o (6) entonces 
   tot<- m3 * 3000
     escriba "El total a pagar es:",tot
   fin si
  fin si
 fin si
 escriba "su nombre es:",nom
 llamar nueva_linea
 escriba "su numero es:", tel
 llamar nueva_linea
 escriba "su estrato es :", estra
 llamar nueva_linea
fin

HAGA MIENTRAS:

Cadena [20] nom, resp
Real m3, estra, tel, pago,direc

INICIO
Escriba "Desea continuear 'si/no' "
lea resp

mientras resp = "si" haga
escriba "Ingrese nombre:"
lea nom

escriba "Ingrese direccion:"
lea direc

escriba "Ingrese número:
lea tel

escriba "Ingrese metros cubicos usados"
lea m3

escriba "Ingrese estrato:"
lea estra

caso est 
'1', '2': pago<-m3*1000
'3', '4': pago<-m3*2000
'5', '6': pago<-m3*3000
fin caso

escriba "su nombre es:",nom
 llamar nueva_linea
 escriba "su numero es:", tel
 llamar nueva_linea
 escriba "su estrato es :", estra
 llamar nueva_linea
escriba "Tiene que pagar:",pago
llamar nueva_linea
escriba "Desea continuar:"
lea resp
fin mientras
FIN

HAGA PARA:

Cadena [20] nom
Real m3, estra, tel, pago, direc
entero k

INICIO

para k<- 1 hasta 10  haga
escriba "Ingrese nombre:"
lea nom

escriba "Ingrese direccion:"
lea direc

escriba "Ingrese número:
lea tel

escriba "Ingrese metros cubicos usados"
lea m3

escriba "Ingrese estrato:"
lea estra

caso estra 
'1', '2': pago<-m3*1000
'3', '4': pago<-m3*2000
'5', '6': pago<-m3*3000
fin caso

escriba "su nombre es:",nom
 llamar nueva_linea
 escriba "su numero es:", tel
 llamar nueva_linea
 escriba "su estrato es :", estra
 llamar nueva_linea
escriba "Tiene que pagar:",pago

fin para
FIN

HAGA HASTA:

Cadena [20] nom,resp
Real m3, estra, tel, tot, direc

INICIO
repita
Escriba "Desea continuear 'si/no' "
lea resp

escriba "Ingrese nombre:"
lea nom

escriba "Ingrese direccion:"
lea direc

escriba "Ingrese número:
lea tel

escriba "Ingrese metros cubicos usados"
lea m3

escriba "Ingrese estrato:"
lea estra

caso estra 
'1', '2': pago<-m3*1000
'3', '4': pago<-m3*2000
'5', '6': pago<-m3*3000
fin caso
hasta resp = no 
escriba "su nombre es:",nom
 llamar nueva_linea
 escriba "su numero es:", tel
 llamar nueva_linea
 escriba "su estrato es :", estra
 llamar nueva_linea
escriba "Tiene que pagar:",pago

FIN

VECTOR


arreglo [100] de entero pago
Cadena [20] nom
Real m3, estra, tel, direc
entero k

INICIO

para k<- 1 hasta 10  haga
escriba "Ingrese nombre:"
lea nom

escriba "Ingrese direccion:"
lea direc

escriba "Ingrese número:
lea tel

escriba "Ingrese metros cubicos usados"
lea m3

escriba "Ingrese estrato:"
lea estra
fin para
para k<- 1 hasta 10  haga
caso estra 
'1', '2': pago[k]<-m3*1000
'3', '4': pago[k]<-m3*2000
'5', '6': pago[k]<-m3*3000
fin caso
fin para
para k<- 1 hasta 10  haga
escriba "su nombre es:",nom
 llamar nueva_linea
 escriba "su numero es:", tel
 llamar nueva_linea
 escriba "su estrato es :", estra
 llamar nueva_linea
escriba "Tiene que pagar:",pago[k]
fin para

FIN