Найти ошибку в коде, не записывает данные в файл. условие: создайте два файла, содержащих сведения о десяти хоккейных команд: «динамо» и «спартак» соответственно: имена , число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. 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.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

tarantilla

17.01.2021 08:45

Годовой доход семьи из четырех человек составляет в среднем 150000 денежных единиц. Основные затраты состоят из: коммунальные услуги — 13700 (ден. ед.); плата за телефон...

blackstar19

27.10.2022 23:53

Например у меня есть вопрос: я знаю, что в блокчейн системах кол-во нулей в начале хеша подтверждения работы (тобишь циферок в конце блока) берется таким образом, чтобы в...

Polina230407

19.05.2022 23:01

задание следующее: с данного html кода нужно: 1)изменить цвет фона 2)изменить цвет текста 3)Убрать подчеркивание слов и сделать их выделенными Код:...

Маша10578

20.05.2020 02:25

с решением , Условие: В некоторой компьютерной сети информация передаётся блоками по 7 бит. С целью контроля качества передачи, к каждым 7 битам добавляется 8 бит - бит чётности,...

happycatcom

18.11.2022 23:51

Какое число больше? В скобках указано основание системы счисления для каждого числа 1F(16) 13(8) 34(10)...

marisha168

30.03.2021 18:33

Марс алгоритмика.Создать простого чат бота на ихнем сайте на пайтоне очень нада...

dany20skribka

20.12.2022 15:50

Найдите среднее арифметическое чисел от 2 до 45 .C++...

nekitpundya2256

02.05.2021 16:49

Составить программу для вычисления работы сердца А=1,2V(Р+DC2 /2). В норме ударный объем сердца– Vудар =6*10-5 м3 , среднее артериальное давление P= 13000 Па, плотность крови...

adilyabaxtigar

03.11.2021 04:25

МНЕ Я НИЧЕГО НЕ ПОНИМАЮ. ПОИГИТЕЕ...

kristinannm17

17.03.2021 02:35

Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 223 Кбайт?...

Ответ:

Наталья999111

17.07.2020 20:47

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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку