Aplikasi Bilangan Prima dengan Delphi #110

andrypein.net : Aplikasi bilangan prima dengan delphi ini hanya untuk mengecek apakah bilangan tersebut bilangan prima atau bukan.

Secara aing bukan anak matematika jadi untuk definisi bilangan prima bisa gogling sendiri di internet.

Penampakan aplikasinya seperti ini lengkap dengan source code nya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  prima : boolean;
  batas,bil : integer;
  i : byte;
begin
  prima:=true;
  bil:=strtoint(edit1.Text);
  batas:=round(sqrt(bil))+1;
  if (bil = 2) or (bil = 3) then
    prima:=true
  else
    for i:=2 to batas do
      if (bil mod i = 0) then
        prima:=false;
  if prima then
    label1.Caption:=inttostr(bil)+' adalah bilangan prima'
  else
    label1.Caption:=inttostr(bil)+' bukan bilangan prima';          
end;

end.

Aplikasi bilangan prima dengan delphi bisa di donlod disini gan :

Download

*AFK