main.c
x= 12 <- integer
y= 4 <- integer
printf (“hasil kali %d*%d = %d\n”, x,y,kali (x,y));
pustaka.c
kali (a <- integer, b <-integer) -> integer
{
if (b == 0)
{
return 0;
}
else
{
return a + kali (a, b-1);
}
}
pustaka.h
kali (a <- integer, b <-integer) ; -> integer
Judul : Function HitungKonsonan (text <- char) -> integer
Kamus :
{
indeks <- int
indeks <-0
jmlh <- int
jmlh <-0
Deskripsi :
while (text [indeks] ! =’\0′) then
if (text [indeks] !=’a’ || text [indeks] !=’i’|| text [indeks] !=’u’||text [indeks] !=’e’||text [indeks] !=’o’) then
(jmlh <-++)
else if
(text [indeks] !=’A’|| text [indeks] !=’I’|| text [indeks] !=’U’|| text [indeks] !=’E’||text [indeks] !=’O’) then
(jmlh<-++)
else
(indeks <++)
end if
return (jmlh)
}
Judul : Function HitungVokal (text <- char) -> integer
Kamus :
{
indeks <- int
indeks <-0
jmlh <- int
jmlh <-0
Deskripsi :
while (text [indeks] ! =’\0′) then
if (text [indeks] ==’a’ || text [indeks] ==’i’|| text [indeks] ==’u’||text [indeks] ==’e’||text [indeks] ==’o’) then
(jmlh <-++)
else if
(text [indeks] ==’A’|| text [indeks] ==’I’|| text [indeks] ==’U’|| text [indeks] ==’E’||text [indeks] ==’O’) then
(jmlh<-++)
else
(indeks <++)
end if
return (jmlh)
}
Judul : Function JumlahKata (kata <- char) -> integer
Kamus :
i <- integer
Deskripsi :
i <- 0
while (kata[1]! = ‘\0’) do
i <- i+1
end while
output jumlahkata []
Judul : Function IsKabisat (tahun <- integer) -> integer
Deskripsi :
{
if (tahun div 400 ==0) then
output (TRUE)
else if (tahun div 400! =0 and tahun div 100==0) then
output (TRUE)
else if (tahun div 400! =0 and tahun div 100!=0 and tahun div 4 ==0) then
output (TRUE)
else
output (FALSE)
end if
}
~Genap
Judul : Function IsGenap (bil <- integer) -> integer
Deskripsi :
{
if (bil div 2==0) then
return 1
else
return 0
end if
}
~Ganjil
Judul : Function IsGanjil (bil<-integer) -> integer
Deskripsi :
{
if (bil div 2 !=0) then
return 1
else
return 0
}
Judul : Function IsPrima (bil <- integer) -> integer
Kamus :
{
indeks <- integer
hasilcek <- integer
Deskripsi :
if (bil<2) then
hasilcek<-0
else if
(bil==2) then
hasilcek <-1
else
indeks <-2
while (indeks<bil/2) then
hasilcek <-1
(indeks <- ++)
if (bil div indeks==0) then
hasilcek <-0
indeks <-bil
end if
end if
}
Judul :
Function status_segitiga (a,b,c <- integer, jenis<-string) -> string
Kamus :
{
a,b,c <- integer
jenis <-string
Deskripsi :
input (a,b,c)
if (a==b & a==c)
output (“segitiga sama kaki”)
else
output (“segitiga sembarang”)
end if
return jenis
}
Judul : Function vol_tab (jari2,tinggi <- integer) -> integer
Kamus :
phi <- float
phi <- 3,14
Deskripsi :
vol_tab <- phi*jari2*jari2*tinggi
Selamat Datang Dinus Students Blog Sites. Ini adalah tulisan pertama kamu. Ubah dan hapus, kemudian mulailah blogging!