const n=10; var i,k,min,max:integer; x,y:array[1..n]of integer; z:array[1..2*n]of integer;
function four(n:integer):string; var s:string; begin repeat s:=s+IntToStr(n mod 4); n:=n div 4; until n=0; result:=ReverseString(s); end;
begin for i:=1 to n do begin x[i]:=random(-10,10); y[i]:=random(-10,10); if (x[i] mod 2=0) and (x[i]>0) then begin k:=k+1; z[k]:=x[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; if (y[i] mod 2=0) and (y[i]>0) then begin k:=k+1; z[k]:=y[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; end; write('Массив X:'); for i:=1 to n do write(x[i]:4); writeln; write('Массив Y:'); for i:=1 to n do write(y[i]:4); writeln; write('Массив Z:'); for i:=1 to k do write(z[i]:4); writeln; write('Измененный массив Z:'); for i:=1 to k do begin if z[i]=min then z[i]:=max else if z[i]=max then z[i]:=min; write(z[i]:4); end; writeln; write('Массив Z по основанию 4:'); for i:=1 to k do write(four(z[i]):4); end.
решал раньше , подставь свои данные только и всё
дано:
разрешающая способность сканера 600 х 600 dpi.
размер 10см x 15см.
глубина цвета - 3 байта.
найти:
каков информационный объём этого файла?
решение:
вначале переводим глубину
цвета из байт в биты
3 байта * 8бит в байте = 24 бит
вычисляем разрешение сканера в 1 дюйме квадрат
600*600 = 360 000 пикселей в 1 дюйм^2
переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
15см =
5,906дюйма
10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2
вычисляем количество пикселей в изображении
23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей
информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
8
370 000 пикселей * 24 бит = 200 880 000 бит.
переводим в байты делением на 8.
25 110 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
23,95 мегабайт