Array Dalam Pascal ( Tugas Struktur Data )

Array Dalam Pascal ( Tugas Struktur Data )

Berikut tugas yang diberikan Ibu Dosen kemarin mengenai Struktur Data, materi bahasan  tentang penggunaan Array ( Larik ) dalam bahasa pemrograman Pascal.

Kriteria tugas :

1. Buatlah Algoritma mencari nilai rata-rata dengan menggunakan bahasa pemrograman pascal 
2. Didalamnya terdapat Array dan Procedure

Berikut ini hasil jawaban yang telah saya buat :

USES CRT;
VAR
      I,N,TOTAL : INTEGER;
      RATA        : REAL;
 
PROCEDURE RATA_RATA;
     VAR   
          NILAI    : ARRAY [1..25] OF INTEGER;
     BEGIN
          WRITE('JUMLAH SISWA = ');
          READLN(N);
          FOR I:= 1 TO N DO
          BEGIN
              WRITE('NILAI SISWA KE-',I,' = ');
              READLN(NILAI[I]);
          END;
          TOTAL := 0;
          FOR I:= 1 TO N DO
          TOTAL:=TOTAL+NILAI[I];
          RATA := TOTAL/N;
          WRITELN('RATA-RATA = ',RATA:5:2);
    END;

BEGIN
     CLRSCR;
     RATA_RATA; 
     READLN;
END.

Selamat mencoba................!!!! :D :D :D