Program Pascal denga if lanjutan

21.36

IF BERSARANG, pernyataan ini digunakan untuk pemilihan/penyeleksian yang pilihannya lebih dari dua pilihan. Misalnya, kita akan menentukan canel/siaran tv dari kode yang ingin kita inputkan. Jika kode a yang kita inputkan maka outputnya SCTV, jika kode b yang diinput maka outputannya RCTI, jika kode c yang dinputkan maka outputannya TRANSTV, dan seterusnya. Disini memiliki lebih dari dua pilihan, maka dalam kasus ini kita bisa menggunakan IF BERSARANG.
Bentuk penulisan:

1
2
3
4
5
6
7
8
if (kondisi) then
   Pernyataan/Statemen 1
else if (kondisi) then
   Pernyataan/Statemen 2
else if (kondisi) then
   Pernyataan/Statemen 3
else
   Pernyataan/Statemen 4
Contoh:
program canel_tv;
user crt;

var
canel:char;

begin
clrscr;
write('Masukkan Kode Canel TV: ');readln(canel);
if canel='a' then write('SCTV')
else if canel='b' then write('RCTI')
else if canel='c' then write('TRANSTV')
else if canel='d' then write('TVONE')
else if canel='e' then write('MNCTV')
else if canel='f' then write('TVRI')
else if canel='g' then write('INDOSIAR')
else write('GLOBAL TV');
readln;
end.
Ok! sekian dulu tutorial penggunaan pernyataan IF-THEN-ELSE dalam pemrograman Pascal.

You Might Also Like

0 komentar