Question

составьте программу на языке паскаль для вычесления Y по формуле : Y=1-2X=3X^2-4X^3 , где X - натуральное число

Answer 1

var x,y:integer;
begin
write('x = ');
readln(x);
y:=1-2*x+3*x*x-4*x*x*x;
writeln('y = ',y);
end.

Пример:
x = 3
y = -86

Answer 2

В Паскале нельзя использовать знак равенства дважды в выражении, поэтому я предположу, что формула выглядит следующим образом:

Y = 1 - 2X + 3XX - 4XXX;

Программа для вычисления Y по данной формуле может быть написана следующим образом:

scssCopy code
program CalculateY;
var
  X: integer;
  Y: integer;
begin
  writeln('Enter a natural number X:');
  readln(X);
  Y := 1 - 2*X + 3*X*X - 4*X*X*X;
  writeln('Y = ', Y);
end.

Программа запрашивает у пользователя натуральное число X, затем вычисляет значение Y по формуле и выводит его на экран. Обратите внимание, что в этой программе мы используем целочисленный тип данных (integer), поскольку в задании сказано, что X - натуральное число. Если X может быть дробным, то нужно использовать вещественный тип данных (real) и изменить формулу соответственно.