Begin25. Найти значение функции y = 3x6 − 6x2 − 7 при данном значении x.
Запишем нашу функцию так:
y = 3(xx2)2 - 6x2 - 7.
Тогда имеем первый вариант решения:
Код Pascal
1
2
3
4
5
6
7
8
9
10
var
x, y:real;
beginwrite('x = ');
readln(x);
y :=3*sqr(x *sqr(x))-6*sqr(x)-7;
writeln('y = ', y);
readlnend.
Далее запишем функцию в виде:
y = 3t(t2 - 2) - 7,
где t = x2. Имеем второй вариант решения:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
var
x, y:real;
beginwrite('x = ');
readln(x);
x :=sqr(x); { <-- Вычисляем квадрат числа }
y :=3* x *(sqr(x)-2)-7;
writeln('y = ', y);
readlnend.
Begin26. Найти значение функции y = 4(x−3)6 − 7(x−3)3 + 2 при данном значении x.
Запишем нашу функцию так:
y = 4t2 - 7t + 2,
где t = (x-3)3. Тогда имеем код (только вместо t используем x):
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
x, y:real;
beginwrite('x = ');
readln(x);
x := x -3; { <-- Уменьшаем x на 3 }
x := x *sqr(x); { <-- Вычисляем третью степень числа x }
y :=4*sqr(x)-7* x +2;
writeln('y = ', y);
readlnend.