PRAKTIKUM 1 ALPRO

deklarasi

phi⇽float

 luas, r :float

deskrpsi

luas⇽phi*r*r

write

(luas)

deklarasi

luas, panjang, lebar : integral

deskripsi

luas⇽ panjang*lebar

write

luas

 Deklarasi

s, lp, ll :integral

hasil, phi :float

deskripsi

read(s)

phi⇽3.14

LP⇽s*s

hasil⇽LP-LL

write

(hasil)

deklarasi

hasil : float

pilih, bilangan1, bilangan2 : integral

deskripsi

read(bilangan1,bilangan2,pilih )

if(pil=1)then

hasil⇽bilangan1+bilangan2

else if(pil=2)then

hasil⇽ bilangan1-bilangan2

else if(pil=3)

hasil⇽ bilangan1*bilangan2

else if(pil=4)

hasil⇽bilangan1/bilangan2

else

write(   )

endif

write(hasil)