Program jumlah dan rata-rata menggunakan array dan perulangan while do pada Pascal

Minggu, 24 November 2013

Program jumlah dan rata-rata menggunakan array dan perulangan while do pada Pascal

Program jumlah dan rata-rata menggunakan array dan perulangan while do pada Pascal - Masih menggunakan soal seperti sebelumnya yang mencari total nilai dan rata - rata menggunakan Array dan For, disini kita hanya mengganti perulangan For menggunakan Perulangan While - Do.

Soal

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

Penyelesaiannya :

Program Project1;
var
nilai: array[1..100] of integer;
jml,n, i,j : integer;
rata: real;
begin
write('msukan banyak data '); readln(n);
i:= 0;
j:=0;
jml:=0;
while n>i do
begin
i:= i + 1;
write('masukan data ke ',i,' : '); readln(nilai[i]);
jml:= jml + nilai[i];
end ;
while n> j do
begin j:= j + 1;
writeln(' data ke ',j,' adalah = ',nilai[j]);
end;
rata:= jml/n;
writeln('total : ',jml);
writeln('rata-rata : ',rata:0:1);
readln;
end.

Hasil :

Nah soaln Membuatlah program penjumlahan menggunakan Array dan perulangan While-Do 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.