Тема: Перевірка тексту !
Дано натуральне число n, дійсні числа x1, y1, x2, y2, ..., xn, yn. Знайти площу n-кутника, вершини якого при деякому послідовному обході мають координати ( x1, y1), (x2, y2), ..., ( xn, yn). (Визначити процедуру обчислення площі трикутника за координатами його вершин).
мены здається що вона робить розрахунок не вірно!
program 1
var x, y, z, n :mas
p: real;
i: integer;
type
mas = array [1...n] of real;
prosedure 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 ('koordinata 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.
