Program dan Pemograman 1

Algoritma akan menjadi efektif jika dijalankanoleh sebuah pemroses (processor).Pemroses itu bisa berupa manusia, komputer, robot dan mesin lainnya. Setiap pemroses melakukan pembacaan setiap intruksi algoritama lalu menjalankannya. menurut GOL88, suatu pemroses harus:
1. Mengerti setiap langkah dalam algoritma.
2. Mengerjakan sesuatu yang bersesuaian dengan langkah tersebut.

Kita memfokusakan pemroses algoritma adalah komputer. Komputer adalah alat yang menjalankan langkah-langkah dalam algoritma yang telah dimasukkan di dalamnya. agar komputer megerti perintah yang sijalankan, maka bahasa yang di tulis harus bisa dipahami olehnya.Oleh karena itu algoritma di tulis dalam bahasa kusus, yaitu bahasa komputer. Algoritma yang ditulis dalam bahasa komputer dinamakan program. Bahasa yang digunakan untuk menulis program dinamakan bahasa pemrograman, dan kegiatan dalam merancang dan menulis program dinamakan pemrograman.didalam pemrograman ada aktifitas menulis kode program, kegiatan ini dinamakan coding.

Salah satu dari sekian banyak bahasa pemrograman, yang akan kita pakai dalam Algoritma di (ebookalgoritma.blogspot.com) adalah bahasa pascal. Code program dibawah ini adalah bahasa pascal. Program tersebut adalah program pengumpulan nilai ujian mahasiswa. data nilai ujian mahasiswa di baca melalui papan  ketik (keyboard), lalu diurutkan dari kecil ke besar, dan akhirnya hasilnya di tampilkan pada layar peraga (monitor). Kali ini anda tidak usah bingung bagai mana cara membaca program ini, karena seperti inilah yang akan dibahas disini. maka dari itu sabarlah dulu........

Program pengurutan;

{program untuk mengurutakn nilai ujian sejumlah mahasiswa}

Const

    Nmaks = 1000; {jumlah maksimum data}

Var

     Nilai : array [1...maks] of integer; {tempat menyimpan data}

     j, k, temp, N, maks : Integer;

Begin

    {baca data nilai ujian N orang mahasiswa}

     read (N);

     for j:= 1 to N do

        readln (nilai [j]);

     {endfor}

     {urutkan data dengan langkah-langkah berikut;}

      for j:= 1 to N do {ulangi sebanyak N-1 kali}

         Begin

              {cari nilai terbesar}

               Imaks := j;

               for k := j+1 to N do

                  If nilai [k] > nilai [j] then

                     Imaks :=k;

                  {endif}

               {endfor}

                

                {tempatkan nilai terbesar pada posisi yang tepat}

                 temp := nilai [j];

                 nilai [j] := nilai [Imaks];

                 nilai imaks := temp;

       end; {for}

       

       {tuliskan nilai yang sudah terurut}

       for j := 1 to N do

           writeln (nilai [j])

       {endfor}

end.