Слайд 7
1 шаг детализации
Program N_ugolnik;
Const N=6;
Var X, Y:array[1..N] of real; S, SNugol:
real; i:integer;
Procedure Treugolnik(Var x1, y1, x2, y2, x3, y3, R:real);
{блок процедуры не записывается}
begin
{ввод координат вершин многоугольника}
for i:=1 to N do
begin
Write(‘X[’, i, ‘]=’); Readln(X[i]);
Write(‘Y[’, i, ‘]=’); Readln(Y[i])
end;
Snugol:=0; {Переменная для вычисления площади фигуры}
{Суммирование площадей треугольников}
for i:=2 to N-1 do
begin
Treugolnik(X[1], Y[1], X[i], Y[i], X[i+1], Y[i+1], S)
Snugol:=Snugol+S
end;
Writeln (‘Площадь фигуры = ’, SNugol)
end.