Игровая программа "Ипподром"

@olga_v · Регистрация: 11.02.2013

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

Игрок выбирает одного из трёх лошадей, которые соревнуются на скачках, и выигрывает, если его лошадь приходит первой. Скорость лошадей на разных этапах регулируется с помощью генератора случайных чисел.

Bringoff · 15.03.2013, 22:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  speed: array [0..3] of integer;
  count, i, max: byte;
 
begin
  Randomize;
  Writeln('Input number of horse'); Readln(count);
  speed[0] := -1; // для удобства проверки
  for i := 1 to 3 do
  begin
    speed[i] := random(50) + 25;// Скорость чтоб была ближе к реальной
    if speed[i] >= speed[i - 1] then max := i;
  end;
  if count = max then Writeln('You won!') else Writeln('You lose');
end.

Как-то так.

Не по теме:

Для реалистичности скорость можно "измерять" несколько раз и выводить среднее.

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@olga_v 0 / 0 / 0 Регистрация: 11.02.2013 Сообщений: 7

	Игровая программа "Ипподром" 15.03.2013, 19:27. Показов 2463. Ответов 1 Метки нет (Все метки) Игрок выбирает одного из трёх лошадей, которые соревнуются на скачках, и выигрывает, если его лошадь приходит первой. Скорость лошадей на разных этапах регулируется с помощью генератора случайных чисел. 0

Игровая программа "Ипподром"

Решение