Решите уравнение sin(x) = 1/x на отрезке [2; 3] с точностью 0, 01.

Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:

program dichotom;
 uses Crt;
 var a, b, eps, xn, y, psy: real;
     n: integer;
function f(x:real):real;
 begin
   f:=sin(x)-1/x;
  end;
begin
 ClrScr;
 a:=2;
 b:=3;
 eps:=0.01;
 n:=0;
 y:=f(a);
 while y>=eps do
 begin
  n:=n+1;
  xn:=(a+b)/2;
  y:=f(xn);
  if y>=eps then
    if f(a)*y<0 then b:=xn else a:=xn;
 end;
 psy:=xn;
 WriteLn(' X = ',psy:5:2);
 ReadLn;
end.

16

Объяснение:

1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2⁴ < 26 < 2⁵). 22 символа займут 22×5 = 110 бит = 110 / 8 = 13.75 байта, округляем до целого вверх, получаем 14 байт.

2. Номер года обозначается одним из 100 чисел. 2⁶ < 100 > 2⁷, поэтому для кодирования требуется 7 бит.

3. Номер для обозначается одним из 366 чисел. 2⁸ < 366 > 2⁹, поэтому для кодирования требуется 9 бит.

4. Всего для кодирования срока действия потребуется 7+9 = 16 бит = 16/2 = 2 байта

5. Вся информация на пропуске займет 14+2 = 16 байт

16

Объяснение:

1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2⁴ < 26 < 2⁵). 22 символа займут 22×5 = 110 бит = 110 / 8 = 13.75 байта, округляем до целого вверх, получаем 14 байт.

2. Номер года обозначается одним из 100 чисел. 2⁶ < 100 > 2⁷, поэтому для кодирования требуется 7 бит.

3. Номер для обозначается одним из 366 чисел. 2⁸ < 366 > 2⁹, поэтому для кодирования требуется 9 бит.

4. Всего для кодирования срока действия потребуется 7+9 = 16 бит = 16/2 = 2 байта

5. Вся информация на пропуске займет 14+2 = 16 байт