Contoh contoh struktur algoritma menggunakan pseudocode

Berikut ini adalah contoh-contoh struktur algoritma menggunakan pseudocode yang akan diterapkan kedalam bahasa pemrograman pascal.

Contoh 1: algoritma luas lingkaran

Algoritma Luas_Lingkaran
{Menghitung luas sebuah lingkaran apabila jari-jari lingkaran tersebut diberikan}

Deklarasi
{Definisi nama tetapan}
        Const N=10
        Const phi = 3.14
        real jari-jari,luas

Deskripsi
        Read (jari-jari)
        Luas = phi*jari-jari*jari-jari
        Write (luas)

Contoh 2:algoritma untuk menghitung nilai rata-rata sejumlah angka yang diinputkan melalui keyboard

Algoritma Nilai-Rata
{Menghitung nilai rata-rata sejumlah bilangan yang diinputkan melalui keyboard}

Deklarasi
{Definisi nama tetapan}
        Integer x,N,k,jumlah
        real nilai-rata

Deskripsi
        {inputkan sejumlah data}
        read (N)
        k <-- 1
        jumlah <-- 0
        Write (k<=N)do
                            {baca data}
                            read(x)
                            jumlah <-- =x
                            k <--k=1
                      endwhile
                     {hitung nilai rata-rata}
                      nilai-rata <-- jumlah/N
                      write(nilai_rata)

Contoh 3: algoritma yang menerima dua buah angka bulat kemudian menampilkan angkayang lebih besar.

Algoritma Lebih-besar
{Menerima dua angka kemudian menampilkan angka yang lebih besar}

Deklarasi
        Integer angka1, angka2

Deskripsi
        {inputkan angka}
        read (angka1)
        read (angka2)
        {periksa yang lebih besar}
        if (angka1> angka2)
        then write("yang lebih besar=",angka1)
        else write("yang lebih besar=",angka2)
        endif

Contoh 4: algoritma berikut ini mencari angka terbesar dari suatu himpunan angka.

Algoritma Mencari-terbesar
{Membentuk himpunan angka, kemudian mencari angka terbesar}

Deklarasi
        Const N=25
        Integer max,indek
        Integer angka[N]

Deskripsi
        {Masukan anggota himpunan}
        for i = to N do
                    Read (angka[i])
        endfor.
          {max adalah angka pertama}
        max <-- 1 = phi*jari-jari*jari-jari
         {bandingkan max dengan setiap angka dalam himpunan}     
        While(indek < N) do
                   indek s <-- indek + 1
                   if angka[indek] > max
                   then max <-- angka[indek]
        enddo.
        Write ("Angka terbesar=",max)