1. При использовании палитры из 2^24 цветов для хранения цвета 1 пикселя используется 24 бита = 3 байта. Пусть количество пикселей в рисунке K, тогда объем памяти, занимаемой одним рисунком = (K*3)/1024 + 128 Кбайт. X = 8*(K*3/1024 + 128)+2.5*1024 2. При использовании палитры из 2^16 цветов для хранения цвета 1 пикселя используется 16 бита = 2 байта. Объем памяти, занимаемой одним рисунком = (K*2)/1024 + 128 Кбайт. X = 20*(K*2/1024 + 128) 8*(K*3/1024 + 128)+2.5*1024 = 20*(K*2/1024 + 128) К = 65536 (количество пикселей в рисунке) X = 20*(K*2/1024 + 128) = 20*(65536*2/1024 + 128) Кбайт = 20*(128 + 128) Кбайт = 5120 Кбайт = 5120/1024 Мбайт = 5 Мбайт
Program Program1; Var i,min,max,nmin,nmax:integer; a:array [1..10] of integer; begin randomize; writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(100)+1; writeln('a[',i,']=',a[i]); end; nmin:=1; min:=a[nmin]; nmax:=1; max:=a[nmax]; for i:=1 to 10 do begin if a[i]>max then begin nmax:=i; max:=a[i]; end; if a[i]<min then begin nmin:=i; min:=a[i]; end; end; a[nmin]:=max; a[nmax]:=min; writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max); writeln('Полученный массив:'); for i:=1 to 10 do writeln('a[',i,']=',a[i]); end.
Пусть количество пикселей в рисунке K, тогда объем памяти, занимаемой одним рисунком = (K*3)/1024 + 128 Кбайт.
X = 8*(K*3/1024 + 128)+2.5*1024
2. При использовании палитры из 2^16 цветов для хранения цвета 1 пикселя используется 16 бита = 2 байта.
Объем памяти, занимаемой одним рисунком = (K*2)/1024 + 128 Кбайт.
X = 20*(K*2/1024 + 128)
8*(K*3/1024 + 128)+2.5*1024 = 20*(K*2/1024 + 128)
К = 65536 (количество пикселей в рисунке)
X = 20*(K*2/1024 + 128) = 20*(65536*2/1024 + 128) Кбайт =
20*(128 + 128) Кбайт = 5120 Кбайт = 5120/1024 Мбайт = 5 Мбайт
Program Program1;
Var
i,min,max,nmin,nmax:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
writeln('a[',i,']=',a[i]);
end;
nmin:=1;
min:=a[nmin];
nmax:=1;
max:=a[nmax];
for i:=1 to 10 do
begin
if a[i]>max then
begin
nmax:=i;
max:=a[i];
end;
if a[i]<min then
begin
nmin:=i;
min:=a[i];
end;
end;
a[nmin]:=max;
a[nmax]:=min;
writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max);
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.