Contoh Array dalam Pascal

Kali Ini Tips&Trick Blog mau share tentang Contoh Bahasa Pemrograman, dan Aplikasi yang saya gunakan dalah PASCAL. Oke, di bawah ini ada sebuah contoh program Array (Data Terstruktur) Data Mahasiswa menggunakan Bahasa Pemrograman PASCAL. Check This Out!.

Contoh Program PASCAL Array 

Program PENGGUNAAN_ARRAY_DIMENSI_SATU;

Uses Crt;

Var

 Nama,NPM,Kelas : Integer;

 Nilai : ARRAY[1..10] Of Integer;

 Nil_Rata : Real;

Begin

 Clrscr;

 Writeln('Program Latihan Array');

 Writeln('=====================');

 Writeln;

 {Memasukan Nilai}

 Write('Masukan Banyak Data : ');

 Readln(N);

 For A := 1 To N DO

 Begin

 Write('Nilai Ke- ',A,' = ');

 Readln(Nilai[A]);

 End;

 {Membaca Nilai Array}

 Nil_Rata := 0;

 Jml_Nilai := 0;

 For A := 1 To N DO

 Begin

 Jml_Nilai := Jml_Nilai + Nilai[A];

 Write('Nilai Ke- ',A,' = ',Nilai[A]);

 End;

 Nil_Rata := Jml_Nilai / N;

 Writeln('---------------------');

 Writeln('Jumlah Nilai    : ',Jml_Nilai);

 Writeln('Nilai Rata-Rata : ',Nil_Rata:5:2);

 Readln;

End.

Gimana? Berhasil tidak? Misalkan tidak, coba di cek sesuai atau ngga sama tulisan yang di atas?. Dalam menulis Kodingan dibutuhkan kesabaran. Ingat!! Orang sukses pasti gagal dulu dan Jangan pernah berhenti mencoba dan mudah menyerah. Semoga Sukses!.