27 Januari 2011

Program Rata Rata Bilangan dengan Fungsi Procedure pada Pascal

sebenarnya banyak cara yang digunakan untuk mencari rata rata dalam pascal. sekarang saya akan menjabarkan pengaplikasian fungsi procedure pada pascal untuk mencari sebuah rata rata dari sekumpulan data N-bilangan


program Rata_Rata_Bilangan_Bulat ;
     uses wincrt ;
     procedure HitungRataRata ;
     var
     x, N, k, jumlah : integer ;
     rata : real ;
     begin
          write ( 'Masukkan banyaknya data ? ' ); readln (N) ;
          jumlah := 0 ;
          for k := 1 to N do
            begin
              write ( 'Nilai x : ? ' );
              readln (x) ;
              jumlah := jumlah + x ;
            end;
          rata := jumlah/N ;
          writeln ( 'Nilai rata rata =' , rata:0:2) ;
     end;
     begin
          writeln ( 'Menghitung rata rata N buah bilangan bulat' );
          HitungRataRata;
     end.


Hasilnya :

Menghitung rata rata N buah bilangan bulat
Masukkan banyaknya data ?
Nilai x : ? 34
nilai x : ? 12
nilai x : ? 23
Nilai rata-rata = 23.00

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Rata Rata Bilangan dengan Fungsi Procedure pada Pascal

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^