составим программу для вычисления площади трапеции на языке паскаль

2

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-26T20:33:51+04:00

По двум основаниям и высоте.

 

var a,b,h:real;

begin

readln(a,b,h);

writeln(h*(a+b)/2);

end.

2012-12-26T20:38:28+04:00

var
    a, b, h, s : Real;
begin

   Writeln('Введите основания трапеции:');
      Write('Основание a = '); Readln(a);
      Write('Основание b = '); Readln(b);

   Writeln(#10#13 + 'Введите высоту трапеции: ');
      Write('Высота h = '); Readln(h);

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

   Writeln(#10#13 + 'S трапеции = ', s:0:1);
end.