Calculadora
1:Suma
2:Resta
3:Multiplicacion
4:Division
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Algoritmo Calculadora_Simple
//Elaborado por: Leonardo Cabezas Briones
Definir opcMenu, N Como Entero
Definir salir Como Logico
Dimension operandos[50]
Definir operandos Como Numero
salir <- Falso
Repetir
Escribir "------------------------------------"
Escribir "Biemvenido a la calculadora basica "
Escribir "------------------------------------"
Escribir ""
Escribir ""
Escribir ""
Escribir "-------------------"
Escribir " MENU "
Escribir "-------------------"
Escribir "(1) Suma"
Escribir "-------------------"
Escribir "(2) Resta"
Escribir "-------------------"
Escribir "(3) Multiplicación"
Escribir "-------------------"
Escribir "(4) División"
Escribir "-------------------"
Escribir "(5) Salir"
Escribir "-------------------"
Escribir "Eliga una opción..." Sin Saltar
Leer opcMenu
Escribir ""
Segun opcMenu Hacer
1:
N <- pedirN
leerOperandos(operandos, N)
Escribir ""
Escribir "SUMA = " , operar(operandos, N, 1)
teclaYborrarPantalla
2:
N <- pedirN
leerOperandos(operandos, N)
Escribir ""
Escribir "RESTA = " , operar(operandos, N, 2)
teclaYborrarPantalla
3:
N <- pedirN
leerOperandos(operandos, N)
Escribir ""
Escribir "PRODUCTO = " , operar(operandos, N, 3)
teclaYborrarPantalla
4:
N <- pedirN
leerOperandos(operandos, N)
Escribir ""
Escribir "DIVISIÓN = " , operar(operandos, N, 4)
teclaYborrarPantalla
5:
salir <- Verdadero
De Otro Modo:
Escribir "No es una opción correcta. Inténtalo de nuevo"
teclaYborrarPantalla
FinSegun
Hasta Que salir
FinAlgoritmo
Funcion teclaYborrarPantalla
Escribir "Pulse una tecla para continuar..."
Esperar Tecla
Borrar Pantalla
FinFuncion
Funcion n <- pedirN
Definir n Como Entero
Repetir
Escribir "Para cuántos números desea realizar la operación: " Sin Saltar
Leer n
Si n<=1 Entonces
Escribir "La cantidad de números tiene que ser mayor que uno"
FinSi
Mientras Que (n<=1)
FinFuncion
Funcion leerOperandos(Oper Por Referencia, n)
Definir i Como Entero
Si n>50 Entonces
Escribir "No puede haber más de 50 operandos"
SiNo
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "NÚMERO ", i, ": " Sin Saltar
Leer Oper[i]
FinPara
FinSi
FinFuncion
Funcion resultado <- operar(oper, final, op)
Definir resultado Como Numero
Definir i Como Entero
Segun op Hacer
1:
resultado <- 0
Para i<-1 Hasta final Con Paso 1 Hacer
resultado <- resultado + oper[i]
FinPara
2:
resultado <- 0
Para i<-1 Hasta final Con Paso 1 Hacer
resultado <- resultado - oper[i]
FinPara
3:
resultado <- 1
Para i<-1 Hasta final Con Paso 1 Hacer
resultado <- resultado * oper[i]
FinPara
4:
i<-1
resultado <- oper[i]
Para i<-2 Hasta final Con Paso 1 Hacer
resultado <- resultado / oper[i]
FinPara
De Otro Modo:
Escribir "Se ha producido algún error..."
FinSegun
FinFuncion
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
No hay comentarios:
Publicar un comentario