Важная информация
Показано с 1 по 3 из 3

Тема: Задачка на вероятности

  1. #1 Задачка на вероятности 
    Новичок
    Регистрация
    14.04.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    В закрытом ящике находится N белых и М черных шаров.По исходному перечню вынутых шаров (заданному в форме:"белый,черный,..."):
    1)рассчитать и вывести вероятности появления очередного белого и черного шаров.
    2)вывести также (словом)наиболее вероятный цвет следующего шара.

    Исходные данные вводятся с клавиатуры.
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Вот такой вариант предлагаю я. Программа позволяет извелкать нужное количество шаров самому, прежде чем будет выведена вероятность:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] WhiteCount [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], BlackCount [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], Summ [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] CurrentBall [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите количество белых и черных шаров: ", WhiteCount, BlackCount
    LOOP WHILE WhiteCount <= 0 [Ссылки могут видеть только зарегистрированные пользователи. ] BlackCount <= 0
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите извлекаемые шары в порядке их извлечения (0 - черный, 1 - белый, другое число - закончить)"
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Белых шаров: "; WhiteCount; "Черных шаров: "; BlackCount
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Шар: ", CurrentBall
        SELECT CASE CurrentBall
            CASE 0
                IF BlackCount > 0 THEN
                    BlackCount = BlackCount - 1
                ELSE
                    [Ссылки могут видеть только зарегистрированные пользователи. ] "Черных шаров больше не осталось в ящике"
                [Ссылки могут видеть только зарегистрированные пользователи. ] IF
            CASE 1
                IF WhiteCount > 0 THEN
                    WhiteCount = WhiteCount - 1
                ELSE
                    [Ссылки могут видеть только зарегистрированные пользователи. ] "Белых шаров больше не осталось в ящике"
                [Ссылки могут видеть только зарегистрированные пользователи. ] IF
            CASE ELSE
                [Ссылки могут видеть только зарегистрированные пользователи. ] DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
    LOOP
    IF WhiteCount + BlackCount <= 0 THEN
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Шаров вообще не осталось."
        [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] WhiteProb [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], BlackProb [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    WhiteProb = 100 / (WhiteCount + BlackCount) * WhiteCount
    BlackProb = 100 / (BlackCount + WhiteCount) * BlackCount
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Вероятность того, что шар будет белым, %: "; WhiteProb
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Вероятность того, что шар будет черным, %: "; BlackProb
    SELECT CASE WhiteProb
        CASE [Ссылки могут видеть только зарегистрированные пользователи. ] > BlackProb
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Вероятность извлечения белого шара больше"
        CASE [Ссылки могут видеть только зарегистрированные пользователи. ] < BlackProb
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Вероятность извлечения белого шара меньше вероятности черного"
        CASE [Ссылки могут видеть только зарегистрированные пользователи. ] = BlackProb
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Вероятность извлечения белого шара равна вероятности черного"
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
    Последний раз редактировалось Абадябер; 17.04.2011 в 13:07.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Не до конца понял что нужно сделать
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •