Penggunaan For, While dan Repeat untuk menghitung rata-rata.

          Dibawah ini akan dipaparkan beberapa contoh penggunaan for, while dan repeat untuk menghitung rata-rata meliputi  pseudocode, program (pascal) dan hasil screenshotnya.
Mari simak dan selamat belajar ... :)

1. Penggunaan For

    a. Pseudocode
        Algoritma Menghitung_rerata
        {menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
         DEKLARASI
         k : integer {Pencacah banyak bilangan}
         n : integer {Banyak bilangan}
         x : integer {Bilangan bulat yang dibaca}
         jumlah : integer {Pencatat jumlah bilangan}
         rerata   : real {Rata-rata bilangan}
         DESKRIPSI
         read (n)
         jumlah ← 0
           for k ← 1 to n do
                 read (x)
                 jumlah ← jumlah + x
           endfor
           rerata ← jumlah/n
           write (rerata)

   b. Program
        Program Menghitung_rerata;
       uses wincrt;
       var
            k, n, x, jumlah : integer;
            rerata : real;
       begin
            write ('Banyak data:');
            readln (n);
            jumlah := 0 ;
            for k := 1 to n do begin
                 write ('Data ke-', k, ':');
                  readln (x);
                  jumlah := jumlah+x;
            end;
            rerata := jumlah/n;
            writeln ('Rata-rata :', rerata:6:3);
            readln;
       end.

   c. Hasil screeshoot
     

2. Penggunaan While

   a. Pseudocode
       Algoritma Menghitung_rerata
        {menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
         DEKLARASI
         k : integer {Pencacah banyak bilangan}
         n : integer {Banyak bilangan}
         x : integer {Bilangan bulat yang dibaca}
         jumlah : integer {Pencatat jumlah bilangan}
         rerata   : real {Rata-rata bilangan}
         DESKRIPSI
         read (n)
         jumlah ← 0
           k ← 1
           while k < n do
                 read (x)
                 jumlah ← jumlah + x
           endwhile
           rerata ← jumlah/n
           write (rerata)

   b. Program
        Program Menghitung_rerata;
       uses wincrt;
       var
            k, n, x, jumlah : integer;
            rerata : real;
       begin
            write ('Banyak data:');
            readln (n);
            jumlah := 0 ;
            k := 1;
            while k <= n do
            begin
                 write ('Data ke-', k, ':');
                  readln (x);
                  jumlah := jumlah+x;
                  k := k + 1;
            end;
            rerata := jumlah/n;
            writeln ('Rata-rata :', rerata:6:3);
            readln;
       end.

   c. Hasil screeshoot

3. Penggunaan Repeat

   a. Pseudocode
        Algoritma Menghitung_rerata
        {menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
         DEKLARASI
         k : integer {Pencacah banyak bilangan}
         n : integer {Banyak bilangan}
         x : integer {Bilangan bulat yang dibaca}
         jumlah : integer {Pencatat jumlah bilangan}
         rerata   : real {Rata-rata bilangan}
         DESKRIPSI
         read (n)
         jumlah ← 0
           k ← 1
           repeat
                 read (x)
                 jumlah ← jumlah + x
                 k ← k + 1
           until k > n
           rerata ← jumlah/n
           write (rerata)
   b. Program
        Program Menghitung_rerata;
       uses wincrt;
       var
            k, n, x, jumlah : integer;
            rerata : real;
       begin
            write ('Banyak data:');
            readln (n);
            jumlah := 0 ;
            k := 1;
            repeat
            begin
                 write ('Data ke-', k, ':');
                  readln (x);
                  jumlah := jumlah+x;
                  k := k + 1;
            end;
            until k > n;
            rerata := jumlah/n;
            writeln ('Rata-rata :', rerata:6:3);
            readln;
       end.

 c. Hasil screeshoot

             Sekian beberapa contoh penggunaan for, while dan repeat untuk menghitung rata-rata meliputi  pseudocode, program (pascal) dan hasil screenshotnya.
Semoga bermanfaat dan semangat belajar :)