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

end.

5 - масала

{Исми фойдаланувчи томонидан кўрсатилган файл таркибини экранга чиқариш }

uses Crt;

var

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

fname: string [80]; { файл исми}

st: string; {файлдан ўқилган сатр}

sts: integer; ' {экранга чиқарилган сатрлар сони }

key: char; {фойдаланувчи босган клавиш}

begin

ClrScr; { экранни тозалаш}

writeln ('Матн файлини кўздан кечириш');

writeln ('Файлнинг тўла исмини киритинг ва ни босинг');

write (' ');

readln (fname);

Assign (f,fname);

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

ClrScr;

sts:=0;

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

begin

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

writeln (st);

sts:=sts+l;

if sts = 23 then {навбатдаги 23 та сатр чиқарилди }

begin

writeln;

write ('Киритишни давом эттириш учун ихтиёрий клавишни босинг...') ;

key:= Readkey;

GotoXY (1,WhereY); {курсорни жорий сатр бошига этиш}

DelLine; {«Давом эттириш учун…» ахборотини йўқотиш}

sts:=0;