program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
{ОБЪЯВЛЕНИЕ ФУНКЦИИ}// для использования кириллицы
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;

var //Раздел объявления переменных
x:real;//переменная действительного типа
y1,y2:real;//переменная действительного типа
label 5,6 ;


begin
//пояснение о назначении программы
Writeln(rus('Программа вычасляющая Y при известном X'));
write(Rus('Введите X,x=')) ;
readln(x);
//короткий
if (-1>x) then
begin y1:=0; goto 5 end;
if (-1<=x) and (x<0) then
begin y1:=1; goto 5 end;
if (0<=x) and (x<2) then
begin y1:=-1; goto 5 end;
if (2<=x) then
begin y1:=1; goto 5 end ; end;
5:
write(rus('Согласно условию'));
writeln('y1=',y1:10:5);
// end;



//полный
if (-1>x) then
y2:=0;
if (-1<=x) and (x<0) then
y2:=1;
if (0<=x) and (x<2) then
y2:=-1;
if (2<=x) then
y2:=1; goto 6;
6:write(rus('По условию'));
writeln('y2=',y2:10:5)
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.