unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k : Integer;
begin
i := StrToInt(Edit1.Text);
j := StrToInt(Edit2.Text);
repeat
k := i mod j;
i := j;
j := k;
until j = 0;
Label1.Caption := IntToStr(i);
end;
end.
分享到:
相关推荐
分解质因数,连续整除,欧几里得三种算法求最大公约数
有关c++求最大公约数的代码,用的是辗转相除法,很简单的算法过程,主要是求最大公约数
python求最大公约数和最小公倍数 #辗转相除法 def gcd(a,b): #最大公约数函数,且最小公倍数 = 两个数相乘 / 最大公约数 if b == 0: return a else: return gcd(b,a%b) print("请输入两个数:") j,k = input()....
基于FPGA开发板的两位数求最大公约数和最小公倍数的设计,该设计中利用辗转相减法求得公约数与公倍数,且两个数的数值可通过按键修改,设计灵活可靠。该设计基于vivado开发,并带有testbench文件,方便仿真学习。
关于如何求最大公约数和最小公倍数的c语言程序
C语言求最大公约数
用最简单的C++语言实现求最大公约数,而且带有界面,容易理解。
用LabVIEW求最大公约数和最小公倍数。可以自行选择数据。
对输入1-100内的两个整数,求其最大公约数,输入一个0-500的整数,判断其能否被3,5,7整除,并输入下列信息之一: (1) 能够同时被3,5,7整除 (2) 能够同时被其中两个数整除(给出这两个数) 进行白盒测试
用Verilog编写的求两个数的最大公约数,此为完整的工程文件,是可综合的,注意while语句在Verilog中是不可综合的!
C语言编写利用程序递归求最大公约数,递归调用被继承的基类成员函数
这个是用递归法来写最大公约数,当然原算法还是欧几里得算法;只不过代码比较简洁
用辗转相除法,计算最大公约数的C语言代码。
分解质因数法求最大公约数 输入两个正整数 以空格隔开 即可求得
m = 9147485 n = 5147480 辗转相除法求最大公约数 最大公约数=?
用VC写的求最大公约数程序. 输入两个数,求其最大公约数。
包含了:1.辗转相除法函数嵌套流程图2.辗转相除法函数递归流程图3.穷举法求最小公倍数流程图4.穷举法求最大公约数流程图5.更相减损术流程图
欧几里得算法连续整数检测法分解质因数法求最大公约数
C语言中求最大公约数和最小公倍数的各种算法的总结,辗转相除法,穷举法等等