Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; Begin rows := random(8) + 2; columns := random(8) + 2; writeln(rows, columns);
for i := 1 to rows do for j := 1 to columns do arr[i, j] := random(100);
for i := 1 to rows do begin writeln(); for j := 1 to columns do write(arr[i, j]:3); end; writeln(); writeln();
max_i:=1; max_j:=1;
for i := 1 to rows do for j := 1 to columns do if arr[max_i, max_j] < arr[i, j] then begin max_i:=i; max_j:=j; end;
for i := 1 to rows do if i <> max_i then arr[i, max_j] := 0;
for j := 1 to columns do if j <> max_j then arr[max_i, j] := 0;
for i := 1 to rows do begin writeln(); for j := 1 to columns do write(arr[i, j]:3); end; writeln(); writeln(); End.
svetavancevich
04.10.2020
Что надо знать? Единицы измерения информации В 1 бит можно записать один двоичный символ. 1 байт = 8 бит В кодировке ASCII в один байт можно записать один 256 символьный код В кодировке UNICODE один 256 символьный код занимает в памяти два байта 1 килобайт = 1024 байт 1 мегабайт = 1024 килобайт 1 гигабайт = 1024 мегабайт 1 терабайт = 1024 гигабайт Формула Хартли 2 i = N где i- количество информации в битах, N - неопределенность Таблица степеней двойки, которая показывает сколько информации можно закодировать с бит
i012345678910N=2 i12481632641282565121024
Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа
Например: двоичный текст 01010111 занимает в памяти 8 бит Этот же текст в кодировке ASCII занимает 8 байт или 64 бита Этот же текст в кодировке UNICODE занимает 16 байт или 128 бит.
Не забывайте, что пробелы надо тоже считать за символы поскольку они также набираются на клавиатуре и хранятся в памяти.
Мощность алфавита - это количество символов в алфавите или неопределенность из формулы Хартли.
Информационный вес одного символа - это значение i из формулы Хартли.
Отсюда можно сделать вывод, что не существует алфавита, состоящего из одного символа, поскольку тогда информационный вес этого символа был бы равен 0.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Это конечно не по теме, но где находится стеклянный предохранитель в грении2 который открывает путь к вертолёту?
arr: array[1..10,1..10] of integer;
Begin
rows := random(8) + 2;
columns := random(8) + 2;
writeln(rows, columns);
for i := 1 to rows do
for j := 1 to columns do
arr[i, j] := random(100);
for i := 1 to rows do begin
writeln();
for j := 1 to columns do
write(arr[i, j]:3);
end;
writeln();
writeln();
max_i:=1;
max_j:=1;
for i := 1 to rows do
for j := 1 to columns do
if arr[max_i, max_j] < arr[i, j] then begin
max_i:=i;
max_j:=j;
end;
for i := 1 to rows do
if i <> max_i then
arr[i, max_j] := 0;
for j := 1 to columns do
if j <> max_j then
arr[max_i, j] := 0;
for i := 1 to rows do begin
writeln();
for j := 1 to columns do
write(arr[i, j]:3);
end;
writeln();
writeln();
End.