laporan pratikum10

konsep pemograman

menghitung nilai rata - rata menggunakan program pascal dengan Array

list program :

author: Noor Fitriana, S1 Ilmu Komputer 2008}
Program rata2;
uses wincrt;
const max=100;
var
nilai : array[1..max] of integer;
jml, rata: real;
n,i:integer;
begin
writeln('*****************WELCOME***************');
writeln('***program untuk mencari rata-rata ***');
writeln('**************************************');
writeln;
writeln('TEKAN ENTER UNTUK MENAMPILKAN DATA!');
readln;
write('Masukkan jumlah nilai yang di masukkan: '); readln(n);
writeln;
for i:=1 to n do begin
write('nilai ke-',i:2,': '); readln(nilai[i]);
end;
jml:=0;
for i:=1 to n do
jml:=jml+nilai[i];
rata:=jml/n;
writeln;
writeln('---------');
writeln('Jumlah    = ',jml:9:2);
writeln('Rata-rata = ',rata:9:2);
writeln('---------');
readln;
end.

hasil nya :

 

logika program :

Array :  adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.