 |
While not eof(f) do
|
|
|
|
Begin
Read(f,number); s:=s+number;
End;
WriteLn(‘s=’,s); End;
В цьому фрагменті програми підраховується сума всіх чисел, де попередньо числа були введені іншою програмою через пропуск.
Eoln(f) - функція приймає значенняTrue, якщо покажчиквказує на кінець рядка.
Seekeofl(f) - аналогічно EoLn.
Seekeof(f)- аналогічно Eof.
Append(f)- додавання записів у файл, виконується відкриття файлу F і встановлення покажчика на EOF.
Readln(f)-порядкове читання текстового файлу.
Writeln(f) -порядковий запис у текстовий файл.
1. Створити текстовий файл, кожний рядок якого містить різні слова. Знайти найдовші слова в кожному рядку файлу, переписати їх в новий текстовий файл, записати останнім рядком файлу кількість слів у файлі.
2. Створити текстовий файл, рядок якого містить цифри і символи. У кожному рядку виділити найбільшу послідовність цифр. Довжини цих послідовностей записати у вихідний цифровий файл.
3. Створити текстовий файл, ввід з клавіатури. Визначити в кожному парному рядку слово найбільшої довжини і записати це слово в кожний непарний рядок.
4. Ввести з клавіатури рядки. Створити файл, визначити кількість рядків файлу, у кожному рядку знайти найдовше слово та дописати його в кінець кожного рядка.
5. Ввести текст, в кожному рядку знайти слово, яке знаходиться посередині, переписати це слово в вихідний файл.
6. Заданий текстовий файл та текстовий підрядок. Отримати текстовий файл, який містить тільки ті рядки, в які входить заданий підрядок.
7. Створити текстовий файл. Знайти в ньому слова, які починаються на задану букву та містять задану кількість букв. Створити текстовий файл, який містить тільки ці слова.
8. Заданий текстовий файл, що містить прізвища, прохідний бал, спеціалізацію. Відсортувати цей файл за набраним балом. Переписати в вихідний файл ті текстові записи у яких набраний необхідний прохідний бал.
|
|
|
9. Заданий текстовий файл. Переписати в вихідний файл ті рядки, які закінчуються символом пропуск, тире, кома та крапка.
10. Заданий текстовий файл. Переписати в вихідний файл рядки, замінивши вних символи 0 на 1 та навпаки.
11. Заданий текстовий файл, який складається зі слів. Переписати в вихідний файл всі рядки тким чином, щоб першим символом була буква на яку закінчується останнє слово.
12. В заданому символьному файлі виділити три перші символи, якщо вони являються квадратом числа то переписати текстовий файл в вихідний, замінивши перші три символи коренем квадратним з даного числа.
13. Створити текстовий файл, який містить марки принтерів та їх ціни. Переписати в вихідний файл ті рядки, що мають ціну не вищу за вказану.
14. Створити текстовий файл, який містить слова. Знайти в кожному рядку слово, яке починається та закінчується на дві задані букви. Переписати ці слова в вихідний файл.
15. Створити текстовий файл, який містить, цілі числа. Переписати ці числа в вихідний файл в двійковому коді.
|
|
|
