Percabangan
IF ialah kondisi dimana kita memberikan nilai yang berbeda pada output Delphi
sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam Kondisi
dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika
kondisi dua akan muncul kondisi dua, begitu seterusnya.
Contoh :
1. Jika
Kode Kelas = KP maka Nama Kelas = Kelas Pagi,
Jika Kode Kelas = KS maka Nama Kelas = Kelas Siang,
Jika Kode Kelas = KM maka Nama Kelas = Kelas Malam.
if Kode
Kelas = 'KP' then
nama
kelas :='Kelas Pagi’
else
if Kode
Kelas = 'KS' then
nama
kelas :='Kelas Siang’
else
if Kode
Kelas = 'KM' then
nama
kelas :='Kelas Malam’;
end;
2. Jika
Kode Kelas = KP maka Nama Kelas = Kelas Pagi Dan Ruang = 1 A,
Jika Kode Kelas = KS maka Nama Kelas = Kelas Siang Dan Ruang = 1 B,
Jika Kode Kelas = KM maka Nama Kelas = Kelas Malam Dan Ruang = 1 C.
if Kode
Kelas = 'KP' then
begin
nama
kelas :='Kelas Pagi’
Ruang
:='1 A’
end
else
if Kode
Kelas = 'KP' then
begin
nama
kelas :='Kelas Pagi’
Ruang
:='1 A’
end
else
if Kode
Kelas = 'KP' then
begin
nama
kelas :='Kelas Pagi’
Ruang
:='1 A’
end;
end;
0 comments :
Post a Comment