Question

Вычислите значение функции :y={3x,x<0; {-x,x≥0.​ Смотреть ответ на каком языке программирования? паскаль DedStar DedStar Ответ: Объяснение: Var x,y: real; Begin Write (' x = ');     ReadLn (x); If (x<0) then Writeln ('y=';  3*x)             else Writeln ('y=';  (-1)*x); End.

Answer 1

На языке программирования Паскаль код будет выглядеть следующим образом:

pascalCopy code
program ComputeFunction;

var
  x, y: real;

begin
  Write('x = ');
  ReadLn(x);

  if x < 0 then
    y := 3 * x
  else
    y := -x;

  Writeln('y = ', y);
end.

В этом коде мы сначала запрашиваем у пользователя значение x, а затем используем условную конструкцию if для проверки значения x. Если x меньше нуля, то присваиваем y значение 3 * x, иначе присваиваем y значение -x. Затем выводим значение y на экран с помощью Writeln.