Функции

[V1rus.25]

Программа с использованием функций

Даны натуральное число n, действительные числа x1, y1, x2, y2, ..., xn, yn. Найти площадь n -угольника, вершины которого при некотором последовательном обходе имеют координаты ( x1, y1), (x2, y2), ..., ( xn, yn). Определить процедуру вычисления площади n- угольника по координатам его вершин.

Количество вершин и координаты должны вводится с клавиатуры.

После долгих мучений что-то получилось на Pascal-е.
Осталось подкорректировать перевести на С++ и сделать ручной ввод

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.