Приклад

Загальні відомості

Файл є складним типом даних, що містить послідовність компонентів одного типа і однієї довжини. Число елементів у файлі (довжина файлу) не фіксоване. Це є основною відмінністю файлу від масиву.

Файл можна представити як стрічку, в якої є початок, а кінець не фіксований. Елементи файлу записуються на цю стрічку послідовно, один за одним за допомогою деякого пристрою - покажчика файлу. При читанні або записі цей покажчик переміщається до наступного елементу і робить його доступним для обробки. У кожен момент доступний для читання або запису лише той елемент файлу, на який встановлений покажчик.

Приклад

Прімер1. Переписати з текстового файлу f у файл g рядки в перевернутому вигляді, порядок рядків д.б. зворотним.

Етапи рішення задачі:

· Прочитуватимемо файл f по рядкам і перевертаючи рядки записуватимемо їх в масив, далі створимо файл і заповнимо його рядками з масиву міняючи порядок рядків на зворотний.

· Складемо блок -схему програми.

Вміст самих блоків не повинен викликати ї труднощів в смисловому розумінні, головне тут це - технічна реалізації на мові Паскаль, тому запишемо реалізації кожного блоку на Паскалі.

а) "Прочитуємо рядки зіз файлу F" assign(f,'input.dat'); reset(f); while not eof (f) do begin readln(f,st); end; б) "Перевертаємо рядки і записуємо їх в масив" st1:=''; for i:= 1 to length(st) do st1:= st[i]+st1; m[k]:=st1; k:=k+1; в) "Записуємо у файл g" assign(g,'output.dat'); rewrite(g); for i:= 1 to до do writeln(g,m[i]); 3. Програма цілком program example; var f,g:text; m:array[1..100] of string; к,i:integer; begin assign(f,'input.dat'); reset(f); k:=0; while not eof (f) do begin readln(f,st); k:=k+1; st1:=''; for i:= 1 to length(st) do st1:= st[i]+st1; m[k]:=st1; end; assign(g,'output.dat'); rewrite(g); for i:= 1 to до do writeln(g,m[i]); end.

Контрольні питання

1. Що таке файл? Які існують види файлів?

2. Які стандартні процедури і функції має в своєму розпорядженні Borland Pascal для роботи з файлами?

3. Який має бути вмістзміст програми по створенню файлу і його коректуванню (заміна елементів, додавання елементів, видалення елементів)?

4. Які особливості роботи з текстовими файлами?

5. Які особливості роботи з файлами, що типізуються?

6. Як підрахувати число рядків в текстовому файлі?

Дата добавления: 2015-07-19