lazarus:生成1到100内的素数

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b ,c,d:Integer;  flag : Boolean;
begin
    c := 0;
    d := 0;
    for a:= 1 to 100 do
    begin
        c := a div 2 + 1;
        flag := True;
        for b:=2 to c do
        begin
            if a mod b = 0 then
              begin
                flag := False;
                Break;
              end;
        end;
        if flag then
          begin
            Inc(d);
            memo1.Lines.Add(intToStr(a));
          end;
    end;

end;

end.
 
 

lazarus:生成1到100内的素数_第1张图片

你可能感兴趣的:(素数)