TUGAS 3 Membuat procedure function perulangan bilangan BERPANGKAT (function)

1.       Langkah pertama install terlebih dahulu program Delphi anda

2.       Kemudian buka program Delphi 7 dengan klik start – all programs – Borland Delphi 7 – Delphi 7

3.       Setelah itu klik file – new – pilih form

4.       Lalu buat diagram pemprograman seperti dibawah ini

 

5.  Lalu ketikkan scrip dibawah ini

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    btnPANGKAT1: TButton;

    btnPANGKAT2: TButton;

    btnPANGKAT3: TButton;

    btnPANGKAT4: TButton;

    procedure btnPANGKAT1Click(Sender: TObject);

    procedure btnPANGKAT2Click(Sender: TObject);

    procedure btnPANGKAT3Click(Sender: TObject);

    procedure btnPANGKAT44Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure pangkat1(p,l:string);

    function pangkat2(p,l:string):string;

    function pangkat3(m,n:integer):integer;

  end;

var

  Form1: TForm1;  c:integer;

implementation

{$R *.dfm}

procedure TForm1.btnPANGKAT1Click(Sender: TObject);

var

 a,b,i,c:integer;

begin

i:=1;

c:=1;

a:=strtoint(edit2.Text);

b:=strtoint(edit1.Text);

While i<=a do

begin

 c:=c*b;

 i:=i+1;

end;

 edit3.Text:=inttostr(c);

end;

procedure TForm1.pangkat1(p,l:string);

var

a,b,i,c:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

While i<=a do

begin

 c:=c*b;

 i:=i+1;

end;

edit3.Text:=inttostr(c);

end;

function TForm1.pangkat2(p,l:string):string;

var

a,b,i:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

While i<=a do

begin

 c:=c*b;

 i:=i+1;

end;

pangkat2:=inttostr(c);

end;

function TForm1.pangkat3(m,n:integer):integer;

var

a,b,i:integer;

begin

i:=1;

c:=1;

While i<=a do

begin

 c:=c*m;

 i:=i+1;

end;

pangkat3:=c;

end;

procedure TForm1.btnPANGKAT2Click(Sender: TObject);

begin

 pangkat1(edit2.Text,edit1.Text);

end;

procedure TForm1.btnPANGKAT3Click(Sender: TObject);

begin

 edit3.Text:=pangkat2(edit2.Text,edit1.Text);

end;

procedure TForm1.btnPANGKAT44Click(Sender: TObject);

VAR

 A,B,C:INTEGER;

 begin

  A:=STRTOINT(EDIT1.Text);

  B:=STRTOINT(EDIT2.Text);

  C:=pangkat3(A,B);

  EDIT3.TEXT:=INTTOSTR(C);

end;

end.

Keterangan :

·   Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·       Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

·         IntToStr untuk merubah tipe data integer ke tipe data string.

·         Caption untuk Membuat caption pada table

·         End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·         Begin untuk memulai suatu penulisan scrip pada program

·    String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value

·     While I do untuk struktur pengulangan dimana selama kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan.

·         INTTOSTR untuk merubah tipe data integer ke tipe data string.

·         Pangkat1 untuk memasukkan ke integer ke pangkat1

·         Pangkat2 untuk memasukkan ke integer ke pangkat2

·         Pangkat3 untuk memasukkan ke integer ke pangkat3

·         Pangkat4 untuk memasukkan ke integer ke pangkat4

6.      Setelah selesai maka tekan f9 untuk mencoba program tadi. Jika berhasil maka seperti dibawah ini

Lakukan begitu terus sampai pangkat 4, hasilnya akan sama

 

Read more »

TUGAS 2 Membuat procedure perulangan bilangan pangkat

1.       Langkah pertama install terlebih dahulu program Delphi anda

2.       Kemudian buka program Delphi 7 dengan klik start – all programs – Borland Delphi 7 – Delphi 7

3.       Setelah itu klik file – new – pilih form

Lalu buat diagram pemprograman seperti dibawah ini

4.       Lalu klik pangkat, kemudian ketikkan scrip dibawah ini


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ForToDo: TButton;
    ForDowntoDo: TButton;
    WhileDo: TButton;
    RepeatUntil: TButton;
    btkeluar: TButton;
    btpangkat: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure btkeluarClick(Sender: TObject);
    procedure ForToDoClick(Sender: TObject);
    procedure ForDowntoDoClick(Sender: TObject);
    procedure WhileDoClick(Sender: TObject);
    procedure RepeatUntilClick(Sender: TObject);
    procedure btpangkatClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btkeluarClick(Sender: TObject);
begin
 close;
end;

procedure TForm1.ForToDoClick(Sender: TObject);
var
i,j:integer; b:string;
begin
 b:=''; j:=2;
 for i:=1 to 10 do
 begin
  b:=b+inttostr(j)+'';
  j:=j+2;
 end;
 label1.Caption:=b;
end;


procedure TForm1.ForDowntoDoClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 b:=''; j:=2;
 for i:=10 downto 1 do
 begin
  b:=b+inttostr(i)+'';
  j:=j+2;
 end;
 label2.Caption:=b;
end;

procedure TForm1.WhileDoClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 i:=1;
 b:='';
 while i<=10 do
 begin
  b:=b+inttostr(i)+'';
  i:=i+1;
 end;
 label3.Caption:=b;
end;

procedure TForm1.RepeatUntilClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 i:=1;
 b:='';
 repeat
  b:=b+inttostr(i)+'';
  i:=i+1;
 until i>10;
 label4.Caption:=b;
end;

procedure TForm1.btpangkatClick(Sender: TObject);
var
 bil,hasil,pangkat,a:integer;
begin
 bil:=strtoint(edit1.Text);
 hasil:=bil;
 pangkat:=strtoint(edit2.Text);
 if edit2.Text='0' then edit3.Text:='1' else
 if edit2.Text='1' then edit3.Text:=edit1.Text
 else
  begin
   for a:=2 to pangkat do
    hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);
  end;
end;

end.



Keterangan :
·        Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel
·       Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan
·         StrToInt digunakan untuk merubah tipe data string ke tipe data integer.
·         IntToStr untuk merubah tipe data integer ke tipe data string.
·         Caption untuk Membuat caption pada table
·         End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya
·         End. Untuk mengakhiri sebuah scrip
·         Begin untuk memulai suatu penulisan scrip pa

da program

·        String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value
·        If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi
·        For todo untuk membuat perulangan angka berurutan atau merupakan struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacah pengulangan atau for variable := nilai_awal to nilai_akhir do pernyataan
·         For downto do for variable := nilai_awal downto nilai_akhir do pernyataan
·         While do memasukan fungsi pada awal program
·         Repeat until untuk membuat program menjadi perulangan  atau struktu pengulangan  dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti terpenuhi.
·     While I do struktur pengulangan  dimana selama  kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan

5.       Setelah selesai maka tekan f9 untuk mencoba program tadi. Jika berhasil maka seperti dibawah ini

jika ingin keluar dari program tinggal klik KELUAR

Read more »