`
cfeers
  • 浏览: 140563 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
社区版块
存档分类
最新评论

哥德巴赫猜想的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.

分享到:
评论

相关推荐

    delphi哥德巴赫猜想程序

    本篇将深入探讨一个使用Delphi编程语言实现的程序,该程序旨在验证著名的数学猜想——哥德巴赫猜想。Delphi是一款强大的面向对象的集成开发环境(IDE),基于Pascal语言,广泛用于创建桌面应用程序。在这个特定的...

    哥德巴赫猜想Delphi演示..rar

    《哥德巴赫猜想在Delphi环境下的编程演示》 哥德巴赫猜想,作为数学领域的一个著名未解难题,自1742年由普鲁士数学家克里斯蒂安·哥德巴赫提出以来,一直吸引着众多数学家的关注。这个猜想简单来说,就是任何大于2...

    DELPHI2007典型开发实例 第一章 哥德巴赫猜想.rar

    1. **基础编程概念**:包括变量、常量、数据类型、运算符、流程控制结构(如循环和条件语句),这些都是编写验证哥德巴赫猜想程序的基础。 2. **算法设计**:为了验证哥德巴赫猜想,需要设计一个算法,能对每个大于...

    哥德巴赫猜想_代码实现哥德巴赫猜想_

    在编程世界中,我们可以通过编写代码来验证哥德巴赫猜想,虽然这不能作为正式的证明,但可以作为一个实验性的验证手段。代码实现通常会涉及两个核心部分:一是判断一个数是否为素数,二是遍历所有可能的素数对组合,...

    验证“哥德巴赫猜想”——C语言代码

    本项目是一个C语言实现的代码,用于验证哥德巴赫猜想。C语言是一种强大的、低级别的编程语言,适合进行数值计算和算法实现。在这个作业中,开发者可能采用了基础的循环和条件语句来遍历并检查所有小于某个特定值的...

    VB源码-验证哥德巴赫猜想

    从关于偶数的哥德巴赫猜想,可推出:任一大于7的奇数都可写成三个质数之和的猜想。后者称为“弱哥德巴赫猜想”或“关于奇数的哥德巴赫猜想”。若关于偶数的哥德巴赫猜想是对的,则关于奇数的哥德巴赫猜想也会是对的...

    哥德巴赫猜想 验证(用C#来编写的应用程序)

    在你提供的项目中,“哥德巴赫猜想验证(用C#来编写的应用程序)”是一个使用C#编程语言实现的程序,用于验证输入的数字以及所有小于该数字的偶数是否符合哥德巴赫猜想。C#是一种通用的、面向对象的编程语言,由微软...

    1157 哥德巴赫猜想.cpp

    1157:哥德巴赫猜想 时间限制: 1000 ms 内存限制: 65536 KB 提交数: 14300 通过数: 8298 【题目描述】 哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6~100所有偶数表示成两个素数之和。 【输入...

    哥德巴赫猜想论文简化版

    论文中提到的内容涉及到广义黎曼猜想、命题1+7、命题1+4和命题1+3的无条件证明。这些命题是逐步逼近哥德巴赫猜想证明的中间步骤。 文章引用了陈景润的工作,他是中国数学家,对哥德巴赫猜想的研究做出了重大贡献。...

    哥德巴赫猜想 Python语言

    下面是一段用Python编写的代码,用于验证哥德巴赫猜想的一部分——每个大于6的偶数都可以表示为两个奇素数之和: ```python def is_prime(x): if x return False i = 2 while i * i if x % i == 0: return ...

    PTAC语言验证“哥德巴赫猜想”

    PTA【C语言】验证“哥德巴赫猜想”

    c++哥德巴赫猜想之一

    - 弱哥德巴赫猜想(也称作哥德巴赫三素数定理):每个不小于7的奇数都可以表示为三个素数之和。 - 强哥德巴赫猜想:每个大于2的偶数都可以表示为两个素数之和。 2. **素数判断**:在实现哥德巴赫猜想的过程中,...

    哥德巴赫猜想C++验证源码

    哥德巴赫猜想\哥德巴赫猜想 C++验证源码

    windows应用程序哥德巴赫猜想

    《Windows应用程序实现哥德巴赫猜想》 哥德巴赫猜想是数学领域中著名的未解决问题之一,它由普鲁士数学家克里斯蒂安·哥德巴赫在1742年提出,简单来说,就是“任何大于2的偶数都可以表示为两个质数之和”。这个猜想...

    哥德巴赫猜想-数据结构(C语言实现)

    哥德巴赫猜想 数据结构(C语言实现) 用C语言实现哥德巴赫猜想的数据结构!cpp文件。

    哥德巴赫猜想java程序

    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...

    哥德巴赫猜想

    描述中提到的"哥德巴赫猜想VB代码及窗体工程文件"很可能就是一个简单的VB应用程序,用于演示如何通过编程方法来验证哥德巴赫猜想。不过,它指出在计算1000以上的素数时存在问题,这可能意味着程序的效率不高,或者在...

    C语言源码哥德巴赫猜想

    这个名为"哥德巴赫猜想.cpp"的文件就是实现了上述逻辑的C语言源代码。对于大一新生来说,理解和编写这样的程序能够帮助他们巩固C语言的基础知识,同时对数论和算法有更深入的理解。通过运行这个程序,他们可以亲自...

    验证“哥德巴赫猜想”

    数学领域著名的“哥德巴赫猜想”的大致意思是:任何一个大于2的偶数总能表示为两个素数之和。比如:24=5+19,其中5和19都是素数。本实验的任务是设计一个程序,验证20亿以内的偶数都可以分解成两个素数之和。 输入...

    什么是哥德巴赫猜想?详细解释说明

    什么是哥德巴赫猜想?详细解释说明 什么是哥德巴赫猜想?详细解释说明 什么是哥德巴赫猜想?详细解释说明 什么是哥德巴赫猜想?详细解释说明 什么是哥德巴赫猜想?详细解释说明 什么是哥德巴赫猜想?详细解释说明 ...

Global site tag (gtag.js) - Google Analytics