Program Biblio; Type Books=record Nomer:integer; Autor:string [46]; Title: string [60]; ISBN: string [16]; End; Var BooksFile: text; Books1 : Books; Begin Assign (Booksfile,'c:\Biblo.txt'); Rewrite (Booksfile); readln (Books1.Nomer); writeln(BooksFile,Books1.Nomer); readln (Books1.Autor); writeln (BooksFile, Books1.Autor); readln (Books1.Title); writeln (BooksFile,Books1.Title); readln (Books1.ISBN); writeln (BooksFile,Books1.ISBN); Close (BooksFile); End. Qeyd edək ki,
Read və
Write prosedurları vasitəsilə tipsiz fayllara verilənlər
128 baytdan ibarət olan bloklarla yazılır və oxunur. Tipsiz fayllardan verilənlərin
daha sürətli oxunması üçün əlavə olaraq
BlockWrite(var f:file; var buf; count:Word; result:Word), verilənləri daha sürətlə yazmaq üçün isə
BlockWrite(var f:file; var buf; count:Word; result: Word) prosedurlarından istifadə olunur. Buf - parametri müvafiq olaraq oxunan və yazılan
verilənə uyğun ixtiyari dəyişən, count – oxunan və yazılan blokların sayını, result –
oxunan və ya yazılan yazıların sayını bildirən parametrlərdir.
Məsələn,
