Contoh Program di Pemrograman Pascal

Buat kalian yang masih pusing buat program,
nih saya kasih contoh program sederhana.

Pernyataan kondisi "IF" sederhana
IF kondisi THEN pernyataan
Pada kondisi ini, pernyataan hanya akan dijalankan apabila kondisi bernilai True.
Bagian konidis berupa ekspresi.

Contoh mekanisme kerja dari penyataan IF.

PROGRAMSuhu1;
Uses wincrt;
VAR
Suhu: Real;
BEGIN
Write('suhu tubuh:')
Readln(suhu);
If suhu >37 then
Writeln('suhu tinggi');
Write('selesai');
End.
_______________________________________________________________________

Pernyataan IF majemuk
Pada bagian pernyataan majemuk menggunakan tambahan pernyataan
Begin End.

Contoh program IF majemuk

PROGRAM Suhu2;
Uses wincrt;
VAR
Suhu: Real;
BEGIN
Write('suhu tubuh:');
Readln(suhu);
If suhu >38 then
BEGIN
Writeln('suhu tinggi');
Write('selesai);
END
END.
_________________________________________________________________________

Pernyataan IF ELSE
Bentuk selanjutnya dari IF adalah sebagai berikut:
IF kondisi THEN
Pernyataan_1
ELSE
Pernyataan_2
Pada bentuk ini:
a). Pernyataan_1 hanya akan dijalankan jika kondisi bernilai True ( benar)
b). Pernyataan_2 hanya akan dijalankan jika kondisi bernilai False ( salah)
Sebagai contoh, diinginkan untuk menampilkan tulisan:
a). Suhu tinggi kalau suhu bernilai lebih dari 37
b). Suhu rendah jika suhu kurang dari atau sama dengan 37

Contoh IF ELSE
PROGRAM Suhu3;
Uses wincrt;
VAR
Suhu: Real;
BEGIN
Write('suhu tubuh:');
Readln(suhu);
If suhu >37 then
Writeln('suhu tinggi');
ELSE
Writeln('suhu rendah');
Writeln('selesai');
END.
__________________________________________________________________

Penggunaan AND dan OR

Seringkali sebuah operator relasi tidak cukup untuk memeriksa kondisi-kondisi yanga ada.
Pada keadaan seperti ini, operator AND dan OR sangatlah berguna. Contohnya dapat dilihat dalam contoh berikut.

PROGRAM Pilihan1;
Uses wincrt;
VAR
Pil : integer;
BEGIN
Writeln('ketik pilihan dan akhiri dengan Enter');
Write('pilihan 1....4 :');
Readln(pil);
IF (pil>1) AND (pil<=4) THEN
Writeln('pilihan benar');
ELSE
Writeln('pilihan salah');
END.
___________________________________________________________________

ELSE berpasangan dengan IF kondisi1

Contoh pemakaian IF bersarang adalah untuk menentukan bonus bagi pembeli berdasarkan total pembelian. Kriterianya adalah sebagai berikut.

Kriteria	Bonus
Total ≥ 100.000	Diskon 10%
50.000≤total< 100.000	1 piring
10.000≤total < 50.000	2 gelas
Total < 10.000	Tidak ada bonus

PROGRAM Bonus;

Uses wincrt;

VAR

Totalpembelian: longint;

BEGIN

Writeln(‘total pembelian=’);Readln(totalpembelian);

IF totalpembelian>=100000 THEN

Writeln(‘Diskon sebesar 10%’);

ELSEIF totalpembelian >=50000 THEN

Writeln(‘bonus: 1 Piring’)

ELSEIF totalpembelian >=10000 THEN

Writeln(‘bonus: 1 gelas’);

ELSE

Writeln(‘Tidak ada bonus’);

END.

___________________________
___________________________
Cobalah! Semoga bermanfaat ya.
Salam Kreatif!!!