Куда добавить в код строчку сверху: 2 3 4 5 6 7 8 9, чтобы были подписи столбцов? - Pascal

Формулировка задачи:

Куда добавить в код строчку сверху: 2 3 4 5 6 7 8 9, чтобы были подписи столбцов?

const FileName='tabl_umn.txt';
procedure CreateTable(var f:text);
Var x, y: Byte;
Begin
Assign(F, FileName);
Rewrite(F);
for x:=2 to 9 do
 begin
  for y:=2 to 9 do
  write(f,x,'x',y,'=',x*y,'  ');
  writeln(f);
 end;
Close(f);
end;
procedure FileOut(var f:text);
var S: string;
begin
  Assign(F, FileName);
  Reset(F);
  while not EoF(F) do
  begin
    ReadLn(F,S);
    WriteLn(S);
  end;
  Close(F);
end;
var f:text;
begin
  if not FileExists(FileName) then CreateTable(f)
  else  FileOut(f);
end.

Решение задачи: «Куда добавить в код строчку сверху: 2 3 4 5 6 7 8 9, чтобы были подписи столбцов?»

Листинг программы

const FileName='tabl_umn.txt';
procedure CreateTable(var f:text);
Var x, y: Byte;
    s,s1:string;
Begin
Assign(F, FileName);
Rewrite(F);
s:='';
for x:=2 to 9 do
 begin
  str(x:4,s1);
  s:=s+s1+'   ';
 end;
writeln(F,s);
for x:=2 to 9 do
 begin
  for y:=2 to 9 do
  write(f,x,'x',y,'=',x*y:2,' ');
  writeln(f);
 end;
Close(f);
end;
procedure FileOut(var f:text);
var S: string;
begin
  Assign(F, FileName);
  Reset(F);
  while not EoF(F) do
  begin
    ReadLn(F,S);
    WriteLn(S);
  end;
  Close(F);
end;
var f:text;
begin
  if not FileExists(FileName) then CreateTable(f)
  else  FileOut(f);
end.

Объяснение кода листинга программы

Создание таблицы:
- Переменная f типа text представляет файл, в который будет записан результат.
- Переменная s и s1 используются для формирования подписей столбцов.
- Цикл for перебирает числа от 2 до 9.
- Внутри цикла вызывается функция str, которая записывает число в строку s1.
- Затем к строке s добавляется строка s1 с пробелом между числами.
- После завершения цикла все строки с подписями столбцов записываются в файл.
- Затем происходит запись строки с пустыми ячейками.
- Далее идет цикл for, который перебирает числа от 2 до 9.
- Внутри цикла вызывается функция write, которая записывает число в файл.
- Затем вызывается функция writeln, которая записывает символ новой строки.
- После завершения внутреннего цикла все строки с числами записаны в файл.
- В конце файл закрывается.
Вывод файла:
- Переменная f типа text представляет файл, содержащий данные.
- Переменная S используется для чтения и записи данных в файл.
- Цикл while выполняется до тех пор, пока не достигнут конец файла.
- Внутри цикла вызывается функция ReadLn, которая читает строку из файла.
- Затем вызывается функция WriteLn, которая записывает строку в файл.
- После завершения внутреннего цикла все строки файла были прочитаны и записаны.
- В конце файл закрывается.
Основной код:
- Переменная f типа text представляет файл, в который будет записан результат.
- Если файл с таким именем не существует, то вызывается функция CreateTable.
- В противном случае вызывается функция FileOut.