//PascalABC.NET 3.1 сборка 1219 procedure PrintMatrix(a: array[,] of integer); begin for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do begin writeln; for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do write(a[i, j], ' '); end; writeln; end;
begin var a := MatrixRandom(9, 9, 10, 99); PrintMatrix(a); var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2; var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2; writeln('A[', i, ', ', j, '] = ', a[i, j]); end.
Формула: I=Ki и N=2 ^{i}
K =30 N=128 найти I
решение
N= 2 ^{i} 128 =2 ^{7} i=7 бит
I =Ki =30•7 =210 бит
2.
l =Ki
N= 2^{i}
I = объем информации
k = кол-во символов
i = минимальное кол-во бит для кодирования одного символа
N = мощность алфавита;
k = 64•256 = 16384
N= 32
i = ㏒_{2} 32 = 5 бит
I = 16384 • 5 = 81920 (бит) = 10240 (байт) = 10 Кбайт
ответ: 10 Кбайт
3.
0,5 Кбайта • 1024= 512 байта
4.
Извини, не могу решить, вроде решил а потом перерешил и неправильно, вот что есть уж пока:
На один символ - 1 байт
30 строк по 50 символов = 1500 символов
3 страницы - это 4500 символов
ответ: 4500 байт!
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(9, 9, 10, 99);
PrintMatrix(a);
var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.