Pada artikel kali ini membahas tentang membaca nilai
array dan rata-rata array di program pascal, langsung saja dibawah ini adalah
kode source nya :)
Hasil compiler dari program pascal untuk membaca nilai
array dan rata-rata array setelah dicompiler dibahasa pemrograman pascal
PROGRAM
RATA2_ARRAY;
USES
CRT;
CONST
A: ARRAY[1..6] OF
INTEGER=(50,70,20,90,30,45);
VAR
X,Y,TTL : INTEGER;
RT2:REAL;
BEGIN
CLRSCR;
WRITELN('MEMBACA NILAI DARI SEBUAH
ARRAY');
WRITELN('===============================');
WRITELN;
X:=1;
WHILE X <= 6 DO
BEGIN
WRITE('A[',X,']=');
WRITELN(A[X]);
X:=X+1;
END;
TTL:=0;
Y:=1;
WHILE Y <= 6 DO
BEGIN
TTL:=TTL + A[Y];
Y:=Y+1;
END;
RT2:= TTL/6;
WRITELN;
WRITELN('RATA-RATA = ',RT2:2:2);
READKEY;
END.
Sekian
artikel tentang kode program baca nilai array dan rata-rata dibahasa
pemrograman pascal, semoga bermanfaat,jangan lupa koment :)