algoritmo resuelto

//Calculadora básica: +, -, *, /


Proceso CalculadoraSegun

Acum<-0;
Prod<-1;

Escribir " ****************** Calculadora ***************************";
Escribir " **************** + - * / **************************";

Repetir

Escribir "¿Qué operacion desea realizar? ";
Escribir " 1.- Sumar "
Escribir " 2.- Restar "
Escribir " 3.- Multiplicar "
Escribir " 4.- Dividir "
Leer op;

Escribir " ";
Segun op Hacer
1: //Sumas
Escribir " Introduzca los numeros que desee sumar, pulsando enter. "
Escribir " Para ver el resultado pulse 0";
Leer Num;

Mientras Num<>0 Hacer
Acum<-Acum + Num;
Leer Num;
FinMientras

Escribir " ";
Escribir "La suma es ", Acum;

2: // Resta
Escribir " Introduzca el minuendo y a continuación el sustraendo "
Leer Minuendo, Sustraendo;

Resta<- Minuendo - Sustraendo;

Escribir " ";
Escribir "La resta es ", Resta;

3: // Producto

Escribir " Introduzca los numeros que desee multiplicar, pulsando enter. "
Escribir " Para ver el resultado pulse 1";
Leer Num;

Mientras Num<> 1 Hacer
Prod<-Prod * Num;
Leer Num;
FinMientras

Escribir " ";
Escribir "El Producto es ", Prod;

4: // División

Escribir " Introduzca el dividendo y a continuación el divisor "
Leer Dividendo, Divisor;

Si Divisor=0 Entonces
Escribir " Error. División entre cero";
Sino
Cociente<- Dividendo / Divisor;
Escribir " ";
Escribir "El cociente es ", Cociente;
FinSi

De Otro Modo:
Escribir op, " Error. Solo realiza las siguientes operaciones: +, -, * y /";

FinSegun
Escribir " ";


Escribir "¿Quieres volver a empezar. S/N";
Leer seguir;

Mientras seguir<>"n" y seguir<>"N" y seguir<>"s" y seguir<>"S" Hacer
Escribir "Tienes que escribir S o N.";
Leer seguir;
FinMientras

Hasta Que seguir = "n" o seguir = "N"
FinProceso


mas algoritmo:

algoritmoresuelto.blogspot.com