Вопрос по информатике:
Найти ошибку в коде, не записывает данные в файл.
УСЛОВИЕ: Создайте два файла, содержащих сведения о десяти нападающих хоккейных команд: «Динамо» и «Спартак» соответственно: имена нападающих, число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время.
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.09.2015 06:02
- Информатика
- remove_red_eye 3011
- thumb_up 28
Ответы и объяснения 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.
- 23.09.2015 15:35
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.