Akhirnya selesai juga laporan praktikum saya program pascal array,
ini dia programnya, semoga bermanfaat buat kalian semua.
ARRAY
Array adalah suatu tipe data yang merupakan gabungan dari beberapa variabel sejenis serta memiliki jumlah komponen yang tetap.Komponen atau elemen-elemen dari Array tersusun secara sequential dalam memori computer.
ARRAY SATU DIMENSI
Array satu dimensi merupakan kumpulan elemen yang memiliki tipe data yang sama dan tersusun dalam satu baris.
Bentuk umum:
Type
Contoh Program:
Uses Crt;
Type
Kalimat=Array[1..3]of String;
Var
X:Byte;
Kal:Kalimat;
Begin
Clrscr;
For X:=1 to 3 Do
Begin
Write('Tulis Kata ke',X:2,':');
Readln(Kal[X]);
End;
Writeln;
Writeln('Output:');
For X:=1 to 3 Do
Begin
Writeln('Tulis Kata Anda ke',X:2,':',Kal[X]);
Readln;
End;
End.
Hasil program:
Tulis Kata ke 1 :I'M
Tulis Kata ke 1 :CR7
Tulis Kata ke 1 :Cristian Ronaldo
Output:
Tulis Kata Anda ke 1 :I'M
Tulis Kata Anda ke 1 :CR7
Tulis Kata Anda ke 1 :Cristian Ronaldo
ARRAY DUA DIMENSI
Array dua dimensi merupakan kumpulan elemen bertipe sama dan terdiri dari beberapa baris dan kolom.
Bentuk umum:
Type
Contoh Program:
Uses Crt;
Type
Baris=1..10;
Kolom=1..10;
Matrix=Array[1..10,1..10]of String;
Var
X,Y,A,B:Byte;
Mat:Matrix;
Begin
Clrscr;
Write('Baris Matrix :');
Readln(A);
Write('Kolom Matrix :');
Readln(B);
For X:=1 to A Do
Begin
For Y:=1 to B Do
Begin
Write('Matrix(',X,',',Y,'):');
Readln(Mat[X,Y]);
End;
End;
Writeln;
Writeln('Output:');
For X:=1 to A Do
Begin
For Y:=1 to B Do
Writeln(Mat[X,Y]);
Writeln;
End;
End.
Hasil program:
Baris Matrix :2
Kolom Matrix :2
Matrix(1,1):Nama,
Matrix(1,2):Chester Rozaq
Matrix(2,1):Jurusan,
Matrix(2,2):Teknik Informatika
Output:
Nama,
Chester Rozaq
Jurusan,
Teknik Informatilka
ARRAY TIGA DIMENSI
Array tiga dimensi dapat digambarkan sebagai benda ruang.
Bentuk umum:
Type
Contoh Program:
Uses Crt;
Type
Tanggal=1..31;
Bulan=1..12;
Tahun=1..5;
Kalender=Array[Tanggal,Bulan,Tahun]of Byte;
Var
X,Y,Z,A,B,C:Byte;
Kal:Kalender;
Begin
Clrscr;
Write('Tanggal :');
Readln(A);
Write('Bulan :');
Readln(B);
Write('Tahun :');
Readln(C);
Writeln;
For X:=1 to A Do
Begin
For Y:=1 to B Do
Begin
For Z:=1 to C Do
Begin
Write('Kalender :');
Readln(Kal[X,Y,Z]);
End;
End;
End;
Writeln;
End.
Hasil program:
Tanggal :1
Bulan :2
Tahun :1
Kalender : 3 September 2008
Kalender : 11 Januari 2008
TUGAS ARRAY :
LISTING PROGRAM;
USES CRT;
TYPE
X=ARRAY[1..12]OF STRING[15];
CONST
BULAN:X=('JANUARI','FEBRUARI','MARET','APRIL','MEI','JUNI','JULI','AGUSTUS','SEPTEMBER','OKTOBER','NOVEMBER','DESEMBER');
VAR
A:WORD;
BEGIN
CLRSCR;
FOR A:=1 TO 12 DO
WRITELN('BULAN KE-',A:2,':',BULAN[A]);
END.
OUTPUT ;
BULAN KE 1 : JANUARI
BULAN KE 2 : FEBRUARI
BULAN KE 3 : MARET
BULAN KE 4 : APRIL
BULAN KE 5 : MEI
BULAN KE 6 : JUNI
BULAN KE 7 : JULI
BULAN KE 8 : AGUSTUS
BULAN KE 9 : SEPTEMBER
BULAN KE 10 : OKTOBER
BULAN KE 11 : NOVEMBER
BULAN KE 12 : DESEMBER
ARRAY SEBAGAI PARAMETER
• Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function.
• Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
LISTING PROGRAM:
uses crt;
const
garis='------------------------------------------';
type
untai=array[1..10]of string[15];
bulat=array[1..10]of integer;
huruf=array[1..10]of char;
var
a,banyak:integer;
procedure proses(nama:untai;nilai:bulat);
var
ket:string[20];
abjad:char;
begin
Writeln(garis);
Writeln('nama nilai abjad keterngan');
Writeln(garis);
for a:=1 to banyak do
begin
if nilai[a]>90 then
begin
abjad:='A';
ket:='istimewa';
end;
if (nilai[a]<90) and (nilai[a]>70) then
begin
abjad:='B';
ket:='memuaskan';
end;
if (nilai[a]<70) and (nilai[a]>60) then
begin
abjad:='C';
ket:='Cukup';
end;
if (nilai[a]<60) and (nilai[a]>45) then
begin
abjad:='D';
ket:='kurang';
end;
if nilai[a]<45 then
begin
abjad:='E';
ket:='sangat kurang';
end;
Writeln(nama[a]:15,'',nilai[a]:4,'',abjad,'',ket:15);
end;
writeln(garis);
end;
procedure MasukData;
var
nama:untai;
nilai:bulat;
begin
write('banyak data='); readln(banyak);
for a:=1 to banyak do
begin
clrscr;
writeln('data ke',a);
writeln('nama='); readln(nama[a]);
writeln(‘abjad=’); readln(abjad[a]);
writeln('nilai='); readln(nilai[a]);
end;
proses(nama,nilai);
end;
begin
masukdata;
readln;
end.
Hasil program:
banyak data :1
data ke 1:
nama :Cristiano Ronaldo
nilai :89
- - - - - - - - - - - - - - - - - - - - -
nama nilai abjad keterangan
- - - - - - - - - - - - - - - - - - - - -
Cristiano 89 A Memuaskan
- - - - - - - - - - - - - - - - - - - - -
- riezonema
- cuma orang biasa yang ingin ikut nimbrung di blog untuk mengeluarkan semua ekspresi untuk wajah ya terserah yang ngeliat. heheheh
Menu Rubrik
About Me
Blog Archive
Kalender
Jumat, 11 September 2009
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar