Что добавить в код, чтобы текст в окне вывода появился в файле и сохранился там? - Pascal

Узнай цену своей работы

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

что добавить в код чтобы текст в окне вывода появился в файле и сохранился там?
const
  n=9;
var
f: file of char;
c:char;
t:text;
  a: array[2..n,2..n] of integer;
  i,j: byte;
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
 writeln('Таблица умножения от 2 до 9');
  write('  *|');
  for i:=2 to n do write(i:4); writeln;
  for i:=2 to n+1 do write('-----'); writeln;
  for i:=2 to n do
  begin
    write(i:3,'|');
    for j:=1 to n do
      write(i*j:4);
    writeln;
  end;
  readln;
end.

Решение задачи: «Что добавить в код, чтобы текст в окне вывода появился в файле и сохранился там?»

textual
Листинг программы
const
  n = 9;
 
var
  f: text;  
  a: array[2..n, 2..n] of integer;
  i, j: byte;
  s:string;
 
begin
  assign(f, 'c:\file.txt');
  rewrite(f);
  writeln(f, 'Таблица умножения от 2 до 9');
  write(f, '  *|');
  for i := 2 to n do write(f, i:4);writeln(f);
  for i := 2 to n + 1 do write(f, '-----');writeln(f);
  for i := 2 to n do
  begin
    write(f, i:3, '|');
    for j := 1 to n do
      write(f, i * j:4);
    writeln(f);
  end;
  close(f);
  reset(f);
  while not EoF(f) do
  begin
    readln(f,s);
    writeln(s);
  end;
end.

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

  1. В начале объявляются необходимые переменные: n, f, a, i, j, s.
  2. Задается путь к файлу, который будет использоваться для записи и чтения данных: assign(f, 'c:\file.txt');
  3. Выполняется перезапись файла: rewrite(f);
  4. Записывается заголовок таблицы умножения: writeln(f, 'Таблица умножения от 2 до 9');
  5. Записывается символ '' и пробел: write(f, '  |');
  6. Выполняется цикл, в котором вычисляются и записываются значения произведения чисел от 2 до n: for i := 2 to n do write(f, i:4);writeln(f);
  7. Выполняется цикл, в котором вычисляются и записываются разделители между числами: for i := 2 to n + 1 do write(f, '-----');writeln(f);
  8. Выполняется цикл, в котором вычисляются и записываются значения произведения чисел от 2 до n: for i := 2 to n do begin write(f, i:3, '|'); for j := 1 to n do write(f, i * j:4); writeln(f); end;
  9. Файл закрывается: close(f);
  10. Счетчик файла сбрасывается: reset(f);
  11. Выполняется цикл, в котором считываются строки из файла до конца файла или до тех пор, пока не будет достигнут конец файла: while not EoF(f) do begin readln(f,s); writeln(s); end;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы