Особливості роботи з файлами

Приклад 15.Створити текстовий файл, вивести його на екран і підрахувати кількість ком в тексті.

programdemo;

usescrt;

typet_file=text;

var

name:string;

f:t_file;

k:integer;

procedure Init_file(var f:t_file); {процедура створення файлу}

var x:char;

begin

checkeof:=true;

rewrite(f); {відкриття файлу для запису}

writeln('введіть файл(кінець-^z)');

while not eof do

begin

read(x); {“зчитування ” елементів з екрану}

write(f,x); {запис елементів до файлу}

end;

close(f); {закриття файлу}

reset(input);

end;

procedure druk_file(var f:t_file); {процедура друкування файлу}

var y:char;

begin

reset(f); {відкриття файлу для читання}

while not eof(f) do

begin

read(f,y); {“зчитування” елементів файлу}

write(y,' '); {друкування їх на екрані}

end;

close(f); {закриття файлу}

end;

procedure obrobka_file( var ff:t_file ; var kol:integer); {процедура обробки файлу }

var a:char;

begin

reset(ff); { відкриття файлу для читання}

kol:=0;

while not eof(ff) do

begin

read(ff,a); {“зчитування” елементів файлу}

if a=',' then {перевірка виконання умови}

kol:=kol+1;

end;

end;

BEGIN

clrscr;

writeln('name file:');

readln(name);

assign(f,name); {“зв’язка ” файлу з фізичним файлом з ім’ям name}

Init_file(f);

writeln('ви ввели файл:');

Druk_file(f);

obrobka_file(f,k);

writeln('kol=',k);

repeat until keypressed

END.

Завдання

1. Створити текстовий файл. Надрукувати із нього перші 10 символів першого рядка.

2. Створити текстовий файл, в кожному рядку якого перші два символу є буквами. Отримати слово, яке утворено першими буквами кожного рядка.

3. Створити текстовий файл, в кожному рядку якого перші два символа є буквами. Отримати слово, що утворено другими буквами кожного рядка.

4. Створити текстовий файл. Підрахувати, скільки разів зустрічається в ньому слово “мама”.

5. Створити текстовий файл. Переписати в інший файл ті його рядки, в яких більше 30 символів.

6. Створити текстовий файл, який містить символьні рядки. Знайти кількість рядків, що починаються та закінчуються однаковими символами.

7. Створити текстовий файл. Вставити на початок кожного рядка його номер та записати перетворенні рядки в новий файл.

8. Створити два текстові файли. Записати в третій файл тільки ті рядки, які є і в першому, і в другому файлах.

9. Створити текстовий файл. Знайти в ньому слова, в яких є входження слова “про”, і записати їх у новий файл.

10. Створити текстовий файл. Відсортувати символи першого рядка за алфавітом.

11. Створити текстовий файл. Знайти в ньому слова, що зустрічаються більше одного разу.

12. Створити текстовий файл. Обчислити кількість порожніх рядків і записати всі непорожні рядки в новий файл.

13. Створити текстовий файл. З’ясувати чи є в ньому рядок, що починається з букви “т”. Якщо так, то визначити номер першого з таких рядків.

14. Створити текстовий файл. Знайти довжину самого довгого рядка. Якщо таких рядків декілька, то знайти номер першого.

15. Створити текстовий файл. Надрукувати найкоротший рядок. Якщо таких рядків декілька, то надрукувати перший з них.