最小公倍数最大公约数

窗体设计如图：

Label 4个 Edti 4个 button 1个、

代码：

 1 unit Unit2;
 2
 3 interface
 4
 5 uses
 6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 7   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 8
 9 type
10   TForm2 = class(TForm)
11     Label1: TLabel;
12     Label2: TLabel;
13     Edit1: TEdit;
14     Edit2: TEdit;
15     Edit3: TEdit;
16     Label3: TLabel;
17     Button1: TButton;
18     Label4: TLabel;
19     Edit4: TEdit;
20     procedure Button1Click(Sender: TObject);
21   private
22     { Private declarations }
23   public
24     { Public declarations }
25   end;
26
27 var
28   Form2: TForm2;
29
30 implementation
31
32 {$R *.dfm}
33
34 procedure TForm2.Button1Click(Sender: TObject);
35 var
36 int1,int2,mod1,temp:Integer;
37 begin
38   int1 := StrToInt(Edit1.Text); //把第一个整数赋值给int1.
39   int2 := StrToInt(Edit2.Text); //把第二个整数赋值给int2.
40
41   if int1<int2 then      //如果第一个数比第二个数小则调换
42     begin
43       temp := int1;
44       int1 := int2;
45       int2 := temp;
46     end;
47   mod1 := int2;
48   while mod1>0  do //最大公约数的计算假如 x > y, x mod y 取余数后,y 付给 x、余数付给 y,然后重复运算, 最后非 0 的余数就是最大公约数
49   begin
50     mod1 := int1 mod int2;
51     int1 := int2;
52     if mod1>0 then
53     int2 := mod1;
54   end;
55   Edit3.Text := IntToStr(int2);      //结果输出
56   Edit4.Text := IntToStr((StrToInt(Edit1.Text)*StrToInt(Edit2.Text)) div int2); //用两个数的乘积除以最大公约数
57 end;
58
59 end.

转载于:https://www.cnblogs.com/zty123/p/5933505.html

最小公倍数最大公约数相关推荐

最小公倍数最大公约数
最小公倍数最大公约数 #include <iostream> #include <cstdio>using namespace std;int gcd(int a,int b) ...
LeetCode 858. 镜面反射（最小公倍数/最大公约数）
文章目录 1. 题目 2. 解题 1. 题目有一个特殊的正方形房间,每面墙上都有一面镜子. 除西南角以外,每个角落都放有一个接受器,编号为 0, 1,以及 2. 正方形房间的墙壁长度为 p,一束激光 ...
最小公倍数 [最小公约数的拓展]
题目描述: 求两个数的最小公倍数样例输入: 10 14 样例输出: 70 解题思路: 两个数的最小公倍数等于这两个数的乘积除以他们的最大公约数. #include<bits/stdc++.h& ...
数学--数论--最小公倍数+最大公约数
数学中约定: GCD(a,b)为a ,b的最大公因数 LCM(a,b)为小公倍数必须要知道的公式: a*b = gcd(a,b) * lcm (a,b) 先说GCD怎么求: int gcd(int ...
c语言最大公约数和最小公倍数_五年级数学最大公因数最小公倍数练习
五年级数学最大公因数最小公倍数-练习一.填空. 1.把36分解质因数是( ),把60分解质因数是( ). 2.自然数a除以自然数b,商是15,那么a和b的最大公因 ...
最大公约数,最小公倍数,质因式分解
目录简单代码算出最大公约数,最小公倍数: 辗转相除法得到最大公约数: 两数相乘倒序最小公倍数: 分解质因式, 打印输出, 并且存到列表主程序: 由质因式得到最小公倍数: 简单代码算出最大公约数,最 ...
用python实现求最大公约数_python实现求最大公约数与最小公倍数
记录python实现最大公约数&最小公位数两种算法概念最大公约数:指两个或多个整数共有约数中最大的一个最小公倍数:两个或多个整数公有的倍数叫做它们的公倍数,其中除0以外最小的一个公倍数就 ...
【C/C++】最大公约数和最小公倍数（辗转相除、更相减损、stein）
一.最大公约数和最小公倍数数学性质: 如果b是A和B的公约数,那么:b也是A+B的约数,即b是A,B,A+B的公约数.b也是A-B的约数,即b是A,B,A-B的公约数.更一般地,对于任意整数x.y, ...
c语言编程最大公约数穷举发,C语言基本算法：1.求最大公约数与最小公倍数
C语言基本算法 :1.求最大公约数与最小公倍数一.最大公约数: 最大公约数目前有三种求法:更相减损术.辗转相除法以及穷举法. 1.更相减损术: 算法介绍:设两个整数数a和b,以较大数减较小数,得出的 ...

最小公倍数最大公约数

最小公倍数最大公约数相关推荐

最新文章

热门文章

最小公倍数 最大公约数

最小公倍数 最大公约数相关推荐

最新文章

热门文章

最小公倍数最大公约数

最小公倍数最大公约数相关推荐