Programa de cálculos matemáticos
1:Es múltiplo de 5
2:Tabla de multiplicar
3:Suma 6 números
4:Serie matemática
5:Suma igual a 10
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Algoritmo menu_de_problemas_simple
//Elaborado por: Leonardo Cabezas Briones
Definir opcMenu Como Entero
Definir salir Como Logico
salir <- Falso
Repetir
Escribir "----------------------------------"
Escribir " MENU"
Escribir "----------------------------------"
Escribir "(1) ¿Es múltipolo de 5?"
Escribir "----------------------------------"
Escribir "(2) Tabla de multiplicar"
Escribir "----------------------------------"
Escribir "(3) Suma 6 números"
Escribir "----------------------------------"
Escribir "(4) Serie matemática"
Escribir "----------------------------------"
Escribir "(5) ¿Suma igual a 10?"
Escribir "----------------------------------"
Escribir "(6) Salir"
Escribir "----------------------------------"
Escribir "Seleccione la operación (1 al 6)...." Sin Saltar
Leer opcMenu
Borrar Pantalla
Segun opcMenu Hacer
1:
opcion1
teclayBorrar
2:
opcion2
teclayBorrar
3:
opcion3
teclayBorrar
4:
opcion4
teclayBorrar
5:
opcion5
teclayBorrar
6:
salir <- Verdadero
FinSegun
Hasta Que salir
FinAlgoritmo
Funcion opcion1
Definir num Como Entero
Escribir "NÚMERO: " Sin Saltar
Leer num
Si (num%5==0) Entonces
Escribir "Es múltiplo de 5"
SiNo
Escribir "No es múltipolo 5"
FinSi
FinFuncion
Funcion opcion2
Definir i, um Como Entero
Escribir "NÚMERO: " Sin Saltar
Leer num
i<-1
Mientras (i<=10) Hacer
Escribir num, " * ", i, " = ", num*i
i<-i+1
FinMientras
FinFuncion
Funcion opcion3
Dimension num[6]
Definir num, suma Como Numero
Definir i Como Entero
Para i<-1 Hasta 6 Con Paso 1 Hacer
Escribir "NÚMERO ", i, ": " Sin Saltar
Leer num[i]
FinPara
suma <- 0
Para i<-1 Hasta 6 Con Paso 1 Hacer
suma <- suma + num[i]
FinPara
Escribir ""
Escribir "SUMA = ", suma
FinFuncion
Funcion opcion4
Definir elementos, n Como Entero
Escribir "NÚMERO DE ELEMENTOS: " Sin Saltar
Leer elementos
n <- 2
Para i<-1 Hasta elementos Con Paso 1 Hacer
Escribir n, " " Sin Saltar
n <- n+2
FinPara
Escribir ""
FinFuncion
Funcion opcion5
Definir num1, num2 Como Numero
Escribir "NÚMERO 1: " Sin Saltar
Leer num1
Escribir "NÚMERO 2: " Sin Saltar
Leer num2
Si (num1+num2)==10 Entonces
Escribir "SUMA = 10"
FinSi
FinFuncion
Funcion teclayBorrar
Escribir "Pulse una tecla para continuar..."
Esperar Tecla
Borrar Pantalla
FinFuncion
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
No hay comentarios:
Publicar un comentario