Delphi 求素数

àì夳堔傛蜴生んèń 2022-04-16 05:09 190阅读 0赞

GUI界面：

![2018111711484825.png][]

源代码：

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        Button2: TButton;
        Edit2: TEdit;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    var
        Ran_num:Array[1..10] of Integer;
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
        i:Integer;
    
    begin
        Randomize;
        Edit1.Text:='';
        Edit2.Text:='';
        Edit1.ReadOnly:=True; //只能读，不能写
        Edit2.ReadOnly:=True;
    
        for i:= 1 to 10 do
        begin
           Ran_num[i]:=Random(90);
           Edit1.Text:=Edit1.Text+inttostr(Ran_num[i])+','//如何输出数组
        end;
        Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1); //去掉最后一个符号
    end;
    
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
        biao:Array[1..10] of Integer;//标志位数组
        i,j:Integer;
    begin
        for i:=1 to 10 do
             begin
             biao[i]:=1;
           //Edit2.Text:=Edit2.Text+inttostr(biao[i])+',';//如何输出数
             end;
        for i:=1 to 10 do
              for j:=2 to Ran_num[i]-1 do
                  begin
                     if Ran_num[i] mod j = 0 then    //判断是不是素数
                          begin
                          biao[i]:=0;
    
                          end;
                  end;
        for i:=1 to 10 do
             if biao[i]=1 then
                 Edit2.Text:=Edit2.Text+inttostr(Ran_num[i])+',';//如何输出数
    
        Edit2.Text:=Copy(Edit2.Text,1,Length(Edit2.Text)-1);
    
    end;
    
    end.

运行结果：

![20181117114924644.png][]

[2018111711484825.png]: /images/20220416/612c4a2a766a4c08b8824dce6db98720.png
[20181117114924644.png]: /images/20220416/a4437bbee1e64f2983bc3f4c29b1a672.png