Question

Написать программу площадь равнобедренной трапеции на паскале

Answer 1

Var 
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота 
s:=((a+b)/2)*h;
writeln(s);
end.

Answer 2

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

program TrapezoidArea;

var
  a, b, h, area: real;

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

В этой программе мы объявляем переменные `a`, `b`, `h` и `area` типа `real` для хранения значений оснований, высоты и площади трапеции соответственно.

Затем мы запрашиваем у пользователя значения первого и второго оснований, а также высоты трапеции с помощью функции `readln`.

Далее мы вычисляем площадь трапеции по формуле `(a + b) * h / 2` и сохраняем результат в переменную `area`.

Наконец, мы выводим результат на экран с помощью функции `writeln`.

Программа останавливается, пока пользователь не нажмет клавишу Enter с помощью функции `readln`.