Algoritmo Principal

Algoritmo Principal

        num1 = fun_leerNumero()

        num2 = fun_leerNumero()

        op = fun_Menu()

        Segun op Hacer

                1:

                        respuesta = fun_MiSuma(num1,num2)

                        Escribir num1," + ",num2,"= ",respuesta

                2:

                        Escribir num1," - ",num2," = ",fun_MiResta(num1,num2)

                3:

                        Escribir num1," x ",num2,"=",fun_Miproducto(num1,num2)

                4:

                        Escribir num1," / ",num2,"=",fun_Midiv(num1,num2)

        FinSegun

FinAlgoritmo

Funcion r = fun_leerNumero()

        Escribir "Ingrese Un n�mero"

        Leer num

        r = num

FinFuncion

Funcion sub_Menu()

        Escribir "1: Suma"

        Escribir "2: Resta"

        Escribir "3: Multiplicaci�n"

        Escribir "4:Divisi�n"

FinFuncion

Funcion r = fun_Menu()

        Repetir

                Escribir "Elija la operaci�n"

                sub_Menu()

                Leer resp

        Hasta Que resp>=1 y resp<=4

        r = resp

FinFuncion

Funcion r = fun_Misuma(a,b)

        r = a+b

FinFuncion

Funcion res = fun_MiResta(n1,n2)

        res = n1-n2

FinFuncion

Funcion r=fun_Miproducto(n1,n2)

        r=n1*n2

FinFuncion

Funcion r=fun_Midiv(n1,n2)

        r=n1/n2

FinFuncion

var

n1,n2,op,resp:numerico

inicio

repetir

 cls()

 n1=fun_leerNumero()

 n2=fun_leerNumero()

 op=fun_Menu()

 sub_operaciones(op,n1,n2)

imprimir("\n Desea realizar otra operaci�n si(1)")

leer(resp)

hasta(resp<>1)

fin

//implementar los sub procesos

sub fun_leerNumero()retorna numerico

var

 valor:numerico

inicio

  imprimir("\n Ingrese un N�mero: ")

  leer(valor)

retorna valor

fin

sub fun_Menu()retorna numerico

var

op:numerico

inicio

   repetir

    sub_Menu()

    leer(op)

   hasta(op>=1 && op<=4)

  retorna op

fin

sub sub_Menu()

inicio

      imprimir("Elija la operaci�n: \n")

                imprimir("1:SUMA \n")

                imprimir("2:RESTA \n")

                imprimir("3:MULTIPLICACION \n")

                imprimir("4:DIVISION \n")

fin

sub  sub_operaciones(op:numerico;num1:numerico;num2:numerico)

var

respuesta:numerico

signo:cadena

inicio

                eval{

        caso(op==1)

            respuesta=fun_MiSuma(num1,num2)

            signo=" + "

                  caso(op==2)

                                respuesta=fun_MiResta(num1,num2)

            signo=" - "

        caso(op==3)

            respuesta=fun_MiMultiplicacion(num1,num2)

            signo=" x "

        caso(op==4)

            respuesta=fun_MiDivision(num1,num2)

            signo=" / "

     }

sub_MostrarResultado(signo,num1,num2,respuesta)

fin

sub fun_MiSuma(num1,num2:numerico)retorna numerico

inicio

retorna num1+num2

fin

sub fun_MiResta(num1,num2:numerico)retorna numerico

inicio

retorna num1-num2

fin

sub fun_MiMultiplicacion(num1,num2:numerico)retorna numerico

inicio

retorna num1*num2

fin

sub fun_MiDivision(num1,num2:numerico)retorna numerico

inicio

retorna num1/num2

fin

sub sub_MostrarResultado(signo:cadena; num1,num2,resp:numerico)

inicio

imprimir("\n",num1,signo,num2," = ",resp)

fin

#include

#include

#include

using namespace std;

//zona para constanes

//zona para variables globales

//declarar las funciones

...