Question

Составить программы на Pascal'e: дано число х, найти y = 3|x^3|-6x^2+7 и y = 4(x-3)^2 - 14,65(x-3) + 2,5x. Пожалуйста, срочно❤️

Answer 1

1)
var
x,y : integer;
begin
readln(x);
y := 3*abs(x*x*x)-6*x*x+7;
writeln(y);
end.

2)
uses math;

var
x,y : real;
begin
readln(x);
y := 4*Power((x-3),2)-14.65*(x-3)+2.5*x;
writeln(y);
end.

Answer 2

Конечно, вот программы на Pascal, решающие данные уравнения:

1. Программа для нахождения y = 3|x^3| - 6x^2 + 7:

pascalCopy code
program Equation1;
var
  x, y: real;
begin
  writeln('Введите значение x: ');
  readln(x);

  if x >= 0 then
    y := 3 * x * x * x - 6 * x * x + 7
  else
    y := -3 * x * x * x - 6 * x * x + 7;

  writeln('Значение y = ', y);
end.

2. Программа для нахождения y = 4(x-3)^2 - 14,65(x-3) + 2,5x:

pascalCopy code
program Equation2;
var
  x, y: real;
begin
  writeln('Введите значение x: ');
  readln(x);

  y := 4 * sqr(x - 3) - 14.65 * (x - 3) + 2.5 * x;

  writeln('Значение y = ', y);
end.

Скопируйте каждую программу в среду программирования Pascal (например, Free Pascal) и выполните их. Введите значение x, и программа рассчитает значение y в соответствии с заданным уравнением.