30.Типтелген файлдар. Стандартты процедуралар

мен функциялар.Мысал.

Паскаль 7.0 файлдардың үш түрі бар.

1.Типтелген файлдар(file of <базалық тип > )

2.Текстік файлдар( text )

3.Типтелген файлдар ( file ).Стандартты фу-р.

Assign-cыртқы ф атауын ф айны-н меншіктейді

Close-ашылған ф жабу

Erasase-сыртқы файлды жабу

Mkdir-каталог құру

Rename-сыртқы файл атын өзг-у

Reset-бар файлды жою

Rewrite-файлды деректерді жазу үшін.

Rmdir-іші бос катлогты жою

Eof-файл соңы

Read-ф көрсетлген типтегі комп-ң оқу.

Seek-көр-н нөмірлі ф қажетті комп-е бай-с орн-у

Write-көр-н типтегі компо-і ф-а жазу

31. Мәтіндік файлдар. Стандартты функциялар мен процедуралар. Мысал.

Мәтіндік файлдар - мәтіндік ақпаратты сақтау үшін қолданылады. Мәтіндік файлдың компоненттерінің ұзындығы айнымалы болуы мүмкін. Осындай файлдың әрбір қатарын қарастырғанда файлдың тек бірінші қатарынан бастап, тізбектеп өзгертуге болады.

Мәтіндік файлды құру кезінде әр жолдан кейін EOLN арнайы белгісі, ал барлық файлдың соңына EOF белгісі қойылады.

Ерекшілігі: READ немесе WRITE процедураларының көмегімен мәндері енгізілетін немесе шығарылатын параметрлері CHAR немесе STRING типпен бірге басқа қарапайым типті болуы мүмкін.

- енгізуге бүтін, нақты типтер;

- шығаруға бүтін, нақты, логикалық;

Мәтіндік файлдармен жұмыс істеу үшін келесі процедуралар мен функциялар қолданылады.

1. APPEND - файлдың соңына ақпарат қосу үшін ашу.

2. FLUSH - шығару файл буферін босату.

3. READ - файлдан оқу.

4. READLN - файлдан жолды оқу.

5. SETTEXTBUF - енгізу, шығару буферін тағайындау.

6. WRITE - файлға жазу.

7. WRITELN - файлға жолды жазу.

8. EOLN - файл жолының соңы.

9. SEEKEOF - файлдың соңы.

10. SEEKEOLN - файл жолының соңы.

мысал: f мәтіндік файл берілген. оның жолд-ң басында орналасқан бос орындарды жойып, g файлына жазу керек.

program prim; Var f,g:text; st:string; i:integer;

begin assign(f,'fs:txt'); reset(f); assign(g,'gs:txt');

rewrite (g); while not eof(f) do begin

readln(f,s); i:=1; if st[i]=' ' then repeat

delete (st,i,1); until (s[i]<>' ') or (i=length(st));

writeln(g,st); end; close(f); close(g); end.

32. Типтелмеген файлдар. Стандартты функциялар мен процедуралар. Мысал.

Типтелмеген файлдарды баяндау барысында компоненттердің типі көрсетілмейді. Сондықтан бұл файлдар басқа файлдармен үйлесімді болады. Комп-ң жады және диск арасындағы мәліметтердің ауысуын жоғары, жылдамдықтағы ауысу ретінде ұйымдастыруға мүмкіндік береді. Типтелмеген ф-ды инициял-да RESET және REWRITE проц-да екінші параметр ретінде типтелмеген ф-ң жазбасының ұзындығын байт арқылы көрсетуге болады.

БУФЕР - дискпен мәліметтер ауысуында қатысатын айнымаланың аты.

READ және WRITE процедурасының орнына BLOCKREAD және BLOCKWRITE жылдамдығы жоғары проц-р қолданылады. SEEK, FILEPOS, FILESIZE процедуралары арқылы типтелмеген ф-ң кез келген жазбасынан мәлімет алу мүмкіндігін қамтамасыз етеді.

мысал: program d;

var f,g:text; c:char;

begin assign (f, ‘fsim.txt’); reset(f);

assign (g, ‘fres.txt’); rewrite(d);

while not eof(f) do

begin read(f,c); if(c=’*’)then(d, ‘ , ‘) else write(d,c);

end; close(f); close(d); end.