Pagini recente » Cod sursa (job #912569) | Cod sursa (job #2818525) | Cod sursa (job #1733761) | Cod sursa (job #3165064) | Cod sursa (job #1396714)
program convexarie;
const nmax = 100005;
type coord = record
x,y:extended;
end;
var f,g:text;
n,i:longint;
aria:extended;
v:array[1..nmax] of coord;
function det:extended;
begin
det:=v[i].x * v[i+1].y - v[i+1].x * v[i].y;
end;
begin
assign(f,'aria.in'); reset(f);
assign(g,'aria.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
readln(f,v[i].x,v[i].y);
v[n+1]:=v[1]; aria:=0;
for i:=1 to n do
aria:=aria+det;
aria:=aria/2;
writeln(g,aria:0:2);
close(f); close(g);
end.