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.
分享到:
相关推荐
可验证哥德巴赫猜想的一个Delphi小程序。
哥德巴赫猜想Delphi演示..rar
哥德巴赫猜想的简单代码证明,当然只是一个框架,不是真正的证明。
从关于偶数的哥德巴赫猜想,可推出:任一大于7的奇数都可写成三个质数之和的猜想。后者称为“弱哥德巴赫猜想”或“关于奇数的哥德巴赫猜想”。若关于偶数的哥德巴赫猜想是对的,则关于奇数的哥德巴赫猜想也会是对的...
1157:哥德巴赫猜想 时间限制: 1000 ms 内存限制: 65536 KB 提交数: 14300 通过数: 8298 【题目描述】 哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6~100所有偶数表示成两个素数之和。 【输入...
DELPHI2007典型开发实例 第一章 哥德巴赫猜想
自己写的 关于哥德巴赫猜想验证,只要输入一个 数字 ,就能验证输入数及所有小于输入数的数是否符合哥德巴赫猜想,有较好算法,以100W为例,运行时间只需40几秒(程序包含运行时间的计算)
哥德巴赫猜想\哥德巴赫猜想 C++验证源码
验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c 验证哥德巴赫猜想c ...
哥德巴赫猜想 数据结构(C语言实现) 用C语言实现哥德巴赫猜想的数据结构!cpp文件。
public class E5_2{ public static void main(String[] args){ int n = 300; for(int i = 2; i ; i+=2){ for(int j = 2; j ; j++){ for(int k = 2;... if((isPrime(j) == 1) && (isPrime...
数学领域著名的“哥德巴赫猜想”的大致意思是:任何一个大于2的偶数总能表示为两个素数之和。比如:24=5+19,其中5和19都是素数。本实验的任务是设计一个程序,验证20亿以内的偶数都可以分解成两个素数之和。 输入...
哥德巴赫猜想的证明java代码,严格实现了类的封装性
哥德巴赫猜想.cpp
c语言程序哥德巴赫猜想源代码,C语言编写的小程序
关于哥德巴赫猜想第一个“大于6的偶数都能写成两个奇质数之和”的代码
windows应用程序 实现哥德巴赫猜想
用java验证哥德巴赫猜想,输出满足哥德巴赫猜想的所以值
C语言源码哥德巴赫猜想,界面不错,验证哥德巴赫猜想,大一新生必备
个人整理的哥德巴赫猜想论文,帮助对解析数论感兴趣的人学习