Scribd
Upload
26 views

Array

The document contains examples of using different array types in Pascal programming. It demonstrates single-dimensional arrays, multi-dimensional arrays, dynamic arrays, arrays with user-defined element types, and using an array as a parameter in a function.

Uploaded by

2KA25Joel Steven
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
26 views

Array

The document contains examples of using different array types in Pascal programming. It demonstrates single-dimensional arrays, multi-dimensional arrays, dynamic arrays, arrays with user-defined element types, and using an array as a parameter in a function.

Uploaded by

2KA25Joel Steven
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 6

program tipe_array;

uses crt;
var
  nilai1, nilai2, nilai3, nilai4: integer;
begin
  clrscr;
  
  nilai1:= 23;
  nilai2:= 13;
  nilai3:= 98;
  nilai4:= 106;
  
  writeln('nilai1: ',nilai1);
  writeln('nilai2: ',nilai2);
  writeln('nilai3: ',nilai3);
  writeln('nilai4: ',nilai4);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array[0..9] of integer;
  
  begin
  clrscr;
  
  nilai[0]:= 23;
  nilai[1]:= 13;
  nilai[2]:= 98;
  nilai[3]:= 106;
  
  writeln('nilai0: ',nilai[0]);
  writeln('nilai1: ',nilai[1]);
  writeln('nilai2: ',nilai[2]);
  writeln('nilai3: ',nilai[3]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array[0..9] of integer;
  
  begin
  clrscr;
  
  nilai[3]:= 23;
  nilai[9]:= 13;
  nilai[2]:= 98;
  nilai[0]:= 106;
  
  writeln('nilai3: ',nilai[3]);
  writeln('nilai9: ',nilai[9]);
  writeln('nilai2: ',nilai[2]);
  writeln('nilai0: ',nilai[0]);
  
  writeln('nilai1: ',nilai[1]);
  writeln('nilai7: ',nilai[7]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  kata: array[20..29] of string[20];
begin
  clrscr;
  
  kata[24]:= 'Sedang ';
  kata[25]:= 'belajar pascal ';
  kata[26]:= 'di ';
  kata[27]:= 'Kelas ';
  
  write(kata[24]);
  write(kata[25]);
  write(kata[26]);
  write(kata[27]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array[0..2] of integer;
begin
  clrscr;
  
  nilai[0]:= 10;
  nilai[1]:= 20;
  nilai[2]:= 30;
  
  writeln('nilai1: ',nilai[0]);
  writeln('nilai2: ',nilai[1]);
  writeln('nilai3: ',nilai[2]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array[0..1,0..2] of integer;
begin
  clrscr;
  
  nilai[0,0]:= 1;
  nilai[0,1]:= 2;
  nilai[0,2]:= 3;
  nilai[1,0]:= 4;
  nilai[1,1]:= 5;
  nilai[1,2]:= 6;
  
  writeln('nilai0,0: ',nilai[0,0]);
  writeln('nilai0,1: ',nilai[0,1]);
  writeln('nilai0,2: ',nilai[0,2]);
  writeln('nilai1,0: ',nilai[1,0]);
  writeln('nilai1,1: ',nilai[1,1]);
  writeln('nilai1,2: ',nilai[1,2]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array[0..1,0..1] of integer;
begin
  clrscr;
  
  nilai[0,0]:= 1;
  nilai[0,1]:= 2;
  nilai[1,0]:= 4;
  nilai[1,1]:= 5;
  
  write  (nilai[0,0],' ');
  writeln(nilai[0,1]);
  write  (nilai[1,0],' ');
  writeln(nilai[1,1]);
  
  readln;
end.
program tipe_array;
uses crt;
var
  nilai: array[0..1,0..2,0..3] of integer;
begin
  clrscr;
  
  nilai[0,0,2]:= 2;
  writeln(nilai[0,0,2]);
  
  nilai[1,2,3]:= 999;
  writeln(nilai[1,2,3]);
  
  readln;
end.

program tipe_array;
uses crt;
var
  nilai: array of integer;
begin
  clrscr;
  setlength(nilai,10);
  
  nilai[0]:= 1;
  nilai[6]:= 2;
  nilai[9]:= 4;
  
  writeln('nilai 0: ',nilai[0]);
  writeln('nilai 6: ',nilai[6]);
  writeln('nilai 9: ',nilai[9]);
  
  readln;
end.

men-set 2 buah batasan element array, seperti contoh berikut:

1program tipe_array;
2uses crt;
3var
4  nilai: array of array of integer;
5begin
6  clrscr;
7  setlength(nilai,4,4);
8  
  nilai[0,0]:= 34;
9
  nilai[2,3]:= 99;
10
  nilai[3,0]:= 15;
11  
12
13  writeln('nilai [0,0]: ',nilai[0,0]);
14  writeln('nilai [2,3]: ',nilai[2,3]);
15  writeln('nilai [3,0]: ',nilai[3,0]);
16  
17  readln;
18end.

program arrayToFunction;
const
size = 5;
type
a = array [1..size] of integer;
var
balance: a = (1000, 2, 3, 17, 50);
average: real;

function avg( var arr: a) : real;


var
i :1..size;
sum: integer;

begin
sum := 0;
for i := 1 to size do
sum := sum + arr[i];
avg := sum / size;
end;

begin
(* panggil fungsi dengan argumen berupa array *)
average := avg( balance ) ;

(* tampilkan nilai hasil fungsi avg *)


writeln( 'Nilai rata-rata adalah: ', average:7:2);
end.

Membuat Array dari Tipe Data Bentukan


Tipe data bentukan (user-defined data types) adalah sebutan untuk tipe data yang
dibentuk sendiri. Hingga tutorial ini, kita telah membahas 2 buah tipe data
bentukan, yakni enumeration dan subrange.
Uniknya, tipe data bentukan ini juga bisa menggunakan sebagai element array
program tipe_array;
uses crt;
type
  nama_hari= (senin,selasa,rabu,kamis,jumat,sabtu,minggu);
  usia= 0..99;
var
  hari: array[0..9] of nama_hari;
  umur: array[0..9] of usia;
begin
  clrscr;
  
  hari[1]:= senin;
  hari[9]:= sabtu;
  
  umur[3]:= 17;
  umur[8]:= 80;
  
  writeln('hari [1]: ',hari[1]);
  writeln('hari [9]: ',hari[9]);
  writeln('umur [3]: ',umur[3]);
  writeln('umur [8]: ',umur[8]);
  
  readln;
end.

You might also like