read (f, s [i]); {коли вважається 5-ка цикл зупиниться так як немає значящіх символів}
until seekeoln (f);
End.
В
Функція SeekEOF ([файлова змінна]);
Логічна функція. Пропускає всі прогалини, знаки табуляції і маркери кінця рядка EOLn до маркера кінця файлу або до першого значущого символу і повертає TRUE, якщо маркер виявлений. В іншому випадку FALSE. Тобто за допомогою цієї функції можна перевірити чи є значущі символи до кінця рядка.
Якщо параметр [файлова змінна] опущений, функція перевіряє стандартний файл INPUT.
Процедура Flush ([файлова змінна]);
В
Скидає буфер текстового файлу, пов'язаного з файлової змінної та відкритого для виведення процедурою Rewrite або Append. Це дає гарантію того, що вся інформація, що записується у файл, буде збережена в зовнішньому фізичному файлі.
В
процедура не впливає на файли відкриті для введення.
Процедура SetTextBuf ([файлова змінна], [новий розмір буфера] );
Призначає буфер введення-виведення для текстового файлу, пов'язаного з файлової змінної. [Новий розмір буфера] - Це змінна типу Word. <В
Ніколи не застосовується до відкритих файлів, оскільки в цьому випадку можливі втрати даних.
При обробці текстових фалів на мові Pascal доводитися застосовувати не тільки оператори працюють з файлами, але і інші можливості і структури мови Pascal.
В
Нижче будуть наведені приклади програм обробних текстовий файл.
В
1) Дан вхідний файл In складається з тексту російською мовою. У тексті точки зустрічаються тільки в кінці речення. Потрібно перевести всі розповідні пропозиції що закінчуються крапкою в оклику. Результат записати у вихідний файл. <В
Program vosklicateliy_znak;
Var
C: Char;
Indata, Out: Text;
Begin
Assign (Indata, 'indata.txt'); {Зв'язуємо}
Assign (Out, 'outdata.txt'); {файли}
Reset (Indata); {Відкриваємо}
Rewrite (Out); {файли}
While not EOF (Indata) do
Begin
Read (Indata, C); {Прочитуємо один символ}
If C = '.' then C: = '!'; {Якщо символ точка, то присвоюємо символьної змінної значення '!' тобто знак оклику}
Write (Out, C); {Записуємо символ у вихідний файл}
End;
Close (Out);
End. br/>
2) Дан вхідний файл In який містить параметри матриці A у першому рядку а на наступних рядках саму матрицю. Параметри n <= 25 і m <= 25. n-кількість рядків матриці, m- кількість стовпців. Приклад файлу In:
3 березня
1 2 3
4 5 6
7 8 9
У вихідний файл Out слід записати транспоновану матрицю A.
В
Program Transpor_A;
Var
A: Array [1 .. 25,1 .. 25] of integer;
Temp: Int...
