Pseint

Proceso Calculadora
Definir op Como Caracter
Definir repite Como Logico
repite <- Verdadero
Repetir

op <- menu ();
Segun op hacer
'1':
Rombo ();
'2':
Trapecio();
'3':
Triangulo ();
'4':
Circulo ();
'5':
Cuadrado ();
'x':

de otro modo:
Escribir 'Opcion no valida'
FinSegun
Esperar Tecla
Limpiar Pantalla
HastaQue op = 'x'
Fin Proceso

SubProceso op <- menu ()
definir op como caracter
escribir ''
escribir 'Elije la opcion para calcular el area deseada'

escribir ''
escribir '1) Rombo'escribir ''
escribir '2) Trapecio'
escribir ''
escribir '3) Triangulo'
escribir ''
escribir '4) Circulo'
escribir ''
escribir '5) Cuadrado'
escribir ''
escribir 'x) Salir'
escribir ''Leer op
FinSubProceso

SubProceso Rombo ()
definir D1, d2, resultado como real
escribir "Dame la diagonal mayor"
leer D1
escribir "Dame la diagonal menor"
leer d2

resultado <-D1*d2/2
escribir 'El area del rombo es = ', resultado, ' cm2'
Fin SubProceso

SubProceso Trapecio ( )
definir B1, b2, h, resultado como real
escribir "Dame la base mayor"

leer B1escribir "Dame la base menor"
leer b2
escribir "Dame la altura"
leer h
resultado <- (B1 + b2) / 2
resultado2 <- resultado * h
escribir 'El area del Trapecio es = ', resultado2,' cm2'FinSubProceso

SubProceso Triangulo ( )
definir b1, h, resultado como real
escribir "Dame la base"
leer b1
escribir "Dame la altura"
leer h
resultado <- b1*h / 2
escribir 'El area delTriangulo es = ', resultado,' cm2'
FinSubProceso

SubProceso Circulo ( )
definir r, resultado como real
escribir "Dame el radio"
leer r
resultado <- r * 3.1415
escribir 'El area delCirculo es = ', resultado,' cm2'
FinSubProceso

SubProceso Cuadrado ( )
definir L, resultado como real
escribir "Dame el lado"
leer L
resultado <- L*L
escribir 'El area del...