Запиши программу на языке Паскаль для y= 0, если х<=0 x, если 0<x<=1 x^(2), если x>1 Запустите паскаль и введите значение x= -12
Answers & Comments
YTDanka
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.
Answers & Comments
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.