Задача

[Sfiorentin]

Составить программу для вычисления значения функции

y= |1,если a>0;
|0,если a=0;
|-1,если a<0

[Stilet]

const a=2; var y:integer;
begin
 if a>0 then y:=1 else if a=0 then y=0 else y:=-1;write(y);
 readln;
end.

[Sciv]

Еще проще:

y:=a;
if a<>0 then y:=abs(a)/a;

[Serge_Bliznykov]

Sciv, я бы, кстати, не рекомендовал такой подход.
Во-первых, если y целочисленное, то потребуется приведение типов.
Во-вторых, никто не гарантирует, что результат деления даст РОВНО единицу!
В-третьих, операция деления гораздо затратнее, чем операция условного перехода и присвоения.
Да и ради чего?! Вы выигрываете всего в паре IF и операторов присвоения...

Поэтому, я бы лично выбрал код Stilet
ну, возможно, забрал бы вашу идею с присвоением нуля:

  y:=a;
  if a>0 then y:=1 else
   if a<0 then y:=1;

а ещё и так можно:

function y(A : integer) : integer;
const
   RConstVal : array[false..true] of integer = (-1, 1);
begin
  if a=0 
    then y := a
    else y := RConstVal[ a>0 ];
end;

[Sciv]

Сергей, согласен со всем сказанным. Просто привел вариант решения, причем с ошибкой (y надо было объявлять целочисленным, а деление округлять, чтоб получить единицу). При решении ориентировался на более короткий, а не на менее затратный код, есть у меня такая дурацкая привычка Пытаюсь избавиться.

[s-andriano]

Сообщение от Serge_Bliznykov

В-третьих, операция деления гораздо затратнее, чем операция условного перехода и присвоения.

Вообще-то это утверждение неверное.
Верное - как раз обратное: деление намного быстрее условного перехода.
(причем послезавтра будет ровно 20 лет, как это справедливо для процессоров семейства х86)
Но по поводу написания кода - полностью с Вами согласен, не следует применять "хитрую математику" там, где достаточно одной логики. А уж тем более для сокращения объема текста программы.
Вообще: борьба за сокращение объема текста - очень опасная болезнь.