Membuat Fungsi dan Procedur

  1. VOLUME TABUNG
  • Procedur hitung vol (input : phi , r , t =  integer

output : V = float)

Kamus

Algoritma :

V <- phi*r*r*t

output hitung vol 0

  • Fungsi

function hitung vol (r=integer,t=integer)<-float

Kamus :

V <- float

phi <- integer

Deskripsi

phi = 3.14

V = phi*r*r*t

return V

2. JUMLAH KATA

  • Fungsi

function jum_kata(kata<-char

Kamus : i<-integer

Algoritma :

i<-0

while(kata[i]!= ‘\0’) do

i <- i+1

end while

return i

  • Procedure

procedure jum_kat(input: kata [] <- char)

Kamus : i <- integer

Algoritma :

i <- 0

while (kata[i] != ‘\0’)do

i <- i+1

end while

output jum_kat ()

3. KONVERSI JAM KE DETIK

  • Fungsi

function konv_detik(jam <- integer)<-integer

Kamus : menit, detik <-integer

Algoritma :

menit <-  jam*60

detik <- menit*60

detik <- detik/3600

return konv_detik

  • Procedur

Procedure konv_detik(input : jam <- integer

output : detik <- integer)

Kamus

Algoritma :

menit <- jam*60

detik <- menit*60

detik <- detik//3600

output konv_detik ()

4. STATUS SEGITIGA

  • Fungsi

funtion segitiga ( sisi A, sisi B,sisi C <- integer ) _. string

Kamus

Algoritma :

if ( sisi A = sisi B = sisi C)

then ‘segitiga sama sisi’

else if(sisi A, sisi B && sisi B!= sisi C)

or (sisi B = sisi C && sisi C != sisi A)

or (sisi C = sisi B && sisi B ! = sisi C)

then ‘segitiga sama kaki’

else

‘segitiga sembarang’

return segitiga

  • procedur

procedure segitiga (input : sisi A,sisi B,sisi C <- integer

output : jenis_segitiga <- string)

Kamus

Algoritma :

if ( sisi A, sisi B, sisi C)

then “segitiga sama sisi’

else if (sisi A,sisi B && sisi B! = sisi C)

or (sisi B = sisi C && sisi C ! = sisi A)

or (sisi C= = sisi B && sisi B ! = sisi A)

then ‘segitiga sama kaki’

else

then ‘segitiga sembarang’

output ssegitiga ()