Question

Составить программу для вычисления функции. y={x^2,если х>0 -х^2, иначе. Помгите, пожалуйста, очень срочно Смотреть ответ Извеняюсь, на Паскале -х^2(как в квадратье) BobbyFresnel BobbyFresnel ===== PascalABC.NET ===== begin  var x := ReadReal('x =');  Print('y =', x * x * Sign(x)) end.

Answer 1

Конечно, вот ваша программа на PascalABC.NET для вычисления функции:

pascalCopy code
begin
  var x := ReadReal('x =');
  Print('y =', x * x * Sign(x));
end.

Эта программа считывает значение переменной x, а затем вычисляет функцию y в соответствии с условием задачи: если x больше нуля, то y равен x^2, иначе y равен -x^2. Sign(x) возвращает знак числа x (-1, если x отрицательное; 0, если x равен нулю; 1, если x положительное).