Contoh Program Pascal Yang Menggunakan Array

Sebelum membuat Contoh Program Array Dalam Pascal, sebelumnya sudah dijelaskan apa itu Array (Larik) dalam sebuah bahasa pemrograman. Jika anda belum mengerti, silahkan baca kembali disini : Pengertian dan Penjelasan Array

Jika anda sudah mengerti apa itu Array. Sekarang saat nya untuk mencobanya dalam Program Pascal.

sebelum ke source code nya, dibawah ini adalah trik untuk memudahkan untuk mengcopy source code nya :

educlopedia.blogspot.com

untuk memudahkan dalam meng-copy source code (script programnya, arahkan pointer ke sudut kanan atas). lihat gambar diatas untuk lebih jelasnya. lalu pilih icon ke-2 dari kiri, lalu klik. setelah itu, tinggal Paste (Ctrl+V).

program aray;

uses wincrt;

TYPE
  nilai = array[1..3] of integer;

Var
  x : integer;
  jumlah, rata_rata : real;
  a : nilai;
  
BEGIN

for x := 1 TO 3 DO
  BEGIN
    WRITE('Nilai Ke - ',x,' = ');
 READLN(a[x]);
    jumlah := jumlah + a[x];
  END;

 WRITELN('');
 WRITELN('Nilai Mahasiswa Ke 1 = ',a[1]);
 WRITELN('Nilai Mahasiswa Ke 2 = ',a[2]);
 WRITELN('Nilai Mahasiswa Ke 3 = ',a[3]);

 rata_rata := jumlah/3;
 WRITELN('Rata - Rata nya adalah ', rata_rata:0:2);

//educlopedia.blogspot.com
readln;
end.

sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah.

terima kasih . . .

SHARE THIS POST:

Artikel Terkait: