Cod sursa(job #943218)

Utilizator linerunnerMihai Ion linerunner Data 24 aprilie 2013 17:44:21
Problema Aria Scor 70
Compilator fpc Status done
Runda Arhiva educationala Marime 0.58 kb
const max=100001;
type coordonate=record
x,y:real;
end;
vector=array[1..max] of coordonate;
var v:vector;
i,j,n:longint;
s:real;
f,g:text;
Begin
Assign(f,'aria.in');Reset(f);
Assign(g,'aria.out');Rewrite(g);
Readln(f,n);
i:=1;
Repeat
Read (f,v[i].x); If (v[i].x>1000000) and (v[i].x<-1000000) then v[i].x:=0;
Read (f,v[i].y); If (v[i].y>1000000) and (v[i].y<-1000000) then v[i].y:=0;
i:=i+1;
until i=n+1;
s:=0;
v[n+1].x:=v[1].x;
v[n+1].y:=v[1].y;
For i:=1 to n+1 do
s:=s+(v[i].x*v[i+1].y-v[i+1].x*v[i].y) ;
s:=abs(s/2);
Write(g,s:8:6);
close(f);close(g); end.