Skip to main content

Penggunaan Variabel Array pada Pascal



Variabel bisa kita gunakan yang saat ini hanya bisa menampung satu data hanya pada satu variabel saja. Dalam banyak kasus kita akan repot menggunakan banyak variabel, sebagai contoh perhitungan nilai, jika terdapat banyak siswa, maka variabel nilai yang dibutuhkan disesuaikan dengan banyaknya siswa. Maka dilihat dari kasus diatas, maka dengan array, kita bisa mendeklarasikan nilai.
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama.  Komponen-komponen tersebut disebut sebagai komponen type, array mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam array ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subscript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange.  Tipe array mengartikan isi dari aray atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Array Dimensi Satu
# Mendeklarasikan Array Dimensi Satu
Bentuk deklarasi Array Dimensi Satu, seperti dibawah ini :
   Var
   nama_variabel : Array[ index ] Of Tipe_Data;
Contoh :
   Var
   Nilai : Array[1..10] Of Integer;
Pada contoh Array dengan nama Nilai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

# Memberikan Nilai ke Array Dimensi Satu
Untuk memberikan nilai kedalam variabel array berdimensi satu, nama variabel diikuti dengan index yang berada didalam kurung siku. Seperti contoh dibawah ini :
   Nilai[1] := 75;
   Nilai[2] := 85;
   Nilai[3] := 74;
   ...
   ...
   dan seterusnya

01.PROGRAM PENGGUNAAN_ARRAY_DIMENSI_SATU;
02. 
03.Uses Crt;
04.VAR
05.A, N, Jml_Nilai : Integer;
06.Nilai : ARRAY[1..10] Of Integer;
07.Nil_Rata : Real;
08.BEGIN
09.ClrScr;
10.WriteLn('Program Latihan Array');
11.WriteLn('=====================');
12.WriteLn;
13. 
14.{Memasukan Nilai}
15.Write('Masukan Banyak Data : ');
16.ReadLn(N);
17. 
18.FOR A := 1 TO N DO
19.Begin
20.Write('Nilai Ke- ',A,' = ');
21.ReadLn(Nilai[A]);
22.End;
23. 
24.{Membaca Nilai Array}
25.Nil_Rata := 0;
26.Jml_Nilai := 0;
27.FOR A := 1 TO N DO
28.Begin
29.Jml_Nilai := Jml_Nilai + Nilai[A];
30.Write('Nilai Ke- ',A,' = ',Nilai[A]);
31.End;
32.Nil_Rata := Jml_Nilai / N;
33.WriteLn('---------------------');
34.WriteLn('Jumlah Nilai    : ',Jml_Nilai);
35.WriteLn('Nilai Rata-Rata : ',Nil_Rata:5:2);
36. 
37.ReadLn;
38.END.

Berikut Hasil Program Array diatas seperti dibawah ini :

Memasukan Nilai kedalam Array
MEMASUKAN NILAI KEDALAM ARRAY

Menampilkan Hasil Masukan
MENAMPILKAN HASIL MASUKAN

SEKIAN...WASSALAM
Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin      for i:= 1 to 12 do      begin           Write('NIM       : '); readln(recMhs[i].nim) ;           Write('Nama      : '); readln(recMhs[i
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan FOR BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan for dalam for atau sering disebut juga dengan for bersarang. Kode Program: program buat_kolom_baris;   {for bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 0;    for a := 1 to 10 do    begin      for b := 1 to 5 do      begin      write (a:5,'*',b,'=',(a*b):2);      end;    writeln;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________'); readln; end. Hasil Program: Selamat Mencoba,, semoga berhasil... ^_^
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan while dalam while atau sering disebut juga dengan while bersarang. Kode Program: program buat_kolom_baris;   {while dalam while}{while bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 1;    while a <= 10 do    begin       b := 1;       while b <= 5 do       begin       write (a:5,'*',b,'=',(a*b):2);       b := b + 1;       end;    writeln;    a := a + 1;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________');    readln; end. Hasil Program: Semoga artikel Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal ini
Post a Comment
Baca selengkapnya....