哥德巴赫猜想的delphi7程序代码

 

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    edt2: TEdit;
    lbl3: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function numcheck(num:Integer):Boolean;
var
n:Integer;
begin
for n:=num-1 downto 2 do
begin
    if (num mod n)=0 then
       Break
    else
    Result:=True;
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
num,num1,num2,i,j:Integer;
d1,d2:Boolean;
begin
try
     StrToInt(edt1.Text);
   except
      showmessage('必需输入一个整数');
      Exit;
end;
num:=StrToInt(edt1.text);
if (((num mod 2)=0) and (num>=6) )then
begin
    for num1:=2 to num do
    begin
      d1:=False;
      d1:=numcheck(num1);

      if d1=True then
       begin
         num2:=num-num1;
         d2:=False;
         d2:=numcheck(num2);
         if d2=True then
         begin
            edt2.Text:=IntToStr(num1)+'+'+inttostr(num2);
            Break;
         end;

       end;

 

    end;
    btn2.SetFocus;
end
else
begin
      ShowMessage('输入的数字不合法');
      edt1.Text:='';
      edt1.SetFocus;
end;

   end;
procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='';
edt2.Text:='';
edt1.SetFocus;
end;

end.