Program jumlah dan rata-rata menggunakan Array dan perulangan For pada pascal

Minggu, 24 November 2013

Program jumlah dan rata-rata menggunakan Array dan perulangan For pada pascal

Program jumlah dan rata-rata menggunakan Array dan perulangan For pada pascal - Dalam pemograman pascal terdapat metode array yang dapat menyimpan sejumlah bilangan yang bertipe sama dan terdapat perulangan For. Nah disini saya mempunyai soal yaitu :

Soal :

Buatlah program penjumlahan menggunakan Array dan perulangan For untuk mencari total nilai dan rata-rata nilai pada pascal dimana pengguna dapat menginput jumlah data yang dimasukkan dan nilainya

Penyelesaiannya :

program Project1;
var
x: array [1..100] of integer;
n,i,jmh : integer;
rata :real;
begin
write ('masukan banyak data ;'); readln (n);
jmh :=0;
for i := 1 to n do
begin
write ('masukan nilai ke',i,':'); readln (x[i]);
jmh := jmh + x[i];
end;
rata :=jmh / n ;
writeln ('jumlah :',jmh);
writeln ('ratarata:',rata:0:2);
readln;
end.

Hasil :

Nah soaln Membuatlah program penjumlahan menggunakan Array dan perulangan For untuk mencari total nilai dan rata-rata nilai pda pascal sudah terpecahkan, untuk yang buat tugas jangan asal copy paste, dicoba untuk dimengerti logikanya. Thanks you udah berkunjung di blog saya.