Предмет: Информатика, автор: eeror370

задачи по информатике. Помогите ​

Приложения:

dnvdfkvfdj: https://www.avito.ru/moskva/predlozheniya_uslug/reshenie_zadach_po_matematike_i_fizike_1920524902
решим все быстро

Ответы

Автор ответа: mlmbx59879
1

Объяснение:

дано: i=4

найти: N - ?

решение:

формула: N=2i => N=2×4, N=16

ответ: 16

дано:і=8

найти: N - ?

решение: N=2^і 2⁸=256

I информационный объем сообщ k кол-во символов в сообщ i информационный вес одного символа, N мощность алфавита

дано: к=3072, N=?

решение: N=ki 1.5=12288 12288=3072*і і=4 2⁴=16 ответ:16

64=2⁶ значит 6 бит приходится на 1 символ

6*20=120бит

ответ: 120 бит

дано:К=2048 I-1/512 Mб, i-?

решение: из формулы I=K*i выразим i

i=I/K I-изобразим в битах I=1/512*1024*1024*8=16384 бит

i=I/K=16384/2048=8 бит

i=8 бит, значить мощность алфавита равна 2⁸=256 N=256

Похожие вопросы
Предмет: Русский язык, автор: kenzochannelboo
Предмет: Русский язык, автор: tonoyanmargo
Предмет: Информатика, автор: Karikrut1
НЕИЗВЕСНОЕ ИМЯ 'Bullet'
uses GraphABC;
var s:array [,] of integer;
i,x,y,vspeed,x1,y1,x2,y2,n,k:integer;
game_end : boolean;

Procedure Keypress(key:char); begin
if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then
x:=x+8;
if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then
x:=x-8;
if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then
vspeed:=-16;
if (key='f') then Bullet()
end;
procedure Keydown(key:integer); begin
if (key=vk_enter) then game_end:=true;
end;
Procedure Bullet();
Begin
Setbrushcolor(clyellow);
fillrectangle(x2,y2,x2+8,Y2+8);
X2:=X+8;
Y2:=472;
N:=Y2+8+Y2;
repeat;
n:=n-16;
until(N=8) or (x2=x1);
If not (N=8) or (x2=x1)
then begin
clearwindow;
Draw();
end;
If (N=8) and (x2=x1) then
begin
Clearwindow;
Draw();
inc(k);
writeln('Счёт:', k, 'Очко(а)(ов)');
end;
end;

procedure Gravity(); begin
if vspeed=0 then begin
if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;
if vspeed <>0 then
vspeed+=2;
end;
end;
Procedure Draw(); begin
Redraw;
Lockdrawing;
setbrushcolor(clwhite);
fillrectangle(0,0,640,480);

setbrushcolor(clred);
circle(x1,y1,24);
setbrushcolor(claqua);
fillrectangle(x,y,x+8,y+8);
end;


Begin
game_end:=False;
x:=Random(640);
y:=480;
x1:=Random(640);
y1:=0;
s:=new integer[200,200];
while game_end=false do begin
Draw();
Gravity();
Onkeypress:=Keypress;
Onkeydown:=Keydown;
sleep(30);
end;
end.


Как решить? Если поменять Bullet и Keypress пишет Нет перегруженной подпрограммы с таким количеством параметров Draw.