Люди добрые, на ! вычислить в паскаль: 1. y = x - x³\3 + x⁵\52. y = 2⁻ˣ - cosx + sin (2xy)3. y = x²-7x+10\x²-8x+124. y = x - 10sinx + | x⁴ - x⁵ |нужно написать коды программ и результаты их работы

Program task31177829; var  y: real;   x: integer; begin  writeln('первое : ');   readln(x);   y : = x - (power(x, 3)/3) + (power(x, 5)/5);   writeln('y = ', y);   writeln('второе : ');   // если здесь всё-таки sin(2*x*y), то пишем sin(2*x*y)  // в таком случае оно возьмёт значение y из предыдущих расчётов  readln(x);   y : = power(2, -x) - cos(x) + sin(2*x);   writeln('y = ', y);   writeln('третье : ');   readln(x);   y : = (power(x, 2) - 7*x + 10)/(power(x, 2) - 8*x + 12);   writeln('y = ', y);   writeln('четвёртое : ');   readln(x);   y : = x - 10*sin(x) + abs(power(x, 4) - power(x, 5));   writeln('y = ', y); end.

во втором примере синус принимает переменную y как прошлое значение? если так, то на 14 строке измените на:

y : = power(2, -x) - cos(x) + sin(2*x*y);

таблица истинности выражения a → b

а |  b | a → b

0  i  0 |      1

0  i  1 |      1

1  i  0 |      0

1  i  1 |      1

теперь пример: ¬((x> 3)  → (x> 4))

при х = 1: ¬((1> 3)  → (1> 4))= ¬((0)  → (0))=¬(1) = 0,т.е.(1> 3)=ложь(> 4)=ложь(0), а ложь(0) → ложь(0) = истина (1), а отрицание лжи (0) = истина(1)

при х = 2: ¬((2> 3)  → (2> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 3: ¬((3> 3)  → (3> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 4: ¬((4> 3)  → (4> 4))= ¬((1)  → (0))=¬(0) = 1

ответ. х=4.

 

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.