發表新討論
#9538: pascal答案


lsyyw2002 (袁祎炜)

學校 : 上海市娄山中学
編號 : 40598
來源 : [222.66.36.249]
最後登入時間 ：
2015-10-28 15:45:20
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