TYPE DATA SET DAN RECORD PADA PASCAL

Tugas Pendahuluan "TIPE DATA SET DAN RECORD" Kelompok III Math (Sabtu, 21 April 2012)
1. Jelaskan tipe data set beserta cara pendeklarasiannya dalam bahasa pemograman Pascal !
2. Jelaskan tipe data record beserta cara pendeklarasiannya dalam bahasa pemograman Pascal !
3. Buatlah sebuah program sederhana tentang tipe data set serta jelaskan program anda tersebut !
4. Buatlah sebuah program sederhana tentang tipe data record serta jelaskan program anda tersebut !

NB : Program tidak boleh sama ! Program yang sama masing-masing -30 !!

jawaban:
1) Type data himpunan merupakan type yang unik dari PASCAL.  Type ini memungkinkan kita untuk mengadakan operasi himpunan.  Pembentukan type data himpunan dan variable bertype himpunan adalah :
o       Dalam Deklarasi Type
Type
NamaTypeData = set Of TypeData;
NamaTypeData :  adalah type himpunan yang didefinisikan.
TypeData :  adalah data bertype ordinal.
o       Dalam Deklarasi Variabel
Var
NamaVar, NamaVar, … : NamaTypeDataHimpunan;

2)Tipe data komposit yang sudah terstruktur denagn baik. Tipe data ini digunakan untuk menampung data suatu obyek. Datanya berupa campuran dari tipe data seperti string, numerik, char, boolean, atau tipe data lainnya. Tipe data ini merupakan struktur dasar dari suatu sistem database.
TYPE nama_pengenal_record = RECORD
nama_field1: type_field1;
nama_field2: type_field2;
nama_field3: type_field3;
:
:
nama_fieldn: type_fieldn;
END;
3)
program cek_huruf_vokal;
uses crt;
const
vokal=['A','a','I','i','U','u','E','e','O','o'];
var
tampung:string;
huruf:char;
begin
clrscr;
tampung:= ' ';
repeat
write('ketik Huruf<tanpa ENTER> Esc Selesai : ');
huruf:=readkey;write(huruf);
if huruf in vokal then writeln(' Adalah Huruf Vokal')
else
writeln(' Bukanlah Huruf Vokal');
until huruf=#27;
writeln('ketikan: ',tampung);
end.



4)
uses wincrt;

type
recBuku=record
judul:string[20];
kode:string[10];
pengarang:string[20];
ed:string[4];
tahun:integer;
penerbit:string[20];
end;
var
a:array[1..200] of recBuku;
tempjudul,temppeng,temppnb:string[20];
tempkod:string[10];
temped:string[4];
tempth,i,j:integer;

begin
writeln(‘+++++++++++++++++ Input Data Buku ++++++++++++++++’);
writeln(‘—————————————————————–’);
for i:=1 to 200 do
begin
write(‘Judul Buku        : ‘);readln(a[i].judul);
write(‘Kode Buku         : ‘);readln(a[i].kode);
write(‘Pengarang         : ‘);readln(a[i].pengarang);
write(‘Edisi                   : ‘);readln(a[i].ed);
write(‘Tahun terbit     : ‘);readln(a[i].tahun);
write(‘Penerbit             : ‘);readln(a[i].penerbit);
writeln;
end;
for i:=1 to 200 do
begin
for j:=1 to 200 do
begin
if a[j].judul > a[i].judul then
begin
tempjudul:=a[j].judul;
a[j].judul:=a[i].judul;
a[i].judul:=tempjudul;
tempkod:=a[j].kode;
a[j].kode:=a[i].kode;
a[i].kode:=tempkod;
temppeng:=a[j].pengarang;
a[j].pengarang:=a[i].pengarang;
a[i].pengarang:=temppeng;
temped:=a[j].ed;
a[j].ed:=a[i].ed;
a[i].ed:=temped;
tempth:=a[j].tahun;
a[j].tahun:=a[i].tahun;
a[i].tahun:=tempth;
temppnb:=a[j].penerbit;
a[j].penerbit:=a[i].penerbit;
a[i].penerbit:=temppnb;
end;
end;
end;
clrscr;
writeln;
writeln(‘+++++++++++++++++ Output Data Buku +++++++++++++++++++’);
writeln;
writeln(‘———————————————————————–’);
writeln(‘| No |  Judul  | Kode |    Pengarang   | Edisi | Tahun |   Penerbit   |’);
writeln(‘———————————————————————–’);
writeln;
for i:=1 to 200 do
begin
writeln(i,’  ‘,a[i].judul:3,’  ‘,a[i].kode:3,’  ‘,a[i].pengarang:3,’  ‘,a[i].ed:3,’  ‘,a[i].tahun:3,’  ‘,a[i].penerbit:3);
end;
readln;
end.

Pada program diatas deklarasi untuk proses sorting data ditunjukkan pada :

for i:=1 to 200 do
begin
for j:=1 to 200 do
begin
if a[j].judul > a[i].judul then
begin
tempjudul:=a[j].judul;
a[j].judul:=a[i].judul;
a[i].judul:=tempjudul;
…
a[j].penerbit:=a[i].penerbit;
a[i].penerbit:=temppnb;
end;
end;
end;

yang akan memproses data secara ascending berdasarkan judul buku yang telah diinputkan pengguna. Demikian semoga bisa membantu kita semua.