Главное меню  

   

Авторизация  

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


61.3%Russian Federation Russian Federation
18.6%Ukraine Ukraine
3.2%Kazakhstan Kazakhstan
2.9%Romania Romania
2.7%United States United States
1.7%Belarus Belarus
1%Republic Of Moldova Republic Of Moldova
0.9%Czech Republic Czech Republic
0.9%United Kingdom United Kingdom
0.7%Germany Germany

Сегодня: 157
Вчера: 146
На этой неделе: 424
На прошлой неделе: 960
В этом месяце: 2656
В прошлом месяце: 2198
Всего: 7368


   

блог админа

Записи

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

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.