Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 9
1

Определить лучший результат среди спортсменов, участвовавших в забеге

05.05.2014, 20:34. Показов 1273. Ответов 4
Метки нет (Все метки)

В забеге участвовало 10 спортсменов, показавших различные результаты( А произвольных чисел). Определить лучший результат
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2014, 20:34
Ответы с готовыми решениями:

Ввести в типизированный файл ФИО и лучший результат спортсмена, а потом изменить его так, чтобы осталось N лучший спортсменов
Задание состоит в том, чтобы ввести в типизированный файл ФИО и лучший результат спортсмена, а...

Даны результаты соревнований спортсменов по плаванию. Выбрать лучший результат
Помогите решить задачу пожалуйста. Не могу представить общий ход решения! В ЭВМ поступают...

Даны результаты по бегу на дистанцию 100 метров трех спортсменов. Выбрать и напечатать лучший результат.
Даны результаты по бегу на дистанцию 100 метров трех спортсменов. Выбрать и напечатать лучший...

Определить средний результат и количество спортсменов, имеющих в 4-й попытке результат выше среднего
В соревнованиях по прыжкам в длину участвовали N-спортсменов. Каждый спортсмен мог сделать ...

4
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
05.05.2014, 22:05 2
Хммм дайка подумать.
Pascal
1
2
3
4
5
6
7
8
bestres:=1000000;
for i:=1 to 10 do
begin
read(sportsmen);
if sportsmen<=bestres
then bestres:=sportsmen;
end;
writeln(bestres);
Добавлено через 2 минуты
Это с позиции когда вам необходимо там что бы спортсмен получил мин результат.

Добавлено через 11 секунд
В смысле мин время

Добавлено через 20 минут
Или вам не так надо?
0
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 9
05.05.2014, 22:09  [ТС] 3
мне нужно определить лучший результат
0
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
05.05.2014, 22:12 4
То есть максимум?

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var bestres:real; 
     sportsmenres:real;
     i:byte;
begin 
bestres:=0;
for i:=1 to 10 do
begin
read(sportsmen);
if sportsmen>bestres
then bestres:=sportsmen;
end;
writeln(bestres);
end.
0
2 / 2 / 1
Регистрация: 24.11.2013
Сообщений: 77
05.05.2014, 22:12 5
Цитата Сообщение от Tatiana14 Посмотреть сообщение
мне нужно определить лучший результат
Ну тогда просто меняете ">" на "<" в 5 строке :
Pascal
1
2
3
4
5
6
7
8
bestres:=1000000;
for i:=1 to 10 do
begin
read(sportsmen);
if sportsmen<=bestres
then bestres:=sportsmen;
end;
writeln(bestres);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2014, 22:12

Лучший математик среди шахматистов и лучший шахматист среди математиков — один и тот же человек или разные?
Лучший математик среди шахматистов и лучший шахматист среди математиков — один и тот же человек или...

Определить лучший результат по прыжкам в длину
В соревнованиях по прыжкам в длину участвовали N-спортсменов. Каждый спортсмен мог сделать ...

Определить, каким по порядку стартовал лыжник, показавший лучший результат
Известны результаты каждого из участников соревнований по лыжным гонкам (время затраченное на...

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.