Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 7.2. Запись таблицы в файл

Фрагмент из «Pascal / Free Pascal — типовые программы»: 7.2. Запись таблицы в файл.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program WriteTable;

var
  f: text;
  i: integer;

begin
  Assign(f, 'output.txt');
  Rewrite(f);
  for i := 1 to 10 do
    Writeln(f, '2 x ', i, ' = ', 2 * i);
  Close(f);
  WriteLn('Готово: output.txt');
end.
program WriteTable;

var
  f: text;
  i: integer;

begin
  Assign(f, 'output.txt');
  Rewrite(f);
  for i := 1 to 10 do
    Writeln(f, '2 x ', i, ' = ', 2 * i);
  Close(f);
  WriteLn('Готово: output.txt');
end.