Здрасти. Необходимо написать программку на Pascal ABC Net. Сущность программки такая,

Здравствуйте. Необходимо написать программку на Pascal ABC Net. Сущность программы такова, чтобы она рандомно выбирала цвета (красноватый, чёрный либо зелёный), но с определёнными шансами, то есть Красноватый=43,75%, Чёрный=50% и Зелёный=6,25%. В результате программка обязана выдать человеку какой цвет выпадет.
В огромное количество Красноватого цвета входят числа: 1,5,7,9,11,13,15
В множество чёрных: 2,4,6,8,10,12,14,16
В огромное количество Зелёных: 3.

Задать свой вопрос
1 ответ
Считая, что функция random() возвращает случайные числа с равномерным законом рассредотачивания и что 7/16*100 = 43,75, 8/16*100 = 50, 1/16 = 6,25, задачку можно решить так:
begin
 var c:=random(1,16);
 case c of
  1,5,7,9,11,13,15: writeln(c,' - Красноватый');
  2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
  else writeln(c,' - Зелёный');
  end;
end.

Пример:
7 - Красноватый
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт