caalcoli su trapezio

esci altro.htm

program area;
uses crt;
var base1,base2,altezza,lato1,lato2,perimetro:integer;
superficie:real;
begin
clrscr;
writeln('scrivi i dati come numeri interi,minori di 50 ');
writeln('per calcoli su trapezio scaleno');
write('base maggiore=');readln(base1);
write('base minore=');readln(base2);
write('altezza=');readln(altezza);
write('lato1 =');readln(lato1);
write('lato2=');readln(lato2);
superficie:=(base1+base2)*altezza/2;
perimetro:=base1+base2+lato1+lato2;
writeln('area del trapezio=',superficie:8:2);
writeln('perimetro del trapezio=',perimetro);
writeln('premi invio per finire');
readln;clrscr;
end.