Практически все видно во вложении, тут только одно упрощение нужно делать:
(x₁∨x₂)∧x₂ = (x₁+x₂)x₂ = x₁x₂+x₂ = x₂(x₁+1) = x₂
Схема - просто проводник с сигналом х₂
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№1</u>
begin
var a:=ArrRandom(8,-20,20); a.Println;
a.Transform(t->t mod 5=0?100:t>0?-100:t); a.Println
end.
<u>Пример</u>
-7 -15 8 -19 -16 -10 -16 14
-7 100 -100 -19 -16 100 -16 -100
<u>//№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a.Transform(t->t.IsEven?2:1); a.Println
end.
<u>Пример</u>
n= 17
40 89 88 55 73 76 82 86 10 76 3 90 83 94 90 83 75
2 1 2 1 1 2 2 2 2 2 1 2 1 2 2 1 1
Измерение информации: Количество символов * вес одного символа. В данном предложении 82 символа. Удаляем все встретившиеся дважды символы и получаем (фигура, боквыен-тйльсмпд) (24 символа, значит ближайшая мощность алфавита 2 в 5 степени, т.е. 32) 5 бит вес одного символа. Вес предложения равен = 82 * 5 = 410 бит
Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.