<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,xn,xk,dx):=(2.89,14.34,-50.0,50.0,2.5);
var n:=Trunc((xk-xn)/dx);
var (Max,k,s):=(0.0,0,0.0);
var f:real->real:=x->(a*a+b*Sign(x)*Power(Abs(x),1.0/3))/(3.56+Sin(a+b)+Exp(x));
for var i:=0 to n do begin
var x:=xn+dx*i;
var y:=f(x);
if (i+1) mod 3=0 then Writeln(x:5:1,' ',y);
if y>0 then begin
if y>Max then Max:=y;
s+=y; k+=1
end
end;
Writeln('Max(x,y)=',Max:5:1,' ',f(Max));
Writeln('Среднее значение y равно ',s/k:0:9)
end.
<u>Пример</u>
-45.0 -16.6538893021468
-37.5 -15.4796268651575
-30.0 -14.1362550800162
-22.5 -12.5454529373774
-15.0 -10.5472040721327
-7.5 -7.69691252360641
0.0 2.34531251806799
7.5 0.0201157784771028
15.0 1.33732990416318E-05
22.5 8.26246301436193E-09
30.0 4.95110092030162E-12
37.5 2.91644814868151E-15
45.0 1.69913234739356E-18
Max(x,y)= 2.3 2.10840685577529
Среднее значение y равно 0.212935940
1. ¬(A*B+¬C)
По закону де Моргана раскрываем скобки:
(¬А + ¬B) * C
В принципе уже упрощена, но по закону дистрибутивности еще можно записать как
¬А * С + ¬B * C
2. (x+z)*(x+¬z)*¬y
По закону склеивания выражение (x+z)*(x+¬z) = x
То есть все выражение будет иметь вид x*¬y
1: а) d+5;
б) b-2;
в) d:=b;
2: а) Раз d=b, то:
|a+b|-1=|3+9|-1=|12|-1=12-1=11
б) trunc - возвращает целую часть числа, frac - дробную:
a*b/c=3*9/-10= -27/10= -2.7
trunc( - 2.7)= -2
9*2/(-10)fra=18/ -10= -1.8
frac(-1.8)= -0.8
-2+(-0.8)= -2-0.8= -2,8
Var a:string;
begin
readln(a);
writeln(length(a));
end.
А какие элементы то? Последовательность разной может быть. Например 1, 2, 3, 4, 5, 6 - тут сумма элементов с четными индексами четная. 6, 5, 4, 3, 2, 1 - тут нечетная