Задание 1 Вариант 3 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение ответа ВАРИАНТ 31. Напишите программу. В соревнованиях по прыжкам в высоту принимали участие 10 спортсменов. Считая заданным список фамилий спортсменов и их результатов в... Изображение ВАРИАНТ 31. Напишите программу. В соревнованиях по прыжкам в высоту принимали участие 10 спортсменов. Считая заданным список фамилий спортсменов и их результатов в...](/reshebniki/informatika/11/WBbosova/images1/sam5/3/1.png)
![Загрузка...](/pic/zapret_pravo.png)
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
ВАРИАНТ 3
1. Напишите программу. В соревнованиях по прыжкам в высоту принимали участие 10 спортсменов. Считая заданным список фамилий спортсменов и их результатов в порядке стартовых номеров, получите и выведите итоговую таблицу, в которой содержатся фамилии и результаты спортсменов в порядке занятых ими мест. Запишите текст программы.
При составлении программы используется комбинированный тип данных – запись (record).
program s5_v3_1;
const
n = 10;
type
uch = record
fam: string;//Фамилия участника
rez: real;//результат
end;
var
a: array[1..n] of uch;
i, j: integer;
c: uch;
begin
//заполнение данных
for i := 1 to n do
begin
write('fam>');
readln(a[i].fam);
write(' rez=');
readln(a[i].rez)
end;
//сортировка "пузырьком" по Убыванию поля "результат"
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j].rez < a[j + 1].rez then
begin//перестановка всей записи
c := a[j];
a[j] := a[j + 1];
a[j + 1] := c
end;
for i := 1 to n do
writeln(i:3, a[i].fam:10, a[i].rez:10);
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением