● 最大公约数 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Chengal (穷困潦倒), 信区: Visual
标  题: 最大公约数
发信站: 荔园晨风BBS站 (Sat Jul 12 13:36:20 2003), 站内信件

var
a,b,temp:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text );
if a< b then
    begin
    temp:=a;
    a:=b;
    b:=temp;
    end;
    temp:=a mod b;
while temp<>0 do
  begin
  a:=b;
  b:=temp;
  temp:=a mod b;
  end;
ShowMessage(IntToStr(b));

end;

end.

--

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.36.4]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店