Contoh struktur pemilihan / pecabangan IF..THEN..ELSE

Digunakan jika pada pemilihan ada beberapa aksi yg akan di lakukan berdasarkan beberapa syarat yang harus terpenuhi.

Ex :

Program_Klasifikasi_bintang
Masukkan Temperatur Bintang  (tb)
Kelas Spektrum Bintang       (ks)
Warna Bintang Adalah         (wb)

ket :
Temperatur  >=30000 => ks=O
wb=Biru
Temperatur  >=11000 => ks=B
wb=Biru
Temperatur  >=7.500 => ks=A
wb=Biru
Temperatur >=6000  => ks=F
wb=Biru Keputih-Putihan
Temperatur >=3500  => ks=K
wb=Jingga Kemerah-Merahan
Temperatur <3500   => ks=M
wb=Merah

Program Pascal Dari Soal di atas adalah :

program Klasifikasi_Bintang;
uses crt;
var
tb:word;
ks:char;
wb:string[30];
begin
clrscr;
writeln(‘Klasifikasi Bintang’);
writeln(‘——————-‘);
write(‘Masukkan Temperatur Bintang : ‘);readln(tb);
if tb>=30000 then
begin
ks:=’O’;
wb:=’Biru’;
end
else if tb>=11000 then
begin
ks:=’B’;
wb:=’Biru’;
end
else if tb>=7500 then
begin
ks:=’A’;
wb:=’Biru’;
end
else if tb>=6000 then
begin
ks:=’F’;
wb:=’Biru Keputih-Putihan’;
end
else if tb>=5000 then
begin
ks:=’G’;
wb:=’Putih Kekuning-Kuningan’;
end
else if tb>=3500 then
begin
ks:=’K’;
wb:=’Jingga Kemerah-Merahan’;
end
else
begin
ks:=’M’;
wb:=’Merah’;
end;
writeln(‘Kelas Spektrum Bintang adalah : ‘);write(ks);
write(‘Warna Bintang adalah : ‘);write(wb);
readkey;
end.

Anda dapat menggunakan program diatas didalam aplikasi Turbo Pascal.
Semoga bermanfaat……🙂

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: