Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 23.12.2009
Сообщений: 3

Найти номер учатника, имеющего наилучший результат

23.12.2009, 22:56. Показов 1074. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно решить задачу, причем 2-мя способами (сначала циклом, затем с использованием массива).
"В соревнования по бегу участвовало N спортсменов. Каждый имеет по 1 результату. Найти номер учатника, имеющего наилучший результат. Также указать этот результат"
ЗЫ: Наилучший результат в данном случае является наименьшее время, т.к соревнование на скорость.
Выручите студента)))
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.12.2009, 22:56
Ответы с готовыми решениями:

Найти наилучший результат среди всех участников
Помогите. завтра нужно эту задачу на зачете сдавать .. Массив !!! Сама задача : В соревнованиях по прыжкам в высоту принимали участие...

Найти номер первого из элементов массива, имеющего нулевое значение
Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое значение. Если таких элементов нет, вывести...

Найти и вывести на печать номер и элементы столбца имеющего наименьшее количество элементов до первого отрицательного элемента
Помогите решить задачу: Найти и вывести на печать номер и элементы столбца имеющего наименьшее количество элементов до первого...

4
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
23.12.2009, 23:22
Вот с массивом (да и с циклом тоже). Как сделать просто с циклом не знаю. Где хранить результаты? Может Вы знаете?

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
uses
  crt;
var
  i,n,min: integer;
  a: array [1..50] of integer;
begin
  clrscr;
  randomize;
  write('Vvedite n: ');
  readln(n);
  writeln('Resultaty: ');
  for i:= 1 to n do
  begin
    a[i]:=random(15)+5;      {заполняем массив случайными результатами}
    writeln(i, '-iy = ',a[i]);
  end;
 
  min:=1;
 
  for i:= 2 to n do           {ищем минимальный}
    if a[i]<a[min] then
      min:= i;
  write('Pobedil No ',min,' s resultatom ',a[min]);
  readkey;
end.
0
0 / 0 / 0
Регистрация: 23.12.2009
Сообщений: 3
25.12.2009, 01:50  [ТС]
Результат известен: (1,2,3,4,5) т.е. 1 спортсмен имеет результат 1, второй -2 и тд...?? Что нужно изменить?
0
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
25.12.2009, 01:53
Цитата Сообщение от demidrolll Посмотреть сообщение
a[i]:=random(15)+5;
Замени на
readln(a[i]);

Цитата Сообщение от demidrolll Посмотреть сообщение
writeln(i, '-iy = ',a[i]);
можешь убрать
1
0 / 0 / 0
Регистрация: 23.12.2009
Сообщений: 3
25.12.2009, 02:46  [ТС]
Огромное спасибо)))

Добавлено через 40 минут
а чисто циклом без использования массива возможно решить??? (колличество спортсменов 5, их результаты 1,2,3,4,5 соответственно)?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.12.2009, 02:46
Помогаю со студенческими работами здесь

В квадратной матрице определить номер столбца матрицы, имеющего наибольшую сумму элементов
В квадратной матрице i,j=1 to M do определить номер столбца матрицы, имеющего наибольшую сумму элементов. Поменять этот столбец со...

В квадратной матрице определить номер столбца матрицы имеющего наибольшую сумму элементов
Тема: обработка двумерных массивов. Цель:приобретение навыков составление алгоритмов и программ, использующих вложенные в цикл. ...

В матрице найти номер столбца, имеющего максимальную сумму элементов, и заменить все его элементы на первый
В матрице найти номер столбца, имеющего максимальную сумму элементов, и заменить все его элементы на первый элемент матрицы. P.s....

Массив: Найти среднее арифметическое каждого столбца имеющего нечетный номер.
Даны натуральное число n и двумерный массив размером n*(n+1). 1)Составьте программу , которая находит среднее арифметическое каждого...

Даны координаты вершин нескольких треугольников. Определить номер треугольника, имеющего наибольшую высоту.
Даны координаты вершин нескольких треугольников. Определить номер треугольника, имеющего наибольшую высоту.


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru