Instruksi Pemilihan Bahasa Pascal : Materi dan Contoh

Instruksi Pemilihan Bahasa Pascal

Dalam kehidupan nyata, kita biasanya perlu mengambil keputusan sesuai dengan kondisi yang ditentukan. Kondisi sederhana seperti:

"Jika dingin maka kenakan mantel Anda."

Dalam pernyataan ini tindakan yang dihasilkan diambil jika kondisi dievaluasi sebagai BENAR (cuaca dingin). Namun, jika cuacanya baik-baik saja, seluruh pernyataan dilewati. Beberapa kondisi dapat berlipat ganda, seperti yang ada dalam percakapan berikut:

"Baiklah, jika saya kembali lebih awal dari kerja, sampai jumpa malam ini; kalau tidak jika sudah terlambat aku akan membuatnya besok; kalau tidak jika kakakku tiba besok kita bisa berkumpul pada hari Selasa; lain jika Selasa adalah hari libur maka biarlah hari Rabu; kalau tidak, aku akan memanggilmu untuk mengatur pertemuan berikutnya!"

Dalam Pascal ada dua struktur kontrol yang digunakan untuk menangani kondisi dan keputusan yang dihasilkan yaitu konstruksi pilihan biner IF-THEN-ELSE dan konstruksi pilihan ganda CASE.

Kesimpulan berbagai kondisi Instruksi Pemilihan Bahasa Pascal :

1. Pernyataan IF-THEN sederhana yang digunakan dengan keputusan sederhana, dengan syntax :
IF condition THEN
    statement;

2. Konstruksi IF-THEN-ELSE lengkap yang berisi hasil dan hasil alternatif/hasil lainnya jika False, dengan syntax :
IF condition THEN
    statement
ELSE
    statement;

3. Kondisi rumit menggunakan tangga ELSE-IF (If else berjenjang), dengan syntax :
IF condition-1 THEN
    statement-1
ELSE IF condition-2 THEN
    statement-2
ELSE IF condition-3 THEN
    statement-3
...

ELSE
    statement-n;

4. Alternatif untuk tangga bersarang, konstruksi IF-THEN-ELSE di dalam satu sama lain (If else bersarang/nested), dengan syntax :

IF condition-1 THEN
    IF condition-2 THEN
        ...

        IF condition-n THEN
            statement-n1
        ELSE
            statement-n2
        ...

    ELSE
        statement-2
ELSE
    statement-1;

5. Menggunakan CASE konstruksi pilihan ganda, yang siap menangani banyak kasus, dengan syntax :
CASE expression OF
    label-1 : statement-1;
    label-2 : statement-2;
    ...

    label-n : statement-n;
END

6. Dalam Turbo Pascal, konstruksi CASE memiliki lebih banyak fitur, karena bisa berisi bagian ELSE yang menangani semua kasus lain yang tidak sesuai dengan label (CASE menggunakan ELSE), dengan syntax :

CASE expression OF
    label-1 : statement-1;
    label-2 : statement-2;
    ...

    label-n : statement-n;
ELSE
    statement
END

Kita juga dapat mengganti satu pernyataan dengan blok pernyataan menggunakan blok BEGIN-END.

7. Anda juga diperkenalkan dengan pernyataan percabangan tanpa syarat GOTO, yang mentransfer kontrol program ke pernyataan berlabel, dengan syntax :

GOTO label;

Label dalam Pascal standar adalah bilangan bulat positif hingga empat digit, sedangkan dalam Turbo Pascal itu bisa menjadi pengidentifikasi yang valid atau mungkin dimulai dengan angka.

Anda perlu mendeklarasikan label di awal bagian deklarasi program. Di Turbo Pascal, bagian LABEL tidak perlu menjadi bagian pertama.

Akhirnya, Anda bertemu dengan pernyataan Turbo Pascal EXIT, yang mengakhiri program kapan saja. Pada bab berikutnya, Anda melanjutkan diskusi tentang struktur kontrol dan belajar bagaimana membangun loop terstruktur.

Contoh-contoh instruksi pemilihan bahasa pascal :

Program Pascal untuk mengetahui apakah sebuah bilangan merupakan prima.

Program Bilangan_Prima; Uses Crt; Var X,Faktor,j,Jum_Faktor:Integer; Begin Clrscr; Write('Masukkan Bilangan: '); Readln(X); Faktor := 2; Jum_Faktor := 0; While (Faktor<=X) Do     Begin         If X Mod Faktor=0 Then         Faktor := Faktor+1;         Begin         j:=2;         while (j<=faktor)do             Begin             If faktor Mod j=0 Then                        Begin                        Writeln(j);                        Jum_Faktor := Jum_Faktor+1;                        End;             j := j+1;             End;         If Jum_Faktor=1 Then             Begin             Writeln('Bilangan Yang Anda Masukkan Adalah Bilangan Prima');             End             Else             Begin              Writeln('Bilangan Yang Anda Masukkan Adalah Bukan Bilangan Prima');             end;         end;     end; Readln; end.

Program membaca ketentuan zakat. 

Zakat hanya dikenakan kepada orang yang mampu. Misalnya, untuk saat ini, batas minimal (nishab) harta yang terkena zakat adalah Rp 2.500.000,-. Artinya seseorang yang hartanya kurang dari nilai tersebut tidak dikenai/diwajibkan zakat. Besar zakat yang dibayarkan adalah 2,5% dari harta yang dimiliki. dan jika orang tersebut tidak wajib zakat, tuliskan pesan ”Harta Anda belum mencapai batas minimal (nishab)” di layar!

program bayar_zakat; uses crt; var harta,zakat,total : real ; begin write ('Input Banyak Harta : '); readln(harta); if harta >= 2500000 then               begin               zakat := (2.5/100)*harta;               writeln ('Banyaak zakat yang harus anda bayar adalah ',zakat:10:2);               end else writeln ('Harta anda belum mencapai batas minimal (nishab)'); end.

Contoh - contoh lanjutan terkait instruksi pemilihan bahasa pascal. klink tautan berikut atau cari di kolom pencarian untuk melihat contoh-contoh lain terkait instruksi pemilihan bahasa pascal.

Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! suara kalian sangat berarti...see you...

Referensi : 

Abolrous, Sam A.2002.Learn Pascal in Three Days Third Edition.Texas:Wordware Publishing Inc

Categories: PEMROGRAMAN