Percabangan Pada Pascal
tokomodemku Posted on 10:21 am

Percabangan Pada Pascal

Percabangan Pada Pascal

Percabangan Pada Pascal
Percabangan Pada Pascal
  1. lIf ….. Then …. Else ….. 

Pernyataan percabangan/kendali/bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi. Salah satu pernyataan kendali untuk pengambilan keputusan dalam Pascal adalah pernyataan If … Then … Else …

Bentuk umum :

IF kondisi THEN
Statemen 1
ELSE
Statemen 2

Untuk pernyataan IF yang berkalang (ada pernyataan IF yang lain dalam pernyataan IF), ELSE selalu berpasangan dengan dengan IF yang terletak sebelum dan yang paling dekat dengan ELSE tersebut, serta terletak dalam blok pernyataan yang sama.

Contoh 1 : Program untuk mencari akar persamaan kuadrat di bawah ini
Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln(‘Menghitung akar-akar persamaan kuadrat’);
writeln(‘Nilai a,b,c dimasukkan dengan jeda spasi’);
write(‘Masukkan nilai a,b,c:’);
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln(‘tidak ada akar real’)
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
end;
readln;
end.

Contoh Hasil Eksekusi :

– jika d = 0
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 4 2
x1 = -0.59
x2 = -3.41

– jika d < 0 :
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 2 6
tidak ada akar real

Catatan :
1. Di dalam IF boleh ada IF (pernyataan IF yang berkalang)
2. Jika diinginkan kondisi = FALSE tidak mengerjakan apa-apa, maka ELSE tidak perlu dituliskan.
3. Pernyataan ELSE tidak diakhri dengan ; (titik koma) begitu pula baris pernyataan sebelum ELSE.

2. Case ….. Of …..
Pernyataan CASE …. OF …. Digunakan untuk pengambilan keputusan jika terdapat lebih dari dua alternatif jawaban yang tersedia.

Bentuk umum :
CASE ungkapan OF
Label 1 : Statemen 1
Label 2 : Statemen 1
………..
………..
………..
Label n : Statemen n
END;

Pernyataan CASE …. OF …. boleh diikuti ELSE. Perlu diketahui, ELSE dalam pernyataan CASE …. OF …. Hanya bersifat pilihan, dalam artian boleh disertakan boleh tidak. Jika ELSE disertakan, pernyataan yang mengikuti ELSE akan dieksekusi hanya bila nilai dari syarat-pemilih tidak ada dalam semua label.

Contoh 1 :
Program nilai_ujian;
uses crt;
var nama : string[25];
nim : string[8];
nilai: integer;
begin
clrscr;
write(‘Masukkan nama mahasiswa : ‘);
readln(nama);
write(‘Masukkan nomor induk mahasiswa : ‘);
readln(nim);
write(‘Masukkan nilai ujian : ‘);
readln(nilai);
writeln;
case nilai div 10 of
10,9 : writeln(‘Nilai huruf = A’);
8 : writeln(‘Nilai huruf = B’);
7 : writeln(‘Nilai huruf = C’);
6 : writeln(‘Nilai huruf = D’);
5,4,3,2,1,0 : writeln(‘Nilai huruf = E’);
end;
readln;
end.

Contoh 2 :
Program konversi;
uses crt;
var
menit, jam, kaki, meter, fahrenheit, celcius : real;
pilihan :char;
begin
clrscr;
writeln(‘Pilihan konversi:’);
writeln(‘1) Menit ke jam’);
writeln(‘2) Kaki ke meter’);
writeln(‘3) Derajat Fahrenheit ke Celcius’);
write(‘pilihan ? ‘);
readln(pilihan);
case pilihan of
‘1’ : begin
write(‘menit= ‘);
readln(menit);
jam:=menit/60;
writeln(‘nilai ini sama dengan ‘,jam:4:1,’
jam’);
readln;
end;
‘2’ : begin
write(‘kaki= ‘);
readln(kaki);
meter:=0.3048*kaki;
writeln(‘nilai ini sama dengan ‘,meter:4:1,’
meter’);
readln;
end;
‘3’ : begin
write(‘Derajat Fahrenheit = ‘);
readln(fahrenheit);
celcius:=5/9*(fahrenheit-32);
writeln(‘nilai ini sama dengan ‘,Celcius:4
:1,’ Celcius’);
readln;
end;
else writeln(‘Tidak melakukan konversi’);
end;
end.

Sumber : https://tribunbatam.co.id/into-the-dead-apk/