Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


37%Russian Federation Russian Federation
24.6%United States United States
23.2%Ukraine Ukraine
2%Belarus Belarus
2%Czech Republic Czech Republic
1.9%Kazakhstan Kazakhstan
1.7%Romania Romania
1.5%Kuwait Kuwait
1.1%France France
0.8%Germany Germany

Сегодня: 89
Вчера: 104
На прошлой неделе: 975
В этом месяце: 2889
В прошлом месяце: 2806
Всего: 9017


   

блог админа

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Pascal: Чтение и запись данных в файл

Добавлено : Дата: в разделе: Прикладная информатика

Ввод мы будем осуществлять из файла 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.

Редактировалось Дата:

You have no rights to post comments

   
© 2012 fordus.