Runtunan di bahasa Pascal
15 October 2012
Frame HTML
15 October 2012

Algoritma Pemilihan

Seringkali suatu intruksi bisa dikerjakan jika ia memenuhi suatu persyaratan tertentu. Komputer tidak lagi mengerjakan secara sekuensial, tetapi berdasarkan syarat yang dipenuhi.

Menganalisa Kasus

Sebuah persoalan harus kita analisis untuk menentukan kasus kasus yang munkin terdapat didalamnya.
Contoh kasus:

 

Kuadran II                Kuadran I

(x<0,y>0)                (x>0,y>0)

 

Kuadran III                   Kuadran IV

(x<0,y<0)                (x>0,y<0)
Kondisi bernilai boolean (true/false).

if satu kasus - emerer.com Bentuk umum:

if kondisi then

aksi

endif

 

Contoh Masalah Satu Kasus

program genap;

uses wincrt;

(* deklarasi*)

var x: integer;

(*algoritma*)

begin

write(‘Ketik sembarang bilangan : ‘); readln(x);

if x mod 2 = 0 then

writeln (x,’ merupakan bilangan genap’);

end.

Dua Kasus

Terkadang kita perlu melakukan aksi alternatif jika suatu kondisi tidak memenuhi. Jadi ada dua kasus , tetapi hanya satu yang kita pilih atau kerjakan.

if dua kasus - emerer.com
Bentuk umum:

if kondisi then

aksi1

else

aksi2

endif

 

Contoh Masalah Dua Kasus

program Maksimum;

uses wincrt;

(* deklarasi*)

var A,B : integer;

(*algoritma*)

begin

write(‘Ketik Bilangan A : ‘); readln(A);

write(‘Ketik Bilangan B : ‘); readln(B);

if A>B then

writeln (‘Bilangan Terbesar : ‘,A)

else

writeln (‘Bilangan Terbesar : ‘,B);

end.

 


if tiga lebih kasus - emerer.com
Bentuk umum :

if kondisi1 then

aksi1

else

if kondisi2 then

aksi2

    else

if kondisi3 then

aksi3

endif

endif

endif

 

Contoh Masalah Tiga Kasus atau Lebih

Program JenisBilanganBulat

Deklarasi:

x : integer

Algoritma:

read(x)

if x>0 then

write(‘positif’)

else

if x<0 then

write(‘negatif)

else

if x=0 then
write(‘nol’)
endif endif endif

 

Struktur CASE

Konstruksi case:

case ekspresi

nilai1 : aksi1

      nilai2 : aksi2

      nilai3 : aksi3

      …

      nilain : aksin

otherwise : aksix

endcase

 

Contoh Case

program namabulan;

uses wincrt;

var bulan: integer;

begin

write (‘Masukan code bulan  :  ‘);readln (bulan);

case bulan of

1 : write (‘Januari’);

2 : write (‘Februari’);

3 : write (‘Maret’);

4 : write (‘April’);

5 : write (‘Mei’);

6 : write (‘Juni’);

7 : write (‘Juli’);

8 : write (‘Agustus’);

9 : write (‘September’);

10 : write (‘Oktober’);

11 : write (‘November’);

12 : write (‘Desembar’);

else write (‘tak ada pilihan’);

end;

end.

 

 

 

 

Kasus !!!

 

Buatlah Algoritma dan Program :

Luas Persegi panjang,  Rumus Luas segitiga, Luas Linkaran

yang dibuat dalam satu program menggunakan CASE.

 

 

Daftar Pustaka:

 

Munir, Rinaldi. 2007Algoritma dan pemrograman dalam Bahasa Pascal dan C, Penerbit informatika. Bandung.

 

 

Motivasi

Kebencian atau dendam tidak menyakiti orang yang tidak Anda sukai. Tetapi setiap hari dan setiap malam dalam kehidupan Anda, perasaan itu menggerogoti Anda

(Norman Vincent Peale)

Ada yang mengukur hidup mereka dari hari dan tahun. Yang lain dengan denyut jantung, gairah dan air mata. Tetapi ukuran sejati di bawah mentari adalah apa yang telah engkau lakukan dalam hidup ini untuk orang lain

 (Confusius)

 

Agak LUCU    è Orang Gaptek dan SPG Komputer

 

Orang gaptek( OG) VS SPG gaptek berbincang di pameran komputer.

 

OG : “Mbak, mau nanya dong? ‘ENTER’ itu maksudnya apa?”

SPG dengan sigap menjawab: “Kayaknya untuk mempercepat program deh Mas!”

OG : “Mempercepat gimana maksudnya mbak?”

SPG : “Ya biar cepet kerjanya Mas. kalo tulisan nya ENTAR, khan jadinya lamaaa!!”

OG: “Oww, tanya lagi ya Mbak, ini saya sudah masuk ke Internet Explorer. Kok saya ketik Facebook.com, ngak keluar apa-apa yah?”

SPG : “Lah, di depan nya Mas sudah ngetik www belum Mas?”

OG : “Memangnya harus ya Mbak, sebenarnya www itu apa?”

SPG : “Eeeehhmmmm… Apa yah? Pokoknya kalo mau masuk ke website memang harus ketik www itu Mas, kode permisi gitu lhooh. kayak nya kalau ngak salah singkatan dari Wassalammualaikum Warohmatullohi Wabarokaatu…”

Muhammat Rasid Ridho
Muhammat Rasid Ridho
Software Developer yang Suka Jalan jalan, Belajar Jaringan dan Berbagi Cerita. Instagram: muhammat.rasid.ridho Jangan lupa tulis komentar di bawah ini ya teman teman ... !

Leave a Reply

Your email address will not be published.