A.
Pengertian
Blok Pemilihan
merupakan blok kontrol yang digunakan untuk memilih statemen yang akan
dilakukan, dimana pemilihan tsb., didasarkan pada nilai dari kondisi-kondisi
tertentu.
B.
Macam-macam
Statement Pemilihan
Statemen
yang termasuk pada Pemilihan adalah:
1.
Statemen
if
Statemen if akan
selalu diikuti oleh ekspresi sebaga kondisi yang akan diperiksa dan selalu
berpasangan dengan kata kunci then.
a)
Statemen satu kasus
If
satu
kasus jika hanya ada sebuah ekspresi dan sebuah statement yang akan dipilih.
Bentuk
umum:
If (ekspresi) then
Statemen;
Atau
If (ekspresi) then begin
Statemen1;
Statemen2;
End;
Contoh:
Menentukan sembarang bilangan bulat positif
Himpunan
bilangan bulat adalah himpunan bilangan yang terdiri dari himpunan bilangan
positif (bilangan asli), bilangan nol, dan bilangan bulat negatif.
Bilangan
Positif adalah suatu himpunan yang memiliki anggota positif dan bilangan asli.
Bilangan ini memiliki ciri nilai paling besar adalah tak hingga.
Bisa
ditulis dengan B = {1,2,3,4,5,….10}.
Program
pascal dari menentukan bilangan bulat positif
Uses
wincrt;
Var
x:integer;
Begin
Writeln('Masukan sebuah bilangan
sembarang');
Readln(x);
If (x>0) then
writeln (x,' adalah bilangan bulat positif');
End.
b)
Statemen if dua kasus
Bentuk umum:
If
(kondisi) then
Statemen_jika_kondisi_benar
Else
Statemen_jika_kondisi_salah;
Atau
If
(kondisi) then begin
Stetemen_jika_kondisi_benar
End
else
Statemen_jika_kondisi_salah;
Atau
If
(kondisi) then begin
Stetemen_jika_kondisi_benar
End
else begin
Statemen_jika_kondisi_salah;
End;
Contoh : Menentukan sembarang
bilangan bulat
Seperti
yang sudah diketahui sebelumnya bahwa himpunan bilangan bulat adalah himpunan
bilangan yang terdiri dari himpunan bilangan positif (bilangan asli), bilangan
nol, dan bilangan bulat negatif.
Untuk
statemen dua kasus maka akan diambil kasus untuk menentukan apakah suatu
sembarang bilangan bulat termasuk bilangan bulat positif atau negatif.
Bilangan
bulat positif adalah suatu himpunan yang memiliki anggota bilangan lebih dari 0
(positif) dan bilangan asli. Bilangan ini memiliki ciri nilai paling besar
adalah tak hingga. Bisa ditulis dengan
Bilangan
bulat negatif adalah suatu himpunan yang memiliki anggota bilangan bulat yang
kurang dari 0 (negatif). Bilangan ini memiliki ciri nilai paling kecil adalah
negatif tak hingga. Bisa ditulis dengan
}.
Program
pascal dari menentukan bilangan bulat
Uses
wincrt;
Var
x:integer;
Begin
Writeln('Masukan sebuah bilangan
sembarang');
Readln(x);
If (x>0) then begin
writeln(x,' Merupakan bilangan bulat positif');
end else
writeln(x,' Merupakan bilangan bulat
negatif');
End.
c)
Statemen if Tiga kasus
atau lebih
Bentuk umum:
If (kondisi1) then begin
Statemen_jika_kondisi_benar;
.
. .
End else if (kondisi 2) then begin;
Statemen_jika_kondisi_benar;
.
. .
End else begin
Statemen-alternatif
End.
Contoh :
Menentukan
sembarang bilangan bulat
Seperti
yang sudah diketahui sebelumnya bahwa himpunan bilangan bulat adalah himpunan
bilangan yang terdiri dari himpunan bilangan positif (bilangan asli), bilangan
nol, dan bilangan bulat negatif.
Untuk
statemen tiga kasus maka akan diambil kasus untuk menentukan apakah suatu
sembarang bilangan bulat termasuk bilangan bulat positif, bilangan bulat
negatif atau bilangan nol.
Bilangan
bulat positif adalah suatu himpunan yang memiliki anggota bilangan lebih dari 0
(positif) dan bilangan asli. Bilangan ini memiliki ciri nilai paling besar
adalah tak hingga. Bisa ditulis dengan
Bilangan
bulat negatif adalah suatu himpunan yang memiliki anggota bilangan bulat yang
kurang dari 0 (negatif). Bilangan ini memiliki ciri nilai paling kecil adalah
negatif tak hingga. Bisa ditulis dengan
}.
Bilangan
nol adalah bilangan netral yang tidak termasuk pada bilangan bulat positif
ataupun bilangan bulat negatif. Bisa ditulis dengan
.
Program
pascal dari menentukan bilangan bulat
Uses
wincrt;
Var
x:integer;
Begin
Writeln('Masukan sebuah bilangan
sembarang');
Readln(x);
If (x>0) then begin
writeln(x,' Merupakan bilangan bulat positif');
end else if(x<0) then begin;
writeln(x,' Merupakan bilangan bulat negatif');
end else begin
writeln(x,' Merupakan bilangan nol');
end;
end.
2.
Statemen
case
Statemen case merupakan alternatif lain untuk melakukan pemilihan yang
didasarkan pada nilai-nilai konstanta tertentu.
a) Bentuk
Umum:
Case
(ekspresi) of
Nilai_konstan1:statemen1;
Nilai_konstan2:statemen2;
. . .
Else
Statemen
default;
End;
b) Program
Pascal Case untuk Memecahkan Masalah Matematika
Program pascal Case dapat digunakan untuk membuat
suatu alternatif pemecahan masalah dalam berbagai materi matematika. Salah satu
contohnya yaitu membuat suatu menu program pemilihan untuk menghitung luas
bangun datar.
Bangun datar yang akan dipilih diantaranya adalah
persegi, persegi panjang, jajar genjang, belah ketupat, dan segitiga.
1) Rumus
luas bangun datar
Persegi merupakan suatu bangun datar yang memiliki
iri-ciri dari persegi antara lain :
Luas = sisi x sisi
Program pascal untuk membuat menu
rumus mencari luas bidang datar dapat ditampilkan seperti di bawah ini:
uses wincrt;
var
no:integer;
a,t,s,p,l,d1,d2,Luas:real;
begin
writeln('Menu untuk Menghitung Luas Bangun Datar');
Writeln('1.Persegi');
Writeln('2.Persegi Panjang');
writeln('3.Jajar Genjang');
writeln('4.Belah Ketupat');
writeln('5.Selesai');
writeln('Nomor berapakah yang akan anda pilih?');
read(no);
case no of
1:begin
writeln('Berapakah sisinya?'); read(s);
Luas:=s*s;
writeln('Luas persegi tersebut adalah', Luas);
end;
2:begin
writeln('Berapakah panjangnya?'); read(p);
writeln('Berapakah lebarnya?'); read(l);
Luas:=p*l;
writeln('Luas persegi panjang tersebut adalah', Luas);
end;
3:begin
writeln('Berapakah alasnya?'); read(a);
writeln('Berapakah tingginya?'); read(t);
Luas:=a*t;
writeln('Luas Jajar genjang tersebut adalah', Luas);
end;
4:begin
writeln('Berapakah panjang diagonal pertamanya?'); read(d1);
writeln('Berapakah panjang diagonal keduanya?'); read(d2);
Luas:=(d1*d2)/2;
writeln('Luas Belah Ketupat tersebut adalah', Luas);
end;
5:begin
writeln('Terima kasih dan sampai jumpa lagi ^_^');
end;
end;
end.
0 komentar:
Posting Komentar