Menghitung Nilai Rata - Rata Dengan Turbo Pascal

 Menghitung Nilai Rata  - Rata Secara Tidak Langsung Dengan Turbo Pascal

Untuk menghitung nilai rata - rata dengan turbo pascal secara tidak langsung berarti nilai tersebut kita masukin sendiri. Berapa banyaknya tergantung dari berapa banyak nilai yang perlu kita cari nilai rata - ratanya. Misalnya kita mau mencari rata - rata dari 5 buah nilai berarti kita perlu memasukan 5 buah nilai tersebut maka dari itu perlu kita pakai proses pengulangan dimana yang kita ulang adalah input nilai tersebut.

Nilai rata - ratanya kita hitung dengan menjumlahkan 5 buah nilai tersebut kemudian kita bagi dengan jumlah nilai yang kita input.

Codingan untuk programnya dapat dibuat :

Program pengulangan_mencari_nilai_rata_rata;

Uses wincrt;

var

 i,n,x : integer;

jum : real;

begin 

jumlah:=0;

write ('Masukan banyaknya data yang akan dihitung rata - ratanya ! ');

readln (n);

for i:= 1 to n do

begin 

write ('Masukan nilai ke- ' , i , ' = ' );readln (x);

jum := jum + x;

end;

write ('Nilai rata - rata = ' ,jum/n:0:2);

readln;

end.

Output setelan di run atau dijalankan :

Codingan program diatas tidak hanya terbatas untuk mencari nilai rata - rata untuk jumlah input 5 melainkan untuk jumlah nilai sesuai yang kita perlukan.

Demikianlah Posting dari saya. Semoga bermanfaat untuk anda. Terima Kasih.