. Дано действительное число x. Вычислить а) 2x4- 3x3 + 4x2 -5x + 6, используя НЕ БОЛЕЕ 4-х умножений, 4-х сложений и вычитаний; б) 3x2y2 - 2xy2 - 7x2y - 4y2 + 15xy + 2x2 - 3x + 10y + 6, используя НЕ БОЛЕЕ 8-и умножений, 8-и сложений и вычитаний; в) 1 - 2x + 3x2 - 4x3 и 1 + 2x + 3x2 + 4x3, используя НЕ БОЛЕЕ 8-и умножений, сложений и вычитаний. решить в паскале

Предыдущий
вопрос Следующий
вопрос

а) Программа на Pascal для вычисления выражения 2x^4 - 3x^3 + 4x^2 - 5x + 6:

program ExpressionA;
var
x, result: real;
begin
// Ввод значения x
writeln('Введите значение x:');
readln(x);
// Вычисление значения выражения
result := x * x;
result := result * result * 2 - result * 3 + x * x * 4 - x * 5 + 6;
// Вывод результата
writeln('Результат: ', result:0:2);
end.

б) Программа на Pascal для вычисления выражения 3x^2y^2 - 2xy^2 - 7x^2y - 4y^2 + 15xy + 2x^2 - 3x + 10y + 6:

program ExpressionB;
var
x, y, result: real;
begin
// Ввод значений x и y
writeln('Введите значение x:');
readln(x);
writeln('Введите значение y:');
readln(y);
// Вычисление значения выражения
result := x * x * y * y * 3 - x * y * y * 2 - x * x * y * 7 - y * y * 4 + x * y * 15 + x * x * 2 - x * 3 + y * 10 + 6;
// Вывод результата
writeln('Результат: ', result:0:2);
end.

в) Программа на Pascal для вычисления выражения (1 - 2x + 3x^2 - 4x^3) * (1 + 2x + 3x^2 + 4x^3):

program ExpressionC;
var
x, result: real;
begin
// Ввод значения x
writeln('Введите значение x:');
readln(x);
// Вычисление значения выражения
result := 1 - 2 * x + 3 * x*x - 4 * x*x*x;
result := result * (1 + 2 * x + 3 * x*x + 4 * x*x*x);
// Вывод результата
writeln('Результат: ', result:0:2);
end.