Открой и все.Найди свой учебник и перепиши
Var
x0, xk, dx, e, x, a, s: real;
i: integer;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
x := x0;
writeln(' i ':3, ' | ', ' x ':10, ' | ', ' s ':10, ' | ', ' y(x) ':10);
repeat
a := 1;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * 2 * x / (2 * i) / (2 * i - 1);
s := s + a;
until abs(a) < e;
writeln(i:3, ' | ', x:10:3, ' | ', s:10:3, ' | ', (cos(sqrt(2 * x))):10:3);
x := x + dx;
until x >= xk;
end.
Выражение можно упростить:
( (X∨Y ) ⇒ Y ) & (1 ∨ Y) ⇒¬Y
=
(<span>¬X∨Y )</span><span> & </span><span>(1 ∨ Y) ⇒¬Y
=</span>
(¬X∨Y ) <span>⇒¬Y =
X </span><span>& </span><span>¬Y </span><span>v ¬Y =
</span><span>¬Y
Значит для любого X если Y = 0, то значение выражения = 1 и наоборот, если Y = 1, </span><span><span>то значение выражения = 0</span></span>
Запишем условие задачи:
Поскольку в сообщениях одинаковое количество символов, то К1=К2. Соотношение количества информации можно записать как I1=1.5*I2. Общее кол-во символов в алфавите обозначается буквой N, по условию N1<=10, N2<=10.
Решение: I1=K1*i1; I2=K2*i2; Подставим в условие I1=1.5*I2 значения I1 и I2. Получаем K1*i1=1.5*K2*i2
Сократим в обеих частях уравнения К1 и К2, у нас останется
i1=1.5*i2
По условию мощности обоих алфавитов не превышают число 10, запишем это так
10>=2 в степени i1
10>=2 в степени i2
Предположим, что i2=1 бит, тогда i1=1.5 бита (а это противоречит условию)
Предположим, что i2=2 бита, тогда i1=3 бита -это и есть ответ задачи