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

end;

end;

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

writeln;

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

key:=Readkey;

end.

6 - масала

{а:\phone.txt файлига исм, шариф ва телефон рақамини қўшимча ёзиш. Агар файл дискда бўлмаса, уни яратиш}

label

1;

var

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

fam: string [15]; {фамилия}

name: string [15]; {исм}

tel: string [9]; {телефон рақами}

begin

writeln ('Телефон маълумотномасига қўшимча');

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

{$I}

Append (f); {аввал қўшиш режимида очамиз }

if IOResult <> 0 then

{файл phone.txt А: дискда бўлмаслик эҳтимоли бор,}

{уни яратамиз }

begin

Rewrite (f); {қайта ёзиш режимида очиш}

if IOResult <> 0 then

begin

writeln (' А: дискка мурожаат этишда хатолик');

goto 1;

end;

end;

{фойдаланувчидан маълумотлар оламиз }

write ('Фамилия ');

readln (fam);

write ('Исм  ');

readln (name);

write ('Телефон ')

readln (tel);

{ва уларни файлга ёзамиз}

writeln (f,fam) ;

writeln (f, name);

writeln (f,tel);

close (f);

writeln ('Ахборот қўшилди.');

1: writeln ('Ишни тугатиш учун ни босинг.');

readln;