Penerapan Kondisi Pada Delphi
Kondisi adalah proses penyeleksian alternatif-alternatif jawaban yang ada. Dan alternatif jawaban akan dikerjakan tergantung dari berbagai ketentuan dari suatu kondisi yang diberikan.
Perintah kondisi ini biasanya dengan menggunakan
IF Kondisi THEN atau
CASE seleksi type ordinal OF
End;
Macam-macam Kondisi IF
Perintah kondisi ini biasanya dengan menggunakan
IF Kondisi THEN atau
CASE seleksi type ordinal OF
End;
Macam-macam Kondisi IF
- Kondisi Tunggal : memiliki satu kondisi dan satu alternatif jawaban
- Kondisi Ganda : memiliki satu kondisi dan dua alternatif jawaban. Dan terdapat 1 perintah ELSE didalamnya sebagai pengecualian
- Kondisi Jamak : Memiliki banyak kondisi dan banyak alternatif jawaban. dan terdapat banyak perintah ELSE di dalamnya sebagai pengecualian
Kondisi Tunggal
Contoh :
IF Kondisi THEN
Alternatif Jawaban
Penerapan
A := strtoint(edit1.text);
B := strtoint(edit2.text);
If A>B THEN
Edit3.text := 'benar';
Kondisi Ganda
Contoh :
IF Kondisi THEN
Alternatif jawaban-1
ELSE
Alternatif jawaban-2
Penerapan
A:= strtoint(edit1.text);
B:= strtoint(edit2.text);
IF A > B THEN
Edit3.text := 'benar'
ELSE
Edit3,text := 'salah';
Kondisi Jamak
Contoh:
IF Kondisi-1 THEN
Jawaban-1
ELSE
IF Kondisi-2 THEN
Jawaban-2
ELSE
IF Kondisi-3 THEN
Jawaban-3
ELSE
Jawaban-n
Penerapan
A:= edit1.text;
IF A = 'Hijau' THEN
Edit2.text:= 'Jalan'
ELSE
IF A = 'Kuning' THEN
Edit2.text := 'Hati-Hati'
ELSE
Edit2.text := 'Berhenti';
#CASE
Case adalah perintah untuk mengelompokkan alternatif-alternatif jawaban yang diberikan yang diseleksi berdasarkan nilai var. Nilai var harus yang bertype ordinal (tunggal)
Bentuk Umum Perintah Case
CASE VAR OF
Nilai-Var-1 : Jawaban-1
Nilai-Var-2 : Jawaban-2
Nilai-Var-3 : Jawaban-3
ELSE
Nilai-Var-n : Jawaban-n
END;
Penerapan
A := combobox1.itemIndex;
CASE A OF
0 : Edit1.text := 'Jalan';
1 : Edit1.text := 'Hati-hati';
ELSE
Edit1.text :='Berhenti';
END;
PERULANGAN
# FOR .... DO
* for <var> := <nilai awal> to <nilai akhir> do
begin
.......
end;
* for <var> := <nilai awal> DownTo <nilai akhir> do
begin
.......
end;
Penerapan FOR .... DO
* For a := 1 to 10 do
begin
Memo1.lines.add(inttostr(a));
end;
# WHILE .... DO
<var> := <nilai init>
while kondisi do
begin
...../ counter <var>
end;
Penerapan While .... do
b := 0;
While b <5 do
begin
b := b + 1;
Memo1,lines.add(inttostr(b));
end;
# REPEAT .... UNTIL
<var> := <nilai init>
Repeat
...... / counter <var>
Until Kondisi
Penerapan Repeat
b := 0;
Repeat
b := b + 1 ;
Memo1.lines.add(inttostr(b));
Until b = 5;
0 comments:
Post a Comment