PERNYATAAN FOR
Membuat program penambahan dan perkalian dengan menggunakan pernyataan for
Langkah-Langkahnya:
1.Letakkan komponen TstringGrid yang dapat anda ambil dari komponen palette bagian additional. Ubahlah properti ColCount dan RowCount menjadi 10. kedua properti ini menyatakan jumlah kolom dan baris. Selanjutnya ubahlah DefaultColWidth menjadi 48, tujuannya untuk membuat tampilan TstringGrid menjadi menarik.
2.Letakkan dua Tbutton dan ubahlah properti caption masing-masing menjadi ”tabel penjumlahan” dan ”tabel Perkalian”.
3.OnClick pada event OnShow dari Form1 dan tuliskan Listing programnya sbb:
procedure TForm1.FormShow(Sender: TObject);
var
x,y : integer;
begin
//mengisi baris pertama
for x := 1 to 9 do
StringGrid1.Cells[x,0] := IntToStr(x);
//mengisi kolompertama
for y := 1 to 9 do
StringGrid1.Cells[0,y] := IntToStr(y);
end;
4.OnClick Tbutton1 dan Tuliskan Listing programnya sbb:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y : integer;
begin
//menampilkan tanda '+' di ujung kiri atas
StringGrid1.Cells [0,0] := '+';
//mengisi tabel penjumlahan didalamnya
for x := 1 to 9 do
for y := 1 to 9 do
StringGrid1.Cells [x,y] := IntToStr(x + y);
end;
5.OnClick Tbutton2 dan Tuliskan Listing programnya sbb:
procedure TForm1.Button2Click(Sender: TObject);
Var
x,y: integer;
begin
//menampilkan tanda 'x' di ujung kiri atas
StringGrid1.Cells [0,0] := 'x';
//mengisi tabel perkalian didalamnya
for x := 1 to 9 do
for y := 1 to 9 do
StringGrid1.Cells [x,y] := IntToStr(x * y);
end;
end.
6.Jalankan atau Run Program yang telah anda buat
PERNYATAAN REPEAT-UNTIL
Program untuk menampilkan daftar bilangan yang merupakan kelipatan 3 dan kelipatan 3 dan 4.
LANGKAH-LANGKAHNYA:
1.letakkan sebuah komponen TlistBox pada Form Anda
2.Letakkan 2 komponen Tbutton pada Form Anda dan gantilah Button1 dengan nama ”kelipatan 3” dan Button2 dengan nama ”kelipatan 3 dan 4”.
3.OnClick Button1 dan tuliskan programnya sebagai berikut:
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x:= 1;
ListBox1.Items.Clear;
repeat
if ((x mod 3) = 0) then
ListBox1.Items.Add(IntToStr(x));
x :=x+1;
until (x > 100);
end;
4.OnClick Button2 dan tuliskan programnya sebagai berikut:
procedure TForm1.Button2Click(Sender: TObject);
var
x : integer;
begin
x:= 1;
ListBox1.Items.Clear;
repeat
if ((x mod 3) = 0) and ((x mod 4) = 0) then
ListBox1.Items.Add(IntToStr(x));
x:=x+1;
until (x>100);
end;
