Program Daftar facebook
kamus
Type facebook <
Nama : string
pekerjaan
:
string
email :
string
umur : integer
>
fb
: array [1…n] of facebook
functiondaftarbaru (n, p, e : string , u : integer) àfb
function profile (f : fb) àstring
proceduresunting (input n2, p2, e2 : string , u2 : integer , input/output
f :fb)
function
carifb (f : fb) àstring
Function urutkanumur (f:fb ) àinteger
pilih : integer
fb2 : string
Algoritma
output
(“Menu : 1. BuatBaru, 2. Lihat Profile, 3. Sunting
Profile, 4.cari daftar facebook , 5. Urutkan berdasar umur ”)
output (“Pilihananda ? “)
input (pilih)
depend
on (pilih)
1. fb2ßdaftarbaru(n, p, e, u) àfb
2. output(profile(fb2))
3. sunting(n, p, e, f : fb)
4. carifb (f:fb)
5. urutkanumur (f:fb)
function daftarbaru (n, p, e : string, u :integer) àfb
Algoritma
i
traversal [1…n]
Output (“masukkan nama : “)
Input (n)
Output (“masukkan pekerjaan : “ )
Input (p)
Output(“masukkan email : ”)
Input (e)
Output (“masukkan umur anda : ”)
Input (u)
P[i].namaß n
p[i].pekerjaanß p
p[i].emailß e
p[i].umurß u
à p
function profile
(f : fb) àstring
kamus lokal
Algoritma
i
traversal [1…n]
output (“nama facebook ke-“, i )
output
(f[i].nama)
output(“pekerjaan :“, f[i].pekerjaan)
output(“email : “ , f[i].email )
output (“umur : “, f[i].umur )
procedure
sunting (input n, p, e : string , u
: integer, input/output f : fb)
kamus
nama
: string
i
= integer
algoritma
output
(“sunting berdasar nama “)
output
(“cari nama facebook yang ingin disunting? “)
input
(nama)
i = 0
while
( i < n AND nama <> f[i].nama
)
output (“sunting nama
facebook ke”, i )
input (n)
output (“sunting
pekerjaan “)
input (p)
output (“sunting email facebook ke”, i )
input (e)
output (“sunting umur facebook ke”, i )
input (u)
f[i].namaß n
f[i].pekerjaanß p
f[i].emailß e
f[i].umurß u
i = i+1
function
carifb (f : fb) àstring
kamus local
i
: integer
Algoritma
i = 0
while
( i < n AND nama <> f[i].nama
)
output (“nama facebook ke-“, i )
output
(f[i].nama)
output(“pekerjaan :“, f[i].pekerjaan)
output(“email : “ , f[i].email )
output (“umur : “, f[i].umur )
i = i + 1
Function urutkanumur (f:fb ) àinteger
Kamus :
Pass, j temp : integer
Algoritma :
pass teversal [n…2]
j traversal [2…pass]
if (f[j-1].umur < f[j].umur ) then
temp
ß f[j-1]
f[j-1]
ß f[j]
f[j]
ß temp