Главное меню  

   

Авторизация  

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


43.6%Russian Federation Russian Federation
36.9%United States United States
6%Ukraine Ukraine
5.2%Canada Canada
1.7%Romania Romania
0.6%Kazakhstan Kazakhstan
0.6%China China
0.6%Belarus Belarus
0.6%United Kingdom United Kingdom
0.4%Australia Australia

Сегодня: 57
Вчера: 213
На этой неделе: 270
На прошлой неделе: 1143
В этом месяце: 3890
В прошлом месяце: 2971
Всего: 9045


   

блог админа

Записи

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

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.