* Miss Shopping Holic *

Frame / Control		Properties	Setting
GroupBox	GroupBox1 GroupBox2 GroupBox3 GroupBox4	Caption Caption Caption Caption	If-Else Case-Of Perulangan Array
Label	Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10 Label11	Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption	Masukkan Angka Keterangan Predikat Ayam Bakar Pak Joko Masukkan Pilihan Menu Makanan Menu Minuman Angka Awal Banyak Perulangan Banyak Baris Banyak Kolom
Edit	Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Edit9 Edit10	Name Name Name Name Name Name Name Name Name Name	Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Edit9 Edit10
Button	Button 1 Button 2 Button 3 Button 4 Button5 Button n6	Caption Caption Caption Caption Caption Caption	IF-ELSE Proses Pemesanan (Case-Of) While-Do Repeat-Until For-Do Proses Array
Memo	Memo1 Memo2 Memo3	Caption Caption Caption	Memo1 Memo2 Memo3

A : Integer;

begin

A := StrToInt (Edit1.Text);

Edit2.Text := ' ';

Edit3.Text := ' ';

if A < 50 then

begin

Edit2.Text := 'Gagal';

Edit3.Text := 'E';

end

else if A < 65 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'D';

end

else if A < 75 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'C';

end

else if A < 85 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'B';

end

else if A <= 100 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'A';

end

else

begin

Edit2.Text := 'Salah Input';

Edit3.Text := 'Ulangi Lagi';

end;

end;

Pada bagian button Case-Of, klik 2x kemudian buat coding seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
var
B, C : Integer;
begin
B:= StrToInt(Edit4.text);
C:= StrToInt(Edit5.Text);
begin
case B of
1: Edit6.Text := 'Pecel Ayam dan ';
2: Edit6.Text := 'Ayam Bakar dan ';
3: Edit6.Text := 'Ayam Krispy dan ';
end;
case C of
4: Edit6.Text := Edit6.Text + 'Es Teh Manis';
5: Edit6.Text := Edit6.Text + 'Es Jeruk';
6: Edit6.Text := Edit6.Text + 'Es Cappucino';
end;
end;
end;

Pada bagian button While-Do, klik 2x kemudian buat coding seperti dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
while F <> StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
F:= F+1;
end;
end;

Pada bagian button Repeat-Until, klik 2x kemudian buat coding seperti dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
repeat
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
F:= F+1;
E:= E+1;
until F = StrToInt(Edit8.Text)
end;

Pada bagian button For-Do, klik 2x kemudian buat coding seperti dibawah ini :
var
E, F : Integer;
begin
E:= StrToInt (Edit7.Text);
for F := 1 to StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
end;
end;
Pada bagian button Proses Arrayl, klik 2x kemudian buat coding seperti dibawah ini : 

procedure TForm1.Button6Click(Sender: TObject);
var
// Deklarasi Array Multi Dimensi
Data : array of array of integer;
// Deklarasi Counter
Baris, Kolom : Word;
begin
//Menentukan Panjang Array Untuk Masing-MAsing Dimensi
SetLength(Data, StrToInt(Edit9.Text), //Panjang Dimensi 1
StrToInt (Edit10.Text)); //Panjang Dimensi 2
//Pemasukkan Data Ke Dalam Array
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
    Data[Baris, Kolom] := Baris + Kolom;
//Mengosongkan Data Pada Memo3
Memo2.Clear;
//Menampilkan Data Dari Array
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
    Memo2.Lines.Add('['+ IntToStr(Baris) + ','+ IntToStr(Kolom)+'] = '+IntToStr(Data[Baris,Kolom]));
end;
end.

NB :
Peletakkan 'Edit' disamakan dengan codingan-nya.
Logika Jangan Sama !!!