Учебно-методическое пособие. Алматы, 2017 ббк

Посмотрим, как будет выглядеть наша процедура записи данных в файл:

procedure exi;

var

begin

rewrite(FileOut);

write(FileOut, Kolichestvo);

for i:=1 to Kolichestvo do

write (FileOut, Chislo [i]);

close(FileOut);

end;
Текст основной программы остается без изменений

begin

work;

end.
Запишите эту программу на диск с именем 'Primer_F1' и запустите ее на выполнение. После того как программа завершит работу, откройте файл 'mayFile.in', с помощью редактора интегрированной среды, созданный нашей программой и посмотрите его содержимое. К сожалению числа в файле записались подряд, без пробела. При такой записи сложно определить, какие числа все же были записаны. Как исправить это положение?

Для того, чтобы мы могли четко различать числа, существует две возможности:

а) записывать каждое значение через знак пробел ( ' ')

б) записывать каждое значение в новой строке (в столбик ).

В первом случае помимо вывода значения переменных будем одновременно выводить и символ пробел (' ').

for i:=1 to Kolichestvo do

write (FileOut, Chislo [i],' ');
Во втором случае просто воспользуемся процедурой writeln() :

writeln(FileOut, Kolichestvo);

for i:=1 to Kolichestvo do

writeln (FileOut, Chislo [i]);