Московские учебно-тренировочные сборы по информатике. Весна–2006 Площадь

[xpams]

Подсчитайте площадь заданного произвольного многоугольника.

Входные данные
В первой строке входных данных находится число N (3 ≤ N ≤ 50000) – количество вершин многоугольника. Последующие N строк содержат по 2 целых числа x и y (−10000 ≤ x,y ≤ 10000) – координаты вершин.

Выходные данные
Выведите площадь многоугольника с точностью 600 знаков после запятой.
* В примере выходные данные содержат 600 нулей.

[xpams]

3
0 0
1 0
0 1




0.50000000000000000...000

[NetSpace]

вопрос первый - он у тебя правильный N-угольник, вписанный в окружность, или точно уж вообще произвольный и перекошенный слева наверх сикось-накось?
в первом случае проще было бы...
второй вопрос: а данную задачу надо именно аналитически решать или можно и графически?

графически - это нарисовать вашу фигуру, закрасить её и по количеству закрашенных пикселей подсчитать её площадь. просто мне этот способ самым лёгким показался. но могут быть и другие мнения у обсуждающих...

[xpams]

Я нашел решение в интернете. Ну вот проблемма: не могу сделать вывод в консоль! Подскажите какой тип данных имеет 600 знаков после десятичной точки. Вот код:

Var p,s,min: extended;
    n: int64;
    x,y: array[1..21] of extended;

Procedure Vvod;
Var i: integer;
Begin
 readln(n);
 for i:= 1 to n do
  begin
   readln(x[i],y[i]);
  end;
  x[n+1]:=x[1];
  y[n+1]:=y[1];
End;

Procedure Perenos;
Var i: integer;
Begin
 min:=y[1];
 for i:= 2 to n do
  if min >y[i] then
   min:=y[i];
  for i:=1 to n+1 do
   y[i]:=y[i]-min;
End;

Procedure Ploshad;
Var i: integer;
Begin
 s:=0;
 for i:= 1 to n do
  s:= s+((y[i+1]+y[i])*(x[i+1]-x[i])/2);
end;

Procedure Vyvod;
Begin
 writeln(abs(s):1:600);
end;

Begin
 Vvod;
 Perenos;
 Ploshad;
 Vyvod;
end.

________
При оформлении кода тегами, сначала выделите код программы, а уже потом применяйте форматирование!

Модератор.

[NetSpace]

попробуй тип REAL, у него, кажись, после запятой дробная часть идёт;

s:Real;

[Serge_Bliznykov]

Подскажите какой тип данных имеет 600 знаков после десятичной точки

я такой тип данных не знаю...
и даже не знаю, что можно посоветовать..
может быть, надо использовать длинную арифметику ?!