Cod sursa(job #1396714)

Utilizator Stefan.Andras Stefan Stefan. Data 22 martie 2015 21:15:02
Problema Aria Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.63 kb
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.