Belajar fungsi stuktur IF

Assalamu’alaikum para blogger yang budiman, pada postingan kali ini, kita akan belajar fungsi struktur IF dengan menggunakan bahasa Pascal vers. 7. Bagi yang belum tahu, struktur IF merupakan sebuah struktur logika yang digunakan untuk membuat percabangan alur Program. Dengan struktur ini,
kita dapat mengatur apakah sebuah perintah akan dijalankan atau tidak tergantung dari kondisinya.

Ada beberapa bentuk strukur IF:

1.       IF Tunggal

     If Kondisi Then Intruksi1;

2.       IF Ganda

    If Kondisi Then

    Intruksi 1

Else

    Intruksi2;

3.       IF Bersambung

    If Kondisi1 Then

      Intruksi1

Else If kondisi2 Then

      Intruksi2

Else If KondisiM Then

     IntruksiM;

4.       IF Berurutan

    If Kondisi1 then Intruksi;

    If Kondisi2 Then Intruksi;

Nah, sebagai contoh kita akan menggunakan IF Berurutan. Di bawah ini sudah ada contohnya:

uses crt;

var

nm, no, kls, ket : string;

UTS, UAS,  na : real;

begin

Clrscr;

writeln('      *STMIK BUDIDARMA MEDAN*   ');

writeln('======================================');

write('Nama    :   ');

readln(nm);

writeln('NPM   :   ');

readln(no);

write('Kelas    :       ');

readln(kls);

write('');

write('Nilai UTS   :       ');

readln(UTS);

write(' Nilai UAS   :         ');

readln(UAS);

na:=UTS + UAS;

writeln(' Nilai Akhir:     ',na:2:0);

if na > 3.0 then ket:='LULUS';

if na < 3.0 then ket:='GAGAL';

writeln(' Keterangan  : ',ket);

readln;

end.

  Giaman, Sudah paham tentang fungsi If????? Gak ribet kan??? Ok! Semoga bermanfaat dan sampai jumpa di postingan berikutnya......