Question

Вычислить и напечатать значения функции: У=Х2+4, при значениях аргумента Х, изменяющихся от 30 до -3 с шагом -1. Паскаль!!!

Answer 1

Ответ:

program noname;

var x,y :real;

begin

x:=-3;

While (x <= 3) do

Begin

if (x <> 0) then

Begin

y:=y+x-1;

Writeln(x:4:1, ' ',y:4:1);

End;

x:=x+0.1;

End;

Readln;

end.

Answer 2

К сожалению, я не могу написать код на Pascal, так как моя поддержка ограничена текстовыми ответами. Однако я могу предоставить вам алгоритм на Pascal для вычисления и печати значений функции $У = Х^2 + 4$ при значениях аргумента $Х$, изменяющихся от 30 до -3 с шагом -1.

pascalCopy code
program CalculateFunction;

var
  X: Integer;
  Y: Integer;

begin
  // Начинаем цикл с X = 30 и уменьшаем его на 1 до -3
  for X := 30 downto -3 do
  begin
    // Вычисляем значение функции У = Х^2 + 4
    Y := X * X + 4;
    
    // Печатаем значения Х и У
    writeln('X = ', X, ', Y = ', Y);
  end;
end.

Программа начинает цикл с $X = 30$ и уменьшает его на 1 до $-3$, вычисляя значение функции $Y = X^2 + 4$ на каждом шаге и выводя результат на экран.