блог админа

Ввод мы будем осуществлять из файла input.txt

Вывод будем производить в файл output.txt

Начнем!

Для того, чтобы организовать ввод данных из файла нам надо:

1. Завести переменную типа текст и переменную в которую будем записывать прочитанное значение.

Var t:text; a:integer;

2. Связать эту текстовую переменную с файлом из которого будет производиться чтение.  

Begin

  assign(t,'input.txt');

3. Открыть файл для чтения. 

reset(t);

4. Теперь можно читать данные. Тут нужно понимать и помнить отличия процедуры read,  от readln. Если в файле данные записаны в одной строке, через пробел, то мы пользуемся все время процедурой read столько раз, сколько чисел нужно прочитать.

Если же строк несколько, то когда доходим до символа стоящего в конце строки, используем readln. В результате чего будет считано последнее число строки и курсор переместится на новую.

read(t,a);

Внимание! Для чтения из файла в скобках необходимо на первом месте указать ту текстовую переменную которую Вы связали с входным файлом,  затем список переменных для чтения.

Самой распространенной ошибкой является то что забывают ставить эту переменную (текстовую).

5. Как только мы прочитали все переменные необходимо закрыть файл. 

close(t);

Внимание! Процедура close освобождает переменную t и мы можем её использовать в других целях, например для вывода данных. Если мы её не закрыли (нужно продолжать чтение), то для вывода необходимо будет завести еще одну текстовую переменную. 

Все! На этом ввод окончен. 

Опишем процесс вывода результатов в текстовый файл. 

1. Опять как и в случае с вводом, необходимо связать текстовую переменную с выходным файлом. Файл называем output.txt. 

assign(t,'output.txt');

2. Затем необходимо создать или перезаписать файл output.txt 

rewrite(t);

3. Выводим данные. Не забываем ставить файловую переменную в начале списка вывода. 

write(t,'Вот число из файла input.txt ', a);

4. Как и в предидущем случае после вывода всех данных необходимо закрыть файл. 

close(t);

Запишем программу целиком. 

Program Vvod_Vivod;

  var

    a:longint;

    t:text;

Begin

  assign(t,'input.txt');

  reset(t);

  read(t,a);

  close(t);

  assign (t,'output.txt');

  rewrite(t);

  write(t,a);

  close(t);

End.

Редактировалось Дата: Среда, 21 Октябрь 2020