Прошу помочь с оформлением программы на Делфи.

[stasig]

алгоритм написал, а на делфи не получается.

Scanitto_1.jpg

[maladoy]

function Singn(a:real):integer;
begin
 if a<0 then result:=1
  else if a>0 then result:=-1
   else result:=0
end;

[stasig]

а как это связать в программе. новечек в делфи просто

[XuTpbIu]

а что именно не получается? у тебя же алгоритм правильно написан. Разве что ты считываешь х, но не считываешь у.

[stasig]

А как должно быть? Напишите пожалуста.