ВУЗ:
Составители:
66
Окончание приложения В
Собственно запись данных в файл выполняется процедурой:
write(<имя файловой переменной>,<значение>);
Согласно этой записи данные записываются в файл.
После работы с файлами их необходимо закрыть. Это выполняется с
помощью следующей процедуры:
close(<имя файловой переменной>).
Пример:
Ввести с клавиатуры и записать в файл Primer.dat последовательность
целых чисел.
Решение: Сначала свяжем файловую переменную с конкретным внешним
файлом при помощи процедуры Assign. Откроем файл для записи посредством
процедуры Rewrite. Признак конца последовательности чисел
– ввод числа 0.
Var f:file of Integer;
n:integer;
Begin
assign (f,'primer.dat');{связываем файловую переменную с файлом на диске}
rewrite(f);{открываем файл для записи}
writeln('конец ввода чисел - 0');
repeat{пока не будет введен 0}
writeln('введите число');
readln(n);
{если введенное число, отличное от 0, то записываем его в файл}
if n<>0 then write(f,n);
until n=0; {если введен 0, то выходим из цикла}
close (f); {закрываем файл}
End.
