[Igor1096]

Плиз ;
На паскале написал; а надо в Delphi да так чтобы в первой форме ввести n а во второй все рачёты

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

begin writeln ('vi4eslenie ploschadi'); writeln ('vvedite koli4estvo povorotnix to4ek'); readln(n); for i:=1 to n do begin writeln ('vvedite x'); readln(a[i]); writeln ('vvedite y'); readln(b[i]); end; summ:=0; for i:=2 to n-1 do begin sum[i]:=a[i]*(b[i+1]-b[i-1]); summ:=summ+sum[i]; end; s:=a[1]*(b[2]-b[n]); c:=a[n]*(b[1]-b[n-1]); g:=0.5*(summ+c+s); h:=abs(g); write(h:90:3); readln; end.

Admin: Пользуемся тегами!

за ранее огромное спасибо

[NIch]

Кое что набросал, в алгоритм посчета не вникал...Посмотри, проверь, если, что пиши...