:*дан двумерный массив вывести на экран все элементы n-й строки массива паскаль

Var a: array [1..8,1..8] of integer;           j,k,n: integer; begin   randomize;   for j: =1 to 8 do       begin           for k: =1 to 8 do               begin                   a[j,k]: =random(9)+1;                   write (a[j,k]: 2);               end;           writeln;       end;   repeat       write ('n = ');       readln (n);   until n in [1..8];   for j: =1 to 8 do write (a[n,j]: 3);   writeln;   readln; end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации