Question

scrie un program in limbajul pascal programul care calculeaza aria si perimetrul unui trapez sitind lungima laturilor si inaltimii lui​

Answer 1

Răspuns:

var

a, b, c, d, h, p, aria: real;

begin

write('Prima latura=');

readln(a);

write('A doua latura=');

readln(b);

write('A treia latura=');

readln(c);

write('A patra latura=');

readln(d);

write('Inaltimea trapezului=');

readln(h);

p := a + b + c + d;

aria := (a + b) * h / 2;

writeln('Perimetrul=', p);

writeln('Aria=', aria);

end.