Array Pada Pascal
Hae welkombek to my blo ea :v
Kali ini we mau shering-shering tentang bahasa Array pada Pascal :v
Ini we ambil dari buku catatan we sewaktu masih kelas 1 SMK :v
Tanpa basa basi langsung saja ea :v
Pascal Part 1 : Disini
Pascal Part 2 : Disini
1) PENGERTIAN ARRAY
Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu element array yang merupakan nilai dan indeks array yang merupakan nilai untuk mengakses nilai pada array.
2) DEKLARASI ARRAY
Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah:
Nama Array:array [Indeks awal. . . Indeks akhir] of tipe data;
Contoh :
Jika akan mendeklarasikan variabel A sebagai Array dengan 10 element bertipe Integer.
Var
A:array[1. . .10] of Integer;
3) MENGAKSES ELEMENT ARRAY
Untuk memberikan nilai pada variabel array dapat dengan menggunakan parameter berikut :
Nama Array[Indeks]:=Nilai;
Contoh :
Var
A:array [1. . .10] of Integer
Begin
A[1]:=1; {mengisikan elemen 1 dengan nilai 1}
A[9]:=200; {mengisikan elemen 9 dengan nilai 200};
end.
4) ARRAY SEBAGAI KONSTANTA
Nilai pada array dapat bernilai konstanta dapat kita lakukan dengan mendeklarasikan pada bagian konstanta.
Bentuk umum pendeklarasiannya adalah
Const
Nama array:array[Indeks awal . . . Indeks akhir] of Tipe data=(nilai 1,nilai 2,. . .);
Banyaknya nilai konstanta harus sama dengan jumlah elemennya.
contoh penggunaannya :
Uses win crt;
Const
Hari:array[1. .2]of string=('senin',selasa',rabu',kamis',jumat',sabtu',minggu')
Var
No hari:integer
Begin
Clrscr;
write('masukkan nomor harinya:');
readln(no hari);
write('hari ke:no hari',adalah',hari [no hari]);
end.
Jika di eksekusi maka hasilnya adalah=
Masukkan nomor harinya = 2
Hari ke 3 adalah rabu
Array sebagai parameter
Array pada waktu tertentu dapat digunakan sebagai parameter.
5) CONTOH ARRAY PADA PASCAL
=) CONTOH 1
Buatlah array seperti dibawah ini !!!
DAFTAR NILAI
============
Nama :
Kelas :
============
Ulangan Harian
**************
IPA =98
IPS =99
B INGGRIS = 100
**************
PROGRAM :
Program contoh_array;
uses crt;
var nama:string;
var kelas:integer;
nilai:array[0...2]of string;
begin
clrscr;
writeln('inputkan nama');
readln(nama);
nilai[0]:='98';
nilai[1]:='99';
nilai[2]:='100';
writeln('DAFTAR NILAI');
writeln('============');
writeln('Nama : Zidan Ganteng');
witeln('Kelas : TKJ');
writeln('============');
writeln('ULANGAN HARIAN');
writeln('******************');
writeln('IPA',nilai[0]);
writeln('IPS',nilai[1]);
writeln('B INGGRIS',nilai[2]);
writeln('******************');
readln;
end.
Jika dieksekusi maka akan jadi seperti dibawah ini :
DAFTAR NILAI
============
Nama : Zidan Ganteng
Kelas : TKJ
============
Ulangan Harian
**************
IPA =98
IPS =99
B INGGRIS = 100
**************
=) CONTOH 2
===ABSEN===
BULAN MARET
============
terlambat
1.A
2.G
3.C
4.I
5.E
===========
on time
1.F
2.B
3.H
4.D
5.J
PROGRAM :
Program contoh_array;
uses crt;
var nama:string;
var terlambat,ontime:array[0..4,0..4]of string;
begin
clrscr;
terlambat[0,0]:='A';
terlambat[1,1]:='G';
terlambat[2,0]:='C';
terlambat[3,1]:='I';
terlambat[4,0]:='E';
ontime[0,1]:='F';
ontime[1,0]:='B';
ontime[2,1]:='H';
ontime[3,3]:='D';
ontime[4,1]:='J';
writeln('inputkan nama');
readln(nama);
writeln('===ABSEN===');
writeln('BULAN MARET');
writeln('============');
writeln('terlambat');
writeln('1.',terlambat[0,0]);
writeln('2.',terlambat[1,1]);
writeln('3.',terlambat[2,0]);
writeln('4.',terlambat[3,1]);
writeln('5.',terlambat[4,0]);
writeln('===========');
writeln('ontime');
writeln('1.',ontime[0,1]);
writeln('2.',ontime[1,0]);
writeln('3.',ontime[2,1]);
writeln('4.',ontime[3,3]);
writeln('5.',ontime[4,1]);
readln;
end.
Jika dieksekusi maka akan seperti dibawah ini :
===ABSEN===
BULAN MARET
============
terlambat
1.A
2.G
3.C
4.I
5.E
===========
on time
1.F
2.B
3.H
4.D
5.J
Sekian tutor dari we semoga bermanfaat ea :v
Comments
Post a Comment