1. k=640*400=256000 пикс (2^8*1000)
N=4 цвета; N=2^i; 4=2^2=>i=2 бит на пикс
I=k*i=2*2^8*1000=2^9*1000 бит = 2^-4*1000 Кб = 62,5 Кб
Ответ: 62,5 Кб
2. k=128*128=16384 пикс (2^14)
I=4 кб=2^15 бит
i=I/k=2^15/2^14=2^1=2 бит на пикс
N=2^i=2^2=4 цвет
Ответ: 4 цвета
Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
<span>end.
</span>
1)
uses crt;
type danie=record
litri:string;
cislo:string;
<span><em>max,min:real;</em></span>
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if min='0' then min:=StrToFloat(D.cislo)<span>;
</span>if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
<span>if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
</span>
if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
writeln('min=',min);
<span>wtiteln('max=',max);
</span>
close(DV);
readln;
end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.
1) В 16 битной кодировке сообщение = 20*16=320 бит.
2) В 8 битной= 20*8=160.
<span>3) Если перекодирывать из 16 битной в 8 битную т 320-160=160 бит, или =20 байт
Ответ: 160 бит</span>
<span>Сканер создаёт цифровую копию изображения объекта.</span>