Mencari Luas Persegi Panjang (Algoritma)

Program Luas_Persegi_Panjang
    {dibaca 2 inputan sebagai panjang dan lebar, kemudian menampilkan hasil perkalian/luasnya}
Deklarasi:
    p, l, luas : integer
Algoritma:
    read(p, l)
    luas <- p*l
    write(luas)

Menukar 3 Bilangan (Algoritma)

Program  Menukar_3_Bilangan
  a --> c
  b --> a
  c --> b
Deklarasi
 a = integer 
 b = integer
 c = integer
 d = integer
Algoritma
  read (a)
  read (b)
  read (c) 
  d  <-- a
  a  <-- b
  b  <-- c
  c  <-- d

write (a)

write (b)

write (c)

Menghitung 2 Buah Pecahan Dengan 4 operator (Algoritma)

Program Menghitung_2_ Buah_Pecahan_Dengan _4_ operator
 { Dibaca 2 buah pecahan P1 dan P2, hitunglah jumlah 2 pecahan, pengurangan, perkalian dan pembagian }
Deklarasi
 p1 = real
 p2 = real
 a,b,c,d = real
 x1,y1,x2,y2 = real

Algoritma
 a <-- p1 + p2
 b <-- p1 - p2
 c <-- p1 :  p2
 d <-- p1 x p2
 write(a) 
 write(b)
 write(c)
 write(d)