субота, 31 березня 2018 р.

Текстові файли

Текстові файли

Текстові файли складаються з рядків, довжини яких можуть бути різними.

Опис текстових файлів:
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
  1. Ввести 15 цілих чисел у файл, причому записати в кожен рядок по 5 чисел. Сформувати файл h, у який  записати  пострічково вміст текстового файла f.
  2. Нехай задано текстовий файл f (файл створений в іншій програмі або в блокноті). Знайти суму додатніх елементів у цьому текстовому файлі.

Д/З №2
  1. Знайти суму та кількість додатніх елементів в кожному рядку текстового файла. Вивести у вигляді: номер рядка – сума елементів, кількість елементів.
  2. Заданий текстовий файл. Підрахувати кількість стрічок та вивести стрічки, які
 починаються і закінчуються однаковою літерою;


Немає коментарів:

Дописати коментар