Akses Data Langsung

Akses Data Langsung

Seorang sekertaris memerlukan satu program sederhana yang dapat membantunya mengetahui nomor telepon seseorang dengan cepat tanpa harus membuka buku teleponnya.
Andai nama-nama orang tersebut adalah sebagai berikut:
Agustian (0711) 476234
Benny (0711) 894557
Chandra (0711) 347789
Didi (0711) 788634
Eva (0711) 456332
Febri (0711) 499765
Analisis :
 Ketika program dijalankan maka muncul permintaan untuk memasukkan satu nama.
 Nama ini kemudian dicari misalnya dengan rentetan if/then/else atau dengan intruksi case().
 Bial nama tersebut ketemu maka nomor teleponnya ditampilkan.
 Bila nama tersebut tidak ada maka tampilkan “nama tersebut tidak ada!”.

Program Buku_telepon
{mencari nomor telepon seseorang}
Deklarasi
String nama, notelp;
Deskripsi
Write (“ketik namanya:”)
Read (nama)
Case (nama)
‘Agustian’ : notelp←’ (0711) 476234’;
‘Benny’ : notelp ←’ (0711) 894557’;
‘Chandra’ : notelp ←‘(0711) 347789’;
‘Didi’: notelp ←’ (0711) 788634’;
‘Eva’ : notelp ← ‘(0711) 456332’;
‘Febri’ : notelp ← ‘(0711) 499765’;
Default : notelp ← ‘nama tersebut tidak ada’;
Endcase.
Write (notelp);