Skip to main content

Program Pascal Array dan Contohnya

Program Pascal hari ini membawa Soksimon.com kepada contoh program pascal array. Apapun bahasa pemrogramannya, semua tipe data pada dasarnya sama, hanya berbeda dicara pemanggilan dan cara pendeklarasiannya pada suatu variabel.

program pascal array dan contohnya
Program pascal array dan contohnya

Tipe data array adalah tipe data yang digunakan untuk menyimpan kumpulan variabel dari tipe data yang sama. Fungsi utama dari tipe data array adalah untuk mengefisienkan penulisan program.

Untuk lebih jelas mengenal array dalam pascal, bisa membaca artikel dari Duniailkom tentang pengertian dan cara penggunaan tipe data array pascal. Di sana lengkap tutorial belajar pascal, termasuk contoh array 2 dimensi.

Contoh Program Pascal Array


Berikut beberapa contoh program pascal tipe data array. Jika dilihat memang cukup rumit. Tapi percayalah, jika kita paham dasar-dasarnya maka akan lebih mudah dimengerti. Kecuali jika memang tidak pernah belajar pascal sebelum ini.
Lihat pada contoh nomor 4 dan 5 yang lebih mudah jika memang belum paham tentang pascal array sama sekali. Kedua contoh tersebut lebih sederhana.

1. Program Pascal Data Mahasiswa


Program Data_mahasiswa;
uses crt;
var
   Nama :array[1..10]of string[20];
   NPM:array[1..10]of string[20];
   Alamat:array[1..20]of string[30];
   i,j :integer;

begin
clrscr;
       write('Masukkan Jumlah Data Mahasiswa :'); readln(j);
   for i:=1 to j do
begin
       writeln('Data ke-',i);
       write('Nama Mahasiswa :'); readln(nama[i]);
       write('Masukkan NPM :'); readln(NPM[i]);
       write('Alamat :'); readln(alamat[i]);
end;
clrscr;
writeln('*******************************************************************************');
       writeln('No. |     Nama Mahasiswa        |         NPM         |         Alamat        |');
       writeln('*******************************************************************************');
for i:= 1 to j do
begin
writeln(i:1, nama[i]:20, NPM[i]:25, alamat[i]:25);
end;
writeln('*******************************************************************************');
readln;
end.
Sumber http://ariyoweb.blogspot.com/2011/04/contoh-program-array-pada-pascal.html

Tampilannya saat dirunning.

contoh program pascal array
Output program pascal array data mahasiswa

2. Program Pascal Array Mencari Nilai Rata-rata


program arraya;
uses crt;
TYPE
  nilai = array[1..3] of integer;
Var
  x : integer;
  jumlah, rata_rata : real;
  a : nilai;
BEGIN
clrscr;
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.

Sumber http://educlopedia.blogspot.com/2014/03/contoh-program-pascal-yang-menggunakan.html

contoh kode pascal tipe array
Contoh pascal array

Agar lebih mudah memahami listing yang ada di artikel ini, baca juga Contoh Program Pascal Sederhana,

3. Program Pascal Array


program arrayb;
Uses crt;
Var
  I         :Longint;
  Nm        :Array[1..100]Of String[25];
  Hk,Subt   :Array[1..100]Of Real;
  Lm        :Array[1..100]Of Integer;
  Tot       :Real;
Begin
  I:=1;
  While(I<=3) Do
      Begin
        clrscr;
        Writeln('Data Ke :',I);
        Writeln('===========');
        Write('Inputkan Nama Tamu :');Readln(Nm[I]);
        Write('Inputkan Lama Menginap :');Readln(Lm[I]);
        Write('Inputkan Harga Kamar :');Readln(Hk[I]);
        Subt[I] :=Lm[I] * Hk[I];
        Writeln;
        Tot :=Tot + Subt[I];
        I:=I +1;
      End;
  Writeln('--------------------------------------------------');
  Writeln('No            Nama   Lama        Harga   Sub      ');
  Writeln('              Tamu   Menginap    Kamar   Total    ');
  Writeln('--------------------------------------------------');
      For I:=1 To 3 Do
        Begin
          Writeln(I:3,Nm[I]:15,Lm[I]:10,Hk[I]:10:0,Subt[I]:8:0);
        End;
  Writeln('--------------------------------------------------');
  Writeln('Total :',Tot:12:0);
  readln;
End.

http://muh-arsyiazimin.blogspot.com/2013/11/contoh-program-array-pada-pascal.html

Tampilan atau outut program di atas seperti di bawah ini.

contoh program pascal array sederhana dan lengkap
Contoh Pascal Array Lengkap

4. Program Pascal Menghitung Jumlah Data Yang Diinput


program  Pascal_Mencari_Jumlah_Total;
uses crt;
type
banyakdatadiinput=array[1..5] of integer;
var
datadata:banyakdatadiinput;
banyakdata,b:integer;
begin
clrscr;
b:=0;
writeln('******Contoh Program Pascal******');
writeln('**Menghitung jumlah data yang diinput**');
for banyakdata :=1 to 5 do
begin
write('Data ',banyakdata,' = '); readln(datadata[banyakdata]);
b:=b+datadata[banyakdata];
end;
writeln('Jumlah nilai:',b); readln;
writeln('Untuk Belajar Pascal Kunjungi Soksimon.com');readln;
end.

contoh pascal menjumlahkan seluruh data yang diinput
Menghitung jumlah data yang diinput pada pascal

5. Program Pascal Sederhana Menghitung Nilai Rata-rata


program Pascal_Mencari_Rata_rata;
uses crt;
type
karyawan=array[1..20] of integer;
var
gaji1:karyawan;
gajitotal,jumlahkaryawan:integer;
gajirata:real;
begin
clrscr;
writeln('******Contoh Pascal******');
writeln('**Mencari Gaji Rata-rata Karyawan**');
jumlahkaryawan:=0;
for gajitotal := 1 to 5 do
begin
write('Gaji Karyawan ',gajitotal,' = '); readln(gaji1[gajitotal]);
jumlahkaryawan:=jumlahkaryawan+gaji1[gajitotal];
end;
writeln('Total gaji karyawan : ',jumlahkaryawan);
gajirata:=jumlahkaryawan/gajitotal;
writeln('Gaji Rata-rata : ',gajirata:0:2);readln;
writeln('Agar Tutorial Belajar Pascal Semakin Ok, Traktir Admin Soksimon.com ya!');readln;
end.

Outpunya saat sudah dirunning dan diisi data.

cara mencari nilai rata-rata pascal
Program pascal menghitung rata-rata
Lihat juga Program Pascal Array dan Contohnya

Demikianlah contoh program pascal array sederhana sampai rumit. Jika kamu kesulitan dalam memahami listing di atas, artinya kegiatan belajarnya harus ditingkatkan lagi. Dan memang beberapa contoh array di atas sudah sangat komplit dan lengkap. Bahkan beberapa diambil dari proyek tugas besar mata kuliah Struktur Data.

  October 31, 2018
Comment Policy: Tulis Komentar Anda Sesuai dengan Isi Artikel!
Buka Komentar
Tutup Komentar
close