1. в розыгрыше лотерее участвуют 64 шара. выпал первый шар. сколько информации содержит зрительное сообщение об этом? 2. в ящике лежат фигурки разной формы – треугольные и круглые. треугольных фигурок в ящике 15. сообщение о том, что из ящика достали фигуру круглой формы, несет 2 бита информации. сколько всего фигурок в ящике? 3. в составе 16 вагонов, среди которых к – купейные, п – плацкартные и св – спальные. сообщение о том, что ваш друг приезжает в св несет 3 бита информации. определите, сколько в поезде вагонов св. 4. в коробке находятся кубики трех цветов: красного, желтого и зеленого. причем желтых в два раза больше красных, а зеленых на 6 больше чем желтых. сообщение о том, что из коробки случайно вытащили желтый кубик, содержало 2 бита информации. сколько было зеленых кубиков?
Ответы
В операторах Dat[1] := 7; ... ; Dat[10] := 9; задаются элементы массива.
m := 0; n := 0; - начальные значения переменных m и n.
В цикле for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
ответ: 8
m := 0; n := 0; - начальные значения переменных m и n.
В цикле for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
ответ: 8
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-9,9);
a.Println(3); Writeln(3*a.ColCount*'-');
Write('Колонок, где все элементы различны, ',
a.Cols.Where(c->c.Distinct.Count=m).Count);
end.
Пример
Количество строк в массиве: 6
Количество колонок в массиве: 7
*** Исходный массив [6,7] ***
-9 6 -1 5 1 -9 -6
-2 9 1 -7 -6 -5 -1
4 -7 2 1 3 1 2
0 3 8 5 -6 8 -9
-2 -2 8 -4 -7 0 8
-2 1 1 -8 -9 1 -4
Колонок, где все элементы различны, 2
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-9,9);
a.Println(3); Writeln(3*a.ColCount*'-');
Write('Колонок, где все элементы различны, ',
a.Cols.Where(c->c.Distinct.Count=m).Count);
end.
Пример
Количество строк в массиве: 6
Количество колонок в массиве: 7
*** Исходный массив [6,7] ***
-9 6 -1 5 1 -9 -6
-2 9 1 -7 -6 -5 -1
4 -7 2 1 3 1 2
0 3 8 5 -6 8 -9
-2 -2 8 -4 -7 0 8
-2 1 1 -8 -9 1 -4
Колонок, где все элементы различны, 2
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Суретке сәйкес элементтік базаның атауын және тиісті буынын анықта.
Автор: muziumednogorsk
Сколько разрядов в числе 1100111?
Автор: shmanm26
Мне нужно ваше Мне нужно ваше
Автор: vvk2008
Объяснение:
1) 6 бит
2)По формуле N=2^i найдем, сколько было круглых фигурок - 2^2 = 4; Всего фигурок было 15+4=19. ответ: 19
3) я не знаю
4)Обозначим количество красных кубиков через x, тогда желтых будет 2x, а зеленых (2x + 6). Всего кубиков (5x + 6). Раз желтый кубик дает 2 бита, по формуле Шеннона желтые кубики составляют долю 2 в (-2) степени, т. е. 1/4 от всех кубиков. Значит всего кубиков 8x. Приравниваем 5x + 6 = 8x. Отсюда x = 2, т. е. зеленых кубиков 2x + 6 = 10.
Итак, всего 10 зеленых кубиков.