Запись данных в текстовый файл. Одномерный массив

2.8.2. Запись данных в текстовый файл. Одномерный массив

Самым простым типом файла является файл текстового типа. Содержимое данного файла представлено не в машинных кодах, как у типизированных и не типизированных файлов, а в виде цифр, букв и иных символов клавиатуры (в кодах ASII). Поэтому содержимое таких файлов легко просматривать и изменять с помощью любого, даже самого простого, редактора текста, в том числе и редактора интегрированной среды Free Pascal. Текстовый файл трактуется как совокупность строк переменной длины. Как вы уже знаете (см. п.п.2.1.2), при наборе текста для ввода новой строки следует нажать клавишу «Enter», в этом случае генерируется специальный код - код конца строки, при записи файла, на внешний носитель, генерируется специальный код - код конец файла. При просмотре текстового файла данные коды не видны.

Попробуем решить следующую задачу: Надо ввести с клавиатуры некоторое количество чисел и записать их в файл текстового типа с именем 'mayFile.in'. Рассмотрим задачу по этапам:

1. 
   Ввод данных с клавиатуры;
   
2. 
   Запись данных в файл именем 'mayFile.in'.
   

• 
  ввести значение количества чисел, которое вы хотите ввести с клавиатуры;
  
• 
  зная количество чисел, воспользовавшись циклом с параметром присвоить переменной типа массив конкретные значения этих чисел.
  

program Primer_F1;

var

Chislo :array[1..100] of integer;

begin

for i:=1 to Kolichestvo do

begin

write (' Chislo [',i,']=');

end;

begin

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

var

FileOut : text;

Теперь все готово для записи данных в файл. Воспользуемся для этого уже известными процедурами Write() и Writeln(). Для того чтобы запись производилась в файл, а не на экран, укажем направления вывода данных. То есть в скобках, перед именами переменных, значения которых мы будем записывать, укажем имя переменной, с которой с помощью процедуры assign() связан наш файл. Допустим, что записать данные в выходной файл надо в строчку. При этом, первое значение это количество чисел введенных вами. Так как переход на новую строку не осуществляется, воспользуемся процедурой Write(), сначала запишем в файл значение переменной Kolichestvo, а затем используя цикл с параметром запишем значения чисел введенных вами в процедуре ввода.

После записи всех данных файл необходимо закрыть. Это осуществляется с помощью процедуры close().