FUNCION REPETIR

para esta clase vimos la funciona repetir La instrucción Repetir-Hasta Que ejecuta una secuencia de instrucciones hasta que la condición sea verdadera.

      Repetir
            <instrucciones>
      Hasta Que <condición>  

se realizo la segunda versión de al calculadora incluyendo esta función  incluyendo las funciones Si Entonces. y se la añade las operaciones de porcentaje, raíz y limpiar pantalla. 

CALCULADORA.

Proceso operacion_segun

Definir num1,num2,opcion,acum,operacion,total,raiz1 Como Real;

Definir porcen,totaldesc Como Real;

opcion <- 0;

total <- 0;

acum <- 2;

Repetir

Escribir 'ingrse el primer numero';

Leer num1;

Hasta Que num1>0

Mientras opcion>=0 Y opcion<=8 Hacer

Repetir

Escribir 'que operacion desea hacer ';

Escribir '';

Escribir '1.sumar';

Escribir '2.restar';

Escribir '3.multiplciar';

Escribir '4.deividir';

Escribir '5.pocentaje';

Escribir '6.raiz';

Escribir '7.clear';

Leer opcion;

Hasta Que opcion>=0 Y opcion<8

Repetir

Escribir 'ingrse el numero',acum;

Leer num2;

acum <- acum+1;

Hasta Que num2>0

Si opcion=1 Entonces

total <- (num1+num2);

Escribir 'la suma es:',total;

Escribir '';

num1 <- total;

FinSi

Si opcion=2 Entonces

total <- (num1-num2);

Escribir 'la resta es:',total;

Escribir '';

num1 <- total;

FinSi

Si opcion=3 Entonces

total <- (num1*num2);

Escribir 'la multiplicacion es:',total;

Escribir '';

num1 <- total;

FinSi

Si opcion=4 Entonces

total <- (num1/num2);

Escribir 'la division es:',total;

Escribir '';

num1 <- total;

FinSi

Si opcion=5 Entonces

Escribir 'ingrese el porcentaje a calular';

Leer porcen;

total <- (num1*num2);

porcen <- (total*porcen/100);

Escribir 'el porcentaje es :',porcen;

totaldesc <- total-porcen;

Escribir 'el valor con escuento es',totaldesc;

Escribir '';

num1 <- total;

FinSi

Si opcion=6 Entonces

Escribir 'que operacion desea hacer con los numeros';

Escribir '1.sumar';

Escribir '2.restar';

Escribir '3.multiplciar';

Escribir '4.deividir';

Leer operacion;

Segun operacion  Hacer

1:

Escribir 'escojio sumar los nuemeros';

total <- num1+num2;

raiz1 <- rc(total);

num1 <- total;

2:

Escribir 'escojio restar los nuemeros';

total <- num1-num2;

raiz1 <- rc(total);

num1 <- total;

3:

Escribir 'escojio multiplciar los numeros';

total <- num1*num2;

raiz1 <- rc(total);

4:

Escribir 'escojio dividir los nuemeros';

total <- num1/num2;

raiz1 <- rc(total);

num1 <- total;

De Otro Modo:

Escribir 'la opcion no es valdia';

FinSegun

Si total<=0 Entonces

Escribir 'la raiz del numero no es real';

Sino

raiz1 <- rc(total);

Escribir 'la raiz  de',' ',total,' ','es',' ',raiz1;

Escribir '';

num1 <- total;

FinSi

FinSi

Repetir

Escribir 'desea  ingresar otra operacion';

Escribir '8.si';

Escribir '9.no';

Leer opcion;

Hasta Que opcion>=8 Y opcion<=9

Escribir 'fin del proceso';

FinMientras

FinProceso