Akses Data Langsung

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

Andaikan nama-nama orang tersebut adalah sebagai berikut :

Andi (0411) 324-678
Charles (021) 434-6783
Daud (022) 256-1234
Pedro (0411) 567-342
Deblenk (0411) 344-235
Doni (021) 765-0856
Andri (0421) 123-876

Analisis :

1. Ketika program di jalankan maka muncul permintaan untuk memasukkan satu nama

2. Nama ini kemudian di cari,misalnya dengan rentetan if/then/else atau dengan instruksi case().

3. Bila nama tersebut ketemu maka nomor teleponnya di tampilkan.

4. Bila nama tersebut tidak ada maka tampilkan "nama tersebut tidak ada!".


Algoritma Buku_telepon
(mencari nomor telepon seseorang)

Deklarasi
string nama,notelp;

Deskripsi
write ("ketik namanya :");
read (name);

case (nama);
'Andi' : notelp <- '(0411) 324-678';
'Charles' : notelp <- '(021) 434-6783';
'Daud' : notelp <- '(022) 256-1234';
'Pedro' : notelp <- '(0411) 567-342';
'Deblenk' : notelp <- '(0411) 344-235';
'Doni' : notelp <- '(021) 765-0856';
'Andri' : notelp <- '(0421) 123-876';
default : notelp <- 'nama tsb tdk ada';

endcase

write (notelp);