Робота з файлами даних
Взірці розв'язування стандартних задач
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.