Дана колода из 36 игральных карт (это наш алфавит). каково количество информации, измеренной в битах, заключено в сообщении:
б) вытащенная из колоды карта является бубновой;
г) вытащенная из колоды карта чёрной масти;
д) вытащенная из колоды карта является тузом.
е) вытащенная из колоды карта является тузом или красной масти;
ё) из колоды вытащили пиковый туз, а потом из оставшейся колоды вытащили валет червей;
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.
Ну что же.. Тыж-программист пришёл на так сказать..
Давай рассуждать... У нас включено что то в два пина. Один из них аналоговый А0, а второй обычный.
Мы создали переменную data в которую поместили значения с того, что включено в пин А0.
Теперь мы проверяем, если значения меньше или равно 200 тогда мы генерируем на порту вход/выхода сигнал — прямоугольную "волну", заданной частоты и с 50% рабочим циклом. Длительность 1 секунда, если же data больше за 200, тогда мы просто выключаем и ничего не отдаём или считываем.
После чего мы выводим на экран слово Analog: и в него записываем значения которое у нас на А0.
Делаем задержку пол секунды и всё делаем по новой.