ANALISIS DE SISTEMAS

/*102 AREAS PARALELOGRAMO ROMBO Y TRAPECIO*/

entero h,D,d2,b,B1,areas
real l,a,r

inicio
escriba "escoja del 1 al 3 que figura geometrica quiere"
llamar nueva_linea
escriba "digite 1 para el rombo"
llamar nueva_linea
escriba "digite 2 para el trapecio"
llamar nueva_linea
escriba "digite 3 para el paralelogramo"
llamar nueva_linea
lea areas
caso areas

1:escriba " ingrese el valor de la diagonal "
lea D
escriba " ingrese el valor de la diagonal d1 "
lea d2
a<-(D*d2)/2
escriba "el area es : ",a

2:escriba " ingrese el valor de la base mayor "
lea B1
escriba " ingrese el valor de la base menor "
lea b
escriba " ingrese el valor de la altura"
lea h
a<-(B1+b)/2*h
escriba " el area es : ",a

3:escriba " ingrese el valor de la base"
lea b
escriba " el valor de la altura"
lea h
a<-b*h
escriba " el area : ",a
fin caso
fin