Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Aplikasi Bilangan Prima dengan Delphi #110

Zebra mempunyai belang pada tubuhnya

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 :

bilangan prima dengan delphi
seperti ini
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

Related Articles

One Comment

  1. Jago buat program ya gan.??

    follow blog ane ya gan :jabat

    nicetomeetu-nicetomeetu.blogspot.com/

    ntar ane follback gan..

    sekalian tukeran link ya :toast

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button