Введите в компьютер программу Premier_liga_2.

Информатика 9 класс Семакин ФГОС

§ 21 Сортировка массива ГДЗ по Информатике 9 класс. Семакин


3. Введите в компьютер программу Premier_liga_2.
а) Выполните ее, получите результаты. Сравните с результатами, приведенными в параграфе.
б) Внесите изменения в программу для того, чтобы получить список в обратном порядке (по возрастанию очков). Выполните программу.
в) Возможно, что массив окажется отсортированным до завершения всех проходов. В таком случае число повторений внешнего цикла можно сократить, и программа будет выполняться быстрее. Попробуйте усовершенствовать приведенную программу с учетом этого факта. Проверьте результат на тестах.

Ответ

program teams;
var i, x, k, c: integer; a: string;
B: array [1..5] of integer;
Team: array [1..5] of string;
zabit: array [0..10] of integer;
propyshen: array [0..10] of integer;
f: array [0..10] of integer;
begin
writeln(‘Введите название команды и количество полученной ею очков: ‘);
for i:=1 to 5 do
begin
write(i,’) ‘);
read(Team[i]);
write(‘Очки: ‘);
readln(B[i]);
write(‘Количество забитых мячей: ‘);
readln(zabit[i]);
write(‘Количество пропущенных мячей: ‘);
readln(propyshen[i]);
f[i]:=zabit[i]-propyshen[i];
writeln(‘Забитые минус пропущенные: ‘,f[i]);
end;
for k:=1 to 5 do
for i:=1 to 5-k do
begin
if (B[i]<=B[i+1]) and (f[i]<=f[i+1]) then
begin
x:=B[i];
B[i]:=B[i+1];
B[i+1]:=x;
a:=Team[i];
Team[i]:=Team[i+1];
Team[i+1]:=a;
c:=f[i];
f[i]:=f[i+1];
f[i+1]:=c;
end;
end;
writeln(‘Вывод: ‘);
for i:=1 to 5 do
begin
for k:=1 to 18-length(Team[i]) do
Team[i]:=Team[i]+’ ‘;
writeln(i,’) ‘,Team[i]:18,B[i]:2,’ ‘,’- Разница в забитых и пропущенных голах:’,
f[i]);
end;
end.
В конце будет выводить номер команды, название команды, количество очков и разницу между забитыми и пропущенными голами.


Понравилась статья? Поделиться с друзьями: