Listing pangkat

Listing lengkap bisa dilihat pada Listing Kalkulator Sederhana.

Gambar form perpangkatan

unit fungsipangkat
type
  TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
 
var
Form1: TForm1;
function pangkat ( sk1,sk2 : integer ) : integer ;
var i,b:integer ;
begin
  pangkat:=0 ;
  b := sk1 ;
  if sk2=1 then b:=sk1
  else begin
   for i:=2 to sk2 do
   begin
    b :=b * sk1 ;
   end;
  end ;
  pangkat := b ;
  if sk2=0 then pangkat:=1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a :integer ;
begin
  a:= pangkat(strtoint (edit1.Text), strtoint (edit2.Text)) ;
  button1.Caption :=inttostr (a);
end;
 
end.

Listing Matriks Satu Dimensi

 TUGAS :     BUAT TOMBOL DENGAN MENCARI NILAI MAKSIMUM,             KUMPULKAN DALAM BENTUK SOURCECODE (CODING)
    PALING LAMBAT DIKUMPULKAN TANGGAL 23 APRIL 2011




unit Unit_array;
 
var
  Form1: TForm1;
  nilai : array [0..4] of integer ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 VAR I, MINIMAL ,posisi : INTEGER ;
begin
  nilai[0] := strtoint (ed0.Text);
  nilai[1] := strtoint (ed1.Text);
  nilai[2] := strtoint (ed2.Text);
  nilai[3] := strtoint (ed3.Text);
  nilai[4] := strtoint (ed4.Text);
  MINIMAL := nilai [0] ;
  posisi := 0 ;
  FOR I := 1 TO 4 DO
  BEGIN
     if nilai [I] < MINIMAL THEN
     begin
         MINIMAL :=nilai [I] ;
         posisi := I ;
     end;
  END;
  if posisi = 4 then showmessage ('munir') ;
   if posisi = 3 then showmessage ('melinda') ;
    if posisi = 2 then showmessage ('syahrini') ;
     if posisi = 1 then showmessage ('norman') ;
      if posisi = 0 then showmessage ('andi') ;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate ;
end;

end.

Listing Kalkulator Sederhana

Contoh form kalkulator

unit Unit_kalkulator;
TForm1 = class(TForm)
  a: TEdit;
  b: TEdit;
  kurang: TButton;
  tambah: TButton;
  kali: TButton;
  bagi: TButton;
  hasil: TLabel;
  Button1: TButton;
  fungsipangkat: TButton;
  Image1: TImage;
  Button2: TButton;
 
  procedure tambahClick(Sender: TObject);
  function tambahkan(a,b:integer):integer ;
  function kurangkan (a,b:integer):integer ;
  function bagikan (a,b:integer):single ;
  function kalikan (a,b : integer) : integer ;
  procedure Button1Click(Sender: TObject);
  procedure kurangClick(Sender: TObject);
  procedure bagiClick(Sender: TObject);
  procedure kaliClick(Sender: TObject);
  procedure fungsipangkatClick(Sender: TObject);
  function pangkatkan (a,b: integer ):integer ;
end;
var
  Form1: TForm1;
 
function tform1.pangkatkan (a,b: integer ):integer ;
  var i,sk1 : integer ;
begin
  pangkatkan:= 0 ;
  sk1:= a ;
  if b=1 then sk1:=a
  else begin
   for i:=2 to b do
   begin
    sk1:=sk1*a;
   end;
  pangkatkan:=sk1 ;
  if b=0 then pangkatkan:=1 ;
  end;
end;
 
function tform1.tambahkan (a,b: integer ):integer ;
begin
  tambahkan:=a+b ;
end;
 
function tform1.kurangkan (a,b : integer) : integer ;
begin
  kurangkan:=a-b ;
end;
 
function tform1.bagikan (a,b:Integer):single ;
begin
  bagikan:=a / b ;
end;

function tform1.kalikan (a,b : integer) : integer ;
begin
  kalikan:=a*b ;
end;
 
procedure TForm1.tambahClick(Sender: TObject);
var c:integer ;
begin
  c:= tambahkan(strtoint(a.Text),strtoint (b.Text)) ;
  hasil.Caption := inttostr (c) ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate ;
end;
 
procedure TForm1.kurangClick(Sender: TObject);
var d:integer ;
begin
  d:=kurangkan (strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.bagiClick(Sender: TObject);
var e:single ;
begin
  e:=bagikan (strtoint (a.Text), strtoint(b.Text)) ;
  hasil.Caption :=floattostr (e) ;
end;
 
procedure TForm1.kaliClick(Sender: TObject);
var d:integer ;
begin
  d:=kalikan(strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.fungsipangkatClick(Sender: TObject);
var d:integer ;
begin
  d:=pangkatkan (strtoint(a.Text), strtoint (b.Text) );
  hasil.Caption:=inttostr(d);
end;
 
end.