Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
<span>1й элемент реализует функцию A=
,
2й - B=</span><span><span>
, 3й - F=
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=
2) Курсор стоит в самом начале текста
<span>Количество информационных событий (сообщений) вычисляется как 2 в степени количества информации (в битах), которое получено в случае, когда произошло одно из этих событий. Т.е. 2 в 6 степени=64 возможных варианта.</span>