RIEZONEMA

Setelah menyelesaikan tugas praktikum pascal aku array, kini akhirnya aku bisa menampilkan tugas praktikum aku untuk program pascal record.

jika ada kesalahan atau kurang memuaskan buat kalian2 tolong kasih comentnya ya....

ini dia laporannya.


RECORD
Record adalah kumpulan elemen (field) yang memiliki tipe data yang sama ataupun berbeda. Field-field tersebut digabungkan menjadi satu record dengan tujuan memudahkan pencataan dan pembacaan data.


Contoh Program:
Uses Crt;
Type
Mahasiswa=Record
Nama:String[30];
NIM:String[10];
Alamat:String[50];
End;
Var
Mhs:Mahasiswa;
Begin
ClrScr;
With Mhs do
Begin
Write('Nama :'); readln(Nama);
Write('NIM :'); readln(NIM);
Write('Alamat :'); readln(Alamat);
Writeln;
End;
Writeln('Nama :',Mhs.Nama);
Writeln('NIM :',Mhs.NIM);
Writeln('Alamat :',Mhs.Alamat);
Readln;
End.

Hasil program:
Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

TUGAS RECORD

LISTING PROGRAM:

Uses Crt;
Type
Telepon=Record
Nama:string[30];
Telephone:string[10];
Kota:string[50];
End;
DataTlp=Array[1..10]of Telepon;
Var
Tlp:DataTlp;
Jml,A:Byte;
Begin
ClrScr;
Write('Jumlah Telpon :'); Readln(Jml);
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Write('Nama :'); Readln(Nama);
Write('Telephone :'); Readln(Telephone);
Write('Alamat :'); Readln(Alamat);
Writeln;
End;
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Writeln('Nama :',Nama);
Writeln('Telephone :',Telephone);
Writeln('Alamat :',Alamat);
Readln;
End;
End.

HASIL PROGRAM :

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu

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
=Array[Index Array]of tipe data;

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
=Array[Index1,Index2]of tipe data;


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
=Array[Index1,Index2,Index3]of tipe data;

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
- - - - - - - - - - - - - - - - - - - - -