// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a:=Transpose(a); Writeln('*** Транспонированная матрица [',n,',',m,'] ***'); a.Println(4) end.
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a:=Transpose(a);
Writeln('*** Транспонированная матрица [',n,',',m,'] ***');
a.Println(4)
end.
Пример
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица [5,8] ***
17 85 -69 45 -56
46 83 -82 96 6
21 -32 -16 -9 78
-35 45 -98 74 32
-46 -19 -82 85 76
53 26 14 -46 26
-51 -17 -41 -41 2
19 -35 -34 83 -87
*** Транспонированная матрица [8,5] ***
17 46 21 -35 -46 53 -51 19
85 83 -32 45 -19 26 -17 -35
-69 -82 -16 -98 -82 14 -41 -34
45 96 -9 74 85 -46 -41 83
-56 6 78 32 76 26 2 -87
1024 байт > 1000 байт
800 байт < 1024 байт
400 бит = 400 бит
8192 байта < 1024 байта
2) 64 бита=64*8 байт=512 байт
3) 64=2^6? i=6 бит
4) 40 байт
5)11 Кб=11*1024*8 бит
11*1024*8=11264*i i=(11*1024*8)/11264=8 бит
N=2^8=256
6) 32=2^5?
i=5
7) N=16 i=4 N=256 i=8
8/4=2 (в 2 раза)
8) N=16 i=4 k=50
I=50*4=200 бит
9) N=256 i=8 k=30*70*5
I=30*70*5*8=84000 бит
10) 1 Мб=1024*1024*8 бит
1/512 Мб=(1024*1024*8)/512=1024*16 бит
1024*16=2048*i i=(1024*16)/2048=8 бит
N=2^i
2^8=256
11) N=256 i=8 k=160*192
I=160*192*8 бит
I=(160*192*8)/(1024*8)=30 Кб