Значение функции
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;
begin
write('x = ');
readln(x);
y := 3 * sqr(x * sqr(x)) - 6 * sqr(x) - 7;
writeln('y = ', y);
readln
end. |
|
Далее запишем функцию в виде:
y = 3t(t2 - 2) - 7,
где t = x2. Имеем второй вариант решения:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11 | var
x, y: real;
begin
write('x = ');
readln(x);
x := sqr(x); { <-- Вычисляем квадрат числа }
y := 3 * x * (sqr(x) - 2) - 7;
writeln('y = ', y);
readln
end. |
|
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;
begin
write('x = ');
readln(x);
x := x - 3; { <-- Уменьшаем x на 3 }
x := x * sqr(x); { <-- Вычисляем третью степень числа x }
y := 4 * sqr(x) - 7 * x + 2;
writeln('y = ', y);
readln
end. |
|