ARRAY diPASCAL

ARRAY PADA PASCAL VERSI B.INDONESIA

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.
Contoh:
Var
Untai : array[1..50] of Integer;
Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :
Type
Angka = String[20];
Var
Nama : Array [1..50] of Angka;
Begin
.
.
End.

I. Deklarasi Type Indeks Skalar
Indeks dari larik dapat berupa tipe skalar.
Contoh. :
Program Deklarasi_Indeks_Array_Skalar;
Uses Crt;
Var
Jum : Array[(jan,feb,mar,apr,mei)] of Integer;
Begin
Jum[jan]:=25;
Jum[feb]:=45;
Jum[mar]:=21;
Jum[apr]:=23;
Jum[mei]:=50;
Writeln('Jumlah nilai bulan maret =',Jum[mar]);
Readln;
End.
dapat juga ditulis :
type
Bln = (jan,feb,mar,apr,mei);
Var
Jum : Array[bln] of Integer;
atau :
type
Bln =(jan,feb,mar,apr,mei);
Var
Jum : Array[jan..mei] of Integer;

II. Deklarasi Konstanta Array
Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).
Contoh Program :
Uses Crt;
Const
Tetap : Array[1..4] of Integer=(7,10,21,20);
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);
Readln;
End.
konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.
Contoh Program :
Program Contoh_Konstan_Array_Char_;
Uses Crt;
Const
Huruf : Array[0..5] of Char=('A','B','C','D','E','F');
Var
i : Integer;
Begin
For i:= 0 to 5 Do
Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);
Readln;
End.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :
Contoh Program :
Program String_Adalah_Array_Tipe_Char;
Uses Crt;
Var
Nama : string;
i : Integer;
Begin
Nama:='Turbo Pascal';
For i:= 1 to Length(nama) Do
Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);
Readln;
End.

contoh program bilangan prima dengan menggunakan bantuan array.

Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i]<> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.

Contoh pengurutan data dengan metode buble sort, yaitu dengan cara penukaran, dapat dilihat pada contoh dibawah ini :
Contoh Program :
Program Penggunaan_Array_Untuk_Sortir_Buble_Sort;
Uses Crt;
Var
nil1 : Array[1..100] of Integer;
n,i,j,dum : Integer;
Begin
ClrScr;
Write('mau isi berapa data acak (integer) ='); readln(n);
For i := 1 to n Do
Begin
Write('Data Ke ',i,':');Readln(nil1[i]);
End;
{* penyapuan proses}
for i:= 1 to n-1 do
begin
for j:= i to n do
begin
if nil1[j]
begin
dum:=nil1[j];
nil1[j]:=nil1[i];
nil1[i]:=dum;
end;
end;
end;
writeln;
writeln('Hasil Sortir');
for i := 1 to n do
write(nil1[i]:3);
readln;
end.


III. Array Dua Dimensi
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.
1 2
1 2 3
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .

Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);
End;
End;
Readln;
End.
IV. Alternatif Deklarasi Array Dua Dimensi.
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :
Contoh :
Var
Tabel : Array[1..3] of Array[1..2] of Byte;
atau :
Type
Matrik = Array[1..3,1..2] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom = 1..2;
Matrik = Array[Baris,Kolom] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom=1..2;
Matrik= Array[Baris] of Array[Kolom] of Byte;
Var
Tabel : Matrik;
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik :
Contoh Prorgam:
Program Penjumlahan_Matrik;
Uses Crt;
Var
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
{ input matrik ke satu }
Writeln(' Elemen matrik satu');
For i := 1 to 3 Do
Begin
For j := 1 to 2 Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(matrik1[i,j]);
End;
End;
{input matrik ke dua}
Writeln('input elemen matrik dua');
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write('Elemen baris -',i,' kolom -',j,'= ');
Readln(matrik2[i,j]);
End;
End;
{proses penjumlahan tiap elemen}
For i := 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
End;
End;
{proses cetak hasil}
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write(Hasil[i,j]:6);
End;
Writeln;
End;
Readln;
End.









VERSI BHS. JERMAN
PASCAL-Arrays in DEUTSCHE VERSION

Array ist ein strukturierter Datentyp, der aus mehreren Komponenten, die die gleichen Art besteht. Diese Komponenten sind als Bauteil bezeichnet, hat das Array eine Reihe von Komponenten bleibt. Die Zahl der Komponenten im Array angegeben durch einen Index, in dem jede Komponente in das Array mit dem Hinweis indexnya oder subskript Wert zugegriffen werden kann. Array kann eine einfache Datentypen wie byte, word, integer, real, bolean, char, string und skalare Datentyp oder ein Teilbereich. Array-Typ bestimmt den Inhalt des Arrays oder deren Komponenten haben einen Wert komponenya Datentyp.
Beispiel:
Var
Strand: array [1. .. 50] of Integer;
In dem Beispiel-Array mit Strings der Namen wurden mit einem Integer-Typ deklariert, mit einer maximalen Anzahl von Elementen 50 Elemente, der Wert der genannten Elemente des Arrays sind vom Typ integer sein.

Für Array-Deklaration verwendet werden verschiedene Möglichkeiten wie folgt:
Type Typ
Ergebnis = String [20];
Var
Name: array [1. .. 50] of number;
Beginnen
. .
. .
Ende.

I. Scalar Index Typ Erklärung
Index des Arrays kann eine skalare Datentyp sein.
Beispiel. : :
Deklarasi_Indeks_Array_Skalar Program;
Uses CRT;
Var
FR: Array [(Januar, Februar, März, April, mei)] of Integer;
Beginnen
[Januar]: = 25;
Fr. [Februar]: = 45;
Fr. [mar]: = 21;
Fr. [April]: = 23;
Fr. [mei]: = 50;
Writeln ( 'Anzahl der Werte = März ", die Zahl [mar]);
Readln;
Ende.
kann auch geschrieben werden:
Typ
Bln = (Januar, Februar, März, April, mei);
Var
FR: Array [Monate] of Integer;
oder:
Typ
Bln = (Januar, Februar, März, April, mei);
Var
FR: Array [Januar mei ..] of Integer;

II. Constant Array Erklärung
Array kann nicht nur eine Variable, die in der Deklaration von Variablen erklärt wird, kann aber auch eine Konstante (const).
Beispiel Programm:
Uses CRT;
Const
Behoben: Array [1. .. 4] of Integer = (7,10,21,20);
Var
i: Integer;
Beginnen
For i: = 1 bis 4
Writeln ( 'Constant Value Array', i: 2, '=', Still [i]);
Readln;
Ende.
Matrixkonstanten kann auch eine Bestimmung in der Form von Zeichen wie folgt aus.
Beispiel Programm:
Contoh_Konstan_Array_Char_ Program;
Uses CRT;
Const
Letter: Array [0. .. 5] of Char = ( 'A', 'B', 'C', 'D', 'E', 'F');
Var
i: Integer;
Beginnen
For i: = 0 bis 5 Do
Writeln ( 'array auf einen konstanten Wert', i: 2, '=', Briefe [i]);
Readln;
Ende.

Pascal in einem Array von Elementen wie die folgenden Zeichen:
Beispiel Programm:
String_Adalah_Array_Tipe_Char Program;
Uses CRT;
Var
Name: string;
i: Integer;
Beginnen
Name: = 'Turbo Pascal';
For i: = 1 to Length (a) do
Writeln ( 'Elemente', i, 'aus', Name, '=', name [i]);
Readln;
Ende.

Beispielprogramme Primzahlen mit der Array-Unterstützung.

Uses CRT;
Var
Prima: Array [1. .. 100] of Integer;
i, j: Integer;
bil: Integer;
Beginnen
Clrscr;
For i: = 2-100 Do
Beginnen
Prima [i]: = i;
Für j: = 2 to i-1 Do
Beginnen
bil: = (i mod j); (* unterteilt geprüft, ob i j 0 *)
Wenn bil = 0 then Prima [i]: = 0; (*, wenn sie teilbar ist, was bedeutet, bkn prime *)
End;
Wenn Prima [i] <> 0 Then Write (Prima [i],''); (* Array yg prime *)
End;
Readln;
Ende.

Beispiele für Daten sortieren Buble Sortierungs-Methode, dh durch den Austausch, können in dem folgenden Beispiel zu sehen:
Beispiel Programm:
Penggunaan_Array_Untuk_Sortir_Buble_Sort Program;
Uses CRT;
Var
nil1: Array [1. .. 100] of Integer;
n, i, j, dum: Integer;
Beginnen
Clrscr;
Write ( "Was würden die Inhalte der zufälligen Daten (integer) = '); readln (n);
For i: = 1 to do n
Beginnen
Write ( 'Data To', i ,':'); readln (nil1 [i]);
End;
(* Sweeping-Prozess)
for i: = 1 bis n-1 do
beginnen
for j: = i n zu tun
beginnen
wenn nil1 [j]
beginnen
dum: = nil1 [j];
nil1 [j]: = nil1 [i];
; nil1 [i]: = dum;
end
end;
writeln;
writeln ( 'Ergebnisse sortieren');
for i: = 1 to do n
write (nil1 [i]: 3);
readln;
Ende.


III. Array Dua Dimensi Array Zwei Dimension
. Im Pascal-Array kann mehr als ein dimensionsloser-dimensionalen Array mit dem Namen eine Menge (Mehrdimensionale Arrays), werden hier diskutiert werden 2-dimensionalen Array nur tabel atau matrik. 2-dimensionale Array kann eine Form von Tabellen oder Matrizen darstellen, dh der erste Index zeigt Index in den Reihen und zwei Spalten der Tabelle zu zeigen oder Matrix.
1 2 1 2
1 2 3 1 2 3
.Um herauszufinden, wie die Verwendung von zweidimensionalen aray erklären, kann in der Programm-Listing unten gesehen werden.

Beispiel Programm:
Deklarasi_Array_Dua_Dimensi Program;
Uses CRT;
Var Tabelle: Array [1. .. 3.1 .. 2] of Integer;
i, j: Integer;
Beginnen
Clrscr;
Tabelle [1.1]: = 1;
Tabelle [1.2]: = 2;
Tabelle [2.1]: = 3;
; Tabelle [2.2]: = 4;
Tabelle [3.1]: = 5;
Tabelle [3.2]: = 6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]); For i: = 1 bis 3 Don't Start für J: = 1 bis 2 Do begin writeln ( 'Elemente', ,',', i j, '=', table [i, j]);
End;
End;
Readln;
Ende.
IV. Alternative Zwei Dimension Array Erklärung.
: Es gibt mehrere Möglichkeiten, um Arrays in zwei Dimensionen zu erklären, gewisser Weise kann unten gesehen werden:
Beispiel:
Var
; Tabelle: Array [1. .. 3] of Array [1 .. 2] of Byte;
oder:
Typ
Matrix = array [1. .. 3.1 .. 2] of Byte;
Var
Tabelle: Matrix;
oder:
Typ
Row = 1 .. 3;
Column = 1 .. 2;
Matrix = Array [Zeile, Spalte] of Byte;
Var
Tabelle: Matrix;
oder:
Typ
Row = 1 .. 3;
Column = 1 .. 2;
Matrix = array [line] of Array [Spalte] of Byte;
Var
Tabelle: Matrix;
Dies wird im Rahmen des Programms vorgesehen sein Inserat mit zweidimensionalen Array in der Anwendung Matrix Summe:
: Prorgam Beispiel:
Penjumlahan_Matrik Program;
Uses CRT;
Var
Matrik1, Matrik2, Ergebnis: Array [1. .. 3.1 .. 2] of Integer;
; i, j: Integer;
Beginnen
Clrscr;
(Input-Matrix in einer)
Writeln ( "Elemente der Matrix ein ');
For i: = 1 bis 3 Do
Beginnen
Für j: = 1 bis 2 Do
Beginnen
Write ( 'Elemente line -', i, 'Column -', j,'=');
Readln (matrik1 [i, j]);
End;
End;
(Input-Matrix in zwei)
Writeln ( 'input Matrixelemente von zwei');
For i: = 1 bis 3 Do
Beginnen
Für j: = 1 bis 2 Do
Beginnen
Write ( 'Elemente line -', i, Spalte '-', j,'=');
Readln (matrik2 [i, j]);
End;
End;
(die Summe der einzelnen Elemente)
For i: = 1 bis 3 Do
Beginnen
Für j: = 1 bis 2 Do
Beginnen
[I, j]: = Matrik1 [i, j] + Matrik2 [i, j];
End;
End;
Prozess das Druckergebnis)
For i: = 1 bis 3 Do
Beginnen
Für j: = 1 bis 2 Do
Beginnen
Write (result [i, j]: 6);
End;
Writeln;
End;
Readln;
Ende.

FLOWCHART

MEMBUAT FLOWCHART

Bagaimana membuat flowchart tentang mencuci pakaian yang kotor ?

PSEUDOCODE

1) Masukan pakaian kotor dan bau.

2) Cuci pakaian yang kotor dan bau.

3) Apakah pakaian sudah bersih dan harum ?.

4) Jika ya, maka pakaian sudah dicuci.

5) Jika tidak, maka cuci lagi pakaian sampai bersih dan harum.

FLOWCHART MENCUCI PAKAIAN