Робота з файлами даних

Взірці розв'язування стандартних задач

program suma_chisel;

var x,y,s : integer;

dano, rez : text; {це описано текстові файли}

begin

assign (dano, 'chisla.dat'); reset (dano); {відкрито файл для читання}

readln (dano,x,y); {читання з файлу}

s:=x+y;

assign (rez, 'suma.dat'); rewrite (rez); {відкрито файл для запису}

writeln (rez,s); {запис у файл}

close (dano); close (rez);

END.

program ploshchad;

const nn=100;

var x:array[1..nn]of real; y:array[1..nn] of real;

i,j,k,n:integer; maxx,S,maxy,miny,minx: real; dano,rez:text;

BEGIN

assign(dano,'pr.dat'); reset(dano);

read(dano,n);

for i:=1 to n do

read (dano,x[i],y[i]);

for i:=1 to n do

writeln(x[i]:6:4,y[i]:10:4);

maxx:=-999999; maxy:=-999999;

minx:=99999; miny:=99999;

for i:=1 to n do begin

if (x[i]>maxx) then maxx:=x[i];

if (y[i]>maxy) then maxy:=y[i];

if (x[i]>minx) then minx:=x[i];

if (y[i]>miny) then miny:=y[i];

end;

writeln(maxx,maxy,minx,miny);

S:=abs((maxx-minx)*(maxy-miny));

writeln(rez, S:13:7);

close (dano); close (rez);

readln END.