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