發表新討論
#9538: pascal答案


lsyyw2002 (袁祎炜)

d058. BASIC 的 SGN 函數 -- 板橋高中 教學題 | From: [114.91.150.191] | 發表日期: 2014-12-17 20:19
var
 a:real;
begin
  while not eof do begin
    readln(a);
    if a>0 then writeln(1)
               else if a=0 then writeln(0)
                                 else writeln(-1);
  end;
end.

ZeroJudge Forum