Определите стоимость земельного участка, отмеченного в виде закрашенной области, используя данные - PascalABC.NET

Формулировка задачи:

Определите стоимость земельного участка, отмеченного в виде закрашенной области, используя данные, представленные на рисунке. Решение оформите в виде блок-схемы, псевдокода и запишите на языке программирования PascalABC.NET. OB = 49,8 м. Цена квадратного метра земли Price = 1010,8 ден. ед. за м2.

Решение задачи: «Определите стоимость земельного участка, отмеченного в виде закрашенной области, используя данные»

Листинг программы

var r,r1,s,p,c:real;
begin
r:=49.8*sin(pi/4);
s:=pi*r*r/8+pi*r*r/4-r*r/2;
c:=s*1010.8;
write('Стоимость=',c:0:1);
end.

Объяснение кода листинга программы

Введены пять переменных: r, r1, s, p, c (строки 1-5)
Значение переменной r вычисляется как 49.8 * sin(π/4) (строка 6)
Значение переменной s вычисляется как π r r / 8 + π r r / 4 - r * r / 2 (строка 7)
Значение переменной c вычисляется как s * 1010.8 (строка 8)
Выводится сообщение Стоимость= и значение переменной c (строка 9)