Statemen IF pada Pascal Bag III #26

andrypein.net : Langsung saja ah statemen if pada pascal nya biar lebih cepat dan lebih baik, maka berarti untuk if dengan tiga kasus atau lebih merupakan bentuk pemilihan yang agak sedikit lebih kompleks dari dua bentuk sebelumnya.

Postingan Kemarin : Statemen IF pada Pascal Bag 2

Bentuk ini memiliki tiga buah kasus atau lebih sehingga terdapat statemen if di dalam if atau kita sebut if bersarang (nested if).

Verikut adalah bentuk gambaran statemen if pada pascal :

if (kondisi1) then begin
 statemen_jika_kondisi1_benar;
 ...
end else if (kondisi2) then begin
 statemen_jika_kondisi2_benar;
 ...
end else begin
 statemen_alternatif;
end;

agar lebih paham mari kita lihat contoh program dibawah ini:

program ifTigaKasus;
uses wincrt;
var bil:integer;
begin
 write('masukan sebuah bilangan');
 readln(bil);
 if bil < 0 then begin writeln(bil, ' merupakan bilangan negatif') end else if bil > 0 then
  begin
   writeln(bil, ' merupakan bilangan positif')
  end;
end.  

coba compile dan jalankan saja dan coba lalu pahami dan lihat hasilnya atau kita coba contoh lain seperti program untuk menghitung nilai akhir dari UAS dan UTS dibawah ini:

program ifTigaKasus2;
uses wincrt;
var
 NA,NUTS,NUAS:real;
 indek:char;
begin
 write('masukan nilai UTS');
 readln(NUTS);
 write('masukan nilai UAS');
 readln(NUAS);
 NA:=(0.6 * NUAS)+(0.4*NUTS);
 if (NA >= 80) then begin
  indek:='A';
 end else if (NA >= 70) then begin
  indek:='B';
 end else if (NA >= 50) then begin
  indek:='C';
 end else if (NA >= 30) then begin
  indek:='D';
 end else begin
  indek:='E';
 end;
 writeln;
 writeln('Nilai Akhir  : ',NA:0:2);
 writeln('Nilai Indeks : ',indek);
end.

Maka dari itu selesai pula lah pembahasan mengenai if if an,,posting selanjutnya akan membahas mengenai statemen case yang masih dalam keluarga statemen pemilihan.wokeh . . . bye n luph u ?

(*AFK)