Welcome to the free space

網誌清單

編輯 關閉
網誌分類:program share |
網誌日期:2009-04-20 22:29
我用ex5.12做例子分別做了兩個的寫法 大家可以比較看看

procedure mo(x:longint; var y:boolean);

begin
if (x mod 7=0) and (x mod 17=0)
then y:=true else y:=false;
end;

var a:integer;
begin
  memo1.lines.clear;
  for a:=1000 to 4000 do
  if mo(a)=true then memo1.lines.add(inttostr(a));
end;


function mo(x:longint):boolean;

begin
if (x mod 7=0) and (x mod 17=0)
then mo:=true else mo:=false;
end;

var a:integer;
begin
  memo1.lines.clear;
  for a:=1000 to 4000 do
  if mo(a)=true then memo1.lines.add(inttostr(a));
end;
引用(0)
  • 網誌分類:program share |
    網誌日期:2009-04-19 13:12
    ex5.12 5.18 5.19隆重推出大家請熱烈支持 若銷量不如理想 下期將延遲推出==================================================================ex5.12function mo(x:longint):boolean;begini...
    回應(11) | 引用(0)
  • 網誌分類:program share |
    網誌日期:2009-04-06 18:37
    各位的回應是我寫下一次program的動力!不夠五個回應我不打下一條哦==================================================================階乘vara,b:integer;c:int64;begina:=strtoint(edit1...
    回應(5) | 引用(0)
  • 網誌分類:share |
    網誌日期:2009-04-03 19:40
    我們常聽人家說:年齡不是問題。但這指的是實際的年齡。我們經常忽略的,其實是愛情本身的年紀。20歲的人,愛情年紀可能只有15歲,也可能已經35歲了。知道彼此的愛情年齡,會讓我們更懂得如...
    回應(3) | 引用(0)
  • 網誌分類:My Debate |
    網誌日期:2009-03-30 00:10
    明天....ar.....今天我們要升上A隊囉回想起之前被編到B隊老實說有些失望可是現在想來 我很幸運要是沒遇到青蛙王子 君子 和料王我一定退隊了:被排斥到離開我知道了自己的橫蠻拔扈傷害到了yoan...
    回應(2) | 引用(0)

我的心情

關閉

我的心情

由 2009-03-30 至 2009-11-30

最新網誌

編輯 關閉

網誌分類

編輯 關閉

網誌分類

統計資料

編輯 關閉

統計資料

  • 昨日人次:3
  • 累積人次:2028
  • 今日瀏覽:0
  • 累積瀏覽:5354
  • 網誌:42
  • 圖片:26
  • 回應:206
 

R H
G S
B V

#