М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
446664Flu
446664Flu
05.10.2021 11:44 •  Информатика

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

👇
Ответ:
bileskayilona
bileskayilona
05.10.2021
Считая, что функция 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 - Красный
4,7(59 оценок)
Открыть все ответы
Ответ:
alenamorozova4
alenamorozova4
05.10.2021

Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.

 

4,5(50 оценок)
Ответ:
Алена173
Алена173
05.10.2021

Объяснение:

1.

Определяем количество символов в сообщении, для этого количество символов умножаем на количество страниц:

128 х 4 = 512 символов.

Находим сколько информации отводится на кодирование 1 символа:

0,125 Кбайт х 1024 = 128 байт или 128 х 8= 1024 бита всего в сообщении

1024 бита : 512 символов = 2 бита на 1 символ

Находим количество символов в алфавите по формуле N = 2^i:

N=2²=4

Мощность алфавита составляет 4 символа.

2.

Количество пирожков с вишней К1=2

Всего пирожков в корзине N=4+10+2+4=20

Вероятность выбора пирожка с вишней составляет

р1=К1/N=2/20=0,1

Теперь вычислим количество информации, содержащееся в сообщении, что Маша выбрала пирожок с вишней:

I1=log₂ (1/р1)=log₂(1/0,1)=log₂ 10=3,322 бита ≈4 бита (поскольку бит- минимальная единица информации и число бит не может быть дробным)

3.

2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=15*5=75

2^i=75

i=log₂ 75=6,23 бита ≈ 7 бит

4,4(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ