por favor me pueden ayudar con esta actividad
Escriba un algoritmo que, dados dos valores A y B, encuentre:
A-B
A+B
A*B
A/B
Respuestas a la pregunta
Respuesta:
Algoritmo MenuAritmetico
Definir op, a, b, s, r, m, d Como Entero
Repetir
Limpiar Pantalla
Escribir 'Menú Aritmético'
Escribir ' '
Escribir '1 = Suma'
Escribir '2 = Resta'
Escribir '3 = Multiplicación'
Escribir '4 = División'
Escribir '5 = Salir'
Escribir 'Elije una opción (1 - 5)'
Leer op
Segun op Hacer
1:
Limpiar Pantalla
Escribir 'Suma'
Escribir 'Dígite el primer número: '
Leer n1
Escribir 'Dígite el segundo número: '
leer n2
Escribir 'Respuesta: ',suma(n1,n2)
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
2:
Limpiar Pantalla
Escribir 'Resta'
Escribir 'Dígite el primer número: '
Leer n1
Escribir 'Dígite el segundo número: '
leer n2
Escribir 'Respuesta: ',resta(n1,n2)
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
3:
Limpiar Pantalla
Escribir 'Multiplicación'
Escribir 'Dígite el primer número: '
Leer n1
Escribir 'Dígite el segundo número: '
leer n2
Escribir 'Respuesta: ',multiplicacion(n1,n2)
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
4:
Limpiar Pantalla
Escribir 'División'
Escribir 'Dígite el primer número: '
Leer n1
Escribir 'Dígite el segundo número: '
leer n2
Escribir 'Respuesta: ',division(n1,n2)
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
5:
Limpiar Pantalla
Escribir 'Gracias vuela pronto'
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
De Otro Modo:
Escribir 'Opción no válida'
Escribir 'Presiona una tecla para continuar'
Esperar Tecla
FinSegun
Hasta Que (op > 0) Y (op <= 5)
FinAlgoritmo
SubProceso s <- suma(n1,n2)
s = a + b
FinSubProceso
SubProceso r <- resta(n1,n2)
r = a - b
FinSubProceso
SubProceso m <- multiplicacion(n1,n2)
m = a * b
FinSubProceso
SubProceso d <- division(n1,n2)
d = a / b
FinSubProceso
¡¡Espero Te Sirva, Saludos!!