Proceso sin_titulo
respuesta<-"s";
Repetir
Escribir "Seleccione la operacion de su preferencia";
Escribir "(1) Suma";
Escribir "(2) Resta";
Escribir "(3) Multiplica";
Escribir "(4) Division";
Leer Operacion;
Segun Operacion Hacer
1:
Escribir "Introduzca el Valor 1";
Leer valor1;
Escribir "Introduzca el valor 2"
Leer valor2;
Escribir "El resultado es ", valor1+valor2;
2:
Escribir "Introduzca el Valor 1";
Leer valor1;
Escribir "Introduzca el valor 2"
Leer valor2;
Escribir "El resultado es ", valor1-valor2;
3:
Escribir "Introduzca el Valor 1";
Leer valor1;
Escribir "Introduzca el valor 2"
Leer valor2;
Escribir "El resultado es ", valor1*valor2;
4:
Escribir "Introduzca el Valor 1";
Leer valor1;
Escribir "Introduzca el valor 2"
Leer valor2;
SI VALOR2<1 Entonces
Escribir "Error"
Sino
Escribir "El resultado es ", valor1/valor2;
FinSi
De Otro Modo:
Escribir "Opcion no valida";
FinSegun
Escribir "Desea Continuar (s/n)";
leer respuesta;
Hasta Que respuesta = "n" o Respuesta = "N"
FinProceso
Video sobre numeros binarios
Hace 14 años