Ciclos Repetitivos.
Los ciclos repetitivos, son simplemente repetir las veces que sea necesario.
Mientras (condición) haga
Instrucción
Instrucción
Instrucción
.
.
.
Instrucción
fin mientras
Estructura :
Mientras (condición) haga
Instrucción
Instrucción
Instrucción
.
.
.
Instrucción
fin mientras
Diagrama de Flujo:
Un ejemplo seria:
Comprar 9000 camisas, en un algoritmo secuencial se registran las 9000 camisas? para eso hacemos un ciclo.
Algoritmo secuencial:
cadena [20] camisa
inicio
escriba "ingrese camisa : "
lea camisa
llamar nueva_linea
escriba "ingrese camisa : "lea camisa
llamar nueva_linea
escriba "ingrese camisa : "
lea camisa
llamar nueva_linea
escriba "ingrese camisa : "
lea camisa
llamar nueva_linea
escriba "ingrese camisa : "
lea camisa
llamar nueva_linea
escriba "ingrese camisa : "
lea camisa
llamar nueva_linea
.
.
.
fin
con ciclo:
cadena [20] camisa
entero Contador
inicio
Contador<-0...................................................../*declaramos un contador, para llevar el conteo del ciclo*/
mientras Contador<9000 haga......................../*el ciclo se repite siempre y cuando el contador sea menor a 9000*/
escriba "ingrese camisa "
lea camisa
llamar nueva_linea
Contador<-Contador+1................................... /*Con esto, le vamos aumentando 1 unidad al contador, asignamos lo que llevaba para que no se reemplaze y le sumamos uno*/
fin mientras
fin
mucho más reducido la verdad.
(2) Ingresar 10 números y al final presentar la suma de los números.
Entero contador,suma,num
Inicio
Contador←0
Suma←0
Mientras contador<10 haga
Escriba “Ingresar un numero”
Lea num
contador← contador +1
Suma←num+suma
Fin mientras
Escriba “Suma de los 10 números “, suma
Fin
(3) Ingresar 10 nombres
(3) Ingresar 10 nombres
Entero contador
Cadena[25] nombre
Inicio
Contador←0
Mientras contador<10 haga
Escriba “Ingresar el nombre”
Lea nombre
Contador← contador + 1
Fin mientras
Fin
(4) Ingresar el nombre del cliente , el precio del producto, cantidad y luego calcular
el subtotal , isv y total a pagar , presentar los datos luego preguntar si desea
continuar , al final presentar el monto global de la factura.
Caracter Resp
Cadena[25] nombre
Real Precio, cantidad, totalglobal, st, isv, tp
Inicio
Totalglobal←0
Resp←’S’
Mientras resp<>’N’ haga
Escriba “Nombre del cliente”
Lea nombre
Escriba “Ingresar la cantidad del producto ”
Lea cantidad
Escriba “Ingresar el precio de producto “
Lea precio
St← precio * cantidad
Isv←st * 0.012
Tp←st-isv
Totalglobal←totalglobal+st
escriba "Subtotal " , st
llamar Nueva_linea
escriba "Impuesto sobre venta " , isv
llamar Nueva_linea
escriba "Total a pagar " , tp
llamar Nueva_linea
Escriba "Desea continuar S/N"
Lea Resp
Fin mientras
Escriba “Total de la venta” , totalglobal
fin
(5)Ingresar el nombre del alumno, la nota examen y nota acumulada, luego calcular
la nota final, y presentar la nota final y la observación del alumno.
Preguntar si desea continuar, al final presentar el numero de aprobados y
reprobados.
Caracter Resp
Cadena[25] nombre
Real na,ne,nf
entero cr,ca
Inicio
cr<-0
ca<-0
Resp<-'S'
Mientras resp<>'N' haga
Escriba "Nombre del alumno"
Lea nombre
Escriba "Nota acumulada "
Lea na
Escriba "nota examen "
Lea ne
nf<- na+ne
si nf >= 60 entonces
escriba "Usted esta Aprobado"
ca<-ca+1
sino
escriba "Usted esta Reprobado"
cr<-cr+1
fin si
llamar Nueva_linea
escriba "Nota final " , nf
llamar Nueva_linea
Escriba "Desea continuar S/N"
Lea Resp
Fin mientras
llamar Nueva_linea
Escriba "Total de reprobados" , cr
llamar Nueva_linea
Escriba "Total de aprobados" , ca
Fin
0 comentarios:
Publicar un comentario