Определить лучшего спортсмена

06.12.2009, 10:10. Показов 854. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всем привет

Помогите пожалуйста со следующей задачей:

Таблица содержит результаты спортивных соревнований: ФИО, время на 100 метров, время на 1 км, прыжок в высоту, прыжок в длину, Описать и заполнить запись для 6 спортсменов. Определить лучшего спортсмена по каждому виду спорта.

Запись то я делаю, а вот как определить лучшего спортсмена все не могу понять..помогите пожалуйста!!!

Вот что я уже сделал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Program Zapisi;
type record_type = record
fam: string;
name: string;
ot: string;
sto:integer;
klm:integer;
dlin:integer;
vsta:integer;
end;
var spisok:array[1..7] of record_type;
c:byte;
i:integer;
m:string;
s:integer;
begin
writeln ('Vvedite dannie');
for i:=1 to 6 do
begin
write ('Familia: '); readln(spisok[i].fam);
write ('Imia: '); readln(spisok[i].name);
write ('Ot4estvo: '); readln(spisok[i].ot);
write ('Vremia na 100m: '); readln(spisok[i].sto);
write ('Vremia na 1 kilometr: '); readln(spisok[i].klm);
write ('Prijok v dlinny: '); readln(spisok[i].dlin);
write ('Projok v visoty: '); readln(spisok[i].vsta);
writeln;
writeln;
writeln;
end;

Заранее благодарю

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

06.12.2009, 10:10

Ответы с готовыми решениями:

Найти лучшего спортсмена
надо найти лучшего спортсмена. даться файл resultat.txt в котором пишется количество участников,(новая строка) страна, имя, фамилия и 6...

Одномерный массив. Определить лучшего студента.
На первом курсе М равно 40 студентов. Каждый из них в понедельник получает оценку по программированию, во вторник по математике, в среду по...

Определить результат и номер спортсмена - победителя гонки
3. В массиве хранится информация о результатах 15 спортсменов, участвовавших в лыжной гонке. Определить результат и номер спортсмена -...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

06.12.2009, 10:10

Помогаю со студенческими работами здесь

Определить, через сколько дней общий суммарный пробег спортсмена составит не менее 100 км
Задание: С меня "Спасибо" :)

Определить лучшего спортсмена
Таблица содержит результаты спортивных соревнований по прыжкам в высоту: Ф.И.О.,результат.Создать файл записей SPORTSMEN и заполнить его...

Определить лучшего спортсмена
В массиве записей хранится следующая информация о спортсменах: фамилия, вид спорта, лучший результат. Вид спорта может быть любой....

Определить средний результат спортсмена
Задача с массивами в Паскаль.Заранее спасибо ( Во время соревнований по прыжках в высоту спортсмен показал следующие результаты: 160,...

Определить лучшего хоккеиста сезона по сумме очков
К 20 спортивным журналистам обратились с просьбой назвать трех лучших хоккеистов сезона. Информация от каждого журналиста поступает...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

Наверх