Question

Найти ошибку в коде, не записывает данные в файл. условие: создайте два файла, содержащих сведения о десяти хоккейных команд: «динамо» и «спартак» соответственно: имена , число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. program hockey; uses crt; type hk = record name : string[20]; shyiba: record gol_per : integer; gol : integer; straf_time : integer; end; end; var hokiyarray : array[1..100] of hk; hokiyarray01 : array[1..100] of hk; i,n : integer; f,f1: text; s : string; begin assign(f,'d: /test.txt'); rewrite(f); write('динамо '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ',i, ''); write(' введите имя : '); readln( hokiyarray[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray[i] do for i: =1 to n do begin writeln('динамо',f,name,' ',shyiba.gol_per,' ',shyiba.gol,' ',shyiba.straf_time); close(f); end; begin assign(f1,'d: /test01.txt'); rewrite(f1); write('спартак '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ',i, ''); write(' введите имя : '); readln( hokiyarray01[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray01[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray01[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray01[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray01[i] do for i: =1 to n do begin writeln('спартак',f1,name,' ',shyiba.gol_per,' ',shyiba.gol,' ',shyiba.straf_time); close(f1); end; end; end.

Answer 1

Program hockey;

uses
  crt;

type
  hk = record
    name: string[20];
    shyiba: record
      gol_per: integer;
      gol: integer;
      straf_time: integer
    end
  end;

var
  hokiyArray, hokiyArray01: array[1..100] of hk;
  i, n: integer;
  f: text;

begin
  Assign(f, 'test.txt');
  Rewrite(f);
  Writeln('ДИНАМО ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray[i] do
      Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
 
  Assign(f, 'test01.txt');
  Rewrite(f);
  Writeln('СПАРТАК ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray01[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray01[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray01[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray01[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray01[i] do
      Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f)
 
end.