Question

Люди добрые, на помощь!

______________________


Вычислить в Паскаль:


1. y = x - x³\3 + x⁵\5

2. y = 2⁻ˣ - cosx + sin (2xy)

3. y = x²-7x+10\x²-8x+12

4. y = x - 10sinx + | x⁴ - x⁵ |


Нужно написать коды программ и результаты их работы

Answer 1

1. program task31177829;
2. var
3.  y: real;
4.  x: integer;
5. begin
6.  Writeln('ПЕРВОЕ ЗАДАНИЕ: ');
7.  Readln(x);
8.  y := x - (Power(x, 3)/3) + (Power(x, 5)/5);
9.  Writeln('Y = ', y);
10.  Writeln('ВТОРОЕ ЗАДАНИЕ: ');
11.  // если здесь всё-таки sin(2*x*y), то пишем Sin(2*x*y)
12.  // в таком случае оно возьмёт значение y из предыдущих расчётов
13.  Readln(x);
14.  y := Power(2, -x) - Cos(x) + Sin(2*x);
15.  Writeln('Y = ', y);
16.  Writeln('ТРЕТЬЕ ЗАДАНИЕ: ');
17.  Readln(x);
18.  y := (Power(x, 2) - 7*x + 10)/(Power(x, 2) - 8*x + 12);
19.  Writeln('Y = ', y);
20.  Writeln('ЧЕТВЁРТОЕ ЗАДАНИЕ: ');
21.  Readln(x);
22.  y := x - 10*Sin(x) + Abs(Power(x, 4) - Power(x, 5));
23.  Writeln('Y = ', y);
24. end.

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

1. y := Power(2, -x) - Cos(x) + Sin(2*x*y);