составить программу вычисления значений функции с использованием оператора IF. k=x*sin(x)/ln|a+sin(x)| a=0.23 x=1 (0.2) 3

Информационная неопределенность (количество возможных результатов события) равна 16. Будем задавать вопросы, на которые можно ответить только «да» или «нет». Вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза.
Задаем вопросы: - Друг живет выше 8-го этажа?
Нет.
После этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. Получен 1 бит информации.
 Друг живет выше 4-го этажа?
Да.
Число вариантов уменьшилось еще в два раза, получен еще 1 бит информации.
Друг живет выше 6-го этажа?
Да.
После данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. Получен еще 1 бит информации.
Друг живет на 7-м этаже?
Нет.
Все ясно. Друг живет на 8-м этаже.
Каждый ответ уменьшал информационную неопределенность в два раза. Всего было задано 4 вопроса. Получено 4 бита информации. Сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.

№1                                        

program raf105;

const

 n1 = 5;

 n2 = 8;

var

 a: array[1..n1,1..n2] of integer;

 i,j: integer;

begin

 for i:=1 to n1 do

 begin

   writeln;

   a[i,1]:= 1+i;

   write(a[i,1]:2,' ');

   for j:=2 to n2 do

   begin

     a[i,j]:= a[i,j-1]+1;

     write(a[i,j]:2,' ');

   end;

 end;

end.

№2                                        

program raf105;

const

 n = 9;

var

 a: array[1..n,1..n] of integer;

 i,j: integer;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     if j = i

       then if i <= 3

         then a[i,j]:= 10-j

         else a[i,j]:= 10-j-1

       else a[i,j]:= 0;

     write(a[i,j],' ');

   end;

 end;

end.

№3                                        

program raf105;

const

 n = 9;

var

 a: array[1..n,1..n] of integer;

 i,j,c: integer;

begin

 c:= -4;

 for i:=1 to n do

 begin

   if (i<>1) and (i<>9)

     then c:= c+1;

     writeln;

   for j:=1 to n do

   begin

     if (j=1) or (j=9) or (i=1) or (i=9)

       then a[i,j]:= 1

       else if (j = 5 - abs(c)) or (j = 5 + abs(c))

         then a[i,j]:= 1

         else a[i,j]:= 0;

     write(a[i,j],' ');

   end;

 end;

end.

№4                                        

program raf105;

const

 n1 = 10;

 n2 = 9;

var

 a: array[1..n1,1..n2] of integer;

 i,j: integer;

begin

 for i:=1 to n1 do

 begin

   writeln;

   for j:=1 to n2 do

   begin

     if i mod 2 <> 0

       then a[i,j]:= 1

       else a[i,j]:= 0;

     write(a[i,j],' ');

   end;

 end;

end.

                                              PascalABC 3.4.2