Delphi 求素数

 GUI界面：

 

源代码： 

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.

运行结果：