Program Lab_3_2; uses crt, Types, Poligon, IOGeom, Transf; (**************************************** * Aria poligonului simplu ****************************************) const filein = 'Poligon.txt'; var p: TabelPuncte; nr: integer; aria: real; begin clrscr; writeln; { Citirea datelor din fisierul , daca exista } nr := readf_puncte(filein ,p); if nr = 0 then begin readkey; exit; end; { Afisarea coordonatelor inainte de transformare } write_puncte(p, nr); { Calcularea ariei poligonului simplu } aria := aria_polig_simplu(p, nr); { Afisarea rezultatului } writeln; writeln('Aria poligonului este: ', aria:8:2); readkey; end.