Вычисление площади параллелограмма в Паскале

Площадь параллелограмма в Паскале можно вычислять по разным формулам, в зависимости от того, какие данные даны в задаче.

Самый простой вариант — если известны основание и высота параллелограмма.

Формула:

S = a * h

где:

S — площадь параллелограмма
a — основание
h — высота, проведённая к этому основанию

Пример программы на Pascal:

pascal
program PloshadParallelogramma;

var
  a, h, S: real;

begin
  writeln('Введите основание параллелограмма:');
  readln(a);

  writeln('Введите высоту параллелограмма:');
  readln(h);

  S := a * h;

  writeln('Площадь параллелограмма = ', S:0:2);
end.

Здесь переменные a, h и S имеют тип real, потому что основание, высота и площадь могут быть дробными числами.

Например, если пользователь введёт:

Введите основание параллелограмма:
6
Введите высоту параллелограмма:
4

то программа выведет:

Площадь параллелограмма = 24.00

Если по условию задачи известны две стороны параллелограмма и угол между ними, тогда используется другая формула:

S = a * b * sin(угол)

Но в Pascal функция sin принимает угол в радианах, а не в градусах. Поэтому, если угол вводится в градусах, его нужно перевести в радианы:

радианы = градусы * pi / 180

Пример программы:

pascal
program PloshadParallelogrammaPoUglu;

var
  a, b, angle, radians, S: real;

begin
  writeln('Введите первую сторону параллелограмма:');
  readln(a);

  writeln('Введите вторую сторону параллелограмма:');
  readln(b);

  writeln('Введите угол между сторонами в градусах:');
  readln(angle);

  radians := angle * pi / 180;

  S := a * b * sin(radians);

  writeln('Площадь параллелограмма = ', S:0:2);
end.

Например, если стороны равны 5 и 8, а угол между ними 30 градусов, то площадь будет:

S = 5 * 8 * sin(30°)
S = 40 * 0.5
S = 20

Результат программы:

Площадь параллелограмма = 20.00

Если в задаче просто сказано «найти площадь параллелограмма», чаще всего имеется в виду первый вариант — через основание и высоту:

pascal
S := a * h;