Ejemplo de Algoritmo Para realizar Raiz Cuadrada, Suma, Multiplicacion, Resta,(PseInt) Psudocodigo

Proceso OperacionesAritmeticas
Definir seleccion como Caracter;
Definir numero como Real;
Definir mr como Real;
Definir Mr1 como Real;
Definir rt como Real;
Definir sumando1 como Real;
Definir sumando2 como Real;
Definir suma como Real;
Definir minuendo como Real;
Definir sustraendo como Real;
Definir resta Como Real;
Definir multiplicando como Real;
Definir multiplicador como Real;
Definir producto como Real;
Definir precision como Real;

Escribir "Introduzca la operacion que desea realizar";
Escribir "[S]uma";
Escribir "[M]ultiplicacion";
Escribir "[R]esta";
Escribir "Raiz [C]uadrada";
Escribir "Ingrese la letra resaltada que corresponda a su seleccion";
Leer seleccion;
Si seleccion = "C" Entonces

Escribir "Ingrese un numero positivo";
Leer numero;
Mientras numero < 0 Hacer
Escribir "Ingrese un numero positivo";
Leer numero;
FinMientras

mr <- 0;
Mr1 <- numero;

rt <- (mr + Mr1)/2;

Escribir "Ingrese precision";
Leer precision;

Mientras rt*rt < numero - precision | rt*rt > numero + precision Hacer
Si rt*rt < numero Entonces
mr <- rt;
rt <- (rt + Mr1)/2;
FinSi
Si rt*rt > numero Entonces
Mr1 <- rt;
rt <- (rt + mr)/2;
FinSi
FinMientras

Escribir "La raiz cuadrada del numero ",numero," es :",rt;

FinSi

Si seleccion = "S" Entonces
Escribir "Ingrese primer sumando";
Leer sumando1;
Leer sumando2;
suma <- sumando1+ sumando2;
Escribir "La suma de ",sumando1," + ",sumando2," es igual a ",suma;
FinSi

Si seleccion = "R" Entonces
Escribir "Ingrese minuendo";
Leer minuendo;
Escribir "Ingrese sustraendo";
Leer sustraendo;
resta <- minuendo - sustraendo;
Escribir "La resta de ",minuendo," - ",sustraendo," es igual a ",resta;
FinSi

Si seleccion = "M" Entonces
Escribir "Ingrese multiplicando";
Leer multiplicando;
Escribir "Ingrese multiplicador";
Leer multiplicador;
producto <- multiplicado - multiplicador;
Escribir "La multiplicacion de ",multiplicando," x ",multiplicado," es igual a ",producto;
FinSi

FinProceso