De:b,h:real
Proc:area=b*h/2
Ds:area

Inicio
B,h,area:real
Escriba(“digite la altura”)
Lea(h)
Escriba (“digite la base”)
Lea(b)
Si(b>h)entonces
Areat=(b*h)/2
Escriba (“area el trianguloes”,area t)
Sino
Area=b*h
Escriba(“area del ractangulo es”.area r”)
F si
Fin


#include
#include
Int main()
{
Clrscr();
Float b,h,area;
Printf(“digite la altura”);
Scanf(“%f”&h);
Printf(“digite la base”);
Scanf(“%f”&b);
If(b>h){
Arrea t=(b*h)/2;
Printf(“el area del triangulo es%f1.2”,area t);
}else{;
Area=b*h;
Printf(“el area del rectangulo es%f1.2”,area r);
}
Getch;
{