Question

Запиши программу на языке Паскаль для: y=0,еслиx≤0 x,если 0<x≤1x(квадрат),если x>1Запусти программу и введи значение x=-17. (y:3:0) Число выведенное на экран:

Answer 1

begin //PascalABC.NET

 var x, y: real;

 Read(x);

 if x <= 0 then Print(0)

 else Print(x > 1 ? x * x : x)

end.

Answer 2

Вот программа на языке Паскаль, реализующая описанную функцию:

pascalCopy code
program FunctionCalculation;

var
  x, y: real;

begin
  write('Введите значение x: ');
  readln(x);

  if x <= 0 then
    y := 0
  else if (x > 0) and (x <= 1) then
    y := x
  else
    y := x * x;

  writeln('y = ', y:3:0);
end.

После запуска программы и ввода значения x = -17, на экран будет выведено число 0, так как оно удовлетворяет условию x ≤ 0.