1.
untuk menentukan ganjil genap, langkah pertama kita menetukan rumus untuk menentukan ganjil dan genap dengan menggunakan modulo atau sisa hasil bagi. yaitu : jika x mod 2 = 0 maka genap dan jika x mod 2 = 1 maka ganji
Prosedure ganjil_genap(input/output n : integer)
Deklarasi :
n : integer
Deskripsi:
read(n)
if(n>=1) then
ganjil_genap(n-1)
if(n%2=0) then
else write(n)
endif
endif
2. p=3 dan l=5, maka luas perseginya adalah
luas = p x l
luas = 3 x 5
las = 15
Prosedure luas (inout p : integer, l : integer, output hasil : hasil )
Deklarasi :
-
Deskripsi :
read(p,l)
haisl <- p * l
write (hasil)