Question

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

Answer 1

Uses crt;
vara,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln(); 
write('Введи основание а = '); 
readln(a); 
writeln(); 
write('Введи основание b = '); 
 readln(b); 
writeln();   
write('Введи высоту h = '); 
 readln(h);     
S:=h*(a+b)/2;     
writeln('Ответ: ',S);
end.

Answer 2

Конечно, я могу помочь вам с написанием программы на языке Pascal для вычисления площади трапеции. Вот пример простой программы:

program TrapezoidAreaCalculator;

var
  a, b, h, area: real;

begin
  // Ввод данных
  writeln('Введите длину основания a: ');
  readln(a);

writeln('Введите длину основания b: ');
  readln(b);

writeln('Введите высоту h: ');
  readln(h);

// Вычисление площади трапеции
  area := 0.5 * (a + b) * h;

// Вывод результата
  writeln('Площадь трапеции: ', area);

// Задержка перед завершением программы (для просмотра результата)
  readln;
end.

Эта программа запрашивает у пользователя длины оснований `a` и `b`, а также высоту `h`. Затем она использует формулу для вычисления площади трапеции: \( S = \frac{1}{2} \cdot (a + b) \cdot h \). Результат выводится на экран.

Примечание: Помните, что Pascal - старый язык программирования, и в современных условиях его использование может быть ограничено. В зависимости от ваших потребностей, вы также можете рассмотреть использование более современных языков программирования, таких как Python, Java, C++ и др.