Question

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

Answer 1

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!!