Membuat Fungsi dan Prosedur

  1. VOLUME TABUNG
  • Procedure

procedure hitung_vol (input : phi, r, t = integer

output : V = float)

Kamus

Algoritma :

V <- phi*r*r*t

output hitung_vol ()

  • 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

  • Prosedur

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

  • Prosedur

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

function 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

  • Prosedur

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 segitiga()