Текстові файли
Текстові файли складаються з рядків, довжини яких
можуть бути різними.
Опис
текстових файлів:
Var f:text;
Команди:
Assign(f,’ім’я файлу на
диску’); - вказує адресу файлу на диску (файл з розширенням txt).
Rewrite(f); - створює файл
і відкриває його для запису.
Append(f); - відкриває
файл для дописування в нього даних.
Write(f,a); - в поточну позицію файлу записує значення змінної
а.
Writeln(f,a); - в поточну позицію файлу записує значення змінної
а і вказівник поточної позиції переміщується на наступний рядок.
Writeln(f); - у режимі
введення даних вказівник поточної позиції переміщується на наступний рядок.
Reset(f); - відкриває
файл лише для читання.
Read(f,x); - читає з поточної позиції файлу значення і записує
в змінну x.
Readln(f,x); - читає з поточної позиції файлу значення і записує
в змінну x, при цьому вказівник поточної
позиції переміщується на наступний рядок.
Readln(f); - у режимі
зчитування даних вказівник поточної позиції переміщується на наступний рядок.
Close(f); - закриття
файлу.
Eof(f); - перевірка
на кінець файлу.
Eoln(f); - перевірка
на кінець рядка.
Немає
команди Seek(f,n).
Задача 1. Ввести
16 цілих чисел у файл, причому записати в кожен рядок по 4 числа. Надрукувати
на екрані пострічково вміст текстового файла f.
Program g1;
Var f:text; i,a:integer;
Begin assign(f,’u:\fff.txt’);
rewrite(f);
for i:=1 to 16 do
begin
read(a);
write(f,a)
if i mod 4=0 then writeln(f)
end;
close(f);
reset(f);
while not eof(f) do
begin
while not eoln(f) do
begin
read(f,a);
write(a)
end;
readln(f);
writeln
end;
close(f)
end.
Задача
2.
Сформувати текстовий файл з 5 стрічок
таким чином:
a)
1 1 1 1 1 1 1 1 1
1
2 2 2 2 2 2 2 2 2 2
3 3 3 3
3 3 3 3 3 3
4 4 4 4
4 4 4 4 4 4
5 5 5 5
5 5 5 5 5 5
program
program_a;
var
f:text; i,j:integer;
begin
assign(f,’u:\ggg.txt’);
rewrite(f);
for i:=1 to 5 do
begin
for j:=1 to 10 do
write(f,i)
writeln(f)
end;
close(f)
end.
Д/З №1
- Ввести 15 цілих чисел у файл, причому записати в кожен рядок по 5
чисел. Сформувати файл h, у який записати пострічково вміст текстового файла f.
- Нехай задано текстовий файл f (файл створений в іншій програмі або в блокноті).
Знайти суму додатніх елементів у цьому текстовому файлі.
Д/З №2
- Знайти суму та кількість додатніх елементів в
кожному рядку текстового файла. Вивести у вигляді: номер рядка – сума елементів, кількість
елементів.
- Заданий текстовий файл. Підрахувати кількість
стрічок та вивести стрічки,
які
починаються
і закінчуються однаковою літерою;
Немає коментарів:
Дописати коментар