Значение функции

Begin25. Найти значение функции y = 3x⁶ − 6x² − 7 при данном значении x.

y = 3(xx²)² - 6x² - 7.

Тогда имеем первый вариант решения:

var
  x, y: real;

begin
  write('x = ');
  readln(x);
  y := 3 * sqr(x * sqr(x)) - 6 * sqr(x) - 7;
  writeln('y = ', y);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ **function** Sqr(x: real): real;: Возвращает квадрат числа x. **function** Sqr(x: real): real;: Возвращает квадрат числа x. **function** Sqr(x: real): real;: Возвращает квадрат числа x. y = 3t(t² - 2) - 7,

где t = x². Имеем второй вариант решения:

var
  x, y: real;

begin
  write('x = ');
  readln(x);
  x := sqr(x); { <-- Вычисляем квадрат числа }
  y := 3 * x * (sqr(x) - 2) - 7;
  writeln('y = ', y);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ **function** Sqr(x: real): real;: Возвращает квадрат числа x. **function** Sqr(x: real): real;: Возвращает квадрат числа x. Begin26. Найти значение функции y = 4(x−3)⁶ − 7(x−3)³ + 2 при данном значении x.

y = 4t² - 7t + 2,

где t = (x-3)³. Тогда имеем код (только вместо t используем x):

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.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ **function** Sqr(x: real): real;: Возвращает квадрат числа x. **function** Sqr(x: real): real;: Возвращает квадрат числа x.