Всі умови | Умова: Дано натуральне число n, дійсні числа x1, y1, x2, y2, ..., xn, yn. Знайти площу n-кутника, вершини якого при деякому послідовному обході мають координати (x1, y1), (x2, y2), ..., (xn, yn). (Визначити процедуру обчислення площі трикутника за координатами його вершин.)
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №444)
program Pr444;
var
x, y, z, n : mas
p : real;
i : integer;
type
mas = array [1..n] of real;
procedure d(x1,x2,y1,y2 :real; var z1:real);
begin
z1 := sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
begin
readln(n);
p:=0;
for i:=1 to n do
begin
writeln ('koordunata vershunu',i);
readln(x[i]);
readln(y[i]);
if i=n then
d(x[1],y[1],x[n],y[n],z[n])
else
d(x[i],y[i],x[i+1],y[i+1],z[i]);
end;
for i:=1 to n do
p:=p+z[i];
writeln(p:10:2);
readln;
end.