Calculadora

Proceso Calculadora

 //Declarando variables para usar.

 Definir opcion como entero; //Para saber qué operación desea hacer el usuario

 Definir numSuma como entero; //Para cuantos números se desea sumar

 Definir suma como real;

 Definir numero como real;

  

  

 Escribir "==================================";

 Escribir "============CALCULADORA===========";

 Escribir "==================================";

  

 Escribir "¿Qué operación desea hacer?";

 Escribir "1: para suma";

 Escribir "2: para resta";

 Escribir "3: para multiplicación";

 Escribir "4: para división";

 Leer opcion;

  

 //Si el usuario ingresa un número diferente

 //a las alternativas entonces mostrará un error

 Mientras ((opcion<>1) y (opcion<>2) y (opcion<>3) y (opcion<>4)) Hacer

  Escribir "¡Error! Ingrese un número correcto";

  Escribir "¿Qué operación desea hacer?";

  Escribir "1: para suma";

  Escribir "2: para resta";

  Escribir "3: para multiplicación";

  Escribir "4: para producto";

  Leer opcion;

 Fin Mientras

  

 //Suma

 suma<-0;

 si (opcion=1) Entonces

  Escribir "===============SUMA===============";

  Escribir "¿cuántos números desea sumar?";

  Leer numSuma;

  Definir i como real;

  Para i<-0 Hasta (numSuma-1) Con Paso 1 Hacer

   Escribir "Ingrese número";

   Leer numero;

   suma <- suma+numero;

  Fin Para

  Escribir "El resutlado es: " suma;

 FinSi

  

 //Resta

 Definir resta como real;

 si(opcion=2)Entonces

  Definir num1, num2 Como Real;

   

  Escribir "==============RESTA===============";

  Escribir "Ingrese número: ";

  Leer num1;

  Escribir "Ingrese cantidad a restar: ";

  Leer num2;

  resta<- num1-num2; 

  Escribir "El resutlado es: " resta;

 FinSi

  

 //Multiplicación

 Definir producto como entero;

 producto<-1;

 si (opcion = 3) Entonces

  Definir cantidad como entero;

  Definir num como real;

   

  Escribir "==========MULTIPLICACIÓN===========";

  Escribir "¿Cuántos números desea multiplicar?";

  Leer cantidad;

  Definir i como entero;

  Para i<-0 Hasta (cantidad-1) Con Paso 1 Hacer

   Escribir "Ingrese número: ";

   Leer num;

   producto<-producto*num;

  Fin Para

  Escribir "El resutlado es: " producto;

 FinSi

  

 //Division

 Definir division Como Real;

 si (opcion=4) Entonces

  Definir nume, deno como entero;

  Escribir "==============DIVISIÓN==============";

  Escribir "Ingrese numerador: ";

  Leer nume;

  Escribir "Ingrese denominador: ";

  Leer deno;

  Mientras deno=0 Hacer

   Escribir "¡ERROR! el denominador no puede ser cero (0)";

   Escribir "Ingrese denominador: ";

   Leer deno;

  Fin Mientras

  division<- nume/deno;

  Escribir "El resutlado es: " division;

 FinSi

  

FinProceso