bE miNe

bE miNe

Senin, 30 Agustus 2010

AKSES DATA LANGSUNG

Seorang sekretaris memerlukan satu program sederhana yang dapat membantunya mengetahui nomor telepon seseorang dengan cepat tanpa harus membuka buku agendanya.

Andaikan nama-nama orang tersebut adalah sebagai berikut:
Anton (0411) 324-678
Bahrul (021) 434-6783
Charles (022) 256-1234
Daud (0411) 567-342
Endang (0411) 344-235
Fahri (021) 765-0856
Gunarsih (0421) 123-876

Analisis :
1. Ketika program dijalankan maka muncul permintaan untuk memasukkan satu nama.
2. Nama ini kemudian dicari misalnya dengan rentetan if/then/else atau dengan intruksi case().
3. Bila nama tersebut ketemu tidak ada maka tampilkan “nama tersebut tidak ada!”.

Algoritma Buku_telepon
{ mencari nomor telepon seseorang}
Deklarasi
string nama, notelp;
Dekripsi
write (“Ketik namanya :”);
read ( nama );
case (nama)
‘Anton’ : notelp  ‘(0411) 324-678’;
‘Bahrul’ : notelp  ‘(021) 434-6783’;
‘Charles’ : notelp  ‘(022) 256-1234’;
‘Daud’ : notelp  ‘(0411) 567-342’;
‘Endang’ : notelp  ‘(0411) 344-235’;
‘Fahri’ : notelp  ‘(021) 765-0856’;
‘Gunarsih’ : notelp  ‘(0421) 123-876’;
default : notelp  ‘nama tsb tdk ada’;
endcase.

write (notelp);

Tidak ada komentar:

Posting Komentar