Membuat Program Array Menggunakan Turbo Pascal

Untuk kalian yang sedang belajar program komputer menggunakan turbo pasccal. Aku akan memberikan sedikit contoh programnya.

Pada kali ini, aku akan memberikan contoh program komputer Array. Array sendiri adalah suatu tipe struktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. Banyaknya komponen dalam suatu larik jumlah selalu tetap.

Array dibagi menjadi 2 yaitu : Array berdimensi satu dan Array berdimensi dua.

Berikut merupakan contoh program Array berdimensi satu:

Program menghitung_rata_rata;

uses wincrt;

var

   n, x, i, tot : integer;

   rata : real;

begin

clrscr;

     writeln('Program Menghitung Rata-rata');

     writeln('====================');

     writeln;

     write('Masukkan jumlah bilangan : ');readln(n);

     writeln;

     writeln('Masukkan Bilangan : ');

     tot := 0;

     for i := 1 to  n do

     begin

     write('Bilangan ke-',i,' :');readln(x);

     tot := tot + x;

     end;

     rata := tot/n;

     writeln;

     writeln('Total Bilangan    : ',tot:4);

     writeln('Rata-rata         : ',rata:6:2);

end.

Program tersebut yaitu menampilkan jumlah dan rata-rata dari data yang telah dimasukkan. Semoga bermanfaat bagi kalian semua :)