1. Вероятность вынуть первым красный карандаш определяется отношением количества красных карандашей к их общему числу, т.е. 2/4 или 1/2. 2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3. 3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6 Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6. Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3
Поэтому предложенное вами задание неуместно, ибо считается в уме.
Непонятно так же, какое решение от Вас ждет преподаватель.
Я предполагаю, что учитель требует лобовое неоптимальное медленное решение, поскольку в противном случае задача теряет смысл. В самом деле, что писать блок схему вот этого:
##
(100*101*201/6).Print;
Итак, не будем долго тянуть и, поняв тупость задания, начнем что-то делать. Положим у нас будет цикл (лучше for). И мы будем к некоторой переменной sum добавлять счетчик в квадрате.
То есть код такой (новый и ныне единственно предпочтительный синтаксис, присутствующий в PascalABC.NET):
##
var sum:= 0;
for var i:= 1 to 100 do
sum+= i*i;
sum.Print;
Но от нас требуют блок схему (хотя тоже непонятно зачем).
2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3.
3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6
Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6.
Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3
(см. объяснение)
Объяснение:
Предисловие:
Вообще говоря, верно равенство:
Поэтому предложенное вами задание неуместно, ибо считается в уме.
Непонятно так же, какое решение от Вас ждет преподаватель.
Я предполагаю, что учитель требует лобовое неоптимальное медленное решение, поскольку в противном случае задача теряет смысл. В самом деле, что писать блок схему вот этого:
##
(100*101*201/6).Print;
Итак, не будем долго тянуть и, поняв тупость задания, начнем что-то делать. Положим у нас будет цикл (лучше for). И мы будем к некоторой переменной sum добавлять счетчик в квадрате.
То есть код такой (новый и ныне единственно предпочтительный синтаксис, присутствующий в PascalABC.NET):
##
var sum:= 0;
for var i:= 1 to 100 do
sum+= i*i;
sum.Print;
Но от нас требуют блок схему (хотя тоже непонятно зачем).
Но требую и требуют:
(см. прикрепленный файл)
Задание выполнено!