TURBO PASCAL:Учебное пособие. Терёхин В.В. - 109 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

109
procedure Close(varf: file);
Примеры:
program p45;
{открываем файл для записи с именем file.int,
компонентами которого являются целые числа.
Записываем в файл квадраты натуральных чисел
до 100}
var
f: file of Integer; {описываем файловую переменную}
i, t: integer;
begin
Assign(f, 'file.int'); {связываем файловую
переменную с именем файла на диске}
Rewrite(f); {открываем файл для записи}
for i:=1 to 100 do
begin
t:= sqr(i);
Write (f, t); {выводим в файл квадраты
целых чисел}
end;
Close(f); {закрываем файл}
end.
program p46;
{открываем созданный предыдущей программой файл для
чтения и выводим его содержание на экран}
var
f: file of Integer; {описываем файловую переменную}
i, t: integer;
begin
Assign (f, ' file.int' ) ; {связываем файловую
переменную с именем файла на диске}
Reset(f); {открываем файл для чтения}
While not Eof(f) do
begin 
  procedure Close(varf: file);
        Примеры:
program p45;
{открываем файл для записи с именем file.int,
компонентами         которого   являются   целые   числа.
Записываем в         файл квадраты натуральных чисел
до 100}
var
  f: file of Integer; {описываем файловую переменную}
  i, t: integer;
begin
  Assign(f, 'file.int');     {связываем   файловую
переменную с именем файла на диске}
  Rewrite(f); {открываем файл для записи}
  for i:=1 to 100 do
    begin
      t:= sqr(i);
      Write (f, t); {выводим в файл квадраты
                         целых чисел}
     end;
  Close(f); {закрываем файл}
end.

program p46;
{открываем созданный предыдущей программой файл для
чтения и выводим его содержание на экран}
var
  f: file of Integer; {описываем файловую переменную}
  i, t: integer;
begin
  Assign (f, ' file.int' ) ; {связываем файловую
переменную с именем файла на диске}
  Reset(f); {открываем файл для чтения}
  While not Eof(f) do
    begin
                                                       109

Страницы