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)
Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.
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.