發表新討論
#8697: (pascal)求高手指點><


umi_suen (Suen_ml)

學校 : 澳門濠江中學
編號 : 39004
來源 : [202.86.136.162]
最後登入時間 ：
2015-03-12 16:57:28
d050. 妳那裡現在幾點了？ -- 板橋高中教學題 | From: [60.246.11.132] | 發表日期 : 2014-03-08 17:43

以下是我寫的程式:

var a,b,c,d,e:integer;
begin
read(a);
b:=a-15;
c:=24-15;
d:=(a-15-8)*(-1);
e:=a-15+24;
begin
if (a>15) and (a=15) then writeln (b);
if a=0 then writeln (c);
if (a>0) and (a<12) then writeln (d) else writeln (e);
end;
readln;
end.

 我做了很多遍但都是NA,請問我寫的程式哪裡錯了??? 

 
#8924: Re:(pascal)求高手指點><


lsweizixuan (摸鱼学语言)

學校 : 上海市娄山中学
編號 : 41716
來源 : [185.172.112.107]
最後登入時間 ：
2023-10-27 19:00:46
d050. 妳那裡現在幾點了？ -- 板橋高中教學題 | From: [101.231.75.151] | 發表日期 : 2014-07-01 10:59
 

var a,b,c,d,e,f:integer; //byte就夠了

begin
readln(a);
b:=a-15;
c:=24-15;
d:=(a-15-8)*(-1);
e:=a-15+24;

if (a>15) and (a=15) then f:=b;  //不可能達成

if a=0 then f:=c;

if (a>0) and (a<12) then f:=d else f:=e;

if  f >=60 then writeln(f-60) else writeln(f); 

readln;
end. 



 
#8925: Re:(pascal)求高手指點><


lsweizixuan (摸鱼学语言)

學校 : 上海市娄山中学
編號 : 41716
來源 : [185.172.112.107]
最後登入時間 ：
2023-10-27 19:00:46
d050. 妳那裡現在幾點了？ -- 板橋高中教學題 | From: [101.231.75.151] | 發表日期 : 2014-07-01 11:07
var
  a,b,c:byte;
begin
  while not eof do begin
   readln(a);
   b:=a-15;
   c:=a-15+24;
   if a>=15 then writeln(b)
            else writeln(c);
  end;
end.
 
其实可以这么简单... 
 
ZeroJudge Forum