Мавзу: Паскалда файллар билан ишлаш. Бу бўлимда қуйидагиларни эслаш керак

for i:=1 to 5 do

begin

write(''),

readln (n);

writeln (f,n);

end;

Close(f); { файлни ёпиш}

writeln ('Киритилган сонлар a:\numbers.txt файлга қўшилган');

readIn;

end.
3 - масала

{ a:\numbers.txt файлнинг таркибини экранга чиқариш}

var

f: text; {матн файли}

n: integer; {сон}

begin

writeln (' a:\numbers.txt файл таркиби');

writeln ('------------------------------------------')

Assign (f, 'a:\numbers.txt');

Reset (f); {ўқиш учун файлни очиш}

While not EOF (f) do {ҳозирча файл охирига етилмаган }

begin

readln (f,n); {файлдан сонни ўқиш}

writeln (n); {ўқилган сонни экранга чиқариш }

end;

Close (f); { файлни ёпиш}

writeln ('------------------------------------------')

readln;

4 - масала

{а:\numbers.txt файлидаги сонларнинг ўрта арифметигини ҳисоблаш)

var

f: text; {матн файли}

n: integer; {файлдан ўқилган сон }

miq: integer; {ўқилган сонлар миқдори}

sum: integer; {ўқилган сонлар жами }

o’a: real; {ўрта арифметик}

begin

writeln (' а:\numbers.txt файлидаги сонларнинг, ');

writeln ('ўрта арифметигини ҳисоблаш');

writeln ('Файлдан ўқиш. Кутинг. ');

sum:=0;

miq:=0;

Assign (f, 'a:\numbers.txt');

Reset (f); {файлни ўқиш учун очиш}

While not EOF (f) do {ҳозирча файл охирига етилмаган }

begin

readln (f,n); {файлдан сонни ўқиш}

sum:=sum+n;

miq:= miq +1;

end;

Close (f); {файлни ёпиш}

o’a:=sum/ miq;

writeln ('Ўқилган сонлар: ', miq);

writeln ('Сонлар йиғиндиси: ',sum);

writeln ('Ўрта арифметик: ',o’a:9:2);

readln;