Fungsi Menentukan Bilangan Prima, Genap, Ganjil, dan Kabisat

Fungsi isprima (angka <- integer) <- Boolean

{

/*

menerima angka, integer memberikan true jika angka adalah prima

*/

///kamus

i <- integer

prima <- boolean

hitung <- integer

 

///Algoritma

prima <- false

hitung<- 0

 

i <- 1

repeat

if (angka mod i = 0) then

(hitung<– hitung + 1)

end if

i = i + 1

until i= angka

 

if(hitung = 2 ) then

(prima<- true)

end if

->prima

}

 

 

fungsi isgenap ( angka : integer) -> boolean

{

/*

menerima angka, integer memberikan true jika angka adalah genap

*/

 

///kamus

genap <- boolean

 

/// Algoritma

genap <- false

if ( angka mod 2 = 0) then

(genap<- true)

end if

->genap

}

 

 

fungsi isganjil (angka <- integer) <- boolean

{

/*

menerima angka, integer memberikan true jika angka adalah ganjil

*/

 

///Kamus

ganjil <- boolean

 

///Algoritma

ganjil<- false

if (angka mod 2 != 0 ) then

(ganjil<- true)

->ganjil

}

 

fungsi iskabisat ( tahun <- integer ) <- boolean

{

/*

menerima tahun, integer memberikan true jika tahun adalah kabisat

*/

 

///Kamus

kabisat <- boolean

 

///Algoritma

kabisat<- false

if (tahun mod 400 = 0 or (tahun mod 4=0 and tahun mod 100 != 0) then

(kabisat<- true)

->kabisat

}

Leave a Reply

Your email address will not be published. Required fields are marked *