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.
运行结果: