PROGRAM PASCAL PASCAL
“Makalah Struktur Data dan Contoh program Input Database Mahasiswa
Disusun Oleh !
"an#i $atul %ar&a S
'()*I) )OMP+'(R
AMI) )OSGORO SOLO) ,-./
KATA PENGANTAR
Puji serta syukur kehadirat Allah SWT, karena dengan rahmat dan hidayah-Nyalah kami dapat menyelesaikan makalah ini tepat pada waktunya Shalawat !eriring salam selalu kita panjatkan kepada Rasullullah SAW, karena kegigihan !eliau dan ridh"-Nyalah kita dapat merasakan kenikmatan dunia seperti sekarang ini Adapun tujuan dari penulisan makalah ini adalah untuk memenuhi tugas yang di!erikan "leh #apak $ajar Sk"m,%k"m selaku d"sen pem!im!ing makalah ini juga !ertujuan untuk menam!ah pengetahuan dan wawasan !agi pem!a&a sekalian Kami kel"mp"k ' mengu&apkan terimakasih kepada #apak $ajar Sk"m,%k"m selaku d"sen pem!im!ing mata kuliah Struktur Struk tur data Kami kel"mp"k ' menyadari !ahwasanya makalah ini masih jauh dari kesempurnaan, "leh karena karena itu itu krit kritik ik dan saran saran penuli penuliss harapk harapkan an dari dari pem!a& pem!a&aa sekali sekalian an demi demi ter&i ter&ipta ptany nyaa kesempurnaan dalam penyusunan makalah ini Sem"ga makalah ini !erman(aat !agi yang mem!a&anya Terima kasih
Sa!tu, )* +esem!er ). Penyusun
0A0 I P(*DA%+L+A* a1 Latar belakang Perkem!angan tekn"l"gi saat ini sangat !erkem!ang dengan pesat Setiap jam, menit, detik selalu !erkem!ang dan terus !erkem!ang /al ini dapat kita lihat di kehidupan kita seharihari dimana kita tidak !isa lepas dari namanya handph"ne, k"mputer, p& ta!let, iph"ne dan lain-lain +engan kemajuan jaman maka saat ini pendataan mahasiswa dengan menggunakan penulisan manual dapat mem!uang !anyak waktu, tenaga, dan juga !iaya yang dikeluarkan +engan menggunakan tekn"l"gi saat ini maka kita dapat menggunakan k"mputer se!agai alat atau media untuk menginput dan menyimpan data-data mahasiswa Sehingga dapat menghemat waktu, tenaga, dan juga !iaya yang dikeluarkan +engan menggunakan !ahasa pemr"graman pas&al kita dapat melakukan pendataan mahasiswa se&ara k"mputerisasi Sehingga dapat mem!antu para sta(( dalam melakukan pendataan mahasiswaPas&al sendiri Pas&al se!agai salah satu !ahasa tingkat tinggi 0highlevel language1 untuk dapat dapat dikenali "leh &"mputer harus diterjemahkan menjadi
!ahasa mesin 2ntuk itu dikem!angkan se!uah pr"gram penerjemah yang dise!ut dengan k"mpilat"r 0&"mpiler1 K"mpilat"r Pas&al adalah se!uah software, !ukan perangkat keras 0hardware1 K"mpilat"r adalah pr"gam yang disimpan pada file dalam disk
b1 Rumusan masalah #erdasarkan latar !elakang yang telah dipaparkan di atas, maka penulis telah menentukan !e!erapa rumusan masalah dalam pem!uatan pr"gram perhitungan nilai akhir dan data mahasiswa ST%3K TAS3K%A4A5A yaitu6 Gam!aran umum pr"gram7 ) $l"w 8hart pr"gram7 ' K"ding pr"gram7 9 4ay "ut pr"gram
21 'u#uan Sejalan dengan rumusan masalah di atas, makalah ini disusun dengan tujuan untuk mengetahui dan mendeskripsikan6 Pem!a&a dapat mengerti (ungsi pr"sedur pada pas&al7 ) dapat : !isa menjalankan pr"gram aplikasi data!ase mahsiswa7 ' 3mplementasi se!uah pr"gram
#A# 33 PE%#A/ASAN a1 Dasar 'eori .1 Algoritma +itinjau dari asal-usul katanya, kata Alg"ritma sendiri mempunyai sejarah yang aneh ;rang hanya menemukan kata algorism yang !erarti pr"ses menghitung dengan angka ara! Anda dikatakan algorist jika Anda menghitung menggunakan angka ara! Para ahli !ahasa !erusaha menemukan asal kata ini namun hasilnya kurang memuaskan Akhirnya para ahli sejarah matematika menemukan asal kata terse!ut yang !erasal dari nama penulis !uku ara! yang terkenal yaitu A!u
mi Al-huwari>mi di!a&a "rang !arat menjadi Algorism. Al-Khuwari>mi menulis !uku yang !erjudul Kitab Al Jabar Wal-Muqabala yang artinya ?#uku pemugaran dan pengurangan@ 0The book of restoration and reduction1 +ari judul !uku itu kita juga memper"leh akar kata ?Alja!ar@ 0 Algebra1
Peru!ahan kata dari algorism menjadi algorithm mun&ul karena kata algorism sering dikelirukan dengan arithmetic, sehingga akhiran –sm !eru!ah menjadi –thm. Karena perhitungan dengan angka Ara! sudah menjadi hal yang !iasa, maka lam!at laun kata algorithm !erangsur-angsur dipakai se!agai met"de perhitungan 0k"mputasi1 se&ara umum,
sehingga kehilangan makna kata aslinya +alam !ahasa 3nd"nesia, kata algorithm diserap menjadi algoritma Algoritma adalah urutan langkah-langkah logis !en"elesaian masalah "ang disusun secara sistematis dan logis#. Kata logis merupakan kata kun&i dalam alg"ritma 4angkah-langkah dalam alg"ritma harus
l"gis dan harus dapat ditentukan !ernilai salah atau !enar +alam !e!erapa k"nteks, alg"ritma adalah spesi(ikasi urutan langkah untuk melakukan pekerjaan tertentu Pertim!angan dalam pemilihan alg"ritma adalah, pertama, alg"ritma haruslah !enar Artinya alg"ritma akan mem!erikan keluaran yang dikehendaki dari sejumlah masukan yang di!erikan Tidak peduli se!agus apapun alg"ritma, kalau mem!erikan keluaran yang salah, pastilah alg"ritma terse!ut !ukanlah alg"ritma yang !aik
,1
Struktur Data
+alam istilah ilmu k"mputer, se!uah Struktur adalah &ara penyimpanan, penyusunan dan pengaturan data di dalam media penyimpanan k"mputer sehingga data terse!ut dapat digunakan se&ara e(isien +alam teknik pemr"graman, struktur data !erarti tata letak data yang !erisi k"l"m-k"l"m data, !aik itu k"l"m yang tampak "leh pengguna 0user1 atau pun k"l"m yang hanya digunakan untuk keperluan pemr"graman yang tidak tampak "leh pengguna Setiap !aris dari kumpulan k"l"m-k"l"m terse!ut dinamakan &atatan 0re&"rd1 4e!ar k"l"m untuk data dapat !eru!ah dan !erariasi Ada k"l"m yang le!arnya !eru!ah se&ara dinamis sesuai masukan dari pengguna, dan juga ada k"l"m yang le!arnya tetap +engan si(atnya ini, se!uah struktur data dapat diterapkan untuk peng"lahan data!ase 0misalnya untuk keperluan data keuangan1 atau untuk peng"lah kata 0w"rd pr"&ess"r1 yang k"l"mnya !eru!ah se&ara dinamis 8"nt"h struktur data dapat dilihat pada !erkas-!erkas lem!ar-se!ar 0spreadsheet1, pangkal-data 0data!ase1, peng"lahan kata, &itra yang dipampat 0dik"mpres1, juga pemampatan !erkas dengan teknik tertentu yang meman(aatkan struktur data 31 Pemrograman Prosedural
Pada pemr"graman dikenal !e!erapa paradigma yang dipakai dalam meme&ahkan suatu masalah Penggunaan suatu paradigm ditujukan se!agai &ara pemr"gram dalam memandang setiap entitas dalam dunia nyata dan relasi antara entitas terse!ut, sehingga memudahkannya dalam menerjemahkannya menjadi suatupr"gram +i sisi lain, penggunaan suatu paradigma akan mem!atasi:mempersempit &ara pandang pemr"gram +alam tulisan ini akan digunakan pemr"graman dengan paradigma pr"sedural Pemr"graman pr"sedural didasari "leh k"nsep mesin B"n Neumann yang dise!ut stored !rogram conce!t Suatu pr"gram terdiri atas dua !agian yaitu alg"ritma dan struktur data
#agaimana &ara kerja dari suatu pr"gram ditentukan "leh sekumpulan perintah yang akan dilaksanakan se&ara sekuensial "leh suatu pemr"ses tunggal 3nilah yang dise!ut alg"ritma +alam pr"ses pelaksanaan sampai mengeluarkan suatu hasil, pr"gram mem!utuhkan data yang akan di"lahnya +ata terse!ut akan disimpan dalam mem"ry k"mputer +alam pr"gram data terse!ut akan distrukturisasikan sehingga akan memudahkan dalam peng"lahannya 3nilah yang dise!ut struktur data Paradigma pr"sedural mem!atasi &ara penyusunan alg"ritma dan strukturisasi data sehingga dekat dengan k"nsep mesin B"n Neumann
%eskipun pemr"graman ini sangat tidak manusiawi, namun sangat e(isien karena kedekatannya dengan mesin 41 Prosedur
adalah suatu pr"gram terpisah dalam !l"k sendiri yang !er(ungsi se!agai su!pr"gram 0pr"gram !agian1 +iawali dengan kata PR;8E+2RE didalam !agian deklarasi pr"sedur Pr"sedur !anyak digunakan pada pr"gram yang terstruktur karena 6 %erupakan penerapan k"nsep pr"gram m"dular, yaitu meme&ah-me&ah pr"gram yang rumit menjadi pr"gram-pr"gram !agian yang le!ih sederhana dalam !entukm pr"sedur-pr"sedur 2ntuk hal-hal yang sering dilakukan !erulang-ulang, &ukup dituliskan sekali saja dalam pr"sedur dan dapat dipanggil atau dipergunakan sewaktu-waktu !ila diperlukan /1 Pengulangan while do
Struktur pengulangan W/34E-+; digunakan untuk mengulang statement atau suatu !l"k statement !erulang kali selama k"disi pada while terpenuhi : !ernilai !enar 51 Arra6 7 Larik
adalah tipe terstruktur yang terdiri dari sejumlah k"mp"nen k"mp"nen yang mempunyai tipe data yang sama Array dapat !ertipe sederhana !yte, w"rd, integer, real, !""lean, &har, string dan tipe s&alar atau su!range Suatu array mempunyai jumlah k"mp"nen yang !anyaknya tetap dan ditunjukkan "leh suatu indeks yang dise!ut indeC type 0tipe indeks1 Setiap k"mp"nene dalam array dapat diakses dengan menunjukkan nilai indeksnya atau dise!ut juga dengan istilah su!s&rip 81 I"
Penyeleksian ? 3$ ? !erguna untuk menguji se!uah k"ndisi, dimana !ila k"ndisi terse!ut terpenuhi 0 !ernilai true 1 maka akan dijalankan suatu pernyataan tertentu #netuk 2mum 6 3$ k"ndisi T/EN pernyataan
3$ k"ndisi T/EN pernyataan E4SE pernyataan ' 3$ k"ndisi T/EN pernyataan E4SE 3$ k"ndisi) T/EN pernyataan E4SE pernyataan ! Gam!aran umum pr"gram Pr"gram +ata!ase mahasiswa ini di!uat untuk memudahkan dalam pendataan , dimana se"rang guru atau d"sen dengan mudah dan &epat memasukan atau men&ari data mahasiswa, Pr"gram ini di!uat dengan menggunakan !ahasa pemr"graman Pas&al dan ditulis dengan aplikasi Tur!" Pas&al $"r Wind"w dengan lay "ut pr"gram yang sederhana sehingga user dapat dengan mudah meng"perasikannya
& $l"w&hat Pr"gram +iagram alur $flowchart% merupakan gam!ar atau !agan yang memperlihatkan urutan dan hu!ungan antar pr"ses !eserta instruksinya #agan ini dinyatakan dengan sim!"l +engan emikian setiap sim!"l menggam!arkan pr"ses tertentu sedangkan hu!ungan antar pr"ses digam!arkan dengan garis penghu!ung Sim!"l-sim!"l diagram alur $l"w&hat pr"gram data!ase mahasiswa 6
d K"ding pr"gram
pr"gram lth7 uses win&rt7 ar pilih6 !yte7 pr"&edure 3nputDdata7 type mhsre&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 lagi6 &har7 !egin assign0(mhs,ImhsdatI17 rewrite0(mhs17 lagi6IyI7 while up&ase0lagi1I5I d" !egin &lrs&r7 with rmhs d" !egin g"t"Cy0.,J1 7write0IN"m"r P"k"k %ahasiswa 6 I17 g"t"Cy0.,*1 7write0INama %ahasiswa g"t"Cy0.,1 7write0INilai %ahasiswa g"t"Cy0',J1 7readln0npm17 g"t"Cy0',*1 7readln0nama17
6 I17 6 I17
g"t"Cy0',17readln0nilai17 end7 write0(mhs,rmhs17 g"t"Cy0.,.1 7write0I%asukan data lagi F5:TH I17 readln0lagi17 end7 &l"se0(mhs17 end7 pr"&edure Tam!ahDdata7 type mhsre&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 lagi6 &har7 !egin assign0(mhs,ImhsdatI17 LM3- reset0(mhs17 LM3O7 i( i"resultQ then rewrite0(mhs17 seek0(mhs,(ilesi>e0(mhs117 lagi6IyI7 while up&ase0lagi1I5I d" !egin &lrs&r7 with rmhs d" !egin g"t"Cy0.,J1 7write0IN"m"r P"k"k %ahasiswa 6 I17 g"t"Cy0.,*1 7write0INama %ahasiswa
6 I17
g"t"Cy0.,1 7write0INilai %ahasiswa
6 I17
g"t"Cy0',J1 7readln0npm17 g"t"Cy0',*1 7readln0nama17 g"t"Cy0',17readln0nilai17 end7 write0(mhs,rmhs17 g"t"Cy0.,.1 7write0I%asukan data lagi F5:TH I17 readln0lagi17 end7 &l"se0(mhs17 end7 pr"&edure 4ihatDdata7 type mhsre&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 !egin assign0(mhs,ImhsdatI17 reset0(mhs17 &lrs&r7 writeln0I-------------------------------------------------------------I17 writeln0INP%
nama mahasiswa
nilaiI17
writeln0I-------------------------------------------------------------I17 while n"t e"( 0(mhs1 d" !egin read0(mhs,rmhs17 with rmhs d" writeln0npm6,nama6).,nilai6)617 end7
writeln0I-------------------------------------------------------------I17 &l"se0(mhs17 readln7 end7 pr"&edure 8ariDdata7 type mhsre&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 i,jml6 integer7 n"&ari6 stringFH7 lagi6 &har7 ketemu6 !""lean7 !egin assign0(mhs,ImhsdatI17 reset0(mhs17 jml6 (ilesi>e0(mhs17 lagi6IyI7 while up&ase0lagi1I5I d" !egin &lrs&r7 ketemu6 (alse7 write0I%asukan npm yang di&ari 6 I17 readln0n"&ari17 writeln7 ("r i6 t" jml d" !egin seek0(mhs,i-17 read0(mhs,rmhs17
i( rmhsnpmn"&ari then !egin ketemu6 true7 writeln0INama %ahasiswa 6 I,rmhsnama17 writeln0INilai %ahasiswa 6 I,rmhsnilai6)617 end7 end7 i( n"t ketemu then writeln0ITidak n"m"r terse!utI17 writeln7 write0I&ari data lagi F5:TH I17 readln0lagi17 end7 &l"se0(mhs17 end7 pr"&edure K"reksiDdata7 type mhsre&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 i,jml6 integer7 n"&ari6 stringFH7 ketemu6 !""lean7 lagi6 &har7 !egin assign0(mhs,ImhsdatI17 reset0(mhs17 jml6 (ilesi>e0(mhs17 lagi6I5I7
while up&ase0lagi1I5I d" !egin ketemu6 (alse7 &lrs&r7 write0IN"m"r p"k"k mahasiswa yang di&ari 6 I17 readln0n"&ari17 writeln7 ("r i6 t" jml d" !egin seek0(mhs,i-17 read0(mhs,rmhs17 i( rmhsnpmn"&ari then !egin with rmhs d" !egin ketemu6 true7 writeln0IN"m"r P"k"k %ahasiswa 6 I,npm617 write0IK"reksinya writeln0INama %ahasiswa write0IK"reksinya writeln0INilai %ahasiswa write0IK"reksinya
6 I17 readln0npm17 6 I,nama17 6 I17 readln0nama17 6 I,nilai6)617 6 I17 readln0nilai17
end7 end7 seek0(mhs,i-17 write0(mhs,rmhs17 end7 i( n"t ketemu then writeln0ITidak n"m"r terse!utI17 writeln7 write0Iada lagi yang akan dik"reksi F5:TH I17 readln0lagi17 end7 &l"se0(mhs17 end7
pr"&edure /apusDdata7 type mhs re&"rd npm6 stringFH7 nama6 stringF).H7 nilai6 real7 end7 ar (mhs6 (ile "( mhs7 rmhs6 mhs7 n"urut,i,jml6 integer7 n"&ari6 stringFH7 ketemu6 !""lean7 lagi,ya6 &har7 !egin assign0(mhs,ImhsdatI17 reset0(mhs17 lagi6 I5I7 while up&ase0lagi1I5I d" !egin &lrs&r7 jml6 (ilesi>e0(mhs17 write0IN"m"r re&"rd yang dihapus 0 -I,jml6',I1 I17 readln0n"urut17 writeln7 i( 0n"urut 1 "r 0n"urut Q jml1 then writeln0ITidak ada n" re&"rd ini I1 else !egin ("r i6 n"urut t" jml d" !egin seek0(mhs,i-17 read0(mhs,rmhs17 with rmhs d"
!egin writeln0INama %ahasiswa 6 I,rmhsnama17 writeln0INilai %ahasiswa 6 I,rmhsnilai6J6)17 end7 end7 writeln7 write0I5akin data ini akan dihapus F5:TH I17 readln0ya17 i( up&ase0ya1 I5I then !egin seek0(mhs,n"urut-17 trun&ate0(mhs17 end7 end7 writeln7 write0Iada lagi yang akan di&ari F5:TH I17 readln0lagi17 end7 &l"se0(mhs17 end7 !egin while true d" !egin &lrs&r7 g"t"Cy0),)17 write0I%EN2 2TA%AI17 g"t"Cy0.,.17 write0I 3nput data awalI17 g"t"Cy0.,17 write0I) Tam!ah dataI17 g"t"Cy0.,17 write0I' 4ihat semua dataI17 g"t"Cy0.,17 write0I9 4ihat data tertentuI17 g"t"Cy0.,'17 write0I. Edit dataI17 g"t"Cy0.,.17 write0IJ /apus dataI17 g"t"Cy0.,17 write0I SelesaiI17 pilih 6 7 while 0pilih 1 "r 0pilih Q 1 d" !egin g"t"Cy0.,)17 write0I%asukan pilihan 6 I17
readln0pilih17 i( 0pilih 1 "r 0pilih Q 1 then write 0UG17 &ase pilih "( 6 3nputDdata7 )6 Tam!ahDdata7 '6 !egin lihatDdata7 writeln7 write0ITekan enter untuk kem!ali ke %EN2I17 readln7 end7 96 8ariDdata7 .6 K"reksiDdata7 J6 /apusDdata7 6 ECit7 end7 end7 end7 end
Tampilan /asil 6
#A# 333 Penutup a Kesimpulan Pr"gram hitung nilai akhir dan data!ase mahasiswa ini di!uat untuk memudahkan dalam pekerjaan dimana se"rang user dengan mudah dan &epat dalam menghitung nilai akhir dan menginputkan data mahasiswa Pr"gram ini di!uat dengan menggunakan !ahasa pemr"graman Pas&al +iagram alur $flowchart% merupakan gam!ar atau !agan yang memperlihatkan urutan dan hu!ungan antar pr"ses !eserta instruksinya K"ding pr"gram adalah perintah pr"gram dengan struktur pemr"graman !ahasa Pas&al dan 4ay "ut pr"gram adalah hasil akhir dari pemr"graman yang akan diimplementasikan
! Saran sesuai dengan pepatah ?tiada gading yang tak retak@ dengan demikian kami kel"mp"k ' menyadari sepenuhnya !ahwa makalah ini masih sangat jauh dari kesempurnaan, hal ini dikarenakan keter!atasan wawasan maupun sum!er-sum!er data yang dimiliki penulis, dengan demikian kritik dan saran dari !er!agai pihak sangat dinanti guna penyempurnaan malah ini
+a(tar Pustaka #ry"n G"((ried, *J &rogramming with &A'(A) , S&haum Series, New 5"rk http6::wwwwikipedia&"m http6::wwwnusinau&"m
