Question

Запиши программу на языке Паскаль для y= 0, если х<=0 x, если 0<x<=1          x^(2), если x>1Запустите паскаль и введите значение x= -12

Answer 1

Program Program1;
var x,y:real;
begin
write('Введите значение X:  ');
readln(x);
if x=0 then
begin 
y:=0;writeln('Y= ',y);
end;
if (x>0) and (x<=1) then begin 
y:=x;writeln('Y= ',y);
end;
if x>1 then begin 
y:=sqr(x);writeln('Y= ',y);
end;
end.

Answer 2

Вот пример программы на языке Паскаль, которая выполняет описанные условия и выводит значение переменной y для заданного значения x:

pascalCopy code
program CalculateY;

var
  x, y: real;

begin
  writeln('Введите значение 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);
end.

Чтобы запустить эту программу в среде Pascal, введите значение x в консоли после ее запуска. В данном случае, когда x = -12, значение y будет равно 0.