Pengenalan Pascal (Part 9)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 9)

Variabel Array

Apakah variabel array itu? Kita dapat mengartikan bahwa variabel array adalah variabel yang mempunyai indeks atau nomor atau urutan tertentu, dimana satu variabel dapat mempunyai nilai yang berlainan antara yang satu dengan lainnya dengan tipe data yang sama. Sebagai contoh, jika saya memiliki variabel array bernama data yang mempunyai batasan 1 sampai dengan 5, artinya saya akan mempunyai variabel data pertama, kedua, ketiga, keempat dan kelima, dimana masing-masing variabel ini dapat mempunyai nilai yang berbeda, asalkan masih tipe data yang sama. Pertanyaannya adalah, jika kita dapat memesan variabel sebanyak yang kita mau, mengapa kita masih membutuhkan variabel array? Variabel array sangat membantu kita di dalam efisiensi program, sehingga untuk memasukkan nilai ke dalam beberapa variabel, kita cukup memasukkan satu perintah saja di dalam sebuah looping, sehingga semua variabel array akan terisi sesuai dengan urutan indeksnya. Bandingkan jika kita harus mengisi nilai variabel dengan nama yang bermacam-macam, yang tentunya akan menghasilkan kode-kode program yang panjang.
Pemesanan variabel array adalah sebagai berikut:
Var data:array[1..10] of integer;
Berikut adalah contoh programnya:

{ Program Deret Pascal }
uses crt;
var
hasil:real;
baris:array[1..30,1..30] of integer;
l,j,k:integer;
begin
clrscr;
write(‘Input Batasan : ‘);
readln(hasil);
baris[2,1]:=1;
baris[2,2]:=1;
baris[2,3]:=1;
l:=1;
repeat
baris[l,1]:=1;
for k:=2 to l-1 do baris[l,k]:=baris[l-1,k-1]+baris[l-1,k];
baris[l,k+1]:=1;
l:=l+1;
until l>hasil;
l:=1;
repeat
for j:=1 to (35-2*(l-1)) do write(‘ ‘);
for k:=1 to l do
if (baris[l,k+1]<10) then write(baris[l,k],’ ‘)
else
if (baris[l,k+1]<100) then write(baris[l,k],’ ‘)
else
write(baris[l,k],’ ‘);
writeln;
l:=l+1;
until l>hasil;
readln;
end.




Comments are closed.