Program lab3;const n=10; {количество элементов в массиве} var A:array [1..n] of real; {объявление массива А} i:byte; {переменная для циклов} b:boolean; {идентификатор роста}begin writeln('vvedite tselie chisla matrici A[',n,',',n,']'); for i:=1 to n do begin {циклвводавмассив} write('A[',i,'] = '); readln(A[i]); end; writeln; writeln('matraca imeet vid: '); for i:=1 to n do begin {циклвыводамассива} write(A[i]:3:3,' '); end; writeln; b := true; for i:=1 to n-1 do {цикл определения роста} if (A[i] > A[i+1]) then begin {если текущий больше следующего} b := false; {значит масив невозростающий} break; end; if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''') else writeln('Masiv A - ne vozrostaushaya posledovatelnost'''); readln;
1. Для кодирования одного из 8 цветов требуется log(2)8 = 3 бита (2^3=8). Память, занимаемая одной фотографией: 512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт. Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16. 128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит. Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).
var A:array [1..n] of real; {объявление массива А} i:byte; {переменная для циклов} b:boolean; {идентификатор роста}begin writeln('vvedite tselie chisla matrici A[',n,',',n,']'); for i:=1 to n do begin {циклвводавмассив} write('A[',i,'] = '); readln(A[i]); end; writeln; writeln('matraca imeet vid: '); for i:=1 to n do begin {циклвыводамассива} write(A[i]:3:3,' '); end; writeln; b := true; for i:=1 to n-1 do {цикл определения роста} if (A[i] > A[i+1]) then begin {если текущий больше следующего} b := false; {значит масив невозростающий} break; end; if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''') else writeln('Masiv A - ne vozrostaushaya posledovatelnost'''); readln;
512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт.
Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16.
128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит.
Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).