Program pr3; Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы} B : array [1..100, 1..100] of integer ; C : array [1..100, 1..100] of integer ; m, n, i,j: integer ; {переменные i,j вводятся как индексы массива} Begin randomize; writeln ('Введите размерность матриц m и n (числа <100)'); readln (m, n); For i:=1 to m do For j:=1 to n do begin A[i,j]:=random (20)-10; {ввод элемента матрицы} B[i,j]:=random (20)-10; {ввод элемента матрицы} end; writeln ('Итоговая матрица A: '); For i:=1 to m do begin For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; writeln ('Итоговая матрица B: '); For i:=1 to m do begin For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; For i:=1 to m do {цикл по всем строкам матрицы} For j:=1 to n do {цикл по всем столбцам матрицы} if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j]; writeln ('Итоговая матрица C: '); For i:=1 to m do begin For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; end.
2) N = 80 Ic=140 бит Найти К Решение: N =2(в степени I) 80 = 2*I I = 7 бит Ic = K* I => K =140 : 7 =20 символов 3) K = 100*20*30 N =80 Найти: Ic Решение: По той же формуле вычисляем размер 1 символа => I = 7 бит Ic = K*I Ic =100*20*30*7 = 420 000 бит =52500 байт 4) Ic = 4Kбайта K = 2048 Найти: N Решение: 4Кбайта = 4 * 2(в 13 степени) бит 2048 = 2(в 11 степени) . Найдем вес 1 символа : I= Ic / K I = 4 * 4 = 16(сокращаешь степени) N = 2*I дальше подставляешь под формулу)
V = 640*480*5 = 1536000 бит = 192000 байт = 187,5 Кб
Достаточно, так как 512 > 187,5