EJERCICIOS USANDO REPETIR

Proceso contar_generos
definir g como caracter;
definir ch,cm,b como entero;
cm=0;
ch=0;
b=1;
escribir "cual es su genero f=femenino m=masculino;";
Repetir
leer g;
g=minusculas (g);
si g="f" o g="femenino" Entonces
cm=ch+1;
Sino
si g="m" o g="masculino" entonces
ch=ch+1;
Sino
escribir " dato incorrecto";
FinSi
FinSi
escribir "si ya termino el conteo digite 0 sino otro valor";
   leer b;
Hasta que b=0;
escribir "resultado del conteo";
escribir " la cantidad de hombres es",ch;
escribir "la cantidad de  mujeres es",cm;
FinProceso

Proceso compras

Definir comp,suma,sumat como real ;

definir C Como Entero;

definir iva como real;

comp=0;

suma=0;

c=1;

Repetir

escribir "cantidad de compra";

leer comp;

si comp>0 Entonces

comp=comp+comp;

Sino

escribir "el dato es incorrecto";

FinSi

escribir "si ya termino escribir 0 sino otro";

leer c;

Hasta que c=0;

iva=comp*0.13;

sumat=comp+iva;

imprimir "comp",comp;

imprimir "iva",iva;

FinProceso

Proceso determinar

Definir g Como Caracter;

Definir ch,cm,b Como Entero;

cm=0;

ch=0;

b=1;

Repetir

Escribir "cual es el genero f=femenino m=masculino";

Leer g;

g=Minusculas(g);

Si g="m" o g="masculino" Entonces

ch=ch+1;

Sino

Si g="f" o g="femenino" Entonces

cm=cm+1;

Sino

Escribir "dato incorrecto";

Fin Si

Fin Si

Escribir "si ya termino escribir 0 sino otro numero";

Leer b;

 

Hasta Que b=0;

Escribir "el resultado del conteo es";

Escribir "la cantidad de hombres es", ch;

Escribir "la cantidad de mujeres es", cm;

FinProceso