program Project1;

{$APPTYPE CONSOLE}


uses
SysUtils,
math;

{ОБЪЯВЛЕНИЕ ФУНКЦИИ} // для использования кириллицы
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;

{РАЗДЕЛ МЕТОК}
label 1;

{ОПИСАНИЕ ПЕРЕМЕННЫХ}
var

y1,y2,y3,y4,x:real;
v,n:integer;
begin
Writeln('Введите Х');
Readln(x);
writeln;



{If КОРОТКИЙ }
if (x<-1) then begin y1:=0; v:=1; goto 1; end;
if (x>=-1)and(x<0) then begin y1:=1; v:=2; goto 1; end;
if (x>=0)and(x<2) then begin y1:=-1;v:=3; goto 1; end;
if x>=2 then begin y1:=1; v:=4; end;


1: begin writeln('if короткий');
writeln('y1=',y1:5:2,' ','v=',v);
writeln; end;


{If ПОЛНЫЙ }
if x>=2 then begin y2:=1;v:=4; end
else begin if x<-1 then begin y2:=0; v:=1 end
else if x<0 then begin y2:=1; v:=2; end
else begin y2:=-1;v:=3;end;end;
writeln('if полный');
writeln('y2=',y2:5:2,' ','v=',v);
writeln;


{CASE}
if x<-1 then n:=1 else
if (x>=-1)and(x<0) then n:=2 else
if (x>=0)and(x<2) then n:=3 else n:=4;
case n of
1: y3:=0;
2: y3:=1;
3: y3:=-1;
4: y3:=1;
end;

writeln('с помощью case');
writeln('y3=',y3:5:2,' ','v=',v);
readln;
end.






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