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;
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
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.
|
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. |
