unit1.~pas

第五章练习题

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    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}
function  hcf1(m,n:integer):integer;
var r,c:integer;
begin
  if m<n then
     begin c:=m;m:=n;n:=c;end;
     r:=m mod n;
     while r<>0 do
     begin
       m:=n;
       n:=r;
       r:=m mod n;
     end;
     hcf1:=n;
end;
function  hcf2(m,n:integer):integer;
var i,j,k:integer;
begin
i:=1;j:=1;k:=1;
 while i=1 do
 begin
  if m*j=n*k then
  begin
     hcf2:=m*j;
     break;
  end;
  if m*j<n*k then
  j:=j+1;
  if m*j>n*k then
  k:=k+1;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var m,n,t,f:integer;
begin
if edit1.Text='' then edit1.Text:='3';
if edit2.Text='' then edit2.Text:='8';
 m:=strtoint(edit1.text);
 n:=strtoint(edit2.text);
  t:=hcf1(m,n);
  f:=hcf2(m,n);
 label1.Caption:=format('整数%d和%d的最大公约数是%d,最小公倍数是%d',[m,n,t,f]);
end;

end.