[Igor1096]

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

Код:

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: Пользуемся тегами!

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