>;
...
{Читання з непорожньої файлу всіх його компонент і
обчислення суми їх квадратів}
Reset ( F ); S : = 0 ;
While not Eof (F) do
begin
Read (F, I); S: = S + Sqr (I)
end ;
7 Визначення імені файлу
Визначення імені файлу здійснюється за допомогою процедури, яка пов'язує ім'я файлу, визначене у програмі з реально існуючим файлом на фізичному носії інформації.
де F - ім'я файлу, певне в програмі;
Name - змінна типу String або рядок символів, яка вказує шлях до файлу на фізичному носії інформації.
Приклад :
Var F1, F2: file of real;
Name: string;
...
Assign (F1, 'A: Myfile.Dat'); { вихідний файл знаходиться на диску A
під ім'ям Myfile . < b> Dat }
Name: = 'B: File2.Dat';
Assign ( F 2, Name ); {вихідний файл знаходиться на диску B під
ім'ям File 2. Dat }
В
8 Закриття файлу
Close ( F );
Процедура закриває відкритий (з допомогою процедур Rewrite або Reset ) файл.
Налаштування на необхідну компоненту файлу
де F - будь-який файл, крім Text ;
Nom - номер поточної компоненти файлу (змінна типу Longint ).
Процедура здійснює настройку на необхідну компоненту файлу, який попередньо був відкритий процедурами Rewrite або Reset . Номер поточної компоненти файлу можна отримати за допомогою функції FilePos
Розмір файлу в компонентах може бути отриманий за допомогою функції FileSize ( F ).
В
9 Опис текстових файлів
Особливу роль у обмін інформацією із зовнішніми носіями в середовищі Turbo - Pascal 7.0 грають текстові файли, компоненти яких розглядаються як послідовність символів.
Визначення типу
Var CHF : Text ; {це еквівалентно опису
Var CHF: file of char;}
В
10 Читання з текстового файлу
Для читання даних з файлу він повинен бути попередньо відкритий для читання за допомогою процедури Reset ( CHF < i>).
Читання здійснюється за допомогою процедур:
Read ( CHF , < список змінних> );
або
Readln ( CHF , <список змінних> );
Процедура Readln після закінчення читання забезпечує перехід до нового рядка файлу CHF ( Readln без параметрів забезпечує тільки перехід на новий рядок файлу).
При читанні з текстового файлу CHF даних, їх значення присвоюються змінним, зазначеним у списку змінних відповідно до їх типом:
- цілі читаються з поточного символу, пропускаючи початкові прогалини, до першого символу відмінного від цифри (Або кінця рядка/файлу);
- речові читаються з поточного символу, пропускаючи початкові прогалини, до символу синтаксично несумісного з поданням дійсного числа (або кінця рядка/файлу);
- символьні приймають значення поточного символу файлу;
- рядки читаються з поточного символу до кінця рядка (файлу).
Приклад:
Шлях до вихідного файлу: A : File < b> 1. Dat
Вміст файлу: 36 25 + PASCAL
16.5
Var CHF: Text;
S: real:
I, J: integer;
...