Cod sursa(job #1430691)

Utilizator Stefan.Andras Stefan Stefan. Data 8 mai 2015 18:51:31
Problema Aria Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.7 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;
    bufin:array[1..65536] of byte;
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);
        settextbuf(f,bufin);
        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:5);
        close(f); close(g);
end.