Текстові файлиПриклади використання презентация

використовується тип Text. Наприклад,  var f : Text ;

Для роботи з текстовими файлами існують процедури і функції.
Розглянемо їх на прикладах.

text ; a, i : integer ;
begin
Assign(f, ‘ab.pas’) ; {-встановити зв’язок між файловою змінною f і фізичним файлом ab.pas}
Rewrite (f) ; { -відкрити файл для запису}
Writeln( ‘введіть числа’) ;
For i :=1 to 10 do
begin
Readln (a); { -введення числа з клавіатури}
write (f, a : 2) ; { - запис числа у файл }
End ;
Close (f) {- закрити файл}
Еnd.

команди присвоювання, наприклад:
For i:=1 to n do begin
a:=i+1; Write( f, a:2) end;

aбо утворювати їх випадковим чином:
For i:=1 to n do begin
a:=random(10); Write( f, a:5) end;

; a, b : integer;
begin
Assign(f, ‘ab.pas’) ;
Reset (f) ; { - відкрити файл для читання }
Read (f, a); { - читання 1-го числа }
Read (f, b); { - читання 2-го числа }
Writeln( a:3, b:3) { -виведення чисел на екран}
Close (f)
end.

Rewrite очистить існуючий файл.
В кінці програми обов’язково потрібно закрити файл процедурою Close(f).

кінець файла

Var f : text ; a, i : integer;
begin
Assign(f, ‘ab.pas’ ) ;
Reset (f) ; { -відкрити файл для читання}
For i :=1 to 6 do Readln (f, a) ;
writeln ( a) ;
Append (f) ; { -встановити покажчик на кінець файла}
Write (f, a) ; { - запис числа у файл }
Close (f)
end.

то і читаємо дані із файла командою Readln;
- якщо пишемо дані командою Write, то і читаємо дані із файла командою Read.

Приклад 4 Знайти суму чисел у файлі, кількість елементів не задана( фрагмент програми).

. . . . . . . . . . . . .
S:=0;
Reset (f) ; { -відкрити файл для читання }
While not eof (f) do {-поки не кінець файла}
begin
read ( f, a ) ; { - читання числа із файла }
Write (a : 2) ; { -виведення числа на екран }
S:=s+a ;
End ;
write (‘сума чисел=’ , s ) ;
. . . . . . . . . . . . .