Question

Составить программу Паскаль для нахождения площади трапеции с основаниями а ,б меньшн h

Answer 1

{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a < h) and (b < h) then
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end;
else begin
WriteLn('Основания не меньше h!');
ReadLn;
end;

Answer 2

Программа нахождения площади трапеции в Паскале

Вот пример программы на языке Паскаль для нахождения площади трапеции с основаниями a и b, и высотой h:

program AreaOfTrapezoid;
var
  a, b, h, area: real;
begin
  writeln('Введите длину основания a: ');
  readln(a);
  
  writeln('Введите длину основания b: ');
  readln(b);
  
  writeln('Введите высоту h: ');
  readln(h);
  
  area := (a + b) * h / 2;
  
  writeln('Площадь трапеции: ', area);
end.

В этой программе мы объявляем переменные `a`, `b`, `h` и `area` типа `real` (вещественные числа). Затем мы запрашиваем у пользователя значения оснований `a` и `b`, а также высоту `h` с помощью функции `readln`. Далее мы вычисляем площадь трапеции по формуле `(a + b) * h / 2` и выводим результат с помощью функции `writeln`.

Примечание: Пожалуйста, учтите, что язык Паскаль имеет различные варианты и диалекты, поэтому синтаксис может немного отличаться в зависимости от конкретной реализации. Однако, приведенный выше код является общепринятым и должен работать в большинстве случаев.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.