Типичный пример некорректно поставленной задачи! Если я вам напишу произвольный набор из 20 русских больших и маленьких букв, в этом будет информации абсолютный ноль! Хотя символов в алфавите 66, или без какой-нибудь одной (Ёё, Йй, Ьь, Ъъ) можно 64 сделать. С другой стороны, для кодировки 64 символов достаточно 6 бит, стало быть, 20-символьное сообщение - 120 бит. Вроде как это и есть объём информации. Но мой более чем 30-летний стаж работы программистом этому противится!
Sub Ìàêðîñ1() Dim Sum(heigth - 1, width - 1) Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1 For j = 0 To width - 1 Sum(i, j) = i + j Product(i, j) = i * j Next j Next i
Call Show(Sum, 0, 0) Call Show(Product, 0, 12) End Sub
Sub Show(ByRef m, dx, dy) For i = 0 To heigth - 1 For j = 0 To width - 1 ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j)) Next j Next i End Sub
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/db195.jpg)
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/0a7c0.jpg)
Типичный пример некорректно поставленной задачи! Если я вам напишу произвольный набор из 20 русских больших и маленьких букв, в этом будет информации абсолютный ноль! Хотя символов в алфавите 66, или без какой-нибудь одной (Ёё, Йй, Ьь, Ъъ) можно 64 сделать.
С другой стороны, для кодировки 64 символов достаточно 6 бит, стало быть, 20-символьное сообщение - 120 бит. Вроде как это и есть объём информации. Но мой более чем 30-летний стаж работы программистом этому противится!