perulangan merupakan proses untuk mengulang ulang dalam suatu program tanpa henti untuk eksekusi paramater yang ditentukan, sampai parameter kondisi terpenuhi . perulangan bisa menggunakan beberapa jenis logikanya yaitu for to do, for downto, repeat until, while do.
langsung saja mari kita praktikan logika perulangan dengan menggunakan bahas pemprograman delphi 7.0
siapkan 1 komponen combobox1 dan 1 memo1
langsung saja mari kita praktikan logika perulangan dengan menggunakan bahas pemprograman delphi 7.0
siapkan 1 komponen combobox1 dan 1 memo1
=> pada object ispectornya combobox1, cari item lalu klik dan tuliskan (segitiga kebawah- => enter,segitiga keatas=> enter ,belah ketupat => enter . lihatlah desain dibawah ini :
Clik 2 kali pada combobox1
if
ComboBox1.Text='segitiga kebawah' then
begin
Memo1.Clear;
for a:=7 downto 1 do
begin
for b:=7 downto a do
begin
Memo1.Text:=Memo1.Text+' ';
end;
begin
for c:=(a*2)-1 downto 1 do
begin
Memo1.Text:=Memo1.Text+'*';
end;
end;
begin
Memo1.Lines.Add(#13);
Memo1.Text:=Memo1.Text+'';
end;
end;
end
else if
ComboBox1.Text='segitiga keatas' then
begin
Memo1.Clear;
a:=1;
while a<=7 do
begin
b:= 7;
while b>=a do
begin
b:=b-1;
hasil:=hasil+' ';
end;
b:=1;
while (b<=(a*2)-1) do
begin
b:=b+1;
hasil:=hasil+'*';
end;
memo1.Lines.Append(hasil);
hasil:='';
a:=a+1;
end;
end
else if ComboBox1.Text='belah ketupat' then
begin
Memo1.Clear;
a:=1;
while a<=7 do
begin
b:= 7;
while b>=a do
begin
b:=b-1;
hasil:=hasil+' ';
end;
b:=1;
while (b<=(a*2)-1) do
begin
b:=b+1;
hasil:=hasil+'*';
end;
memo1.Lines.Append(hasil);
hasil:='';
a:=a+1;
end;
a:=7;
while a>=1 do
begin
b:=7;
while b>=a do
begin
b:=b-1;
hasil:=hasil+'';
end;
b:=(7*2)-1;
while b>=a do
begin
b:=b-1;
hasil:=hasil+'+';
end;
memo1.Lines.Append(hasil);
hasil:='';
a:=a-1;
end;
end;
Jika sudah selesai kodingnya silahkan di RUN dan lihat hasilnya. terimkasih sudha berkunjung.
No comments:
Post a Comment