Sekilas Saya

Foto saya
batam, riau, Indonesia
Sinar matamu tajam namun ragu Kokoh sayapmu semua tahu Tegap tubuhmu takkan tergoyahkan Kuat jarimu kalau mencengkeram Bermacam suku yang berbeda Bersatu dalam cengkeramanmu Angin genit mengelus merah putihku Yang berkibar sedikit malu-malu Merah membara tertanam wibawa Putihmu suci penuh kharisma Pulau pulau yang berpencar Bersatu dalam kibarmu Terbanglah garudaku Singkirkan kutu-kutu di sayapmu Berkibarlah benderaku Singkirkan benalu di tiangmu Jangan ragu dan jangan malu Tunjukkan pada dunia Bahwa sebenarnya kita mampu

Jumat, 02 Maret 2012

pascal-array



ARRAY
Array merupakan struktur data yang statis, yaitu jumlah elemen yang ada harus ditentukan terlebih dahulu dan tak bisa di ubah saat program berjalan. Untuk menyatakan array dalam PASCAL kita harus terlebih dahulu:
· Mendefinisikan jumlah elemen array,
· Mendefinisikan tipe data dari elemen array

Contoh :
const
N=10;
type
A= array [1..N] of integer;

Array (Larik) adalah tipe tersruktur yang terdiri dari sejumlah komponen yang mempunyai tipe yang sama. Array ada 2 jenis:

1) Array berdimensi satu.
2) Array berdimensi 2 /dimensi banyak.

Array Berdimensi Satu (One Dimensional Array)

Bentuk Umum :
Contoh Penulisan :

X : array[1..100] of integer;

Sebagian dari elemen-elemen dari X tersebut adalah :
Contoh :

Program Array_1_dimensi;
uses wincrt;
Var
NilaiPrak : array[1..20] of real;
I, JumlahData : Byte;
Begin
Write ('Masukkan banyakya data : ');
Readln(JumlahData);
For I := 1 to JumlahData do
Begin
Write ('Nilai ke ',I,':');
Readln(NilaiPrak[I])
End;
Readln;
End.
Ada juga Pendefinisian array secara umum adalah sebagai berikut : jika kita ingin membuat beberapa array dengan tipe/jenis yang sama, kita lebih baik jika mendeklarasikan dengan type selanjutnya dengan deklarasi var.

type
nama_array = ARRAY[bawah..atas] of tipe_data;
var
variabel_array : nama_array;

atau dengan menggunakan statement var :
var
variabel_array : ARRAY[bawah..atas] of tipe_data;

Penjelasan:

Bawah dan Atas menyatakan batas untuk array. tipe_data adalah merupakan tipe variabel yang dipunyai array (mis. Integer, char, real, dsb)

Contoh :

uses winCrt;
var
a: array[1..10] of byte; {maksimum jumlah elemen=10}
begin
a[1]:=10;
a[2]:=15;
a[3]:=a[1]+a[2];
Writeln(a[1]);
Writeln(a[2]);
Writeln(a[3]);
end.

Contoh array dengan konstanta

uses wincrt;
const
N=10;
type
int_array= ARRAY [1..N] of integer;
var
bil : int_array;
indeks : integer;
begin
writeln('masukkan sepuluh bilangan integer.');
for indeks := 1 to 10 do
begin
readln(bil[indeks]);
end;
writeln('Isi dari array ini adalah');
for indeks := 1 to 10 do
begin
writeln('bil[', indeks:2,'] adalah ',bil[indeks] );
end
end.

Contoh Array untuk menghitung Huruf

Program Hitung_Huruf;
Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
Write('Masukkan Suatu Kalimat :');
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya =',banyak[upcase(chr(64+i))]);
end.


Array Berdimensi Dua (Two/multi Dimensional Array)

Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama adalah baris dan yang kedua adalah kolom .

Type nama_array =ARRAY[bawah..atas, bawah..atas] of tipe_data;
var variabel_array : nama_array;

atau dengan menggunakan statement var :
var variabel_array : ARRAY[bawah..atas, bawah..atas] of tipe_data;


Bentuk umum :

Nama_array : ARRAY[tipe-indeks1,type-indeks2] of tipe data

Contoh penulisan :

tabel : array [1..3,1..2] of byte

Contoh :

Program Array_2_dimensi;
Uses wincrt;
Var
Matrik : array[1..3,1..2] of shortint;
I, J : Byte;
Begin
Matrik[1,1] := -11;
Matrik[2,1] := -76;
Matrik[3,1] := 8;
Matrik[1,2] := -1;
Matrik[2,2] := 11;
Matrik[3,2] := 18;
For I := 1 to 3 do
Begin
For J := 1 to 2 do
    Write (Matrik[I,J]:5);
Writeln;
End;
Readln;
End.

Kasus :
1.       Buat Program dengan array untuk mencari banyak huruf seperti hasil program di bawah ini :


2.       Buat Program untuk menentukan bilangan terbesar dari data yang diinputkan seperti hasil dibawah ini :

3.       Buat Program untuk menentukan bilangan genap, ganjil, serta rata-ratanya dan berapa jumlah bilangan genap dan ganjil seperti hasil berikut :
4.       Buat Program untuk menggabungkan dua buah array dan hasilnya menurun
Array yang digabungkan diberikan nilai konstanta contoh
const
a:array[1..6] of integer =(2,5,8,11,14,17);
b:array[1..8] of integer =(4,5,7,9,11,12,30,45);
maka akan mendapatkan hasil :


5.       Buat Program untuk menentukan pangkat dari bilngan yang dimasukkan dan akan dipangkatkan berapa seperti hasil berikut ini :

Tidak ada komentar: