用DELPHI编程求证两数互为质数

• 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    a,b,c,d,e:integer;
  begin
  if (edit1.Text='')or(edit2.Text='')then
    begin
       showmessage('请输入两个数！');
       exit;
    end;
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  //维持a大于b好进行下一步的算法
    if a<b then
       begin
        c:=b;
        b:=a ;
        a:=c;
       end;
  //下面是程序判断部分
    while d<>0 do
      begin
        c:=a div b;
        d:=a-b*c;     //取余数
        a:=b;
        b:=d;
       end;
  if a=1 then
  begin
  edit3.text:='这两个数互为质数！';
  edit3.Color:=$00F4EEA2 ; //颜色设置
  edit1.SetFocus;
  end
  else
  begin
  edit3.Text:= '这两个数不互为质数！';
  edit3.Color:= $008080FF; //颜色设置
  edit1.SetFocus;
  end;
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='请输入两个数。';
  edit3.Color:=$00B4E2D8;
  end;

  （出处：急速软件下载学院）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用DELPHI编程求证两数互为质数 相关文章：
• ·用DELPHI编程求证两数互为质数
• 用DELPHI编程求证两数互为质数 相关软件

上一篇:用Delphi编码实现程序自启动

下一篇:用DELPHI编程访问SQL SERVER数据库

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐