Algoritma Mencari Luas dan Keliling

Algoritma lingkaran

Deklarasi

r : integer
luas : riil
kel : riil

Deskripsi

read(r)

luas <- 22*r*r/7
kel <- 2*22*r/7

write(luas)
write(kel)

end


Algoritma Segitigasamakaki

Deklarasi

a,b,c,al,t : integer
keli : riil
l : riil

Deskripsi

read(a)
read(b)
read(c)

keli <- a+b+c

write(keli)

read(al)
read(t)

l <- 0.5*(al*t)

write(l)

end


Algoritma segitiga


Deklarasi

p,lb : integer
L, k : riil

Deskripsi

read(p)
read(lb)

L <- p*lb
k <- 2*(p+lb)

end