Question

1.Realiza un algoritmo y diagrama de flujo que contenga un menú con las siguientes opciones, todos los datos deberán ser solicitados al usuario: 1. Calcula el área de un rectángulo 2. Realice la resta de 2 números 3. Calcule el área de un triangulo 4. Realice la división de 2 números

Answer 1

Respuesta:

Funcion RAreaTriangulo <- AreaTriangulo(n)

Limpiar Pantalla

Definir b, h, a Como Real

Escribir ' ****************** '

Escribir ' Área Del Triángulo '

Escribir ' ****************** '

Escribir ' '

Escribir 'Base: '

Leer b

Escribir 'Altura: '

Leer h

a = (b * h)/2

Escribir 'Es Área Es: ',a

Escribir 'Presione Enter Para Continuar'

Esperar Tecla

FinFuncion

Funcion RDivision <- Division(n)

Limpiar Pantalla

Definir n1, n2, d Como Entero

Escribir ' ******** '

Escribir ' División '

Escribir ' ******** '

Escribir ' '

Escribir 'Dígite El Primer Número: '

Leer n1

Escribir 'Dígite El Primer Número: '

Leer n2

d = n1 / n2

Escribir 'Respuesta: ',d

Escribir 'Presione Enter Para Continuar'

Esperar Tecla

FinFuncion

Funcion RResta <- Resta(n)

Limpiar Pantalla

Definir n1, n2, r Como Entero

Escribir ' ***** '

Escribir ' Resta '

Escribir ' ***** '

Escribir ' '

Escribir 'Dígite El Primer Número: '

Leer n1

Escribir 'Dígite El Primer Número: '

Leer n2

r = n1 - n2

Escribir 'Respuesta: ',r

Escribir 'Presione Enter Para Continuar'

Esperar Tecla

FinFuncion

Funcion RAreaRectangulo <- AreaRectangulo(n)

Limpiar Pantalla

Definir b, h, a Como Entero

Escribir ' ******************* '

Escribir ' Área Del Rectángulo '

Escribir ' ******************* '

Escribir ' '

Escribir 'Base: '

Leer b

Escribir 'Altura: '

Leer h

a = b * h

Escribir 'Es Área Es: ',a

Escribir 'Presione Enter Para Continuar'

Esperar Tecla

FinFuncion

Funcion RMenu <- Menu(n)

Repetir

 Limpiar Pantalla

 Escribir ' **** '

 Escribir ' Menú '

 Escribir ' **** '

 Escribir ' '

 Escribir '1 = Área De Un Rectángulo'

 Escribir '2 = Resta'

 Escribir '3 = Área De Un Triángulo'

 Escribir '4 = División'

 Escribir ' '

 Escribir 'Elija Una Opción (1 - 4)'

 Leer NumeroDeOpcion  

 Segun NumeroDeOpcion Hacer

  1:  

   Escribir AreaRectangulo(n)

  2:

   Escribir Resta(n)

  3:

   Escribir AreaTriangulo(n)

  4:

   Escribir Division(n)

 FinSegun

Hasta Que NumeroDeOpcion = 4

FinFuncion

Algoritmo Menu_De_4_Opciones

Escribir Menu(n)

FinAlgoritmo

¡¡Espero Te Sirva, Saludos!!