\ ''-itah TL:HIH l l'a\c:\1. l I. Dt\SAH PEMnOC I~ A.\ 1:\N

...

't a

f

DAFTAR ·tSf

DJftJt lsi \'II

l\.1u l'cngantJ r ...... ... ....... .

XIII

I.

!'F:"JG/\ ''-iTAH TL:HIH l I 1.2. U.

II

i t. -\:•

Il l.

~

i

TV.

~·

1:;

.,f

!

tl

~l

...........

__

\'

l

l' A\C:\1.

TUH!l<) I'AS U\ L D!\'•.J l'f,\1HOC H ·\,\it\\i TEJ<STH UKTUH KO!I.-ll'ILEH \Ellr\t; \! Ti< :\~,\1 AT< lH PENGLNA!.i\:'--J l'H C'C it·\ ;\1 II !lUI\ ) 1':\\\ ':\I

Dt\SAH PEMnOC I~ A .\ 1:\N I!. I. KAI{AKTEH 1)/\i .'\.\1 l"Ui
2 \

(,

h ~:

iK

:?It )J

,., ~I

)_-,

l•l 1(1 -ll

-11 -1.1

.;:; -17 -17 .j<)

51

~

T..;::

""'.

51 ')(,

·~h" ...t~

U)

•.o .... ,.

~()\ (I I

\'II

:! ,. '\. ~J

f'.,

~I'>JV..( ,.

...., ,.

f, ·

. ••

~0\ :y' ......

.9

~

\.

~!

r f

E}U'JYATAAN MAJEMUK .... ... .. .. ... .... ........... . . . ~GJ{}\PAN NALAR ... .. ...... ............... ....... ... ... . : AT AAN BERKONDISI: IF . .. .......... .... ..... . JV!ENGGUNAKAN IF UNTUK l'vft '. ~ '\ffUKAN KEPUTUSAN TERHADAP SEJUML\H AL TERNATIF . . .......... ....... ............ .......... .. . .. .... . PENGULANGAN PROSES DENGAN: FOR ....... .. . PENGULANGAN PROSES DENGA:-.J REPEAT PENGUL ANG AN PROSES DENG:\ 'J WHILE PENYELESAIAN SEJUMLAH ALTERNATIF DENCAN PERNYATAAN C:\SE

61 61 65

PROSEDUR DA N FUNGSI .............. _ ........ ... . . .. .... ... .. . Vl.l MENGENAL FUNGS I ARITMEllK:\ __ .............. . Vl.2 MENCIPTKAN FUNGS I ......... ..... .... .. . .. . .... . . .. VI.3 MENC IP'TA KAN PROSEDUR .. . ......... .. . V I.~ MELEWATKAN PARAMETER DE:"JGAN · N ILAI ATAU REFERENSI ..................... . Vl.:> PEM BATA SAN PENGENAL .... _ ... ........ .

'J7 'J7

p£rtr-1Y

y.6.

V.7. V.8. V.<J.

VI.

VII.

VIII.

IX.

X

:v\ENGGUNAKAN TIPE ENUMERASI DAN SUU RANG!.: VII.l. TIPE ENUMERASI .. .. .. .. ...... .... . .. ...... . ..... . VII.2. TIPE SUI3Iu \NGE ..... ...... ..... .. .. .. .... ... ........ .. PENGOLAHt\N DAT A STRING .......... .. .... .. ......... . Vlll. l. KONSTANTA STRING .. ..... .. .. .. ........... .. .... . VIII.2. T!PE STRING . .. . .. . .. .... . .. . .. .. . .. . .. . .. .. .. . .. . .. VllLJ. PENUGASAN TERHA D AP V:\RJAUEL STRING ..... Vll l.4. INISIALISASI STRING ...... .. ...... .. .......... .. VIII.5. PEMBANDINGAN STRING ........................... .. Vlll.(l. MENGAKSES ELEMEN S'ffiiNG ..... ........ ........ .. Vlll.7. FUNGSI DAN PROSEDUR UNTUK OPERAS! STRING ... ................ ........ .......... : . .. .. .".. STRING SEBAGAI PARAMETER ATAU VIII. 8. SEBAGAI HASIL FUNGSI .............. .......... .. ....... .. llPE D !\TA TERSTRUKTUR ARRAY ...... ................ ..... .. IX.l. ARRAY .. .. .... ... .. .. .. .. .. . .................... .... .. .... .. ... .. IX. 2. ARRAY BERDIMENSI SATU .... ...... ............... ...... IX .J. ARRAY MULTIDIMENSI .. . .... ........ .... .... .... ..... .... IX . .:!. MEMERIKSA KAWASAN ARRAY ............ .. ......... . IX .5. 1\RHA Y SEBAGAI PARAMETER .... ....................~ IX .6 PENUGASAN ARRAY .. .... ...... . ..... . . .. . .. .. .. .. .. .. TIPE PArA TERSTRVKTUR HECORD . ... .. ... ... . . X. l. MEN DEFINISIKAN/ MENDEKL AHASIKAN RECO RD ................... .... .... . .................. ... ...

"

t

X.2. X.3. X.4. X .S.

!!

j

~

MENGAKSES RECORD .................................... .. MENGGUNAKAN PERNYATAAN WITH ........... .. MENGGUNAKAN VARIA NT RECORD ..... .. ....... . !NlSlALISASl DATA RECORD ....... .. .. ~ ... .. ........... .

157 165 168 173

i IIMP LJN.AN ... ........ ................................................ . XLI. PENDEFINISJAN/l'ENDEKLAR!\SIAN TlPE HIMPUNAN ............ .... ..... .. X 1.2. ELEMEN HIMPUNAN ........ ----- · ·· XI. .) UPERASI DAN I'L\1ll•\NDINC --\ N I !L\11'UNAN XI..J I'EMI3ENTUK AN I lli\I PUNAN . X!.J. I\ 1ENA MPILKM'l f.LE.\11-N I fL\·1 l'L':'-!.'\N Xl.6. INISIAL! Si\SI lll.'v1l'UNt\N

176

;: X I.

6'}

T2 77 <·-

n:> ~'I

'"

.'
ji l_2

103 1117 II() I Ill

I l l' 12()

I)) l~ J

121 12] 12.:1

F.O.,S ILITAS D t\LAM UNIT CRT .... . ... _ . · -· - _ ..... XII. 1. MENGATUR JENDELA TEKS __ .... .. X II . 2. MENGATUH W.A.HN:\ TEKS . .. .. .. __ .. XI I .1. MENEMPATKAN KURSOR KE SUATU LOKA';J JENDELA LAYAH ..................... .. .. ___ ... . XI I -1. MEMPEROLEH POSIS! KURSUR ... ... .... _ >-:11 . 5. MENG I 1.1\PUS LAYr\H ............. .. ... XII _ t,_ MENGH!LANGKAN BARIS . ........ .... _ ... XII. 7 MENYI SIPKAN U .A!~IS KOSONG ... ... .. . . '<1!. H. MENGHAPUS SELURU II KARAKTEH MULA ! POSISI KURSOH . ____ .... ..... ... XII ') MENG.ATUR DAN ,\ 1EMERIKSA MODE TEKS X II 10 MEME R!KSA AD;\ TIDAKNYA TOMUOL Y ANr; DITEK,O.,N __ _ ... __ .... . __ . MENGGUNAKAN H. EAD KEY UNTUK XII. I I.

124 .'
132

137

~

137 138 146 152 !53 153 ISS

•

155

XIII.

MEMBACA TOMBOL .. . _______ ------ -- ·-- ··-- ......... . MENGATUI~ SUPA YA PHOG RAf\1 T.AK DAPAT DIHENTIKAN DENGA N CTRL-BREAK __ ___ __ MENUNDA EK SEKUSI SESAAT ........... .. ... ... .. . .. MENGATUR SUARA SPEAKER .. .. ......... .... .. _ LArN-LA!N .................... .. ......... .... ... .. .

PE NGOLAHAN DATA DENG AN FILE .. ... ... .............. . FILE BERTIPE ---------- ........... ..... ......... .. .. ... ... . XIII. I X ll!.2. FILE T EKS ...... .. ............... .. ....... .... ........ . X II U . OPERAS! PERANTI DOS SEBAGAI FILE ...... _ .. X IIL4 . MENGGU NAK AN U NIT PI ,'\IENANGANI KESALAIIAN 1/0 X11!.7. RANGKU MAN f'EHINTAH FI L E

176 ITl i77 J ~J)

lH3 ~ ~~

i'X) i'AI

I'JI 1% 1')7

197 1')7 !·~

]{JI

]! II ]! ( '

]{f2

2tX) ']{J7 ~7

?£!)

2 11 2 12 23.1 245 24')

.'?50 2'i3 257 IX

Vlll

t

(

XV1 1.7. MENANGANI SUBPROSES ... ..... ...... ............... .. XV II. 8. LAIN-LAIN ....... .. .. ..... ... .. .... ... ........... .............. .

l!f'Jti AN VOINTER -········· ·· ··· ·-·········

260 PEMR0GnMv1"j.J I ~!'I 1 \)JN~R .... .... .... ..... .........: ...... . 260 .._.,,o...._'TER "6.1 XIV .l. l'J\ ,.Jr •t:ltfl I H ~ l~'" ll'< ••• •• ••• ••• ••••• ••••· •• ••• •••• · ~ XIV . . prHI II: ':'~ I ,\f"l I)AFfAR BERANTAl ....... ......... 263 XIV. 2 . pt ' Hnl·r,l ,\It I'N VARIABEL DINAMIS .... ... ... .... 264 XIV A3 . Mllf ·l( II ~I I , -\f t' fi\R BERANTAI .. .... .... ....... ..... 267 XIV .S. MI ' MII 11 ., \N lSI DAFTAR BERANTAI ... ... ... 271 111h Vt\ IUABEL DTNAMIS .. .... .. .......... 272 XIV.6. Ml ' f IAf'JI 1 pll

1

XIV .7. XIV .8.

Mflflt ,l~ I ~ ltli'JIO:

1'1 11 1'

KEPERLUAN ALOK ASI

• 1 ,.

I

' •I, I"~,,

I

· · · ···· · ·· · ··· · · · · · ····· ··· · ····· · ···· •· · ···

I I , •I d

2K."\

..... .. ... .. -.. -...... . .. ... . ... . . . . . . . . . .

KOMl'uTf. l~

MANI I'l 'I /'1'• 1 11 I ' \ I :\I\ I 11\"v\-PC .... ...... XV.l. r-.,.11 f'- 1' •I 11 , q rl I)ALAM TUR!JO l' t\SCr.L ..... .

XV .

1

XV.2 . xv .3. XV.-l XV.j . XV h.

XV. 7 XVX ·'' .. XV

2X7

,:::-;•1

111

1' 1 I '' t 1 , Ill t\1 AMAT, SEGMEN ATi\. U tvl l (\ II ' I I I 11 -----··· ···· ···· ..... ....... .... ________ __ 1 t1 ·, 1 1 , , 1 I I hi REGISTER CS,DS.SP 1),\.N SS 1 1,11 1\ ll : l 11 II' 1 1 11 UKUR.A.N MEMORI SU ATU 1 1\11 r II I 1 tl'l · ATAU KO N ST.ANTI\. BERTIPE \' /'1 111 \Ill1 1, \ Il l T IP E DATA TERSTRUKTUH 111 I 11 11 ' ,I ; I ill AI YA NG SAMA ..................... .. . 1 I ol I 11 ,' \ I I I 1 1', 1 >;EJ UMLAH MEMORI ...... ... ."... .

~ 11 1 r, l '

1 ' :~I I ;\ ', I I l ATA BERTIP E \X.'ORD .... ........ . 1!11 II' \II '.1 (; MEN D.AN OFSET :O.~ENj:\DI

1 ·~

·t i ll • · ' I .

XV . lil

'I ' "

r I l l i' • .

I ,,II' '

XV .ll XV I.

2~7

t· l '

I

. 1 11

, I ·,

t\IF.MORI DAN

t\ ,- ,

I '.

PORT ')ECARf.

p . . . ... .... ............. .. ..

UT

'

~~~ :;,

II' I I "\ 1-i

tll ' l;,., I'' IH l'~ t · IIUR '''" '

\I

"''I

M·' , 1NI'f"

I'""'' ,,c \'1

11

XIX

1-'l:.."IRUG RAMAN MODUL AR DE NGA N UNIT .. ........... . X!X .t STRUKTU R UNIT .................................. .. ..... . XIX .2 KA ITAN NAMA UNIT DAN NAMA FILE

}')(,

PnOCH.AM T AMBAHAN ............. ...... .... ....... ....... .. .. . .. XX . !. EMULASI l'ENGOLA H AN NUMERIK ...... ..... . .. :\X.::' MEMERIKSA NILA I IND EKS Dl LUAH KAWASAN ."-.RRAY .. .. ... ... .... ........ ... .. ... ....... .. .. . FASILITAS LA Y.I\.R XX . ."\ . IMPL E~\ENTAS I P!LIHAN PROSES DENGAN X)~. 4 SISTEM GESEH ..... .. .. . ... .. .. . ... . .... .. .............. ..

40-t -t04 .

2'J1 291

XX

~l)~

2').\

_ _.,

')t \ ,

2' 1(,

2'1l'

N............................. .

.301

................ ... ..... .

350 352 353 356

360 :0(,')

37() ."17'1

3:-\H 392

LA,\·\ I' In t\. 'J A DAFT:\H :\.SCI !

396 -l/ 12

406 407

422 426

}(ll

30-\

LAMP!RA~

.3<6

PETUNJUK PENGOPERASIAN TU IH30 PASCAL

432

~

LAMPIRA~ C DAFTAR PERINTAH ED!TOH. TURBO PASCAL

444

i.

DAFTAR PU STAKA ......... ....... .

448

~

.307 307 30H

. ......... .. 315

DOS .. ................................... . 315 lSERROR .......................... .. ...... .. 316 V ·" 11 1\h 'd ''' WAKTU ............ .... ........ .. .......... .. 321 1\1\ ·l'-11 11 1 II STATUS DISK ................... ..... .. 322 111 /\ 11 ·1\ 1, , ~ 1 li\N FILE ....... .. ...... .. ... .... ....... .. .... .. . 32<J 1 1' 1 \-1 , /\ II II I r ERU PSI ................ .... ............ .... . 336 I\ I' ' ,1 .-. r U l tNGKUNGAN DOS ... ... ........ .. . 1 11 1 1 XVII.r• I\ I 1·1

XVII. FASIL\1 XVII.\ XVII.' XVIl .' XV!l ·' XV!l •

345 345 346

2')11

........... .. .. ...... ........ .

..... ... ... .. .. FASILII · • 11 1\M LANJUTA . .. .. ....... .. ... .. ..... .. . .. 11 1 XVI. I. ' · I 1!11 ' 1' I 111 1:. .............. .................... .... . 1111 XVL 2. 11'1' I \p tl l .. .. ...... ............................. ......... .. XVU . lll ·ld (ILIAhl 'llJBP ROGRAM SECARA .. ....................... .. ........ .... .......... . XVL4 . Ill · I\ I •A lii I t·t Ill W · ltl l l ' tNI. 'ERUPSI · ..... .... .......... · " • I .\ I

343

XVI II. PEMROGRAMAN GRAF IK ...................... .......... ........... .. XV III.l. PENGENALAN MODE G RAFIK ....................... . XVII1.2. PERINTAH DASAR ............................... ........ .. . XV IIU. MENGAKSES PIKSEL ...... .......... .... .. ...... ......... .. XVlll.4 . MEMINDAH PENUNJUK GAM!JAR .......... .. ... .. XVJII.S . MEMBUAT GARI S .............. ..... .... ....... ... ...... .. X\' 111. 6. MEMB UAT ELEMEN BANGUN ... , .. .. .. ........... . XVIIL7. MENGATUll WARNA POLA, MENCAHSIH DAN MEMBLOK . .. ..... .. ... . :\'."! 11 11 f-ASILITA S TEKS DALAM M ODE< ;H r'\fiK .'\\" !!1.'' - FAS!l.ITA S GHA HK Lt\NjUTAN X \ '!!1.1(). ,v \EMPEHOLEH INFOHMAS I GHAfiK .. .......... .. X \ "Ill 11. ANIMAS! GAMHAR ......... .... ...... ... ...... . :\\"111.12. MENYIMPAN DAN M EMBAC A CAM BAH

.. ............ .. .... ......... ... ...... ... ..

. • ,, • •• . II

,I

2'JI'

337 .

~ :

~\

II

1

'I·'

~ '

xi

X

..

.. .

..

""___,-~q-·~ ":· •····~- ...,.~-= - ~.--:~~ ~-·..- ~~!..-,~_,...,

#....... . .,. ~. .-_ .....4:)....~.f(~~~~--...-':;rl'i'f.f"'i;.·

~~·"t·· ~'F-!,.~ ,\;,. ..~:: ~ . ,_;;:.:·::::·~}\":1 ~ ... ~ ~ ~

•.

?t KATA PENGANTAR

~

.. L

..=}

,. r;'

~

Turbo Pas cal merupak:: n sabh s ~tu ko mpi k r ' ••: :: ,,mgat tcrkcnal unw k pem:-,)graman ko rnputcr bah asa P:< sol. Pr. ·, ·· \·ang cimdi \ dcngm rn c n g~:; unak:~n Turbo Pas cal rncmpu n v.1r ern y:m~ rcrqruktur, scl n n gga mud.~h dip:~hami maupun dikcmbangkan o kh ?<· rnrograrn . 1-i.J l ya n. ~ mcnarik lainnya adalah bcrupa lcngbpnya f:~~ ·: nas yang discdrab n. schin gga Turbo Pascal dapat dipakai umuk :-:1c·mec.thkan lx:rba gai m:~salah. dari m_asalah vang bany:1k mcmcrluL :-: pcrhitungan (bahbn yang m cnjurus kompleks) sampai kc masalah :p·;:-k mcnt:Jsi pcrmainan. Hcrdasarkan pengcmbangan terh:~d:~p vcrsr ~ :·:·cl urnnya y:mg ~a ngar di sukai o lch p ara pcmrogram, kini B,>rland fr ll,· n ... ,•nal scb.1g ai pcrusah aan yang menciptakannya telah menshadirka n : .'r bo rascal versi 5. 5. Banyak kelebihan pada versi ini yang rak ad J ;:-.da \"l'fSi scbclumnya . Fasilitas-fasilitas yang dimaksudkan untuk m cT:.:J ahkan pcrnr o gr:~m :Hl tclah disediakan. Schingga tid:1klah tcrl:tmpw ,.1: . ,~Jn mcm:tkan banyak waktu untuk membuat program gun:~ rncnytJi kan suJtu ntas:~l a h. fasilitas yang disediakan diantaranya berupa kem .:,iah:ll1 untuk mcmbuar gambar, mcngakscs memo~i :naupu r. pl) n . :;1 cnjabnbn pro gram bcrjenis .EXE atau . COM dari suJtu progn:·:: mclakukan intc.: rupsi sccara software bahkan sampai mcmbuat p ru !_:~Jm residcn (program yang tinggal menctap dalam memori sampai ·,·-boorti11g). Tentu saja masih banyak fasilitas yang lain . Bagi yang ingin mengenal ataupun mcndJ!am J r'a;ilitas yang ada dalam Turbo Pascal termasuk dari segi dasar pcmrogflmJn, buku ini kiranya sangat bermanfaat scbagai petunjuk . Materi yang ,-ukup lengkap disercai lebih dari 130 program contoh. yang bisa dioperasibn dengan menggunakan Turbo Pascal versi 5.0 mau pun 5.5, akan sangat membantu dalam mempercepat penguasaan trrhadap Turbo Pascal, terutama yang m.enggunak.an komputer IBM PC. Akhirnya, seperci kata pcpatah tak ada gading v.mg tak rct.1k, pcnulis dcngan scnang hati menerima saran arau kritik untuk pcnycmpurnaan atas kckurangan d:tn kesabhan-kesal.1han y.lll g r~·rJ J dr. Dan unruk icu ; pcnulis mengucapkan banyak tcrimJ kasih . T.1k lupa pcnulis j uga XUI

}.." '~~

r rncngucapkan terima kasih kepada hingga ter..,vujudnya buku ini.

1~ua

"'

pihak yang telah membantu J~arta,

f.t

Agustus 1989

l

Penulis

I PENGANTAR TURBO PASCAL

r ;

~

Bab ini mcn_jdaskan kaiun Tur ~o Pa~cal dcng.m pcmrogr:~!n ~n tn,trukru r, kompikr sch.; ,:.1i tr.l:l,J.I'O r se n 1 lllunbcrikan garnb:1r.11, -~~~~~ k.H mcngcn:~i progr.1m Turl•o !Ja~ca l.

/

'f

1.1 TURBO PASCAL DAN PEMROGRAMAN TERSTRUKTUR

~- \~:w\

i t r

r t

Turbo P;jscalmcrupabn ~.1lah ~aru vc r,: bJha~a PJscal yang dlkcmb;u-:gkan olch Bvrland lntrmation,!l. B.1has.1 Pascal scndir i tcrmJsuk bai JJ s.l bcraras tinggi (lu~~~~ !,·I·d i.u:glla,I( C) . Scbagai bahasJ bcraras tinggi . Pa,oi sudah cemu beroricntasi ~,a,~a baha~a man usia. Dalam hal ini P .. sol bcrupa bahasa scmaCJm ln sg r:,. I1~Struksinya menggunak.ln btJ-kau dalam bah:~s:~ lng g ri s. KJrena icu bahasa Pasu l sa ngat mudah ciip~hami dan dipclaj:~ri. Untuk rncmrclajari bah asa P:~sca l, scscorang ti d.1k ha rus rncngctahui perill a! tL· knis da;-i m,·si n ko mputcr sccarJ rnc,J..Ialal!!, melainbn yang pcnt:nf:( .1Jalah rncmahanll kaidah Jari bahas.t rcr-.,cbu!. Kemudahan dahm mcma11Jn ll dan mcmpcbjari ~ahasa Pascal dnu;1jang oleh bentuk program Pa,cal yang tcrstruktur. Scbagai b:1h:~s.1 png tcrstruktu r, program PascJI tcrsusun :ltas scjumlah biok. Blok-hlok y.lllg kecil selanjutnya dapat dipakai untuk mcmbuat blok yang lcb ih hcs:~r. dan sccara kcsduruhan membcmu k program kcrja. H.!l ini mcmbcrikan kemudahan bagi pemrogram daiam mcmbuat, mengcmbangkan dan memahami program. Suatu permasalah an dapat dipecah-pecah mcnjadi bagian-bagian yang kecil schingga dcngan gampang dapat dik odcb n. Keuntungan yang lain, logika program menjadi lebih mudah dipelajari/ dimengcni. Kesalahan-kcsalahan yang terjadi di dalam program akan rnudah direlusuri. Disamping itu program mudah dirnodifikasi tanpa kuarir rncnimbulbn cfck sampingan terhadap bagian lain dari program. Sebab program dalarn bahasa yang terstruktur, mernungkinkan pemb:Jtasan cfek tindakan hanya di dalam blok am tidak rncmpcngaruhi yang tcrletak di luar blok. Dalam Pascal, blt'k kbih dikcnal dcngan ~c butan subprogram . Subprogram scndiri dibeJakan menjad1 dua golongan . Golongan pertama dinamakan prosedur dan golongan kcdua discbut fungsi .

XIV

.

j·.

~

L2 I(OaiiPILER SEBAGAI TRANSLA'rof. program. yang ditulis dalarn bahah- beraras tinggi seperti Pascal, coBOL (Common Business Oriented Language) ataupun beberapa bahasa ang lain sebenamya tidak dimengerti oleh komputer secara langsung, kornputer hanya mengenal bahasa khasnya saja yaitu bahasa mesin. Supaya program bisa dijalankan haruslah diterjemahkan terlebih dahulu ke dalam bahasa.__mesm (bahasa yang hanya mengenal ko;nbinasi kode 0 dan 1). Proses penerjemahan dilakukan oleh program

~ebab

(di~ksekosi)

,·ang disc but translator (penerjemah). Tra nslator dap::.r-berupa:

i t l

t·

;:

r '

lamBcrbeda bat . dengar, interpreter, kompiler menerjemahkan inst ruksi scc:na keseluruhan terlebih dahulu ke dalam kode mesin ~ebelum prog ram dapat d ijalankan. Setelah penerj emahan (istilahny:J yaitu kompilasi). kompiler tidak diperlukan lagi, scbab sesudah pcnerjcmahan diperoleh program objek (program ini disimpan pada file tcrpisah dcngan program sumbcr) yang bersifat 'executable', dalam artian bisa dijalankan secara langsung pada sistem operasi (MS-DOS). Berdasarkan sifat ini, program akan dijalankan dengan sangat cepat, karena pada saat dijalankan tidak ada lagi proses penerjemahan. ,da-kompiler tradisional, program sumber ditulis dengan menggunakan editor teks (misalnya Wordstar atau SideKick) yang terpisah dengan kompiler . Sesudah program disimpan dalam file , kompiler baru dilibatkan, untuk melakukan kompilasi. Sesudah kompilasi, hasil kompilasi baru bisa dijalankan. Seandainya kemudian terjadi kesalahan, cntah karena kaidah i.nstruksi masih salah atau logika programnya yang s:1\ah, editor teks harus dipanggil lagi untuk mempcrbaiki program. Selanjutnya proses kompilasi dan pengujian program dilaksanakan lagi . Cara sepc rti ini, dari proses penulisan program, kompilasi sampai pengujian program, akan memakan waktu yang relatif lama .

RAM, atau Disket (media pcnyimp:1n ekstcrnal), Kompilasi ke dalam RAM mernpunyai kcuntungan : proses kompilasi sangat cepat. Namun karcn a hasil kompilasi tidak d1 simpan kc dah m disket, tcntu saja eksekusi program hanya bisa dijalankan c1 i cLl!am Turbo Pascal. Oleh karcna itu, biasanya kompila:.i kc HAM ha11V:J diiakub n selama pcngujian program saja. Kalau program sud olh scmpurn.1, baru dikompilasi ke disket (dengan harapan dap:lt diekscku si scc arJ l:tnf:'~ung pada MS-DOS).

~

i. Interpreter -, Kompiler Int erpreter mcnerjemahkan instruksi selama ek sek •·-; i program . Jika dikehendaki untuk menjalankan program, mula-muL. 2rogram sumber (wur.:f prog ram atau program yang ditulis dalam bahasa beraras tinggi) dit crjemahka n terlebih dahulu ke dalam bentuk kode mesin per instruksi . Setelah instruksi tersebut dipahami oleh komputer dan dijalankan , tran slator kembali mengulang proses scrupa untuk instruksi be rikutn ya. Ocngan cara seperti ini, suatu instruksi akan dij:1lankan dengan sangat

Berbeda dengan kompiler tradisional, fasilitas yang diberikan pada Turbo Pascal tidak sekedar berisi kompiler, tetapi sekaligus juga mengandung editor teks. Bahkan eksekusi program bisa dilaks:makan langsung dari Turbo Pascal, tanpa harus kduar menuju MS-DOS. Perbedaan yang lain, program sumber yang ditulis tidak haru s disimpan terlebih dahulu kalau mau dikompilasi. Jika prog ram Jiras:1kan sudah sempurna barulah disimpan ke dalam file. Cara ini tentunya mcnghemat waktu: Sclain itu, Turbo Pascal memungkinbn hasi! kompibsi bisa · dipilih dan ditemp:1tbn ke

'

1.3 PENCENALAN PROGRAM TURBO PASCAL

Contoh yang sedcrhana mengcnai prog ram PasCJ.I ditunjukb n pJ,la Program 1-1. Prograrri tcrscbu r dipakai un tuk mcnampilkan tuh~ J n 'Turbo Pascal' ke layar.

., '

PROGRAM TP;

~

!· k

USES CRT ;

<• -----------<• Contoh program

Ii

---------------------- *)

•l (* untuk ••na.pilkan tu1iaan : Turbo Pasc&l •)

<• ---------------------------------------

iI

*l

BEGIN

I

CLRSCR;

~ ~· ! ,

~'

WRITEUl ('Turbo Pasca 1'}; READLN END . Contoh eksekusi : Turbo Pascal Program 1- t.

3

2

r-

1 2r

-

If'

-·~

r

~

dan ltll-ftlerupakansalah_satu..contott..Pengenal_ vang_sangat._pan,lang_seblLnamanva

Tipe d:aa

d~ngan:

oleh Turbo Pascal dianggap sebagai pengenal yang sama

-

Tipe Tipe Tipe Tipe Tipe

-t L

·- - -<

sederhana pointer terstruktur string · buatan

>~

Tipe data sederhana dan sekilas tentang tipe string dihahas pada bab

inLmerupakan-salatLSatu-contoh_ pengenal_yang_sangaLpanjang_se

lnl.

Bcrdasnkan keleluasaan yang dibcrik.m Turbo Pascal, remherian naJlll pcngcnal scbaiknya y:.ng rncngandung makna, supaya program udah dibaca dan dipahami oleh pernrogram. Pengenal scperc; L nng 111 cwakili r:ibi luas misalnya lcbih baik jika dinyatabn deng:an Luas. 111 Nama pengcnal tidak bolch sanu dcngan nama yang tergolong dalam kata-tercadang ( reserved_tvord). Yang rcrmasuk dalam kat;-,-tercadang

oegin v ose ,. const v • constructor • destructor t/ dlVv nH~~ ll?<Ji dCv ~o\~ downto v

i,

( i

Tabel 2·3. Tlpe data bllangan bulat

·\

Ta'f>el 2-2. Kata-tercaaano dalam TurbO Pascal

arrav v

I

else v end; external file.;

ror.; f'JrwardJ function.go to.; lfJ Implementation. lnv

• khusus untuk versl

tnllne interface interrupt labelv modv nlt.J notv • object

oH or ·1 packedv

./

procedure program.; record,; repeat v setv shl shr string thenv ·tO'./

s.s ttak ada pada verst sebelumnyaJ

typev unit untllv' uses varv • virtual wtllle v wlthv xor

H:nis

. "• '

11

1>'

J

~

'

t'·

Selain itu, nama pengenal diusahakan agar berbeda dengan nama pengenal bawaan yang ada dalam pustaka Turbo Pascal (vaitu nama pengenal yang berada dalam unit Systew, Graph, Crt, Dr l Printer, Turbo3, Graph3 dan Overlay), untuk menghindari kesalah.m. Contoh dari pengenal bawaan: ClrS.cr, Window. TextAttr, Writeln.

Pascal merupakan salah satu bahasa pemrograman yang kaya tipe data. Selain tipc data bawaan, seorang pcmrogram juga bis3 menciptakan sendiri tipe data baru. Secara garis besar, tipe data dalam Turbo Pascal

8

Format Nllal

------------~-----

-123 32757 -2147483648 ~

---~---~-------

1:7 32757 2147483647 o 255 o . 65535

---------

---~~--

MUkuranl

- - -emor --

8 bit bertanda 16 bit bertan
1 byte 2 byte 4 byte 1 byte 2 byte

------~-----

P~njelasan:

-

n bit artinya data dinyatakan dcngan n bit (n/8 byte) Pcngcrtian tak-bertanda artinya data sclalu diperlakukan sebagai bilangan positif.

Dalam suatu program, jika misalnya suatu varibel (pengmgat suatu nilai) dinvatakan dengan tipe shortint, maka variabcl h.mya dapat menyimpan bilangan yang nilainya terlctak antara -l2R samp:ti dengan 127. Pcrnberian nilai di lu;n kawasan itu akan mcnycbabk.Jn t<'rj.tdinya kesalahan.

11.3 JENISnlPE DATA

dibagi menjadi 5 golongan.

shcrtint integer longint byte word

/~I

i

Kawasan Nila• ------------

~

n

bilan~~.1n (bulat

Tlpe Data Bllangan Bulat OJl.1m Turbo Pa,ui tcrchp:lt 5 buah ripe d.H.l v.mg J,crkaitan dcngJn bilangan bul:H. Berupa:
~l

yaitu:

abSolute anav ·

~

Tlpe Data Sederhana Y .• ng tcrmasuk dalan1 tiF· ,LH.l ,cdcrh:111~ vanu ripe ITLlupun real), k:nakter dan bookan.

~

Tlpe Data Real Untuk kepcrluan pengolah.m cb.ta real (pcnh.Hl), Turbo P.lst-al mcnyediakan 5 buah jenis data real, yairu: r£'al, sing! f. .J,,;Ihf,., cxrmdt'd d.1n

?

9

I ~'-·

.,.;.. -~ ... ··:.:r•.,.,.;,··n.l""f~~.':J!t!\.,.~·-;~ ...:;.,._"'.."'=·fi,._,•• ~-!"•·~1.-•.o~J._.,,-:•'-·'r·,·~'.~-w:-~·::·-,::;,-:.,.~, .. ·~-:!:-'•-·\o

·'':'"'-~,,.,.t>~'-£-"1':~ry.~.,..%~

r

~

r

~--··

comp. Keempat jenis data yang terakhft (single, double, extended dan comp)

Konstanta Bllangan

ditujukan untuk komputer yang mempunyai prosesor-pendamping yang disebut 8087 (prosesor untuk pemrosesan numeris dengan ketelitian ringgi). Seandainya komputer ridak mengandung keping (chip)/prosesor 8087, keernpat tipe tersebut tetap bisa diiibatkan dalam program dengan cara emulasi (akan dijelaskan pada Bab XfX). Tipe data comp merupakall bentuk :-w::sisi ganda dari tipe data )ongint. Tipe ini sangat cocok dipakai ~mtuk pemrosesan nilai bulat yang bcsJr Scbab kavvasan nilain v.1 k: ~ J-kir J mcncapai --9,2 x 10 lR sampai du:;:_.
1

I f f

'

R.

--

-------~·

.!2,9 X 10

real single double extended

ccmp

---··---

Ketelit!ar.

Kawasan Nilai 59

::!:1,5 x 10-'5 31

Contoh penulisan konstanta bilangan bulat:

20 +5555

:Bilangan

.

..

±5,0 X 10- J. .!5,0 X 10 .. 4 ~ 51 .. - 2° 3..

-!))

(!)!i,,n~an :;ss::;. Tanda -~ bc,lch daulis,

-127 65000

Tabei 2-4. npe data b!langan real

Tlpe DatLi

Konstanta bilangan bisa berupa bilangan bulat dan bilangan pecahan. Bilangan bulat dapat ditulis dalam bentuk sistem desimal (sistem puluhan) dan sistcm heksaJcsimal (sistem bilangan yang berbasis 16).

lLLu.::.u;

lr!!IlUS

bc,kh tidak ditulis)

1~7)

(EiLngan bulat l•crt1pc word

.lt,1u

lon,(!inr)

~---~--------

Ukuran Memorl

---~~-------~------

1,7 X 10~' 3.4 x 103,1 1,7 X 1[0S 1.1 X 1,)AjJ: 2° 3 -1

11 5/d 12 digit 7 s/d 8 dlg!t 15 5/d 16 digit

19 s/d 20 digit 19 $/d 20 digit

6 4 8 10 B

byte byte byte byte byte

Bilangan dalam o1stc:n hek$;1,ksimal mcnggumL -· simbol berupa 0 .. 9 dan A. .F (ada ltJ buah _,md.JOI) Pcn~rlisannvJ diawaii dengan tanda dolar ($). Comoh pcr~ulis.1n ;;onscmu dalam sistem heksadesimal:

-

~ --·------- ·(Bd.Jng.1;] iT da!.Jrn sisrcn1 hcks.JcicsimJ! atau 'it\tcrn f- 1 ~J!uh..J.n)

$FF

T!pe Data Boolean

D::lam bahasa Pascal tcrd:<pat tl~'c d.Jt.l '. 1;1~; ciJsebut boolean. Tipc ini hanyJ mengenal dua buah ndai sap. herc;-1 :r:.c :hcnar) .1taufaise (salah). Data bnolt'all banyak Jihb.Hkan clahn~ prog:-arn, untuk mengatur pcngambil.m kcputusan terhadar dua kcmungkinan, dcngan harapan ;,gar pro~r:un mcnjadi tcrstruktur.

Tlpe Data Karakter Tipc data char mcrupakan ripe dan data yang mengandung sebuah karaktcr. Karakter dapat berupa ~cbarang demen dalam ASCII. Jadi bisa berupa huruf, angka ataupun simbol khusus.

$2000

..;,:)::>

aatam

(Rihng.];; 21~)1 i cbbm S:·.(l'n: hcLadc~~rn:d Jtau 2 13 dalam sisrcr:l r::!uhan) ---~-~--

!-

••~

~

l'

t.

1r'-.:·

Konsrant;1 dalam

$FFFFFFFF.

'>istu~J

hcksJdc>inH] bcr'.Jsar Jntar;; SOOOOtJOOO dan

Konstanca bdang.m rc~l mcngF unakan tanda pecahan berupa titik. Tanda pemisah ribuan tldak bolch disertakan. Contoh penulisan konstanta bilangan pecahan:

.

npe Data String Tipe data strir1g berupa sederetan karakter. Data string banyak dilibatkan dalam program, terutama untuk memberikan ketcrangan pada layar penampil.

11:4 KONSTANTA

(BiLmgan pecahan 40. 57)

;

1.. <

~

Konstanta merupakan nilai yang tidak berubah sclama program berjalan. Dahm Turbo Pascal terdapat banyak sebli jcnis konstanta. Beberapa dialltaranya ak.an dibahas pada bagian in

40.57 +40.57

~-

1

-6777 -327778.567 .5

-

(T Jmi 1 + bnleh positii) (Terrn,Jsuk dahm (Biiangan pccah.m (Bilang.H! rcc:dun

Jiscrubn. menyatakan nilai bilang.1n pccahan) -- J::777K, 5(; 7) 0,5)

.. ------~ ----~---~--------...

Contt'h pcnulisan kunst.mta pccahan

van~

,.

salah:

J()

~.,)..,._,,.!OltJ£;.!,""'$',_._.4._..,__.,!ZJ ___ ,,.~!£\ •. ..,._J •. t .. . . .,_ __ .EJS_,~

11 . 9. 1, .. ,'f¥, _._J,~'i''',.....,.~"¥-~~~-U.,*,-'.Y...,d!l? .. ,lf.,f~~'i~""v.w,.,;s:c,.,..•~ J~"'"''"' ,, ~,.J~.;p.:~;~·'T-'~

. . ·-'""t~~'·

·''"-:'···~,.·~;-:.~;!'--~:..,::-;,..;::'"""~"':'''!t!'""";·.. j':"i~:'!'~':..·~~";-:;vr.:';.~~~"":;;-~.:-::-:~-~~-~:-~¥?-t,..'!!if*.+.t.tdet..•.•

tt.r.

!'"

-

.A

r

3.000,00

5.

(Konstanta pecahan hanya boleh mengandung tanda titik. Jika yang dimaksud adalah bilangan tiga ribu, penulisannya adalah 3000.00 atau 3000 saja) (Sesudah tanda titik harus ada angka)

~r

l

(ldcmik Jcnt:an h:l.lJJ~an pccahan ::J(,( t Jt.111 ~ 7 X ] i I;) (BiJangan pccahan 5.~ X 1()-f, JULI

]

/

(5,2

X

yang yang yang yang

memiliki memiliki memiliki memiliki

nilai nilai nilai nilai

ASCII ASCII ASCll ASCII

(

1 7

13 27

Sc(.
Konsunta pccah:m juga bisa r:lituli~ dalam bcntuk notasi cksponeiJsial yang mcngg'..makan tanda c auu E (\·,mg diikuti dcnpn scbuah nil;;i pangbt). Contoh:

5.2E-06

.M

I

·-----

2.7E+ 3 2.7eJ03

konstanta konstanra konstanta konstama

·c

]()~) )

~

218

~

197

:219

=SBF Contoh p:.·!·~Jii~Jll \·;,r.~ saLh: 2.7 E +3 :D1 ,icp.m dan d: bcL1b.ng randa E arau c tlt.hk bolch ' . '\ aoa ~ras1,

T~:. .:: ..;

braktcr r braktn t braktcr • braktcr •

· scbcr1Jrnya dapat digunakan umuk

'cmu.1 ndai J\SC:Il.

((Jr. ~,_~h:

~t:bL;J!

··~

Konstanta Karalcter Pcnulisan konstanta karaktcr cliiakukan dengan mcnemp.Hkan braktcr di an tara t.111da pctik tunggal ( \ Schaga1 contoh:

-=

samJ dcnpn ·c; sama dcngan 'A· sama dcngan u

I

:55 ~117

t

l'

'A'

·a· '

I

'*'

'"'

Konstanta Konstanta Konstanta Konstanta Konstanta

huruf A huruf a karaktcr SPAS! simbol * PETIK TUNGGAL

t

~. ~·

,I.

Ka:.J./;tcr vang rncmiliki kodc ASCI1 antara 12/l dan 255 juga dapat ditulJ~ dc'1.;:.l:: diawali dan dukhiri tanda pctik tunggal. Ad:tpun karakternya dir.--.::,lch dcngan cara mcnekan tombol AL T scmbari menekan tiga digit yang mcrupakan kode ASCII-nya secara bcnurutan. Tornbol digit yang digur:akan haruslah y:1ng berada di bagian kanan keyboard.

Concoh: Untuk konstanta karakter petik tunggal. karaketernya harus ditulis dua kali. Dalam tabd ASCII tcrdapat s~jumlah karakter yang tombolnya tidak tersedia dalam papan-kctik (keyboard). Scbagai contoh, karakter yang !Jlemiliki kodc ASCII 25-(tanda panah bawah). Untuk karakter scmacam ini, Turbo Pascal rncnycdiakan cara pcnulisan yang khusus. K
12

P

J

Z

(

ii!~nf.;;;::;+.,,.ry~~.:,.,~~,.,-,...,..r""...,,~,.~~~..,..+,.~-'"<'·':".....,.~,--."1:,':0.">"-·c.-,,.;,.,._...,. -,..

'w ·

Konstanra karakter yang memiliki .!'..ode ASCII 1761

L~!J

&

CD r!_lJI] ---- • berturutdn

C":::.'; program:

Prr·~~1:::

henkur

'~,

ben'! dcklaras1 CONST

van~::

d1gun.1k.w

urH,J.~:

r1l•:·;.:c.-,::.n.l~lL1ll pL·ngen.tl v.mg hcrisi konstant.1 karakrcr. f-bsil progr.Hn beru p1 gam bar kota k.

•

1.1

'

.,._ pROGRAM Kotak;

'

<•----------------------------------•1 <•

~o~en&JIIPilk&n KOTAK BERGARIS GAtlDA •l

<•----------------------------------•)

I

USES CRT; CONST KIRI_ATAS KIRI_BAWAH KAtiAti_ATAS KANAII_BAWAH OATAR TEGAK SPAS I

lj

: 1201; : 1200; : 1187;

' '

: 1188; = 1205; : 1186: : 132;

dengan tanda petik tunggal lagi {tidak ada spasi). Sedangkan apabila dalam string terkandung karakter petik tunggal, harus ditambahkan scbuah tanda pctik tunggallagi di s.<mping posisi karakter petik tunggal. (Perhatikan contoh di depan). Konstanta string bokh mengandung karakter yang memiliki nilai ASCII antara 0 sampai dengan 31 dan antara 128 sampai dengan 255. Sebagai contoh:

(Konstama 'trin~ mcngandung brakter yan~ rllc11liil:; f:,,,ic t\SCil 10) "G'Perhatikan hasilnya !'(Konstanu ,tring mcrigarhiung L•r:lkter yang nH'll1?L1ll\'Jl ko(k ·c; :nau ASCII 7)

'Baris 1' c# 10'Baris 2'

---~~~----~----·~--·

Penulisan konstanta scpcru: 'Barts 1#10Baris 2'

··cPerhatlkan hasllnva ,. BEGIN CLRSCR; WRITELII (KIRI_ATAS, DATAR, DATAR, DATAR, WRITELN WRITELN WRITELN WRITELN

KAliA!i

(TEGAK, SPASI, SPA3I, SPASI, TEGAK); (TEGAK, SPAS!, SPAS!, SPAS!, TEGP-1\;. (TEGAK, SPAS I, SPAS!, SPAS I, TEGAK} . ( KIRI_BAWAH, DATAR, DATAR, DATAR, P
REAOLN

(•-------------------------•) <•

f.

I··

£tiD.

Konstanta string. Konstanta string dapat berupa tanpa atau dengan scjumlah kankter ASCII yang ditulis dalam satu baris. Penulisannya diapit oleh sepasang tanda petik tunggal. Sebagai contoh:

!f f

t

String: Turbo Pascal String KOSONG

t

String: Jum'at

~

Sti >ebu•h b"kt" pctik tungg~

'Jum"at'

PROOAAM Konatant•3tr1nv.

~

Program Z-1.

'TUrbO Pascal'

mempunyai nukna yang berbeda dcnpn Lie:~ contoh sebciumnya. Untuk lebih jcbnya dapat dilihat pada program bcrikut:

ATAS).

,

;

14

(•-------------------------•) USES CRT, BEGIN CLRSCR, WRITELN WRITELN WRITELN WRITELH READLN END.

(• unit yang ber.isi prosecvr :ulSCR

Program

~

Jika program dijalanbn. lusilmT

i I .•.

}~

•i

(• Hapus layar •l ('Baris 1'.10'Bari& Z'' (•G'Perhattkan hasilnya ''); ('Barts 1110Baria 2'); ('"GPerhatikan haailnya ! ');

I f

Konstanta string yang tak mcngandung sebuah brakter pun discbut string kosong. Penulisannya bcrupa tanda petlk tunggal yang diikutl

Contoh konstanta string •1

l.

15

I

i

(

:_ ' -sariS 1 .

. sans 2

I

PernatiJcan nasllnya ! .... dlawall dengan bunyt speaker

·c;PernatJJcan nasunva 1 Adanya karakter yang mempunyai kode ASCII 10 (disebut kar:tkter line

Pcrnyat.Lm St'f,·<,Ji ·c_ FA!.SE men\ 1t.1Lm pnnbenan nil.1i komt1nu f-'AL:ii: kc varubc! tJcnnma Sdc<.;: Pcrnvaraan IFRi7FLi\' f.SelnaJ) mcrup:tk 111 pn;:;r.;h '.Wtuk rncn.tmt'';kan nii11 vang tcrk.mdung d,JLtm \',lfl.llll'i Selesai_ (Jnnnuan mi mcnunjukkan bahwa nilai boo/em: jugJ t'i~a Jiumpilb:; :f\:rm .tua:J ~C!Il,tLam tnJ biasa disisipkan dalam program untuk mcnJcrik,_. nila1 :.u.ltt: \·.mabel hclo/ean o;cwaktu pcnguji:m program).

WRITELN ('8arls11'*10'Barls 2'l

menyebabkan tulisan Baris 1 eLm Baris 2 dttempatbli ;.'.iCb b,lm \'Jng berbeda. Ini disebabkan sifat d.1ri karakter line feed, yang mcmbuat kursor bergcrak satu baris ke ba wah. Dengan bcrpindahnn k ur>ur pad a baris di bawahnya maka tulisan lanjutannya (VJitu Baris 2) diumpdbn pada baris yang bcrbcda dcngan tulisan Baris 1.

Konstanta yang Dldeldaraslkan

Karakter beJl CG) pada pernyataan: • WRITELN ('G Perhatlkan hasilnya!'l

menyebabkan terdcngarnya suara speaker sc:jen.;k scbclum t:tmpilnya tulisan Perhatikan hasilnya !. Pada pernyataan:

!

WRITELN ('Baris h10Baris 2')

dalam string tidak terdapat karakter bell, melainkan karaktcr dan G.

I ~j\:

D:1bm program Pascal, d1scdukan bagian yang digunabn untuk rncndckbrasikar: ko!l~tant,1 Ad:u;q l·.1gian ini bukan berarri ~·Jhwa scriap konstanu h.1n;s diJL·kb:-asik.m Deklarasi hanya dipakJ1 untuk nih! kon,t;m y,mb dibcri nama pl'r.genal. Pcmberian nama pcngenal tcrh,;Jap suJtu nd.1i k,msran tcruunu hila niLli konstan bersifat unik Jtau ronmgkm sc:ing titld.;:n~:Jn (ttdJk h,HJ\'.i sekalt) daiarn program. TL0uann;·o 'llf'·n·.l f'i(:,~:-_:::1 >:l":,L1h ,iip.llnnu .;r,;u IlllHi.Jh dimodifikasi. Scbag.1: contoh kor:stanr.; \',lilt-: c.it,kki.Jr.bik.m dapat dilihar pada Program ~-1 d; clcpan. Sl'i:tin iru. Progr.;m berikut yJng digunakan untuk menghitung lua> dJn kc!iling hngLr.1n berpri-jari 45 (dcngan mcngabaikan satuannva), juga mcng.lild~mg dekbrasi konstJnta. PROGRA~I

Li ngi
(*----------------------------------------•)

(* ~enghitung LUAS dan KELILING LlNGKARAN *I

Konstanta Boolean . Konstanta boolean bisa berupa TRUE atau FALSE. Contoh program yang mengandung konstanta hc·.'lean:

(•-------------------USES CRT; CONST

PROGRAM ContohBoolean;

(*unit CRT dilibatkan *)

VAR ~ !!,.

Selea.ili : BOOLEAN;

------------•)

PHI :: 3. 14:

USES CRT;

VAR

I

Program 2·-J.

feed), pernyataan

WRITELN rGPerhatikan hasllnya !'l

r

Selesai . : FALSE; WRITELN (Selesai); READLII END.

BariS H10Barl52

#10 bukanlah mcnyatakan karaktcr bc'rni!Ji ASCII 10, melair:bn tlg.t karakter berturutan #, 1 dan 0. Sedangkar. pada pcrnyaraan:

;ii.

BEGIN CLRSCR;

t

!':'

'

:,~~

I~~

~­

t: ~~. t;;-;::

Jejan,

Luas. ¥e 1i 1i r,g : REAL.

BEGIN

1~

(

Selesal : boolean: Jen!s_kelamln: char;

CLRSCR; Jejari : = 45; Luas := PHI • Jejari • Jejari; Keliling := 2 • PHI • Jejari; WRITELtl ( 'Luas : , Lu&s} ; WRITELN ('Keliling = ', KelilingJ; READLN

"'

I

END.

~

Conton ekeet
: 8.3585000000E+03

~liling

= 2.8280000000E+02

(

Pada contoh ini, variabel x dan y didcklarasikan scbagai variabel bertipe byte (artinya digunakan untuk menyimpan nilai y.1ng terletak antara 0 sampai dcngan 255), variabcl Jumlah sebagai v.1riabel real (untuk mcnyimpan nilai real), Selesai sebagai varia bel boolean (bemiiai TRUE atau FALSE) dan Jenis_Kelamin scbagai variabcl bcrjenis char (laraktnl. SesuJ.1h variabci clllkklarasikan, vanabcl dapJt ,i,gun,
~:

dahm

bagian pcrnyatJJil llrHuk menc·imp.ln data S.ll.1h '.Hu C.l:-.1 rc'!'lhdJ.l;, r~1hi tcrhadap V.Jriabcl nrtu rncbiui operJ~i pcnu~,lsJn. Bemuk:Jva: "Jarlabel : = nilal

Program l-4.

Nilai LLlpat dipcrokh dari konstanu. vanabel, fungsi (sabh 'Jtu dari _icnis subprogram) arau ungkapan (eksprcsi). Schagai l·ontoh:

Tampak pada contoh ini, nihi 3,14 (ditulis 3.14) Jiberi pcngenal hcrupa PHI, yang didcfinisikan pada dekbrasi CONST. Nilai scperti .:2 atau 5 juga mcrupakan nilai yang konstan, tctapi tidak didcklarasikan pada bagian CONST (karena tidak menggunakan nama pengenal). Adapun Jejari, Luas dan Keliling disebut variabel.

Jumlah := 0;

baart1 :11crnbcrikan ni!Ji n;:Jl ke \'Jriabel Jumlah. ~

11.5 VARIABEL

Vanabd merup3kan suatu nama yang menyintkan lokasi mcmon komputer yang dapat digunakan untuk mcnyimpan nilai dan nilai yang tcrkandung di dalamnya bisa diubah-ubah selama program dicksekusi. Dalam bahasa Pascal, suatu variabel scbelum dapar digunakan haruslah terlcbih dahulu dideklarasikan. Deklarasi variabcl bisa di:trtikan sebagai pemesanan tempat dan penentuan jenis data yang akan disimpan di dalamnya. Tempat pendeklarasian yaitu pada bagian deklarasi yang diawali dengan kata-tercadang VAR. Bentuk pendeklarasian variabel:

Idaftar_varlabel : ttpe_vartabel: l Jika terdapat sejumlah variabcl, variabel yang mempunya1 t1pe yang sama boleh ditulis berdampingan dcngan tanda koma scbagai pemisahnya. Sebagai contoh:

•·

~

~

~~

"'

X, y

Jumlah

18

: byte: : real:

Jumlah := Jumlah -. 1

;!·tinn.: tambahbn is1 •:aria he! Jumlah yang scmula J.:ng;m n11Ji l, kcrnudian hasilnya sirnp::>.:1 kernbali ke variabcl Jumlah". Pada contoh ini Jumlah + 1 mcrupakan suatu ungkapan. Pengertian nilai variabcl dapat diuhah dan dilihat pada program berikur: PROORAM Var1abel; USES CRT;

I

VAR

~.

BEGIN CLRSCR;

X : BYTE;

~

~·

VAR

Con~oh lain:

i

I

X :: 10;

19

., r

WRITELN ('Iai X

mu1a-m~-:

X := 25; WRITELN ('lsi X sekarang

=

X);

melibatkan dua buah operand. Operator scpcrti

Operator * mdibatkan dua buah operand, bempa 2 dan 3. Contoh yang bin: 2 + 3. Pada contoh ini, operator + juga bersifat birzary. Disamping o~er::ttor lnnary terdapat operator jen1s 11nary, yang hanva mempunyai sehuah operand. Sebagai cuntoh:

+a

x mu1a-mu1a = 10 _Pro~~~~m

termasuk operator

2•3

X);

READLH END.

x sekarang

*

binary. Sebagai contoh:

b

= 25

Pada contoh

Z-5.

:s1 X diubah menjadi 25 mclalui penugasan:

Jnl,

Bcrd:~:oarka:J

n.riabcl X dibcri nilai 10 melalui penugasan:

+

Ll.m

bersiflt Jo:,:~r.

-

d.dam Turbo P.bc-.11 terdapat operator

kcf:ll11.UnnyJ,

pcnug:1~.1n (bcrupa :==), logik.1, hubung:m/rciJs;, .lbmJt, set (h1mpun:m) ,J.m ~tring. Bcbcrap.1 di:m[JLIJJYJ 3Kan dibJlJJs pa(ia bab-b:~b sehnjumya T:Jh<.:i h-:rikut rn~'JJunjukkan kcseluruhan npnator dahm Turbo

P.tscal.

iaoel 2- 5. Operator dalam Turbo Pascal Ope rater

Ungk.1pan

Li:~entuk uieh operand dan operator- Sel:ngai contoh dari

------

-----~-- ---~ ~

Derajat

tpriorltasl

sl.latu ungk.l;:: ~n:

• 1

operator

dlv mod and shl shr or xor

~.-_:-><'->=In

pertama kedua ketiga keempat tterendahl

operand

Operator dalam suatu ungkapan d!k<:rpk.ln

prioritasnva. lain:

operand_

operator dalam Pascal bersifat birwry, yaitu operator yang

operator unary oengail operator penamoanan operator relas 1 ope~ator

hcrdJ~..lrk;~n

ckrajat at:1u

Contoh: 2

kedua contoh di atas, A, B, 2, C dan 4 merupakan operand, vatakan nilai yang akan diproses. Sedangkan tanda seperti +, * dan pakan operator, yang menyatakanjenis tindakan yang dikenakan

Kelor~pok

---·----------

not

(u

---

t

3•4

Oper:ltor * mcmpunyai prioritJs yang lebih tingg1 daripada +. nub 3 * 4 yang ak.m dihitung pcrtama kali. Kcmudian hasilnya baru diumbahkan dcngan 2. Dal.m1 su.au ungk;~pan, jika tenhpat St'Jtimlah opcr.~c•Jr dcng:~n priorius vang sama, urutan pcrnroscsan ,~ilakuk.m d.tri kin kc k.lnJn. Scbag:,J cor1t<>h: 2

t

3

5

21

I

"' .L

dan 3 d~jumlahkan j}Iebih dahulu, selanjutnya hasil dikurangt dengan 5. mengubah urutan pengerjaan dalam suatu ungkapan, tanda buka dan kurung tutup dapat dipergunakan. Misalnya, diinginuntuk menjumlahkan 2 dengan 3, kemudian hasilnya dikalikan

BEGW

J

CLRSCR; WRITEUl ( '4

( .•. o

WRITELN

+ 1 .o + 1

= =

4 + 1.0);

•. 0 + 1);

WRITELN ('.,0 + 1,0:

4. Penulis.mnya:

+ 1

:

•

WRITEUI

-

= = =

4.0 -

1).

.:.o -

1- 0).

;.:

4

(

..' ..

1. 0

WRITE Lll ('4,0- 1 WRITEU4 (. 4 '0 - 1 '0

WRITEdl

-6 buah opcrato:- binary yang digunakan dalam opcrasi aritmatika,

•. 0 + 1-0)'

WRITEUI ( '4

(

-

1

+ 1)'

4 -

-

1. 0)-

1)-

READUI EIW.

. + - * 1 Jj,- Jan mod. Operator unary ada 2 buah, yaitu + dan

Contoh eksekusi.

___ .,,.,. PenJumlahan I+> ;ib sa!ah satu dari operand bertipe pecahan

4

+ 1 ,0 ;.:

4,0

+

1

= =

4,0 + 1.0

+ 1,0 - - - 1 1,0

+ 1

---o-

s.c 5.0

-----=- 5.0 -----:::--

;,

(hasil (hasil (hasil (hasil

•

pecahan) pecahan) pccah.:n) bulat)

4

-- 3,0 3,0

3

PROGRAM TambahKurang;

pecahan) pecahan) pecahan) bulat)

f

~

I

I I

' ~-

...

~-

USES CRT;

1 '0

1

(_

(hasil (hasil (hasil (hasil

-

5.0000000000E+OO 5.0000000000Et00 5

= =

4,0-1,0::

'nn.r.!ltor Pengurangan 1-l jika salah sacu dari operand bertipe pecahan

3,0

+ 1

4,0 - 1

S.OOOOOOOOOOE+OO

=

3.0000000000E+OO 3.0000000000EtOO 3.0000000000E+O

= 3

Program Z-6.

Berdasarkan hasil eksekusi J, at as tam pak b.dnva jika sa!ah satu operand bcrtipc pecahan, hasilnya juga pccahan. Operator Perkallan !•l Sifat dari operator* yaitu apabila salah satu dari operand bcrtipc pccahan, hasilnya juga pecahan. Contoh: 4 • 2,0 - - · - - 8,0 4,0 • 2 8,0

4,0 • 2,0 4

• 2

--- 8,0

------ 8

(hasil (hasil (hasil (hasil

pecahan) pccah:1n) pecahan) bulat)

Operator Pembaglan < 1 dan dlv J Ada dua buah operator yang ,hgunakJn untuk pembagian. bcrupa operator pembag1an dcngan hasil pccahan clan hasil bulat. 23

··~, ~

t;

Operator I menghasilkan bilanga.D"'pecahan, apa pun ripe operand-nya.

Contota eksekuai: 10 DIV 2 ,--> 5 10 OIV 3 "'-> 3 10 OIV 4 --> ,2

- Contoh program: PROGR~

Pambagian1;

USES CRT;

I

BEGIN CLRSCR ; WRITELtl { '4 I 2,0 = WRIT EUI ('4,0 I 2 = WRITEUI ('4-~0- 1 2,0: 1-IRITELII ( '4 I 2 = READLN END .

L' .... •,_

Operator Slsa ~t:nba,glan Bulat rmod> ' 4 I

....

2. 0):

4.0 I 4

2.0);

4,0 I

2

4,0 I

2,0

4

I 2

Operat& mod digurl:Ykarl:,,unruk Contoh :

{

I 2);

f

7mod2 20 mod 3•

f

i

(

I 2 ,o =

'

4. 0 I 2);

contoh eksekusi : 4

~

Program 1-8.

2.0000000000E+OO

.'

' •, • )

........ ....... 2

mcm pcrokh.~~~,b r~llJ~tgi~b,J!at

..

Penjelasan :

f

= 2.0000000000 E+O O = 2.0000000000E+OO = 2.0000000000E+OO

*

Basil bagi dari 7 dengan2 adalah 3 dan sisa pembagiJn sebes:t r 1 (72 * 3)

*

H asil bagi dari 20 dcngan 3 ada!.ah 6 dan si>:J pcmbagi.1n a(blah.? (2U - 6 * 3)

Tanda hasil opcrasi yang meliba tkan operator mod tanda dari operand yang terletak di scbel ah kiri mod, Contoh :

Program 2- 7.

~csuai

dengan

Dari hasil eksekusi tampak bahwa ~Eillbagi!l_n,\'ang mt: :1 ~gumka n operator I selalu dalam bcntuk pccahan. Operator div hanya bisa dikenakan tcrhadap operand v ang bntipe bilangan bulat. Hasilnya juga bertipe bilangan bulat.

Operator Unary + dan -

Contoh program:

Operator UIUJry + dan - dikenakan di dcpan scbuah operand. Tipe hasilnya sesuai dengan ripe operand .

-7 moa 2 7 mod - 2

Contoh:

PROGRAM Pembagian2 ;

-b USES CRT;

+a BEGIN CLRSCR; WRITELN ('10 DIV 2 --> WRITELN (' 10 DIV 3 --> WRITELN ('10 DIV 4 --> READLN END.

-1 1

10

DIV 2};

10 DIV 3): 10 DIV 4) ;

Uika b bertipe pecahan , hasiln ya pccahan jika b bertipe bulat, hasilnya bulat) Uika b bertipe pecahan , hasilnya pccahan jika b benipc bulat, hasilnya bulat)

Operator Loglka Turbo Pascal menyediak:w 6 buah operator logib, bcrupa : not, and, or, xor, shl dan shr. Oper:~tor ini h;mya bisa dikmabn tcrhada p operand yang bcnipc bilanga n bulat dJn hasil jug.t d:llam biLmg,l n bular. Operator logika dipakai umuk mcmanipulasi d.lta Jalam bcntuk bir.

24 25

.,

~ -~

.1 • .:.

Pengertian bit ~dili.!:t digit p~da J~ngan ~iner. Sebua~ bit da~at berupa digit 0 atau di~1t 1. Dalam ~Jsten\ bmer,· btlangan 3 mtsalnya dmyatakan dengan 11. Btlang.m 12 dmyatakan dengan 1100. · Pada Turbo Pasal terdapat istilah bit bcrtanda dan bit tak bertanda (lihat Tabel 2-3) . P1da bit tak bertanda, b_it terkiri me~~akan ?~anda bilangan (sign .flag) yang menyatakan b1langan berrulat postttf atau negatif Jika bit penanda bilan ~~~ernilai 0 berarti bilangan adalah positif Bilangan :::egatif ditandai dengan nilai 1 pada bit penanda

!

Contor. ekaekuai: ~

SebJgai contoh: _ Bilangan 127 desi;;_.;l (puluhan) jika dinyatakan dalam bemuk biner 16 bit bertanda:

·-

0000 0000 Ol i : 1111 Lbit tanda

1111

lbit tan da

pos;: i~1(((• 0001

neg~:::·

Jib dinyata kan da,;:n 16 bit tak ber tanda , pola bit 1111

}(f.(

0001

menyatakan bilangar. 65409 (2°

+ 27 + 28 + 29 + 2 10 + .. + 2 14 + 2 15) .

Perbedaan antara bir tak :bertanda dan bit bertanda dapat dilihat pada program berikur: PROGRAM Bit ; USES

CRT;

12 7

c

= 55409

Tampak dari hasil cksekusi program . is i C bcr h:t.b dcnpn i ~i D, sekalipun ada pernyataan penugasan :

c :=

8;

Hal ini disebabkan variabcl C dan B mempunyai tipc yang bcrbcda. C bertipe bilangan bulat tak bertanda (WORD), scchngkan 13 bercipc bilangan bulat bertanda (INTEGER ). M cskipun pola bitnya dar i k c:du :-~ variabel rersebut sama, pcrlakuannya bcrbcd2, sehingga mcmbcrikan nilai yang berbeda pula.

Operator Negasl CNotl Operator not bersifat unary (hanya mclibatkan satu operand). Keg unaannya yairu untuk memperolch nilai dengan bit-bit yang berlJ wan an terhadap bit-bit dari operand. Jika bit operand berupa 1, hasilnya berupa bit bemilai 0. Sebaliknya, hila bit operand bernilai 0, hasilnya berupa bit bernilai 1. Contoh:

VAR A, B : ItlTEG.ER;

c

A :

B : - 12 7 Progra,. Z- 9.

dan bilangan -1T .:iesi m al apabila diny atakan dalam bemuk bine r 16 digit adalah sebag;: ~erikut :

1111

I

r

bilangan.

1111

B :: -A; C :: B; WRITELN ('A: ', A); WRITELN ('B: ',B); WRITELN ( 'C : , C); REAOLN END.

WORD ;

15 bit bert~nda } 15 bit tak-bert anda

A dan B bertipe byte. Jika A bernilai 185 dan kemudian diberikan penugasan: B := NOT A;

BEGIN CLRSCR ; A :: 127;

26

maka B akan bcrnilai 70. Penjelasan dalam bentuk bit: '27

,.

·~s

A

=

B

=

185 - - - 1011 1001

_. Contoh:

--not

70 - -

Variabd A, B dan C bertipe byte. A diberi nilai 26 dan B 105. C rnerupakan hasil operasi and antara A dan B. Berapa nilai C?

0100 0110

PROGRAM Operaai_not;

PROGRAM Operaat_and;

USES CRT ; VAR

USES CRT;

A, 8

: BYTE;

VAR A, B, C : BYTE;

BE Gill CLRSCR; A :

BEGIN

= 185 ;

B : : NOT A; WP.ITEU< ( ' A : WRITELN ( '8 : READL N END. Contoh eksekua i

CLRSCR; A := ~ 211;

A) ;

B :: 105;

B) ;

C :: A AND B; WRITELN ( 'A :

A);

WRITELN ('B:

B);

WRITELN ( 'C :

C);

.

REAOLN A

= 185

B

= 70

END.

Hastl ekaekuai;

Program 2-10.

~

Operator And

Bit operand 2

Bit hasil

0 1

0 0 0

0 1 Bit hasil ~ : : _lib k edua bit operand bernilai 1.

28

B :

105

Program 2-11 .

Hasil dari Wlg~"'Wl !:Dcrupakan hasil operasi and dari masing-masing bit operandl dan ~ pada posisi bit yang sama. Sifat operasi and pada tiap bit: <:>~.:,::~.~ •

26

c =8

Bentuk: o~ and operand2

Bit

A :

Hasil C

=

=

126 105

0001 1010 0110 1001

8

()()()() 1000

A B

c

=

8 bisa dijelaskan m'elalui pola bit berikut:

and

Operator or Bentuk: o·p erandl or operand2

l-bsil dari ungkapan mcrupakan hasil opcrasi or da ri rna operandi dan operand2 pada posisi bit yang sama. Sifa ti.lp bit: 31

·-.6 :=.--,~ ~ . ~ -

-

Operator Xor

B it operand 2

Bit operand 1 I , ·# ;..; , ,

0 0

~

\ _0 1

"

Bit hasir : · •

.~

~

Bit operand 1

Bit operand 2

Bit hasil

0

0

0

Bit hasil bernilai 1 jib bit operand ada yang bernilai 1.

A, B, C

0 1

Bit hasil bcrnibi 1 jika hany:t

satu dari bit operand bernilai 1.

PROGRAM Operasi_xor: USES CRT; VAR A, B, C

A :: 42; 8 : = 156:

C :: A OR B; WRITELN ('A: ', A); WRITELN ('B = . I B); C); WRITELN ( 'C : READLN END.

BYTE ;

BEGIN CLRSCR; A :: 42;

B := 156; C :: A XOR B; WRITELH ('A : WRITELH ('B = WRITELH ('C = READLH END.

Contoh ekaekusi:

8

sal4J~

C o ntoh: I Variabcl A, B dan C bempe byte. A diberi nilai 42 dan ·B 156. C mcrupakan hasil operasi xor antara A dan ll . Berapa nilai C?

BEGIN CLRSCR;

A :

0

f

t BYTE;

1

i t

USES CAT; VAR

·o

~

t

PROGRAM Operasi_or;

•

(

Hasil dari ungkapan mempakan hasil operasi xor dari masing-masing bit operandl dan operand2 pada posisi bit yang sama. Sifat operasi xor pada tiap bit:

1 1

Contoh: A, B dan C bcrtipc b yte. A dibcri nilai 42 dan B 156. C Vari abel antara A dan B. Berapa nilai -e? merupakan hasil operasi or

--'-·-

Bentuk: operandl xor operaud2

0 1

0 1

r

I

42

= 1515

c = 190

A);

',

8);

~.C);

Contoh ekaekus1 :

Progr"m 2- 11.

Hasil C = 190 bisa dijelaskan melalui pola bit berikut:

=

A

42

= 158 c = 182 8

A= 42 B = 156 ___..

0010 1010 1001 1100

c

1011 1110

= 190---

or

Program 1 - 1).

31

30 /

I

SS 'Cc

Q' 'fi .

-- --··-

A :: A SHR 1;

Hasil C == 182 bisa dijelasktfl melalui pola bit berikut: A= 42 ___.. B == 156 -

0010 1010 1001 11 00

c

1011 0110

== 182 ~

WRITELN ('lsi A aetelah A;: A SHR 1 --> ',A); A :: A 5Hl 1;

WRITELN ('Isi A setelah A ::A SHL 1 --> ',A); P.EAOLN EHO.

xor

J

l

operator Shl dan Shr Operator shr digu nakan untuk mcnggcscr bit kc kanan sebanyak nilai dari operand kedua . Scdangbn o perator shl dipakai untuk mcn ggcsc:r

f

Isi A

bit kc kiri scbanyaJ.: nilai dari o perand kcduJ . C omoh operasi menggun:~kan shr : 219 110 11 0 11 A

\\\\\\\

0 1 10 1 10 1

A

109

u - - -

A = 21 8

(hasil A shr 1)

Dari hasi l di atas tampak bJhwa pcnggescran 1 bit kc kanan (dcngan shr) pada dasarnya merupakan opcrasi pcm bJgian dcn gan 2, scdangbn pcnggcseran 1 bit ke kiri p~da d;lsJrnya mc rupakan opcrasi pcrblim dcngan bilangan 2.

(hasil A shl 1) J

Lbit bcrnilai 0 disisipkan pad a bagian kanan Contoh program :

~ t

~

Slfat Operator Binary pada Ungkapan Arltmetlka dan Logll
·,

....

PROGRAM

Operasi_ehr_~,1;

~ \J '\)\_,

\

VAR A : BYTE; BEGIN CLRSCR; A :: 219;

WAITELtf ('lsi A •-u)a : 3~

..

,?

1._,)

USES CRT;

A);

= 219

Program l - 14

Contoh operas! menggun aka n shl: A = 109 0 11011 0 1 - E O - - -

/! I I I I I

se~ula

lsi A setelah A :: A SHR 1 -- > 109 Iai A aetelah A ::A SHL --) 218

lbit bernilai 0 disisipb.n pada bagian kiri

1 10 1 1 0 1

e~. se~uai :

Contoh

·~ ;.

.. ...t

~

(1

Kep:Ua program hanya bersifat optional dalam Turbo Pascal dan tidak berpengaruh terhadap programnya sendiri. Sekalipun demikian, judul program yang diberikan pada kr.pala program biasanya menyiratkan isi program .

Ill STRUKTUR PROGRAM

111.2 BACIAN DEKLARASJ

Program P:1scal dapat dih.tgi menja di u ga bagian, berup a:

t t

(1 ) Kt:pala program (2) Ba g ian deklara si (.3) Bagian perny:~taan Dabm bcntuk garnb~r . kaidah scbuah prog ram Turbo sebagai bcrikut: programyl ]udul program !---{)~ [ 1

,

P:~ so l

ad::dah

1

Iclause uisJ

GJmbJr 3 -1. Kaidah program da lam Turbo PJ;c.:./

Gambar 3- 1 sekaligus menjelasbn bah'.n kepala prog ra m mcrup:1ka n optional dalam Turbo Pascal, dalam arrian boleh discrtakan boleh tiJ:~k. Program mengandung klausa uses hanya bila :~da unit (pus taka d alam Turbo Pascal) yang dilibatkan . Sedangkan bl ok (blok program) berupa bagian deklarasi dan bagian pernyataan.

Bagian deklarasi berisi daftar label, kt .tstanta, tipe data, variabel serta subp rog ram (berupa fungsi dan proscdur) yang di ciptakan oleh pemrogram . Kaid:th pende klarasian dalam Turbo Paso! disajikan chlam Garnbar 3-2. ·

~ian ~an

deklarasi

l

aelclarasl label L

I

;•

l

H Bagfan dek:larasl k:onstanta L

f

I

H Bag ian deklarasl tlpeJ H

sag ian deklarasl label

J

I

H Sagfan deklarasl varlabel l L.i Baglan dek:larasl subprogram l

111.1 KEPALA PROGRAM Gambar 3-l. Bagian ddtlara•i T,.rbo Paua/

Kepala progra.m diawali oleh kata-tercadang bernama program, yang diikuti dengan judul program (berupa pengenal) dan diakhiri dengan tanda titik koma (;) . Sebelum tanda titik koma boleh ada sej umlah parameter (berupa pengenal) yang diapit oleh sepasang kuru ng . Antara sua tu parameter dengan parameter berikutnya Uika ada) dip isahkan dengan tanda--koma . Bebcrapa contoh judul program : PROGARAM PemasukanDATA: PROGRAM KRS !Input, output!; PROG~AM cetak lflle_ke_prlnterl:

Sepeni dipcrlihatkan pada Gam bar 3- 2, bagian deklarasi terdiri dari: • Deklarasi label • Dckbras i konstanta • Dck!Jrasi ti pe • Dckhrasi label • DekJarasi variabcl • Dcklarasi subprogram (prosedur dan fungsi) Lengbp tidaknya bagian deklarasi tcrganc ung drngan progran 1 iw sendiri . M ungkin saja sebuah program tidak mengandung bagun

34 .15

~;

~

""" ,k,li (bahk'" juga. ...,. ,;.nana te
Deklarasi konstanta diawali dengan kata-tercadarig const. Sebagai contoh:

mengandung judul p,l,g.-am), .

·

..

•~

(

·i , ..

'

. .

CONST SPASI ~ 32: RETURN = t13; KOSONC "' SPASI:

1 BEGIN YJRITELN !'TURBO pASCAL'! END·

proS'"" di "" hanya m" ndak mbd bi" <>i• dit<mpatkan <<'udah dmbd yang m<mpuny" up< yang d•dof••"ibn dal.m• dcklara
~

I

mony>~akan

peklarasi Label lokam· Nama hbd dap" b 0
}

t

Contoh di atas mendefinisikan pengenal SPASI sebagai nilai 32, pengenal RETURN berupa karakter yang memiliki kode ASCII 13 dan pengmal KOSONG idemilCCiengan SPASI (atau nilai 32). Sclain bentuk pendcfini sian se perti di depan (yang biasa diseb ut dckl arasi konstanta tak bcrtipe) ada juga bcntuk lain yang dinamakan sebagai dekiarasi konstanta bertipe. Bentuk deklarasi konstanta bcrtipc: CONST

pengenaL1 : t1pe_1 : konstant
LABEL dattar Jabel;

X : BYTE : 255:

Di lahd di>w>h dn kata-trr
LABEL 10. selesal;

m
Berarti mcndefin isikan X bertipc byte dan bcrnilai 255. Berbeda dengan dcklarasi konst anta tak benipe, pada konstanta bertipc konstanta yang terletak di sebelah kanan tanda sama dc:ngan tidak boleh berupa nama pengenal konstama bcrtipe. Nama pengenal konstanta bertipe juga tidak boleh terletak di sebelah kanan sam a dengan pada pendefi~isian konstanta tak bertipe. Sebagai contoh: CONST

oeklarasl Konstantadipakai untuk mendefmisikan nama konstanta yan& Deklarasi konstanta digunakan dalam program. Bentuk pendefinisiarlllya:

X : BYTE= 255; y : X;

mcrupakan pendefinisian yang salah. Sedangkan: CONSi

CONST

pengenaU = konstanta.J;

pengenaLn

==

I

y = 255; X : BYTE= Y;

37

konstanta-n:

36

......._ -·

..

• ~--·

s

slllll

J

.,. tanda koma. Tipe dapat berupa tipc bawaan dari Turbo Pascal atau ripe yang didefinisikan dalam deklarasi T Y PE .

I, akan contoh pendefmisian ·wan g sah .

rneru " P l{onstanta bertipe d apat dianalogikan dengan variabcl yang diberi nilai

Contoh:

awal. Ni lainya ju ga b isa di u bah dalam bagian pernyataan.

VAA

oeldarasl npe oata Digunakan nntuk m end etinisikan nama ripe da ta baru . Pendefi nisian tipe diawali olch kara- tercadang type. TYPE

pengenaL1

JumlahBarang, JumlahCudang

: BYTE;

Karakter

: CHAR;

Contoh di atas, mendeklarasikan ':ari.lbcl Jumla hBara n g dan Jum lahG uda n g bcrtipc byte dan variJlJc l Ka r a k tcr bcnipe CH.A.ft

= tl pe_1 : Deklarasl Prosedur dan Fungsl

pengenaLn

= ti pe_n;

Tip c-1 .. Tipe_n dapat beru.pa scb:u ang ripe

d;H:l.

Conwh : TYPE Bulat Kallmat

=

INTEGER

D ckLnasi p roscdur da n fu ngsi hany :l :~da bila program mcngandung subprog ram (yang diciptakan okh pcmrogram). Subp rogra m dalam Pascal bisa bcrupa prosedur at:~upun fung5i. M odel p rog , Jm Pascal m emang ba n ya k meli batkan subrrogram. Di:lll tara n ya un tu k mem uc!ahkan pcnyusunan p rogram. Perbcdaan uta ma dari prosedur d:m fungsi (pJdJ bagian pcrnya taan): • Fungs i:

-

N am a fungsi mcngh:Js ilbn scbu ah nilai jika dipanggil. Tidak dapat bcrdiri scndiri scbag.~i pcrnyat aa n, mela inka n sebJg ri i operand.

• P rosedur : -

Nama proscdur ticbk mcnghasilkan nibi jika dipanggil, m clainkan mcnghasilkan ri ndakan tcnent u. Berd iri scndiri scbagai pernyataa n.

= STRING;

berarti mcndcfinisikan pengenal Bulat sebga i ripe integer d an Kalimat bcrti pc string. Tipc seperti K alima t J:au Bulat dapat dipakai untuk menentukan jenis v ariabcl.

oeklarasl varlabel

Scmua variabel yang digunakan dalam program yang diciptakan oleh pemrogram harus dinyatakan dalam dek larasi variabcl. Deklarasi variabel dapat diartikan sebagai pcmesanan tcmpat dalam memori komputer dan penentuan jenis data yang disimpan di dalamnya. Bentuk pcndeklarasian: VAR

dattar_varlabeL1 : tJpe_1:

- dattar_varlabeLn = ttpe_n; Dekl.uasi variabel diawali dengan kata-tercadang var. Setiap dajtar_varia· b.:/ dapat berupa satu atau sejumlah n ama variabel. Jika \ebih da ri satu variabel, antara satu variab el dengan variabel lainnya dipisahkan dcngan

Contoh fungsi baw aan adalah sqrt , yai tu fungsi yang d ipakai untuk memperokh akar kuad rat dari ~mcnnya (nilai yang ditcm patkan dalam tanda kurung). Fun gsi tid:~k b_isa dikenakan s_cl>a.gai peroyataaQ ~ang ~erdiri.l; ensli ri . Penulisan: SORT !5!;

merupakan penulisan yang m enya lahi kaidah. Penulisan fun dalam ungka~ atau arg um en da ri prosed u r a~ .. g ·~~· __. .. ..... Misalny a: WRITELN !SORT !5));

untuk menampilkan nilai akar ku:~drar dari 5. Pada contoh ini, fungsi sqrt digunakan sebagai argumen dari pcrnyataan writeln .

39 38

Sebuah pernyataan bisa diawali denganlabel dan nama label serca tanda titik ganda (:). Contoh:

'

"Writeln mcrupakan salah satu{contoh dari prosedur bawaan. c ootOh' yan g lain:

Akhir: WRITELN 1'5elesal..'I;

ct.RSCR;

Pernyataan semacam ini digunakan berkaitan dengan pernyataan goto . Pcrnyataan juga boleh tidak ada. Dengan demikian:

ctrscr merupabn prosedur dalam unit crt yang berfungsi untuk embcrsihbn atau menghapus layar. 111

BEGIN

111.3 B.AGlAN PiRNYATAAN Bagian rcrn yar aan da ri program diawali dengan kata-tcrcadang begin, diikuti dcngan sejumlah perny::taan dan dia khi ri dengan kata-rcr o dang end bcscrta tanda titik/period (.). Tanda titik menyatakan akhir

I

i i

i

BEGIN

I

Pernvaoan_1: pemvarniL1: Pemrataan_n

END

Bagi an pcrnyataan program sering discbut sebagai prog ram ntama (main program). Setiap · progr11m Pa~cal memiliki program utama. Biasanya hanya berisi beberapa pernyataan saja dan menyatakan gambaraf1 proses yang dikerjakan komputcr. Adapun rinciannya (bcr~1pa subprogram) ditempatkan dalam deklarasi subprogram .

:t

111.5 PEMISAH PERNYATAAN

Pascal menggunak~n tanda tirik koma (;) scba~ai pcm is~ h Jntarpernyataan. Bcrdasarkan hal ini, mun gkin sJja dalam scbuah baris terdiri k bih Ja ri saru pcrnyataan, dengan antarpcrny~t :l .m ,Jipisahkan dengan titik koma.

111.6 FORMAT PROGRAM Pascal merupakan bahlsa yang ·mempcrkcnanbn rcnuli san dengan format yang dikehendaki oleh pemrograrn, asalka11 tctap rncmenuhi aturan/kaidah program. Sebagai contoh, pcndeklarasian scperti VAR JumlahBarang, JumlahCudang : BYTE; Karalcter : CHAR;

111.4 PERNYATAAN Pernyataan menjelaskan tindakan atau kegiatan dalam program . Pernyataan sendiri digolongkan menjadi beberapa kelompok, diantaranya berupa pemyataan penugasan, pemyataan pengendali aliran dan pernya-

boleh ditulis- menjadi: VAR JumlahBarang, JumlahOudang : BYTE; Karakter : CHAR:

taan majemuk. Aturan atau kaidah pernyataan dittmjukkan dalam Gambar 3-3.

l~ ,

rcta p rnerupakan program y;:mg SJh , w a!aupun rid.1k m~· nghasilkan apaapa apabila program ai.Jalankan (karen a tak ada pernyaraan sama sekali). Jenis pernyataan dapat berupa sebarang pcrnyauan.

i

progr am. Bcntu k b:~gian pcrnyataan program:

,.;;;,,,..n

END.

atau ditulis dengan format sebagai berikut: 1

~1

i )en• pemvataan 1 -

VAR JumlahBarang : byte; JumlahGudang : byte; Karalcter :Char;

1

G•mbar J - J. K•i4tJII pasulu•n pcrnyat4411

41

40 .1.~... :~ "

..... . _ __.,._.,...

--

-~'1!-~~~.~~~~.-!''a,:;;:::a:..........~*·"o;:'-4~ 1 i'?)'

r

,. :eisa juga ditulis dengan format:

VAR Jumtansaran9. JumlahGudang

Seblipun program sangat sederhana,. program tidak begitu mudah untuk dibaca. Kebiasaan bagi pemrogram Pascal, pernyataan yang terdapat dalam suatu blok pernyataan (yang diawali begin dan diakhiri end) ditulis sedikit masuk ke bnan tcrhadap posisi begin dan end. Program 3-1 dapat ditulis menjadi:

:byte: Kara~tter

: char: T arnpok banyak cara untuk rncnd iskan format program . Pernilihan form at yang baik tcntun , ·,, .d.Jiah forma t yang m udah dibaca dan dipahami. Dalam Pascal dikenal ist ib':-1 blok pernyataan, terutama berkaitan dcn gan pernyataan m:~jemuk. Pcrnyataan majemuk sendiri dapat dian ggap scbagai kumpul an rnnyataan yang diperlakukan sebagai pcrn~·ataan tun ggal. Pernyataan majemuk diawali dengan kata-tercadang begin dan diakhiri dcngan end . Gambar 3-4 mcnjelas-

bta-tcrc;~ciang

kan bidah pernyatJJn m aj cH: uk.

pemyataan ma]emuk

~ 1 -[oem~n} \ {~oo]

~

Gambar J-4. Kaidah prrnyar.:an m3jtmuk

Contoh dari pernyataan majemuk adalah program mama. Dengan dem ikian, kaidah program utama juga mcngikuti kaidah dalam Gambar

3-4. Format penulisan pernyata an majemuk sebenamya bebas. Hanya saja, jika salah memilih format akan menyebabkan program sulit dibaca/ dipahami . Sebagai contoh diperlihatkan pada Program 3-1, yaitu program untuk menghitung pcnjumlahan isi variabel a dan b. PROGRAM Penju.1ahan : ~E~ C~T;

VAR a,b,c:BYTE; BEGIN CLRSCR; a : :20 ; b : =30; c::a+b; WRITELN('Ia1 a= ', a) ; WRITELN('l!li b: ',b); WRITELN('C =a+ b: ',c); REAOLN E~O .

'

PROGRA~ Penjumlahan; USES CRT; YAR a , b , c ;_ 8 'f'T E ;

BEGIN CLRSCR; a :: 20; b : : 30; c :=a t b; WRITEUI ('lsi a= , a); WRITEUI ('lsi b : , b); WRITELN{'c =a+ b = ',c); REAOLN END. Program ) - 1.

Denga11 mcn uliskan sc pc rt i pad a Program 3- ~ . program menjadi lcbih mudah dibaca · dan dipahami, rneskipun jumlah baris yang diperlukan lebih b:tnyak dibandingkan dengan Program 3-·1.

111.7 · KOMENTARIKETERANCAN Dalam penulisan program, kadang-kadang diperlukan untuk memberikan ketcrangan yang mcnjelaskan isi program secara singkat. M isalnya untuk menjelaskan masing-masing pengenal, tindakan tertentu dalam prograw beserta kondisin ya, dan sebagainya. Bagi kompilemya sendiri, keteran gan semacam itu tidak bermakna apa-apa . Tetapi bagi yang membaca program, ad anya keterangan akan sangat membantu sekali dalam mcmahami program . Dengan kata lain adanya keterangan dalam program , program akan semakin mudah dibaca dan dipahami . Keterangan atau komentar dalam program dapat ditulis pada bagian mana saJa (asalkan bukan berada dalam pengenal atau kata-te rcadang atau di d;~lan, ~ons tanta string) dan bisa lebih dari satu baris. Penulisannya diawali dcngan satu tanda { (kurung kurawal buka) dan diakhiri dengan tanda } lku rung kurawal tutup) .

Pro>gram J-1.

43 42

~-- --

{lnl rnerupakan contoh keterangan)

,'

USES CRT;

{ unit CRT }

VAR a,

{ vari&bo 1 operand 1 } { vari&bel operand 2 } { variab~l hasil penjuMlahan

b, c: BYTE;

{lnl juga merupakan contoh keterangan. Keterangan lnl akan dlabalkan oleh ~eomp!ler TUrba Pascal)

BEGIN CLRSCR;

untuk pernvataan t>erll
• :: 20;

WRfTE\.N ! ·1n1 { bukan \ contoh komentar · l: kata bukan yang terlctak d.:Jlam kurung kurawal bukanlah suatu keter .. ngan (karcna kunmg kur:~wal ditempatb.n d.1lam k onst:~nta sning) , sehingga kalau pcrnyataan dicksckusi, yang ta:11pd p3d.J by;;r:

b

:=

c

·=

30;

a + b; WRITELN ('Is1 a=

a);

=

b):

WRITELN c·~~ i b

WRITELN('c:a+b=

,c);

READLN

1n1 · bukan \ contoh komentar

EtlO.

Program 3-3.

buka nll\·a:

111.8 KLAUSA USES

1n1 contch komentar Sdai n tJnda { atau } simb oi hcrpasangan (* dan * ) dapat digunakan untuk r:1cngawali dan mcn gakhiri komcntar. Y ang pcrlu dikcuhui, jika komentar mcnggunakan awalan { harus ditutup dcngan } . T.mda (* dcn gan • ) ci:m { dcngan} dapat digunakan sccara b erkalang, dalam artian komcntar yang m cngg u n aka n (* d;m * ) bolch di dalam komcntar yang menggunakan { dan } atau seb alikn \·a. Scbagai contoh:

~cbuah

Klausa uses diberikan hanya jib acb bag ian uoi r yang ddibatkan. Unit scndiri sebena rnya rncrupakan su~tu pu>r .1b vang bisa jadi berisi kumpulan konstanta. tipc data. v:~ri :~bcl. prnscJ~rr dan fungsi, berdiri sendiri scpcrti program P:1sol d~n dapJt dik c·rn ~'il:1si scCJra terpisah . Turbo Pas cal men y;.·diakJn c;ciJ pJn bu.1!1 urJ.t stand.H. Berupa unit :

ber:~da

• System pnl merupakan contoh komentar. !• sedangkan lnl merupakan l
• Graph • Dos

lnl merupakan baglan akhlr ctarl 1
• Crt

Berikut merupakan contoh program berdasarkan Program 3-2 yang ditambah dengan ketcrangan: PROGRAM Penjualahan;

~------~-------------------- - ------ --

. . )

<• Progr. . untuk menghitung pen jum lahan •> •> c• 1&1 variabel • dan variabel b <• dan nas11 dite•patkan ke variabel c ) c• ------------------------------------ •>

• Printer

i.,

• Turbo3

Berisi fungsi d :m proscdur van;;: rncrup:1kan bagian d:1ri Pascal standar, scpnti fungsi .Hi tm.Hik , alokasi memori dinamis , juga fa silit as yant-; nJt·n:lll!-!ani masukan/kcluaran file. Berisi fasilitas yang bcrhu b un g.1n dcng:a n mode grafik. Berisi fa silitas yang bcrltubung.1n dc ngan sistem operasi dan penanganan file. Berisi fasilitas ya n g bcrhu bu ngan dcngan layar, seperti menghapus layar dan mcn gatur warna teks. Juga berisi fasilitas untuk membangkitkan suara speaker komputer dan fasilita s untuk mcndctcks i to mbol pcrluasan , seperti Fl dan Alt w . Berisi fasilita s untu k mcnccr~k kc printer. Dcngan unit ini, pro g rarn ;·.1ng cl1cip takan dcngan Turbo Pascal J.O dapat dijai:lnkJn pad.1 Turbo Pasc.1l vcrsi 5.5. (Catatan : Namun tid ak sduruh program Turbo Pascal 3.0 bisa jalan pad a Turbo P Js c d 5. S).

1

j ,

I !

45

44 '"! ··.'

r

..... , , .__.,._o£-:_...,_.~---'""'""""" ··--

~· _..~.,___.,.,, c_...'<',Jwl9.'1•.......,._~

I

\.

r:,.,.

G pbJ •

ra

~

T~rbo

B«i'i f.,ilit" g"fik :ymg · te.d•p•t dabm Pascal 3.0, khususnya fasilitas gambar yang dalam Turbo Pascal 3.0 harus mdibatkan file bernama GRAPH.BIN

PERNYATAAN MASUKANKELUARAN

dan GRAPH .P. • overlay Berisi fasilitas overlay. pencrnpatan klausa uses adalah antara kepala program dan bagian Jcklarasi. Pad:l contoh Program 3-3, USES CRT menyatak an program mdibatk Jn unit CRT. Dai:J.m hal ini fasilitas dalam unit CRT yang

d,gun•'"' ,,im pco"d"' bow"n CLRSCR . CLRSCR mer . Khu'u' unmk unit SYSTEM tid•k pcdu diny.mbn d•i• m kl •u" "'" korw• unit ini """ oron>Oti' '"" J kai rkan p.1da seuap program Turbo Pascal.

pr~;
I

IV PERNYATAAN PENUGASAN DAN

jil--.a fro;ram mdibatkan lebih dari satu unit , antara unit satu dengan

u;.it lamnva dituli s dcngan dipisahkan oleh koma. Cvnttlh: USES CS
Y.n:g bconi ada riga unit yang dilibatkan dalam program.

Ap:~bi\J

unit TURB03 atau G RAPH3 dilibatkan, unit CRT juga }Hres di,crtakan dan penulisan unit CRT dalam USES harus bcrada sebdu :11 TURB03 ;nae G RAPH3. Contoh:

i

I I' t

i l l.

USES CRT, TURB03;

1

Pcrny;!tJa n dabm Pas cai dapa t digolongkan menjadi dua bagian, berupa pcrnyJtJan scdc rham dan pernyataan terst rukt ur. Pnnyataan scdcrhana mclipuu pcrnya taa n pcnugasan (pcmberi an nilai ), pcrnyJtaan prosedur dan pcrnyataa~ goto. Sedangbn pcrn yataan tcrstruktur meliputi pernyataan majcmuk, pernyataan bersyarat, pcrnyataan pcngulangan dan pcrnyat:Jan with . Pada bab ini. hanya pernya ta.l n penugasan dan pernyataan proscdur , (tcrmasuk pernyataan mJsukan-kt:!uaran) yang ak :1 dibahas. IV.1 PERNYATAAN PENUCASAN

Pernyataan penugasan rncrupak an salah saru cara untuk mcmbcrikan nilai kepada varia bel. Bcntukn va: varia bel := nllal

Nilai d:1pat dipcroleh dari variabcl, ko nstanta. fungsi atau su.nu ungkapan. Dalam m emberikan nilai semacam ini, tipe dar i nilai harus sesua i dengan tipe variabel. Misalnya, nibi bcrtipe karakter. tcntu saj;; tidak bisa diberikan ke varia bel bertipe bi lang.w . Juga, nilai pccahan tida~ boleh diberikan ke variabel bilangan bubr. Tetapi nilai bulat bold diberikan ke variabel bertipe bilangan pccahan. Scbagai contoh:

VAR ~:

BYTE;

BEGIN X := 0;

END.

Pada contoh berikut:

tm,

X bcrtipc byte . Seandain ya dibcrika n nilai seb:1 g:

~ ~

~!~~--.-....v-o...~

•

4

a

~

J

wnt:c.. 4 ._ · ~-m -")~wt·

,-~"':t".-i:-~~-.;i ....._""~ ....~· •-~~ r.. ~·. ....:;..z_.... . .o~ ........:. ~ ~-".1-·_r ·---~--~. -.:. • ,.. _...,,.,. ...__..._..... ~

- ---

-121;

.. ,.,1 dikomp~i._

akall 01en
BEGIN X:= 0;

'

Kesalahan ini disebab-!2'7 boJ<,.I>h men>p>km b ""'"' diD b;hngm beI•Y'· jib -heri'" nib• d,bkokw ' " ' " ud>k lmg,ung talih"

k•W'""

END.

sebelum diberi nilai 0, nilai X entah berapa 1smya.

"b'S""''"'

Tabel 4-1 mcmperlihatkan perbandingan bebcrapa persamaan matematis dan penugasan dalam Pascal.

contoh berikut:

Tabel 4- 1. Pernancllngan persamaan matematlk dan pemyataan ..~ nuoasan dalam Pascal

""

X: sYTE: y : sHORTINT; BEGIN

y :"' -127; X:"' Y;

END.

Mob·m•b v>
dd<.et:~hui,

variabcl X

tid:~k

bcrnilai -127 melainkan 12Y

-

(Mcng:q):l~) . variabel x

varlabel X

CD sebelum X :=0;

f t

i

I

pcnugasan: ). :" Y:

I ~

' \

Per>amaan Matematik

Pernyataan Penugasan

LUas

=

LUas : = Panjang • Lebar

x

Y b2

=

-

4ac

GarnbiJr 4-1 . lsi variabtl ubtlurn dan Jtswdalt ptmbcn'an nilai

Pascal, semua .v ariabel cidak pernah diinisialisasi pada saat Pad a variabel dideklarasikan . lsi variabel tidak mcncntu, apabil a dalarn program tak pernah dibcri_!!ilai secara eksplisit . Pada contoh:

X = (SQrlbl - sqrtl4•a•Cll I 12·31

2a

-p Y =2

+ ~2-Q --

Y

~

- p/ 2 + SQrt(SQ r!pli4- Q)

4

z=b

z = b3 - Vx

• sqri bl - sqrtlxl 1 i3·al

3a

Catatan: • sqr merupakan fun gsi untuk rncmpcroich ;1ibi k u~d rat • sqrt merupakan fungsi unruk mcmpcrokh abr kuaJrat • Dalam Pascal tid ak ada opera to1 unr uk menghitung pangka t seperti:

b3

CD sesudah X := O:

- -- --

Pan)ang x Lebar

IV.2 PERNYATAAN PROSEDUR Pada Bab III telah dijelaskan sccara singkat bah\v a proscdur dapat be rdiri sendiri sebagai pernyataan. Pem anggilan subprogram prosedur dilakukan dengan menuliskan nama proscdur dan diikuri dengan paramcternya Gika ada). Sebagai contoh, bila dalam deklarasi subprogram terdapat prosedur dengan nama . CetakJudul , m aka pcrnyataan prosedurnya adalah: Cetak.Judul;

VAR X : BYTE .

48

4{)

IV.! PERNYATAAN program yang melibatkari pbprogram: --- _-; pll()GR~ sut:>prog;

P~EDUR

INC & DIC

Pada program yang · melakukan perhitungan seringkali ditemukan instruksi semacam: X-.. X+ 2;

LJSES cRT;

a ta u

pROCEDURE cetakJudul;

eEGlH WRITELN

('PT. AOIJAYA AOIGUtlA-

SE~ARANO')

Conroh yan g pertama. menyatakan isi X yang baru ada Ln i; X yang lama ditambah dengan 2. Scd.mgka n contoh kcJ ua, mcnyata kan isi X y:mg b:tru adalah isi X yang lama dikurangi ,..,

END :

aEOlH

(*

Prosr~~ ut~a ~)

CLRSCR; cetakJudul:

X :• X .:. 2;

varlabel x

{ mamangg\1 prosedur cetakJudul J

varlabe l

c=o

READLN END.

~

sebelum

sesudah

X := X + 2

progrartl 4- 1.

Gambar 4 - Z. llautrasi

x

X :• X + 2

p~ngtnaan

ptnryataoJn X :- X + Z

pada Program 4- 1, PROCEDURE Ceta!Uudul;

BEGIN WRITELN {'PT. ADUAYA ADIGUNA · SEMP..RANG'l

Dalam Turbo Pascal rerdapar prosedur bawaan yang Illempunya1 kegun:1an unr uk menaikkan atau menurunkan isi .s uatu varia bel yang berripe bilangan bular. Prosedurnya berupa INC dan DEC. Contoh pcnggunaan:

END:

""'"P'bn >ubp yang bOikan P'd' bagian d
Pemyaraan

Menggunakan DEC atau INC

X := X + 2

INC INC DEC DEC

X := X X:= X - 2 X := X

(X. 2) (X. 1) atau IN C (X) (X. 2) (X, 1) atau DEC (X)

segera dijalankanprosedur . Pemanggilan untuk prosedur bawaan jtrga menggunakan

""yang ,ama. B
v-

Prosed ur DEC atau INC m cnghasilkan kode mesin yang lebih sedikit jumlahnya, sehingga sangat cocok untuk diterapkan pada proses yang menaikkan atau menurunkan nilai variabel bcrbli-kali (Pengaruhnya yaitu mempercepat proses).

.:..J

disebut argumen I parameter aktual

IV.4 PllRNYATAAN MASUKAN

dari prosedur writeln READLN lXl;

L merupakan parameter berupa variabel

50

Pernyaraan masukan merupakan cara lain untu k rnemberikan nilai ke variabel. Dalam hal ini, nilai dimasukkan/dibaca dari pcranti masuka11 51

-----·- ··--------.. . ----1 "

,el~

dic~ekusi

--

s~ndiri

READ (X,yl;

ra~am,

a program . . Peranti masukan beraneka ya papan-ketJk (keyb oard) dan dtsk-dnve (dengan med1anya

~

·-y,eru a disk et). p~ b,gi'" 1

ini, p<n p<mbm•n d•ta, y•im bm•p• p
"20.

(

-~" data untuk y

untuk x

£

m1mmal sebuah spas1

• Read. dan • Readln

t

-enggunakan Jlead digunakanRead untuk mcmba ca scbu3l-. 3tau bcb cr:;pa data.

Bcntuknya:

I iI I

READ (VaL1 !, var..2,

var _nll

a tau Setiap variabel (var_l, var-.2, .. ) dapat bcrtipe char , string akan bilaogan. Jika variabel ti dak bcnioc .;,1bh saru dian t aranya ,

'~

rnenyebabkan munculnya pesan kcsala:. :1n:

f

cannot Read or Write variables of this tYPe

pada saat dikompilasi. Tanda [ dan ) pada bentuk pernyatnn Head (hanya penjelasan). menyatakan yang ada di dalamnya

~cb:~ga1

mun~k

tanda bantu in ada mungkin

tidak ada.(dengan anggapan variabcl , x dan y benipe bibn gan pecahan Contoh dan Jumlah bertipe integer): READ Qumlah); READ (x, y);

Read yang pertama dipakai untuk membaca nilai Jumlah dan contoh kedua untuk membaca nilai x dan y . Pada pemyataan masukan:

t

l

~

t. l'<

Jika terdapat kbih dari satu dau bilangan. antara d:na dibcri minimal scbuah spasi seb.1gai rem isah dJt3. Apabila jumlah data yang dimasukkan kurang dari juml::h vari;~bc\ da\arn Read, kompt:tcr akan memin ta kekurangan da ta supaya dirnasukkan. Seandainya pad a saa t pernyataan READ (x, y) dik erjakan data ya ng dimasukkan sebaga i bcrikut:

20.1 .._] kom puter akan menunggu SJmrai data yang sa tunya (data unmk y) dimasukkan. Apabila data ya ng dimasukbn berlebihan, data sisa abn dihcrikan kepada va riabel ya n g diliba tka n pada opcrasi Read atau Rcadln ya ng t~rlctak sesud:thnya . Scbagai conro h (dengan x, y, z dan i bcrtipc bilangan) pad a pc rn ya taan-pcrnyata:m bcrikut: READ (X, Y. Z) ; READ (I);

Jika saa t pemyataan READ (x, y, z) dieksekusi , dimasukkan data:

20. 1 30 40 1

~

maka: • x bernilai 20,1 • y bcrnilai 30 • z berniJaj 40

READ uumlahl;

cara memasukkan data ketika pernyataan tersebut dicksckusi, misalnya:

20 .-1 pcnekanan tombol E N TER, variabel Jumlah bernilai 20. Scsudah contoh untuk memasukkan data x dan y pada pemyataan Ada pun

dan terdapat data sisa yaitu 1. Data sisa ini secara otoma ti s masuk ke variabel i saat pernyataan i~EAD (i) dijala nkan . Bagaimana halnya bib vari abcl vang digunakan dalam. Read bcrtipe char (karaktcr)? Berbeda dengan va riabcl bilangan, bil a ada sejurnlah variabel char, pemasukan amardata tidak dipisahkan dengan spasi.

53 52

Jadi pada penekanan

S
daih>~

E~

p•d• Pmg""' 4-2.

menimbulkan dati pada penampung papan-kerik sebagai berikut:

p~oG~~ oataKarakter ; 1J5ES C~T; vt-R

Kar1. Kar2. Kar3

[ E rcR CHAR;

Menggunakan Readln Keg unaan Rcadln sama dcngan R c~~L Pcr k~ ~ .my a , pada Hcadlr seandainya terdapat data sisa sewaktu pemasuka n data, data sisa aka~ diaba ikan (tidak di bcri kan ke variabcl pada Read ~ c 2u Rcadln scsuda h· nya). Readln biasa dipakai untuk mcnghindari ;~d anya brakter yan~ tersisa pada penampung papan-ketik . Pcrhatika n p.ld:; dua pernyataan

BEGIN cLRSCR; READ (Kar1, Kar2); READ ( Kar3) ; WRITELN (ORD( Kar1)) ; ~RITELN {ORO(Kar2)); WRITELN (ORO(Kar3)) ;

READLN ()(, Y. Z); READLN (J);

I

END.

Misalkan pada saat READLN (x, y, z) dieksckus i. .: .m F mg dmusukb1 ada lah:

Program ~2.

p, d, Pcog<'m 4-2, fung'i ORD dip•bi untuk

,:ari karakter yang ~nerupakan argume nny:L Contoh pemasukan data untuk Program

m~wkh ko~

20. 1 30 40 1 ~

sisa data 1 ti dak ma suk ke varia bel i yang bc rada p.id P,cad!n s c su d:~h n y (READLN (i)). Data i harus dimasukkan tcrscn.:k;. scw;, kcu pcrny:lt.n READLN (i) dieksekusi .

4-~:

EMl.....J maka: • Karl berisi 'E' (Kode ASC il 69) • Kar2 berisi 'M' (Kode ASCll 77) • Kar3 berisi 'I' (Kode ASCll 73)

Pemrograman dengan Read atau Readln Dengan menggunakan pernyataan Read atau ReaJln, program menjac lebih fleksibel. Misalnya, untuk memper~l eh penjumlahan dari dua bua nilai, nilai yang mau dijumlahkan dapat dimasukkan bukan melal1 pemyataan penugasan, melainkan den gan memabi Read atau Readb Dengan demikian data dapat dimasukkan sewaktu ekseku.~i progran Program 4-3 merupakan contoh program berdasarkan Program 3-: yang telah dimodifikasi menggunakan Readln.

Jika pemasukan data misalnya berupa: E~

Kar~ maupun Kar3 juga terisi dengan karakter . ternyata baik Lengkapnya: • Karl berisi 'E' (Kode ASCll 69) • Kar2 berisi kara\Cter Carriage Return (CR) (Kode ASCll 13) • Kar3 beris1 karakter Line Feed (Lf) (Kode ASCll 10)

PROGRAM PenjUMlahan;

<• -----------------------------------(• Program untuk mengh1tung

penj umlah~n

<• dua buah n11a1 <• dan haa11 d1te~patkan ke variabal c <• ------------------------------------

Berbeda dengan data bilangan, pada data karakter jika tak ada karaktcr ymg ditokan. v.,;,bel bi" tcU bilangm. k.,,ktet ,p.si, CR dan LF •k•n di•b•ikm) . Kmktet CR d,. U Wb•nglcitk>n 'ecat ditebnny• tombol ENTEil

54

,-l.FJ

·-

*) •)

•) •)

•l

~

CRT: _

US~S

VAR a,

-

b,

c : BYTE;

• Write dan • Writeln

-

{ variabel operand 1 } { variabel operand 2 } f variabel hasil penjualahan

BEGIN CLRSCR; WRITE ('~asukKan nilai a : REAOLN (a); WRITE ('Masukkan ni lai o : READLN (b); c := a + b;

WRITELU('c: a READLN END .

+

o

=

Bentuk umum: WRITE (dattar__argumenl WRITELN (daftar__argumenl

dafiar....argumen bisa berupa sebuah atau beberapa argumen. Penulisan anrarargu mcn dip isahkan dengan tanda koma. Masing ~ masing argumen bi~a bcrupa konstanta, variabel, fungsi ataupun ungkapan . Contoh:

. .

) ;

) ;

c);

J

l f t

'

WRIT E (10, 'SEPULUH'l; WR!TE (A • B + Cl; WRITELN Uaml; WRITELN (SORT (BIIanganH:

Perbedaan write dan writcln: setcla h mcnampilkan semua argumcnnya , ti dak tcrjadi perpindahan baris. scsudah menampilkan scmua argumennya, terj adi pcrpind ahan baris.

Hasil eksekusi :

Write

Masukkan nilai a : 5 Masukkan nllai b: 6

Writeln

c:: a+b=11

::.cb.;g ai contOh:

ProJlram 4-J .

Readln Tanpa Parameter Readln dapat digunakan tanpa melibatkan parameter (a rgunH:n). Sebagai contoh: BEGIN WRITELN t'Tekan RETURN'!;

if

~

t

•t

{ Mcncetak koflstanta Bilangan dan string } { Mcncctak nilai dari suatu rum us I ungb pan } { Menampilkan isi variabel } { Menampilbn nil ai kduar ai1 dari fungs i

WRITE rPemrograman'l: WRITE nurbo' . 'Pascal'l: akan menampilkan: PemrogramanTurboPascal

,I '·

I

Sedangkan:

READLN

END. Readln tanpa argumen biasa digunakan dengan maksud untuk menunda eksekusi program, sampai tombol RETURN (ENTER) ditekan.

IV.S PERNYATAAN KELUARAN Pcrnyataan kelu aran digunakan untuk mcnampilkan data atau inform asi ke peranti keluaran . Pcrami keluaran yang paling umum dipakai adalah layar (monitor). Pada Pascal , tcrdapat prosedur bawaan yang dipakai sebagai pernyataan keluaran. yairu berupa:

WRITELN l'Pemrograman'l: WRITELN !'Turbo', 'Pascal'!; menghasilkan:

I

Pemrograman TurboPascal

I

Khusus untuk W ritcln ba lch ditulis tanpa mcngandung argumen. l Kcgunaannya yai tu untuk berpindah baris . Contoh:

57

56 ~..,.,..-:;- ..., •..~.....,...~ ••~.'"Y:"·t•

.....

·~ ~

Menghasilkan: .PS OFF

WRITELN !'Pemrooraman'l· WRITELN; . WRfTELN !'TUrbO Pascal'!;

12345678901234 5.020£+01 50.20 - 74.50 .PS ON

akan rnenarnpilkan: pemrograman rurt>O Pascal

+-

baris kosong

Panjang medan untuk bilangan real minimal sama den )?1n 8 . Jib lebih kccil dari 8, akan dianggap sama dengan 8. . -Untuk selain bilangan pecahan, suatu nilai yang tidak diformat akan d itampilkan dengan mcn empat i medan sepanj:mg jumlah kar.1ktcrnya. J ika rnedan yang disediakan mempunyai panjang yang meleb ihi jumlah karaktcr nilai yang akan ditampilkan, maka akan didahului dcng:m sebuah ata u sejum lah spasi. Sebagai perbandingan an tara keluaran yang difo rmat d.111 tidak diformat da pat dilihat di bawah ini (Ca tatan: n ben if< ime t: rr bcrn ila i 255; Karakter bertipe char, berisi 'A ' dan Selesai berj en i, boolea n bemilai TRUE):

Menamplll
.PS OFF Pemyataan

WRITELN (50.21 ; WRITELN (·74.51:

j ~

Hasilnya: .PS OFF

f

12345678901234567

................. . . . .......................... 5.0000000000E +01

- 5.0000000000E + 01 .PS ON

Format untuk mengatur penampilan nilai bilangan real: [Nnal: n :

mj

n menyatakan panjang medan yang disediakan untuk menampilkan nilai. m menyatakan jumlah digit pecahan yang akan ditampilkan. Jika bagian m tidak disertakan. bilangan ditampilkan dalam oenrukjloating point dan menempati medan sepanjang n karakter. Contoh: WRITELN \!'1 2345678901234'1; WRITELN (' ...... '! ; WRITELN !50.2:101; WRITELN , !50.2:10:21 ; WRITELN !-174.5:10:21;

58 : ···~:o:"·~-.-. ,~-...,.

WRITELN WRITELN WRITELN WRITELN WIUTELN WRITELN WRITELN WRITELN WRITELN WRITELN WRITELN WRITELN WRITELN WRITELN WRITELN

.PS ON

1'123456789012345678'1;

Keluaran

123456789012345678

I' ...................... 'l;

!Nl; 255 A !Karalcterl: z !'Z'l; TRUE !Selesall; FALSE !false!; 16= Genap !16, '= Genap'l; 123456789012345678 !'123456789012345678'1: !' ........................... .. ');····· .................. .. 255 !N:8l; !Karalcter:Sl; A !'Z':8l; z TRUE !5elesal:8l; FALSE !false:8l;

- -- --

v

Program 5-t: mengandung de.\clarasi LABEL, disebahkan pernyataan goto. Label yang digunakan berupa Ulang. Jik.a dijalankan, pe!!_l~taan yang pertama kali dijalankan adalah

PENGAMBILAN KEPUTUSAN DAN PENGULANGAN PROSES

WRITELN liurbo Pascal');

I I

Bab in i mcn eka nkan pembica ra an mengcnai pcrr. ya taan pcn ga mbilan keputusan terhadap dua a tau scj umla h altcrnatif dJn pcngubn gar! pr o~c~ . Namun scbclumnya, pernyataan goro dan pcrn yataa n majemuk akan · dibahas terlcbih dah ulu .

i

f

V.1 PERI'-JYATAAN COTO

Pernyata an goto sering dis.ebu t sebagai pcrnyat aan loncaran tak bersya rat. GunJnya mcmang untuk mengarahkan cksekusi program ke pernyataan yang diawali oleh label scsu ai yang ditunjuk oleh goto. Bentuk pcrnyat:Ja n goto: GOTO nama.Jabel

Nama label yang digunakan dalam goto berupa pcngenal (i,lclltijier) yang sudah didcfinisikan dalam deklarasi LABEL. Pada ken yata.mnya, pernya taan goro bolch dibtakan tidak dipe rlukan dalam program Pasca l, sebab program bisa ditulis tanpa mcng gu nakan goto sama sckali. Contoh program yang menggunakan go to dapat dilihat pada Program

5-1.

<•---------------•> (*

Contoh GOTO

*)

<•---------------•> LABEL Ulang; BEGIN Ulang: WRITELN ('Turbo Pascal'); GOTO Ulang END . Program 5-1.

j !

'

l ~ t

f.

~

i f

r

Selanjutnya ada pemyataan . goto yang mengarahkan eksekusi k, pernyataan WRITELN ('Turbo Pascal') kembali. Seb ~
Pernyataan majemuk daiam Pas cal berupa kurnpulan pem ya taan yan1 dia\v:Ui oleh kata-tercadang BEGIN dan diakh iri kara-tcrcadang END Kaidahnya ditunjukkan pada Gambar 4-4 (Bab IV). P.Jda pcrnyaraa1 majemuk, antarpemyataan dipisahkan oleh tan da tirik komJ . Bcntuk umum pernyataan majemuk: BEGIN Per1Jyataan_1: Pemyataan...2: Pemyataan_n END

Pada saar" eksekusi program, pernyataan dalam pernyataan majemuj dilaksanakan setara berurutan, dimulai dari PernyataaiL1 dan terakhj i adalah Pernyataan...n. Pcrnyataan majemuk banyak dilibatkan dalam Pascal tuk program yang terstruktur.

u~ruk memben'

V.3 UNCKAPAN NALAR Selain ungkapan aritmatika, ungkapan yang sering di libarkan dala1 Pascal yaitu ungkapan nalar. Ungkapan nal ar tcrurama digunakaJ bcrhubungan dengan pengambilan keputusan atau pengubngan prose

(:IJ

~3"._-·:.P.:.-"::;:?''·;-Y..·!'-·.!..1"

ungkapan nalar, hanya ada dua kemungkinan nilai, berupa pa a ta boolean true (benar) atau false (salah). Nilai bisa diperoleh Jtonstanrnelibarkan operator relasi (hubungan) ataupun operato r boolean . dengan

Tabel S-2. Operator boolean dalam Turt» Pascal

d

aperator Relasl

Operator relasi digunakan untuk membandingk:an . du_a buah operand ang berripe seJems. Dalam Pascal terdapat 6 buah JCniS operator relasi Yang scring dipakai dalam ung bp:m nal ar, scb::lgaimana tcrcantum

~alam

Tabel 5-1.

Tat>el 5·1 . operator relasl dalam Turt>o Pascal operator relasl <

> <= >=

Deflnlsl Kurang dart Leblh dart Kurang dart atau sama dengan . Lebih dart atau sama dengan sama dengan Tldak sarr.a dengan

<> ----------------------

------------

Operator relasi yang tertcra pada Tabel 5-l d:1pa t di kenakan pada tipe bilangan bulat, bilangan pecahan, karaktcr, boolean dan pada bcberapa tipe yang lain. Selain operator yang rebh disebutkan , ada sebuah operator rclasi v:mg lain, yaitu IN . Men gcnai o peratOr ini akan dib:~has pada bab yang membicarakan mas:~lah himpunan. Conroh ungbpan nalar yang men ggun ak :~n operato r relasi: Jumlah...barang < 10 Nllal >= 90 a <> b Tombol = 'Y

{ bernilai bcnar, jika JumlaiLbarang kurang dari 10 } { bemilai benar, jib Nilai lcbih bes:Jr atau sama dengan 90 } { bemilai benar, jika a tidak sama dcngan b} { bemilai benar, jika T ombul berisi karakter

I r t

l f

Operator boolean

Bentuk ungkapan nalar

not

not p

and

p and o

or

p oro

xor

D xor G

Operas I Negasl. Hasfl benar. Jlka p salah. Hasll salah, Jlka p benar Nalar dan. Hasll benar n· "lya jlka p dan o bernllal benar Natar atau. Hasll salah hanya Jlka p dan o bernllal satah Nalar xor..l:!asll benar hanva ill
Tabcl 5-3. mcmperlihatkan siLH scluruh ungbpan nalar yJng menggunakan operator boolc.m.

t

t f '

l ,,

Tabel 5- 3. Slfat operator bOolean dalarn ungkapan nalar p

salah benar

p

not p

I

satah salah benar benar

benar salah

p

Q

p oro

p

salah salah benar benar

salah benar salah benar

salah benar benar benar

salah salah benar benar

~ saiah benar satah benar

I

Q

salah benar salah benar

I I I

p and

o

salah salah salah benar

f . . ·~~ \:•. , ,.

.· ; '

, J; {

! \·

("!.

· ••

'·'' .

' -.

II P xor 0

/ ·~ i1'

salah benar benar salah

Prioritas operator relasi dan operator boolean dalam suatu ungkapan nalar ditunjukkan dalam Tabel 5-4.

y }

Kesemua contoh di atas hanya akan memberikan basil benar atau salab.

Operator Boolean

ir

_

Operator boolean terutama digunakan untuk menghubungkan dua buah ungkapan nalar , membentuk sebuah un.gkapan nalar baru . Ada juga oparator boolean yang hanya rnelibatkan sebuah ungkapan nalar saja. Dalam Turbo Pascal terdapat 4 buah opera to r boolean, berupa not, and,

Tabel S- 4. Pl1orttas operator relast dan operator bOolean

Operator not ana or, xor _ =,<>.<,>,< =,>=.In

Prtorltas 1 ttertlnggl - dllaksanal
4 !terendahl

or dan xor .

62

63

~~-

l}ntuk mengubah urutan pengerjaan dalam suatu ungkapan nalar, tanda kuf\lilS dapat disertakan. Beberapa contoh berikut menunjukkan operasi dalam ungkapan nalar yang melibatkan tiga buah variabd bertipe boolean (yaitu f, g dan h) :

Seringkali dijumpai- adanya pengambilan keputusan atau penar~ kesimpulan terhadap sejumlah kondisi. Pada masahh yang seder~ misalnya yaitu untuk menentukan suatu bilangan bulat termasuk ge::~ a tau ganjil. Contoh yang lain untuk menenrukan seorang siswa lulus ~ tidak berdasarkan nilai rata-rata yang diperoleh. Dalam Pascal, pengambilan keputusan dapat dii l. Jplemenca.s~~ dcngan menggunakan pcrnya taan IF. Bcntnk rernyaraan IF:

l)ngkapan yang pertama seca ra implisit identik deng:m penulisan : bnn ilai benar jika: . (i) h berni bi benar AT AU (i i) f sal ah dan g benar

l)ngbpan kedua identik dengan penulisan : 1not fl and (g or n1

{ berniiai henar j ika : (i) g atau h benar DAN (ii) [ salah }

Ungkapan yang ketiga sama m aknanya jika ditulis menjadi lnot (f and Qll or h

{ bernilai benar jika : (i) h bcnar ATAU (ii) f atau g sa lah }

Jika dalam suacu ungkap:m nahr terdapat o perator rclasi da n operator boolean, ungkapan nalar yang mengandung operator relasi harus ditulis dalam tanda kurung. Hal ini merupakan keharusan , discbabkan prioritas operator relasi lebih rendah dibandingkan dengan operator boolea n. Tanpa adanya tanda l<;urung pada ungkapan nalar yang mcngandung operator relasi akan menyebabkan kesalahan sewaktu kompilasi. Sebagai contoh, nilai Pilihan harus berada antara 1 sampai dengan 7. Penulisan ungkapan nalar yang diperlukan:

•f

V.4 PIRNYATAAN BERKONDISI: IF

(1) not f and g or h (2) not f and (g or h) (3) not (f and g) or h

((not fl and gl or h

~

I

I It I i

IF Ungkapan_nalar THEN

Pemyataan

Jta u IF ungkapan_na!ar THEN

Pernyataan_1 ELSE

Pemyataan..l;

Pernyataan yang dilibatkan dalam pcrnyaraan IF bis;1 majemuk.

bnup:~ pernya:un

Diagram alir pernyaraan IF diru r0ukbn dalam G.1mbJr 5 - !

t salah r-

1PIIIhan>=11 AND 1PIIIhan<=71

Bila ditulis tanpa tanda kurung: Plllhan>=1 AND Plllhan<=7

ungkapan tersebm mempunyai arti yang sama kalau ditulis dengan : Plllhan> = 11 AND Plllhanl <=7

yang sudah temu akan mcnycbabkan kesalahan.

Ia> Diagram aflr IF Gambar J-1. Diagram alir pcrnrataan IF

lbl Diagram allr IF·ElSE

Pada bentuk IF yang pertama, pern yataan sesudah THEN hanya dijalankan jika ungkapan nalar bernilai benar. Pada bcntuk IF yang kedua, Pemyataan_1 hanya dijalankan jika ungkapan nalar bernilai benar. Jika ungkapan nalar bcrnilai salah, Pemyataan-.2 yang akan dilaksanakan .

64 65 '

'

I

.

·---~------- --illll····--~

---IF Totaljant.Jcerja > 110 THEN BEGIN JaiTLlembur := Total..jamJcerJa - 110: GaJLtotal := 110 • UpatLperJam + JarnJembur • 1.5 • Upah~r)am END ELSE GaJLtotal := TotaLJam_kerja • Upah_perJam:

contoh rnasalah 1: Diket.ahui sebuah bilangan bulat. Bilangan tersebut termasuk genap ataU ganjil? pernecahan: IF oo[){BIIanganl THEN ~ITELN rellangan termasuk GANJll'l ELSE WRITELN t'BIIangan termasuk GENAP'l;

Cararan: Perhatikan, pcmyataan scbclum ELSE tidak diakhiri titik koma . Membcrikan tanda titik koma scsudah

J.:ng~n

WRITELN ('BIIangan termasu k GANJIL')

rnalah akan mcn yc babkan kcsalahan scwaktu kompihsi. Pcncntuan gcnap arau ganjil d ibkukan J cngan mcnggu nakan fungsi bawaan bernama ODD yang be rtipe boolean: oootenanganl

Ungkapan naiar im mcmberikan nilai bcnar jika Bilangan bcrisi bilangan ganjil. Contoh masalah 2: Seorang siswa dikatakan lulus jika nilai yang ia pcroleh sama Jcngan atau lebih besar dari 60. Informasi lulus tidaknya seorang siswa bisa dinyatakan dengan :

I

(

Program sekng kapnya mengenai masalah penggajian ini dapat dilih.H pada Program 5-2. Pada program te rseb ut , karena nibi 110 bersifar unik d an serin g d i ~ unakan dalam program n_llb di tulis dalam benruk konstanta BATAS_LEMBUR.

i

l

i

PROGRAM Ciaj i ;

f

(• Henentukan beenrnya gaj i •J {• bordaaarkan jaM kerja •J

'

l

'i t

t

I

IF Nllal >= 60 THEN WRITELN ('LUIUS'l ELSE WRITELN t'Tldak tutus'!;

<•--------------------------•) <•--------------------------•) USES CRT; CONST BATAS_LHIB UR UPAH_PERJA!~

=

110;

=

3 000;

VA R Total_jam_kerja, J . ._lembur Gaj1_total

<• <•

Bataa jumlah jaJII dianggap l ernbur •) Besarnya upah per jam *)

INTEGER; REAL;

BEGIN CLRSCR; WRITE ('Total j . . kerja : REAOLN (Total_j . ._kerja);

.

) ;

IF Total_ja•_kerja > BATAS_LE~BUR THEN BEGIN J . ._l~ur . - Total_j . ._kerja - BATAS_LEMBUR ; Gaji_total := BATAS_LEMBUR • UPAH_PERJAM + Ja•_le•bur • 1.5 • UPAH_PERJAM END ELSE { total j . . ker ja >= BATAS LEMBUR } Gaji_total : : 1.0 • Total_j~kerja • UPAH_PERJAM ;

Contoh masalah 3: Pada sistem penggajian (payroll), gaji ditentukan oleh lamanya j am kerja. Jikajam kerja lebih dari 1l0 jam, besamya·gaji adalah 110 kali upah per jam ditambah dengan jam lembur (total jam kerja - 110) dikalikan dengan 1,5 kali upah per jam . Jika jam kerja kurang dari arau sama dengan 110, besarnya gaji adalah jam kerja dikalikan dengan upah per jam. Jika dituangkan dalam pemyataar. :

67

66 .'-r·

... WRITELH ( 'BeS&rnya gaj i

Logika penyelesaiannya tentunya adalah: "jika Ali lebih tinggi dari Amir dan Andi, maka Ali-lah yang tertinggi". Implementasi dan pada masalah ini yairu dengan menggunakan operator AND.

Rp. •, Gaji_total:12:2);

READLH

I

END. V.S MENGGUNAKAN IF UNTUK MENENTUKAN KEPUTUSAN TERHADAP

contoh eksekusi :

SEJUMLAH ALTERNAnF Total jaa kerja : 100 eesarnya ~ 1

: Rp.

Beberapa con toh yang diutarakan di depan hanya di gu nakan untuk mcnangani pcngambilan keputusan tcrhad3p dua alternatii ~ Jja:-Adakala­ nya, kita harus melakukan pen gam bibn kcputus:m tcrhadap sejurnlah .l lternatif. Mis:1lnya ~ aja , untuk mcncntukan kbs ifikasi nilai siswa dengan kriteria:

300000.00

contoh aksakusi: Total j . . kerja :

150

BeS&rnya gaj i

Rp.

510000 . 00

Nilai Rata-rata

Program 5-l.

Nilai 70 :;; 60 :;; SO :;; Nilai

Pada Program 5-2, penycnaan 1.0 dalam pernyataan : GajLtotal := 1.0 • TotaL.jam_kerja • UPAH_PERJAM ;

dimaksudkan supaya ungkapan di sebcl ah kanan opcr:ltor pcn ugas:m (:=) menghasilkan nilai pecah an. Tanpa adanva pc nyena:m nilai tcrseb ut, akan diperoieh hasil yang salah, sckir:mya to tal jam kerja yang dimasukkan kurang dari atau sama dengan BATAS_LEMBUR . Seb:~b kalau ditulis hanya denga n Ga)Uotal := Totai_JarrLkerja • UPAH_PERJAM ;

ungkapan TotaL.jam._lurja * UPAH_PER)AM nJenghasilkan niiai bertipe integer (disebabkan TdtaLjam.Jwja bertipc integer dan kons tanta UPAH _FER]AM sendiri secara implisit bcrtipe i'}teger) . Padahal pada permasalahan ini, perkalian dalam ungkapan terscbut ada kcmungkinan melebihi dari nilai bulat positif dari kawasan integer. Supaya nilai pcrkalian benar (dan nantinya disimpan dalam variabel Gaji_total dengan benar) , maka ungkapan harus dibuat supaya bcrnilai pecahan. Contoh masalah 4: Ada riga orang bersaudara bernama Amir, Ali dan Andi. Bagaimanakah cara untuk memasti.kan Ali merupakan yang tertinggi diantara ketiga orang tersebut? IF mnooLAJI > nnggL.Amlrl AND mnggL.AII > TlnggLAndll THEN WRITELN I'AII merupakan yang tertlnggl'l ELSE WRfTti.N I'Bukan All yang tertlnogl'l;

_ II

> 90 Nilai < 90 Nilai < 70 Nilai < 60 < SO

Kbsifikas1 Nilai A B

c D E

Penyelesaian terhadap masalah semacam ini juga dilaksanakan mcnggunakan IF. Bentuk umum pernyataan IF untuk menentukan kcputusan tt:rhad ap sejumlah alternatif: IF Ungl
I

! I

ELSE

IF Ungkapan__nafarJ THEN PemyataanJ

I

ELSE PemyataaiiJl;

Cara untuk menentukan klasifikas i nilai siswa menggun akan pernyata an IF bertingkat: IF Nllal >• 90 THEN Klaslf!kasl :• 'A'

6 68

ELSE

Implc:mentasi pogram penentuan klasifikasi A, B, C, D dan E terhadap nilai seorang siswa dapat dilihat pada Program 5-3.

IF Nllal >= 70 THEN KlaSlfikaSI := 'B'

ELSE

PROORAH Ranking;

IF Nllal >= 60 THEN Klastflkast := ·c·

(•--------------------------------------• >

C* ~lenentukan l
ELSE IF Nllal >= 50 THEN Ktasiflkasl := ·o· ELSE Ktaslflka sl := 'E':

"

I

Penyelesaian di atas dengan men;;pis nilai dimulai dengan kemu11gkinan yang tertinggi. Jika ungka pan nalar Nilai > = 90 bernilai bcnar, rnaka WRITEU\' ('Kias!flkasi: A.') saja yang dijalankan. Jika bernilai salah, perneriks aan dilakukan tcrhadap nibi yang lebih rendah (ya itu Nilai >= 70). Jika ungkapan nalar ini juga salah, rnaka ungkapan nalar berikutnya yang diperiksa. Bcgitu sercrusnya. Kcmungkinan ungkapan nalar yang terakhir diperiksa adalah Nilai > = 50. Jika nilai ungkapan ini bcn:n, maka perny ataan WRJTEL.f\! ('Klu.'0'ikasi: D') yang dikerjakan. Jib salah, pernyataan WRITELN ('Kiasij1lec!S i: E') yang dilaksanakan. Untuk lebihjelasnn, diagram alir dari perny:naan ini dapat diliha t pa da Garnbar

f

(•-----------------------------~--------•)

USES CRT; VAR Ni lai l
REAL; CHAR;

BEGIN CLRSCR;

I l'

WRITE ('Hasuk kan nil ai siswa : RE AOLN (Nilai);

.

);

{ Penentuan klastfikasi nilai } IF Nilai >: 90 THEN

--

5 -/

l

K1asifikast : : ' A' ELSE J:F Ni lai >= 70 THE N Klasifikaat ::: 'B' ELSE IF Nflai >= 60 THEN IOasifikaai := •c• ELSE

i

!

IF N11ai >= 50 THEN Klaaifikaai : = '0' ELSE satah

l
Garnbar 5-1. Prnrnr..an lrlasifilttUi A., B, C, D dan E terhadap ni/ai uorang sisw1

70

Maaukkan nilai s1swa : 86 l
7~

I

E

Bentuk pernyataan FOR:

ccntoh .k. . ku•i:

\ f
MaSUkk&n nilai aiswa

FOR Pencacah := Pemyataan;

90

Nl~wal

TO Ni/ai..Akhlr DO

J(la•ifikasi : A

a tau P,.lriUfl 5-J.

v.&

FOR Pencacah := Nl/aLAwa/ DOWNTO Nl/aLAJchlr DO Pemyataan;

peNGlJLANCiAN PROSES DENGAN: FOR

Dalam Pascal , pernyataan yang berhubungan dcngan pcn.gulang.m suatu proses ada 3 macam. Salah satunya berupa pern yataan FO R. Pernyataan FOR digunakan jika jumlah pen gul angan sudah d iketahui sebelum proses dimulai . Pengulangan proses dengan FOR diperlihatkan dalam Gambar 5-3.

Tentukan niial awat & nilai akhlr

P:Hla kedua bentuk pcrnyataan FOR, .\."ilai_,'\wa l atau Nilai_Akhir dapat bcru pa seba ran g un g kapan b c~ ri pe o rdinal (Tipc bilan gan bulJ t. pecahan, karaktcr dan ripe ~ang dibahas pa(h Bab VII). Pt:n w cah berupa variabel bertipe ordinal. Va riabcl pecahan tidak bo !ch digunaka n . Pmcacah, Nilai_Awal dan Nilai_'\khir harus bc rupa tipc yang sama. Pernyataa11 dapat berupa pernyaraan tunggal Jtau pcrnyataan majcmuk. Pemyataan menyatakan proses yang akan diuhng. Contoh yang sedcrh ana penggunaan FOR yaitu unruk men ampilkan bilangan asli sampai ke N . Implcmcnrasinya: FOR Bllangan := 1 TO N DO WRrTELN (BIIanganl;

dengan Bilangmz meru pakan \'ariabel bertipc bibn gan bular. Pacb pcrintah ini, mula-mula Bilmzga n bernil ai I . Karma nilai Bilangrn z lebd1 keci l dari N (Nilai akhir) ·maka pernyat .lan WRITELN d ijal ankan. lalu isi Bilangan dinaikkan scbesar 1, menjadi 2. Jika Bilangar1 masih lcbih kccil arau sama dengan N, maka pcrnyata a :-~ WRITELN dikt:rjakan lagi, dan ' seterusnya. Dengan demik ian pada layar akan tampil

Pencacah dlberl nllal sebesar nllal awal

benar

1 2 3

Nllat Pencacah dtkuranot sebesar 1

Nllal Pencacah dtnatkkan sebesar 1

N

Program menampilkan bilangan asli sampai keN (dengan N dimasuk kan melalui papan-ketik sewaktu program dijalankan) dapat dilihat pad Program 5-4. PROGRAM BilanganAs li;

fbl FOR ·DOWNTO

lal FOR·TO

(•---------------------------------------•> C•

C•mllor .f-J. Diagram
Nen~pilkan

bilangan aali

~pai

ke-N •l

7.

72

.

._...._..... ~ .. ·

~ -. ...."........ ~ ..-~..." .~~ ... :~.....~ ( · ~-L&it!"'~ i...,E ..~.·..:.-: -~ •.. ,..J. .L .... .J . ;.... . .42#P.:SJ!f&! rp;s;s;z -.atil

1

~

3

---------------~--------------•>

2 1 0

USfS CRT;

V-"

"'enangan

BYTE;

<• <•

Hilai akhir •> Variabel pencacah

C ara penulisan pemyataannya:

•>

FOR Bllangan := 5 DOWNTO 0 DO WRIT'ELN
8EOIH CLRSCR;

WRITE ('Masukk &n

Conroh berikut menunjukkan pengv,ttnaan ripe char pada variabd pe ncac;;h. Dabm hal ini, perny..ltaan H >JI digunakan unt uk menampilbn huruf Z sa mpai dengan A dalam ,;;iu ~a ris .

sebuah bllangot.n bulat posoitif < 256: ');

READLN (N);

FOR Karalcter := 'Z' DOWNTO 'A' DO 'M(fTE
FOR Bllangan :: 1 TO H DO

WRITELN (B1lans&n:3}; READUI

END.

Masukk&n aebuah Oilangan bulat positif < 256: 3 1

z 3

Masukkan sabuah bilangan bulat positif < 256 : 0

Protr"m 5-4. Pada program ini jika nilai 0 dimasukkan (sebagai N) maka pernyataan WiUTELN tidak dikerjakan sama sekali. (Mengapa? Perhatikan diagram

alir pada Gambar 5-3.)

Contoh lain penggunaan FOR misalnya untuk menampilkan tulisan TURBO PASCAL sebanyak 10 kali. Penulisan pemyataannya,

\

i

I

I ~

~

1

PROORAH AZ;

<•---------------------------•>

<•

Hencetak huruf Z

~pai

A •l

<•---------------------------•) U.SES CRT;

VAR ~arakter

: CHAR;

BEGIN CLRSCR; FOR Karakter :: 'Z' OOWNTO 'A' WRITE (Karakter); REAOLN · EUO.

~

Haa11 akaekuai:

FOR I := 1 TO 10 DO WRITELN ('TURBO PASCAL'!;

dengan I berupa variabel bertipc....l>ilangan bulat. Pcnggunaan FOR dengan DOWNTO misalnya untuk memperoleh keluaran : 5

• 74

ZYXWVUTSRQPONMLKJIHOFEOCBA Progr4m 5-5.

Dalam pembuatan program terkadan~ ~ perl ukan adanya pernyataan FOR di dalam pernyataan FOR atau y:.:-.:r_ ~t·ring dinamakan pcrnyataan FOR berkalang. Misalnya, pada pcnr,:a ...!J untuk menampi lkan tabcl , perkalian sebagai berikut: 75

3

4

5

6

Pada Program 5-6, pernyataan yang mengikuti FOR terluar berupa pernyataan majemuk. Dalam pernyataan majemuk tersebut ada pernyataan FOR lagi. FOR terluar digunakan untuk mengan1r tampilan sebanyak N baris. Sedangkan FOR bagian dalam untuk mengatur tampi1an pada posisi kolom (dalam satu baris).

9 12 16 15 20 25 18 24 30 36

pada Program 5-6 ... pROGR~

TabelKali;

f

<•--------- ------~----------• >

f

c• ...-buat ta.bel per!
i

<•--------------------------•) USES CRT;

f

CONST SPAS! : •3 2; VAR N,

Has ; 1Ka 1i

Kola., Brs

I

,

WORD;

(* bi3rtipe

BEGIN CLRSCR ; WRITE ('~as ukkan ni l ai N REAOL N (N);

bulat o osi tif

WRITE (SPASr:4) ; FOR Kolom ; : 1 TO ll DO buat nomor kolom } WRITE (Kolom:A) ; WRITEUI; { pindah baris FOR Bra :: 1 TO N OQ BEGIN buat nomor baris WRITE (Brs : 4) ; FOR Koloni : : 1 TO Bra DO BEGIN Hasil Ka l i

:

= Bra

5- o.

mcnycbabbn scbanyak Brs buah nilai hasil pcrkali:tn dicct:~k pada satu bar is (Karena itu pernyataan yang digunakan adaiJh WR ITE, dan buka nn ya WRITELN). V.7 PENGULANCAN PROSES DENGAN REPEAT

*)

~

f

l

Pernya taan REPE:\ T digunakan untuk pengulangan proses yang jumlahnya belum pasri, tctapi minimal proses akan dikerjabn sekali. Pengujian kondisi pcngula ngan p:~da REPEAT dilakukan sctdah proses dikerjakan . Selama ung.kapan nalar yang dijadikan kondisi bemilai salah, maka proses akan dikc rj aka11 terus-m encrus . Okh karcn.1 itu, pcrnya t,Jan HEPEA T scrin g dik;irJkan sebagai pcngula ng proses sclJm:; knPc!i~; s:1lah. Garnbar 5--t. mempcrliharkan diagram alir dari pcrnyaraa:1 HEPEAT. Pada gamba r tcrscbut , Pernyataan m cnya takan proses yang akan diulang .

salah

• Kolom;

WRITE (Hasi1Kali:4) END; { pindah b&ris WRITELN END; READLN END . llrtgram

FOR Kolpm : = 1 TO Brs DO - .BE.CIN . H
r

·-

.) ;

~

Gambar 5 - 4. Dia.eram a/ir punyataan RE PEA T

Bcnruk pern yataan REPEAT: REPEAT

Pernvataan UNTIL Ungkapan...natar,

76 77

REPEAT WRITE ( 'Maaukkan n1la1 H: •); REAOltr"(N ); Ganjil := - ~D(H); IF NOT Ganj11 THEN WRITELN (BEL, 'H . harus berupa bilangan ganji 1 ! ') UNTIL Ganjil;

pernyataan yang berada dalam REPEAT-UNTIL bisa berupa sebuah pernyataan atau beberapa pemyataan. Pernyataan REPEAT dengan beberapa pernyataan mempunyai bentuk: REPEAT

Pemvataan_1: Pemyataan...2: PemyataanJl UNTIL ungkapanJla/ar;

Persoalan yang menggunakan pemyataan REPEAT misalnYa vanu untuk menghitung jumlah deret: 1 1 1

1

-+-+ - + ... + -

1 3 5 N Jika dituangkan dalam

I

I

p~ogra m :

{ Hitung jumlah deret } Jur.!lah := 0; Pembag l : = 1;

REPE AT Jumlah : = Jumlah + INC (Pembagi, 2) UNTIL Pembagi > N;

Pembag i;

{ Cetak jumlah }

WRITELH ('Jumlah REAOLN END .

PROGRAM Oeret;

1 1

=

Jurn 1 ah : 12: 6) ;

<•-------------------------•) (*

Menghitung jumlah d~r;

(•

1

<• <•

-

1

•>

1

.,

+- +- + •.• +-

. ,

1

3

1

5

H

i

Ganjil

+ 1 / 3 + 1/5

t

. . .

+

1/ N

Progr11m J.- 7•

= ... G;

J~lah

1/1

lolasukkan nilai N: 5 Jumlah = 1 . 533333

USES CRT; CaNST VAR N, Petlb&91

lo!ENGHITUNG :

*l

(•-------------------------•>

BEL

contoh ekeekusi :

Pada program: BYTE; REAL; BOOLEAN;

REPEAT WRITE I'Masukkan nllat N: 'l : REAOLN INI; Gan)ll := OOOINl; IF NOT Gan)ll THEN WRITELN !BEL. 'N harus berupa bllangan gan)ll 1'1; UNTIL Gan)ll;

BEGIH CLRSCR;

WRITELH ('MENGHITUHO : 1/1 WRITELN;

+ 1 /3 + 1 /5 + ... + 1/H') ;

digunak:m untuk memperoleh N yang bernilai ganjJI. Selama J',

bukaniah bilangm gmjil, m•b pmgnm •bn momint> nil•i N ( Peroleh bilangan ganjil

78

--

··· ~ - - ---

------

'"P'1

di.Jilasukkan dengan sebelumnya menampilkan pesan (disertai bunyi

n;,d,;b,

Ln X" a tau

N harus bllangan ganjil 1

I

•d•l>h Y. K•bu komud;'" d;J•kuk2n opec.,; i ,

Y

= ln

Y

Dari persamaan di atas, solusi dari Y adalah y = c' n • Ln Xd )

Ganjll := ODO(N );

I

Variabcl Car~ji l bernil ai true jika N adala h bilangan ganJ
• I

f

REPEAT Jumlah := Jumlah .. 1 1 Pembagl ; INC (Pembagi, 2) UNTIL Pembagi > N;

pcrnyataan y:mg ada di d;dam REPE!\ T -UNTIL jug:t mini:nal dikerjabn scbh, v:titu bib N bcrnilai 1. Contoh lain dari pcnggunaan REPEAT yaitu untuk menghirung bcsarn ya angsunn tcrhadap suatu nilai uang yang diba yar bcbcrap,1 kali. D:~lam hal in i penghitungan dilakukan bcrkali-kali unruk heberapa nilai yang berbcdJ. Rumus yang digunakan: Nilai Pokok 1 -

(1

+

X

Bunga

Bunga)-N

dengan : Angsuran = Besarnya pembayaran angsuran per bulan Bunga = Besarnya bunga per bulan N = Jumlah periode angsuran Rumus ,li atas melibatbn pangkat, tetapi di depan telah dijelasbn bahwa Pascal tidak mempunyai operator pangkat. Bagaimana carany~ mcnghitun g hasil pangkat' Pada pcrmasalahan ini pangkat dapat dJpcrol ch melalui manipulasi logaritma alami dan cksponensial. Misalnya saja, dicari nilai

xn =

= Ln

n • Ln X

pcngujian bilangan ganjil dilakukan melalui:

Angsuran

"j• h..;my.

logantma alanu- (Ln), maka:

peringatan) :

t

i f

'

Ana log1 -~cng an per~arnaan di at:ts. 111;;1ka (l

-r

bunga)" = e N •

(1 + bu nga) -n

Ln (i + bung>)

=
1 'l

+

bung>)

T~rbo

Dalam Pascal, logaritma alami dapat diper<>leh rneLdui fungsi LN d an ckspon~nsial bisa didapatkan dengan fung\1 F. X P. PROGRI\.4 Angsur;

(*-------------------------------------- ----•) ( • 1-4engh i

(•

tung besarny
angsur·•n

(*----------------------------

•)

. )

- --- . J

USES CRT; VAR Angsuran, Ni la iT una i, 8unga, CacahPeriode Ulang

REAL; .CHAR;

BEGIN REPEAT CLRSCR; WRITE ('Beaarnya nilai tunaf REAOLN (NilaiTunai); WRITE ('Besarnya bunga per tahun (I) READLN (8unga);

~RITE ('Cacah periode Pecbayaran READLN (CacahPerfode);

.) : I.

. J:

RO l:l l

sunga :

= eunga ./

( 1 oo • 12);

{ Bung&

~r

bulan }

Angsuran := HilaiTunai • sunga I (1 - 1 I EXP (CacahPeriode • LN (1+Bunga))};

Mau menohrtuno lagl

Jika selanjutnya dijawab selain T atau t, maka kondisi tUiang

WRITELN; WRITELN ('Besarnya anssuran = Rp ' ·, Angauran:10:2); WRITELN; WRITE ('Mau menghitung lagi (V/T)? '); READLN (Ulansl; UNTIL (Uiang = 'T') OR

(Ulang :

't')

END. contoh eksekusl: Besarnya n11ai tunal Besarnya bunga per tahun (~ ) cacah period• pombayaran Besarnya angsuran

= Rp

311

Mau 111enghituns 1agi (V/T)? v

Besarnya angsuran = Rp

OR tUiang

= 'tl

= 4/ S

* c

F = 9/ 5 * C

12.5

3345313.26

Besarnya nilai tunai Besarnya bunga per tahun cacah periods pe~bayaran

= il

bernilai salah yang akan menyebabkan pernyata an dalam REPEATUNTIL diulang kembali . Jib yang ditekan adalah T dan t, akan menyebabkan ungkapan nalar sesudah kata tercadang UNTIL bernilai b('nar, sc hin gg a pernvatJan LhlJ m REPEAT-UNTi L-tidalc dikerjakar~ bgi . I REPEAT bi sa c1HnJnfa3tbn untuk m cmbuat tahcl konversi suhu. Humus yang di gunakan um uk meb.kubn konvc r~i :

n 10000000

cvm?

12500000 (~)

11

dengan R = derajat Rcamur = derajat Fahren he it C = derajat Cdcius

F

Tabel yang dihar:~pkan dimula1 dari 0 Cclcius s:~mpai 100 Cdcius dcngJ.: selang kenaikan Sl'hesar 10 clerajat. Program ya ng diperlukan untu pcmbuatan tabel ini dapat d iliha t pada Program 5-9.

24

PROGRAM Suhu ; 582597.98

c•---------------------------------------------•1 (*

~a4 111enghitung lagi (Y/T)? T Program 5-8.

Pada Program 5-8, karena data masukan bunga dinyatakan dalam o/o, maka bunga yang sesungguhnya dipergunakan dalam rumus tentunya harus dibagi dengan 100 dan 12 (bunga per bulan) . Dalam pernyataan ditulis: sunga := aunga 1 t100 • 12l:

Penggunaan REPEAT pada Program 5-8 yaitu untuk mengulang perhitungan bcsamya :mgsuran . Setiap kali selcsai menampilkan nilai besarnya angsuran , akan mun ~-ul pertanyaan:

82 ---~~Y.:II$>-.,q.·
(*

Progran untuk meMbuat tabel konversi suhu *) dtari derajat CELCIUS ka REJU.IUR & FAHREilHEIT *)

<•---------------------------------------------•) USES CRT; CONST OERAJAT_AWAL : 0; OERAJAT_AKHIR : 100; SELANG_OERAJAT: 10; VAR Celcius, Re-ur, fahrenheit : REAL; BEGIN CLRSCR;

r

7

t

I

rs

'

--

0

---- --- ·-r------------~-~----J '"·

~

TABEL KONVERSI SUHU'}; WRITELN (' WRITELN; WRITELH ('------------------WRITELH (': CELCIUS : REAMUR : FAHREtiHEil

----------------- ' ); :·>;

WRITELH (':------------:------------:--- ----- ----:'); Celcius :: OERAJAT_AWAL;

Ungkapan Celcius > DERAJA T -AKHIR sesudah kata-tercadang UNTIL, menyeba~kan pernyataan yang berada dalam REPEAT-UNTIL diproses ulang sampai nilai Celcius melebihi nilai DERAJAT _.AKHIR. Jika menggunakan pernyataan REPEAT, bagi an ymg ada dalam REPEAT-UNTIL atau p:tda bagian un gka pan nala r h.1rus ada yang menyebabkan ungkapan nalar bernilai benar untuk kondisi tcrtentu . Berikut mcrupakan contoh yang men yeba bkan proses diulang terus tanpa ada hentinya.

REPEAT

R ea~ur : = 4 I 5 • Celcius; Fahrenheit := 9 I 5 • Celcius • 32; WRITEUl ('!' ,Celcius:11:2,' :· . Rearr.ur : 11 :2 ,

· :·, Fahrenheit:11 :2 , ' !') ; Celcius : : Celcius • SELANG_DERAJAT UNTIL Celciu9 > DERAJAT_AKHIR;

\~RITEltl

X

= 0:

i.'EPEAT WRITELN IX:
Kcluarannya:

(' ------------------------------------- - -- ') ;

0.00

0.30 0.60

READLN EtlO.

0.90 1.20

contoh e kekusi :

lABEL KONVERSI SUHU

-----------------------------

. REAMUR . FAHRENHEIT : :------------:-- ----------:-----------: 32.00 0.00 0.00 . 50.00 8.00

Kc:.:tbh annya karcna kondi si X = 1. 0 tid .1k J.>e rn :J h tn~··.: 1 uhi. Jib l1ai sepcrti ini tcrj ad i, prog ram lhpat dihcmikan dcngJil rr. .. ,· kan tom hoi Ctrl Scroll.

I

CELCIUS

I

I I

I

..

I I

I I

10.00 20 . 00 I 30.00 II 40.00 II 50.00 I' 80.00 ' 70.00 I 80.00 'I - 90.00 II 100.00 I

.

..

-------------

16.00 2•L00 32.00 40.00 48.00 56.00

I I

.. . I

I I I I I I

- 6.&.00 : 72.00 ' 8o . oo I

.

68.00 86.00 104.00 122 . 00 140 . 00 158.00 176.00 194 .00 212.00

----------------------

V.8 PENCULANCAN PROSES DENCAN WHILE Pernyataan lain yang dipakai untuk pcngulangan proses adalJh_pern yat:lan WHILE. Terutama dit,;unakan jika jumlah penguhngan bclum diketahui secara pasti. Pernyataan WHlLE scring dikatakan scbagai pengulang proses selama ko ndisi benar. Diagram alir 0.1~1 pernyataan WHILE ditunjukkan pada Gambar 5-5. Dalam gambar terschut. Pmtyataal! menyatakan proses yang abn diul ang . Bentuk pernyataan WHILE : WHILE Ungkapan-nalar DO Pemvataan;

Prog r.tm 5-9.

85

84 -t'""i"""·'\•,o-•• '' ll- •• • .:, ; 'l:;"h.o

"'' ;:A. ~~~~"');.-;-~:t£:~·-;. ·.~ ·,;,-=,~n -. ;,;. \.

__.._

-

- --- -·-·

- -----

" PROGRAM SiaaPeabagian; (

·-------:_---------------------------·)

<•

Mencari aiaa pe•bagian bulat dari Ponyebut 1

(•

Pe~bilang

•> •>

<•-----------------------------------•> USES CRT; VAR (• yang mau di bagi •) Penyebut , (* pembagi * } Pembilang, : WORD; (* sisa pembagian t ) Siea

Gul1lbar 5- 5. Dio,crJm alir

ptrny.:~rJ,m

W HILE

Pada saat WHILE dikc rj ab n, mula-mula ungkapan n3la r yang mcrupakan kon dis i pcngulan ga n diperiksa tcrlebih dahulu. Jika ungkapan nala r bc:rnilai bcn:n, m aka Pemya taall akan dikerj abn . Selanjutn ya akan Jil ak ukan pe11gujian la gi tc rh adap ungbpan nalarny:L Selama un gka pan nala r bernibi bcn ar, maka PeP I}'
,

ku rangilah nilai Sisa scbcs:u Pembilang . (5) Ta mpilkan nilai Sisa ke layar.

I

BEGIN CLRSCR; WRITE ( ' Masukkan nilai PENYEBUT dan PEI-lBILAI
i

READLN (Penyebut , Pembilang);

.

Siaa : = Penyebut; WHILE (Siaa >= Pe~bilang) DO DEC (Siaa, Peabilang);

!j l

WRITELN ( 'Sisa pembagian ', Panyebut, • dengan •, Pemb il an g, ·

=

') :

s; sa) :

READLN END . Contoh uk . . kuai:

,. I

Maaukkan ntlai PENYEBUT dan PEMBILANG (pos itlf } : 7 2 Siaa pembagian 7 dengan 2 = ProgrtJm 5- 10.

Pada program

1111 ,

pernyataan

WHILE (Sisa >= Pembllangl DO DEC <Stsa. Pembllangl;

-ada lah implemcn tas i lan gkah nomor 4 dalam alg.pritma untuk mempe roleh sisa pc mb agi:m bulat (yang artinya, selamJ nilai Sisa lcbih bcsar dari ~atau Sa rn a dengan Pembilang, maka kuran gibh ni lai Sisa sebesar

Pembilang ).

87 86

-.....-..-1 ~HILE

WRITELN ('-------------------------------------~--'); REAOLN

tid~

pernyataan yang ada da_lam (DEC (Sisa, Pembilang)) dikerjakan sama sekah apab1la pada saat masuk ke WHILE, kondiSl WBILE bemilai salah (yaitu jika Per1yebut < Pcmbil.mg). pernyataan WHILE juga bisa diterapkan untuk menggantikan pernya-· pan R£PEA T. Sebagai _contoh, progra m ten tan g pembuatan tabel kooversi suhu (Program :>-9) akan dJlaksanakan dengan menggunakan pernyaraan WHILE pada Program 5-10 . Pada Program 5-10 ungkapao nalar sesudah kata- tercadang WHILE harus dibuat tcrlcbih dulu bernil ai benar, supaya perny:n:~:~n y:m? mc ngikutinya diproses.

END. ProJram 5-11.

Pada Prog ram 5-11 . kondi si vang digunakan dalam WHILE berlawanan dcngan kondisi pad a pcmy.naan REPEAT (sew.:lah - UNTIL). Pad a progra m ini , kondi ~ i nn g d1gu nakan bcrup3

Celcius < = DE R.1_1A L.·Lt.:l I !I? -

Sclama nilai Ct'iciu.i JJL1S il1 kuran g d.ui Jtau samJ dl.'ngan nilai DERAji\T_AKHIH, mak.. ,c lu ru h pcrn yat::an nJ ,Ij cmuk yang m cngikuti WHILE akan dip ro:>cs tcru~.

pROGRAM Suhu;

<•------------------------------- --------------•) (• (*

Program untuk membuat tabal konversi suhu *l dari derajat CELCIUS ke REA).1UR t. FAHREtlH E!T * )

<·---------------- --------- --------------- -----•) V.9 PENYELESAIAN SEJUMLAH ALTERNATIF DENGAN PERNYATAAN CASE

USES CRT ; COtiST OERAJAT_AWAL = 0· DERAJAT_AKH I R = 100; SELAHG_OERAJAT= 10: VAR Celcius, Reamur, Fahrenheit

I

REIIL ;

BEGIN CLRSCR; TABEL KOHVERSI SUHU') ; WRITELN (' WRITELN; WRITELN ('--------------------- ------ --- ---- - -----') ; WRITEltl ('! CELCIUS : REA).IUR : FAHREIIHEIT ! '); WRITELN

(':------------:------------:------------!');

Celcius ·: : OERAJAT_AWAL; WHILE CelciUS <= DERAJAT_AKHIR DO BEGIN Reaaur : = • I 5 • Celcius ; Fahrenheil::= 9 I 5 • Celcius + 32; WRITELN Celcius

('!',Celcius:11:2,' :·. Reamur :1 1:2, • :·. Fahrenheit:11:2, • !'); .- Celciua + SEL~~G_DERAJAT;

l

Dalam P:~s cJ I, pcr m as:d ahan dcng;m scjumlah altcrn ,u if atau pilihan berganda dap:tt diselesaibn ,ic n g:~ n nrcn gg unabn pernyat
Daftar_Konstanra_1 : Pemvataan_1; Daftar_Konstanta-2 : Pemvataan_2 . Daftar_Konsranca_n : Pernvacaan_n I ELSE Pernyataan.JTJ I END;

Pemilih merup:~kan variabcl yang mcngatur pcrnyat Jan mana ya ng akan dieksc;:kusi. Jika isi variab ~1 Pemilih sesuai dcngan nilai ya ng ada dalam Dajtar_}(onsfrmta_l, Pern yataan_1 · yan g dijalankan . Jika isi varia bel Pemilih sesuai dengan nilai yang ada dalam Dafiar_Kollstama-2, Pemyataan_2 yang dilaksa nak an, dan scterusnya . Apabila nilai Pcmilih tidak scsuai dengan nilai dalam Dajtar_Konstantn_1 sampai Dajiar_}(omtanta_n, maka pernyataan yang mengikuti ELSE yang dikerjakan Ui ka ELSE ada). Untuk lebih jclasnya, proses pcngcrjaa.n dalam pcrnyJ ta.Hl CASE dapat dilihat pada Gamb::tr S- 6. Perlu dihtahui : • Kurung sik u pada bentuk pcrnyataan CASE semata-mata menerang-

END;

89

88

.

~··

-

Permasalahan yang menggunakan CASE, misaln ya untuk menentukan besamya gaji berdasarkan golong an .

pn bahwa yang ada di dalamnya (yaitu ELSE Pernyataarz_m) bersifat ptional (boleh ada boleh tidak ada). sampai dengan Pemyataar~_n dapat berupa pernyataan

~tf1lyataarz_1

CASE Golongan OF 1: Gall : = 100000; 2: Gall := 200000; 3: Gajl := 3500Xl; 4: Gail := 500000

tuflggal ataupun pernyataan majemuk. • pernyat!lan yang mengikuti ELSE bisa berupa sebuah pernyataan tunggal ataupun beberapa pernyataan cunggal (tidak pc rlu berupa pernyacaan n:~~emuk) . . . . .. . • variabcl Pemnth harus b ewpe ordmal. Vanabel Pmnldt ndak boleh

END;

Pcrn y:ltaan dt ltlS mcnyatakan:

bertipc pecahan. • }{onstanta yang dilibatkan dabm C.I\SE h:n us bertipc st:j en is dcngan vJriabel Pentilih.

Pemvataan 1

I

Pem'l'taan 2

_j--JI \

Pemvataan n

Pemvataan yang menglkutl ELSE

Js*tr

i l f

lf

- Jika Golongan - Jika Golongan - Jika Golongan - Jika Golongan

adalah adalah adalah adalah

1, 2, 3, 4,

besarnya besarnya besarnya besarnya

Gaji Gaji Gaji Gaji

yaJtu fl mon yaitu 21)(1000 ymu ]'i(){)()() yaitu ')!J(J()(){)

atau jika dinyat:tkan dengan pernyataan IF: IF Golongan = 1 THEN

Gail := 100000 ELSE IF Golongan = 2 THEN Gail : = 200000

ELSE 11: Golongan

= 3 THEN

Cali := 3500(X) ELSE IF Golongan = 4 THEN Gall := 500000;

Contoh program yang menggunakan pernyacaar, CA SE dapat dilihat pada Program 5-11. Pcmyataan CASE digu na£;m unruk mengatur pilihan yang akan dikerjakan, yaitu untuk mem Jlth: Perhitungan luas segitig a _ Perhitungan luas segiempat Perhitungan luas lingkaran Selesai Jib variabel Pilihan berisi karakter '1' maka pro~ pcrhitungan luas segitiga yang dikerjakan. Jika Pilihan bcrisi b rd krer '2', proses pcrhicungan luas segiempat yang dilaksanakan . Jt ~ a Pdtlwt baisi karakrer '3', proses pcrhitungan luas lingkaran yan g ' :t.-.:kst: ktt ~ i . Apab ila Pili/tan bcrisi karakter '4', varia bel boolean Sdesat '!tberi nilai TRUE (benar) dcngan maksud untuk mengakhiri prose~ Ct da lam REPEAT-

G.am!J <~r 5- 6. Diagram alir ptrnyataan CASE 91

90

I

pada program ini. kata-terc-adang ELSE dalam CASE digunaIllengendalikan nilai pilihan yang di luar kawasan karakter '1' dengan '4', dengan mcmunculkan pesan: "Salah pemasukan data

p~R ~

HitungLuas;

,.-------------------------------• )

.. .

(• penssunaan CASE untuk me milih *l (• perhitungan luas : - segiti ga - segi~mpat - lingkaran

<• <* <*

. 2.

)

)

)

•l

<·-------------------------------•) us ES CRT; CONST BEL =

·a; {

Karakter BCL )

VAR Alas, Tinggi, P.anjan9 , Lebar, Jejari, Luas Pili han Selasa i

WRITELN ('MENGHITUNQ lUAS SEGITIGA'); WRITE ('Maaukkan ntlat ALAS dan TINGGI: '); READLN (Alaa, Tinggt); Luaa : : Alas • Tinggi I 2.; WRITELN ('LUAS = ', Luaa:G:2); WRITE ('Tekan RETURN . untuk •elanjutkan '); READLN ENO: { akhir luas segitiga } BEGIN WRITELN ('MENGHITUNG LUAS SEGIEMPAT'); WRITE ( '~l6sukkan nilal LEBA R dan PAIJJANG: ' ) : READLH (Lebar, Panjang)~ Luas :: Panjang • Lebar; WRITELN ('LUAS = ', luas:6:2); WRITE ('Tekan RETURN untuk melanjutkan '); READLN END; { akhir luas aagiempat }

• 3.

RE AL ; CHAR ; BOOLEAII;

BEGIN REPEAT CLRSCR; ( Hapue layar } WRITELN (' MENU PILIHAN'); WRITELN; WRITELN ('[1] Menghitung LUAS SEGITIGA ' ); WRITELN ('[2] Menghitung LUAS SEGIWPAT'); WRITELN ('[3] Menghitung LUAS LINGKARAN');

READU~

END { akhtr CASE

WRITELN ('[4] Sel.eeai'); WRITELN; WRITE ('Pilihan [1 .. 4)

BEGIN WRITELN ('MENGHITUNG LUAS LINGKARAN'); WRITE ('Masukkan nilai JARI-JARI '); READLN (Jejari) ; Luaa :=PI • SQR (Jejari); WRITELN ('LUAS = ', luas:6:2); WRITE ('Tekan RETURN untuk melanjutkan'); REAOLN END; { akhir luas lingkaran ) '4' : Selesai := TRUE; ELSE WRITELN (BEL, 'Salah Pilih !'); WRITE ( 'Tekan RETURN untuk melanjutkan');

,) ;

READLH (Pilihan); CLRSCR ; { Hapue layar , Selesai : =FALSE : { io\euat SELESAI bernilai aalah} ,

UNTIL Sele.ui; WRITELN ('S&leaai ... ') END. Contoto ekaekusi :

I-IENU PILIHAN

CASE Pilihan OF '1' : BEGIN

9J 92

'

.........~........ .._ ......,,

~·,..·

.. ~ ~· ., , ...~ ..'<"'·_I ~ -;.., , .

.f.:~ ..-~- - •. ~

tampil hanya hila L!mur bcrnilai 13, 14 dan 15. Tulisan 'masa SMA' tampiljika nilai Umur terlttlk antara 16 sampai dengan 18. Apabila U111 t1r berisi selain nilai 0 S.lJJlpai dengan 18, tulisan 'masJ kuliah atau bckcrja atau pensiun' yang muncul pada layar. Bcn tuk seperti pach conto h di depan biasanya ditulis dJiam ben tuk s11hrange, scbagaim am ya ng d isajikan pada contoh bcrikut:

(11 ~enshitung LUAS SEGITIGA (2 1 ~nghitun9 LU~ SEGIEMPAT ( 31 Menghitung LUAS LINGKARAN ( 41

Seles&i

Pili han [1 .. 4] : 1 MENGHITUNG LUAS SEGITIGA Hasukl
CASE Umur OF 0.. 5 : WRITELN • ;nasa ~A. LITA atau TK'l; 6.. 12 : WRITELN !'iasa SD'l; 13..15 : WRITELN masa SMP'l; 16..18 : WRITELN f masa SMA'l; ELSE WRITWt r masa kuliah atau bekena atau penslun'l END;

10 12

LUA9 : 60.00 Tekan RETURN untuk melanjutkan MENU PILIHAN Hanghitung LUAS SEG!TIGA (2) Menghitung LUAS SE G IE~PAT (3) 1-!enghitung LUAS Li tl GKARAtl

[1]

[4)

Sel9sai

Pi 11 han [ 1 .. 4 1 Sa 1 ah p i l i h

5

!

Tekan RETURN untuk ~elanjutkan

I f

i ~

Program 5- 12.

CASE ya ng mclibarbn Berikut ini merupakan conto h pcrnyataan untuk mcn garur suatu beberapa nilai konstanta, yang digunakan pernyataan yang akan dieksckusi . CASE Umur OF 0,1,2,3,4,5: WRITELN 11 , 12 . 13,14,15 : WRITELN 6,7,8,9,10, : WRITELN 16,17,18 : WRITELN

Scbuah con toh lagi rcm :mg pcrn yataan C:\SE, ya itu bcrupa ,iaftu 1-;o nstant :t yang tcrJi;: dari s Jbun gan du a bu.lh srtlmm.f!f . l hi scpc rt i in • memang diperkena nL.n. Pt nulisannya dipis:thbn dcngan tancl:J korna. CASE Karal
('T~?rmasuk

!<aral
: WRITt ~N nermasuk karal
ELSE WRITELN nermast.:r t:Jukan l<aral
Pacla con toh ini , jika isi ·.-aria bel Karakter bcrad:t ant:tra 'a' sa mpai dcngan 'z' atau antara 'A' s•:npa1 dcngan 'Z', maka pcm yataan IVRITEL'-: (' Termasuk karakter HL'RUF ! ') yang akan diekscku si. Jika isi variabci Karakter berupa karakter anrara '0' sampai dengan '9', pcrn yataan WRITELN ('Termasul! karakter ANCKA !') yang dikerjakan. Jika isi Karakter bukan angka ~taupun huruf, maka pernyata an y:tng m cngikur i ELSE yang dikerjaka..~.

t'masa BALITA atau TK'l; t·masa SD'l; rmasa SMP'l; r masa SMA'l;

ELSE WRITELN rmasa kullah atau bekerJa atau penslun'l END;

Pad a ccntoh ini, rulisan 'm asa BALIT A a tau TK' aka n tampil jika Un!Jif bcrnilat 0,1,2,3,4 atau 5. Jika U mur bcrnilai antara 6 sampai dcngan 12 vang campi! pada layar yaicu tulisan 'masa SO'. Tulisan 'masa sMP'

Program yang dapat menenrukan scbuah karakter tcrm as uk HUR UF. ANGKA atau bukan HUkUF maupun ANGKA dapat dilihat pada Program 5- 13. PROGRAM

CekKara~ter

<• ------------------- ---------- •> <• ~enetukan ~at u karakter •) <• termasuk ~G~ . HURUF •J (t

atau bukan ANGXA .aupun HURUF

•> l):">

94

~

,. ----------------------------- •> ~

CRT;

.,_

Karal
11f01M cLRSCR: { Hapue layar } WRITE ( 'Masukkan eobuah karakter

VI PROSEDUR DAN FUNGSI

.

) ;

READ (Karakter ); r ~c· >.;r. !l11

C A.'~ E

.,..

K&raktar Of

.. ·z·' .. • z' ·o· .. '9'

•••

WRITELN ('T•rcasuk karakter HURU~ ! '); WRITE LN ('To~suk karakter ANCKA !~);

ELSE

WRITELN ('Suka n karakter ANOKA Maupun HURUF ~ ')

END { a khir

CQ. . )

EM().

cantoh ei
taasukk:lll Mbuah karakter : A Tenaasuk karaktar HUROF ! M&SUkkan sebU&h karakter : G Teraaeuk karakter ANOKA I

I 'I J

!

i

MaeUkkan MbUah kar&kter : + Bukan karakter ANOKA -upun HURUF

V1.1 MENCENAL FUNCSJ ARITMETIKA P:t sLal menyediakan scjum lah fungsi ya ng berkaitan dengan opcrasi ar iunctika, scpcrti memperolch n ila ! kuadrat , akar kuad rat, sinu s auu L·osinus suatu sudut, logaritma alami dan cksponensial. Lengkapnya adalah scbagai bcrikut: 1. Abs(X)

Program 5- tJ.

t 96

,i:JL!m Pasc.ll Ll lllU r.l llYJ tc r ~U S tlll .Ha s scjumbh subp rog ra n l. J..,. ,·l.•cr:t da. m subpro br.llll d J!.l m prog rar :1 Pa scal rnentbc:rik:tn bam·3k kt.' tH1 tun g ~n . Di:mtar.m ya m emudahkJn pcmbuatan a t:~u pc maham am tcrha dap p ro gram, k:ncna program dibcn tuk dari blok-blok y:mg kcc il , dc ngm ~ctiap bag ian mcmpunvai tugas tcrsL~ndiri. Scti:tp subpro g ram d a p at diuJi at:1u dipclajari rrr !epas dari detail subprogram lain. l )t s:ml p ln g itu jika tcrdapat proses tcrtentu dab m program yang sanl:l ata u hamp ir sarna dan seri ng dilibatkan dabm program, pcng g un adn s ub program dapat mcngurangi duplib si kode (menghcmat koJc In csi n h :1sil kompilasi) . Bcntuk subprogram dalam Pascal dapa t bcrupa proscdur dan fu n g si. D i~a mp i ng adanya prosedur dan fung si bawaan (scperti prosdur writcln dan fungsi odd ), pemrograrn jug:t bisa menciptabn scnd1ri ,·._, ng si ataupun prosedur.

Untuk mcmperoleh n ilai mutlak (absolut) argurncn . Kcluaran fungsi bertipc sesuai tipe argum cn. Contoh: Abs(-7 .2) - 7, 2 Abs(- 157) 157 2. ArcTan(X) Untuk memperoleh sudut (dalam radian) ya ng m cmiliki tangcn sebesar X. Keluaran bertipe real. .1. Cos(X) Mcnghasilkan cosinus dari sudu t X (sud ut dinyatakan dalam satuan radian). Hasil bcrtipc real. 4. Exp(X) Untuk mcmreroleh ek~po~lcnsial dari argumen X . yJ\tu e' . Ha~il bertipc real. 5. Frac(X) Untuk memperoleh bagian pecahan dari argumcn X .

97

Hasil fungsi bcrtipe real. Contoh: Frac(123.456) _. 0,456 Frac(-123.456) _. -0,456 Untuk mendapatkan bagian bulat dari argumen X . Hasil bcrtipe real. Contoh: Int(50.5) _. 50,0 Int(-50.5) _. -50,0 Untuk mempcroleh logaritma alami/ na tural (basis e),

tO. Sin(X}

11. Sqr(X)

12. Sqrt(X)

13. Trunc(X)

yaitu nilai elog X Hasil bertipc real. Menghasilkan nilai 3,14159265336. Untuk memperoleh nilai pcmbula tan dari suatu bihngan real. Hasil bertipe bilanga n bul:.n (lo ngi nt). Conroh: Round (-5.6) _. - 6 Round (5.5) b Untuk memperoleh sinu s d:.ui SLJ" I sudur (sudut dinyatakan dalam satuan radian). Hasi! bertipc reaL Mcnghasilkan nilai kua drat dari :ugumen X. Hc sil fungsi bertipc sesuai dengan ripe argumcn. ·contoh: Sqr (10) - 100 (bular) Sqr (10.0) - 100.0 (real) Menghasilkan nilai akar kuadrat dari argumen X. H:lSil fungsi bertipe real. Contoh: Sqrt (100) - 4 10.0 Sqrt (25.0) - 4 5.0 Untuk memperoleh bagian bulat da ri X (real). Hasil bertipe longint. Contoh: Trunc (10.6) -4 10 Trunc (- 5.6) 5

Selain fungsi aritmetika terdapat fungsi yang berkaitan dengan bilangan, berupa: Fungsi ini dipakai untuk menentukan argumen I (bcrtipe longint) berupa bilangan ganjil atau tidak. Hasil berupa true jika argumen I merupakan bilangan ganjil dan false jika I berupa bilangan genap ." -Dipakai untuk menghasilkan bilangan acak yang nilainya lebih bcsar atau sama dcngan 0 dan kurang dan I. Argumen bertipe word dan basil juga bc.: rtipe word. Untuk membangkitkan bilangan acak bc.:rtipe real yang

nilainya lebih besar atau sama dengan no! dan kurang dari 1.

I J

I

I

I ~

f t

f

I t

Ca tatan: • Turbo Pascal menyediakan prosedur bawaan bernama RaHdomi:u (tanpa argumen), yang mcmpun yai kcgunaan untuk merriberi inisialisasi tcrhadap generator pembangki~ bilangan acak dengan nilai ac1k (diambilkan dari jam siste m) . Inisialisasi dapa t dilakukan juga dcngan membrri nilai kc variabcl bawaan RandSecd . • Scmua f
Parameter formal dari fungsi bisa ada bisJ tidak ada. Tanda kurun g ada apabila fungsi men gan dung parameter (argumen) formal. .la.Jiar_para meter_Ji.mllal mempuny ai bentuk: h:~n ya

daftaU :tlpe_1; ... : daftar_n:tlpe_n

""

denga n masing- masing daftar_i dapat berupa saru atau beberapa parameter. Jika lcbih dari satu , antarparam eter di pisahkan dengan rand a koma. Tip c i menyatakan ripe dari parameter formal dalam dajtar_i. Tipe_hasil dan tipe param eter dapat berupa pcngena1 tipe (tipe yang didefinisikan dalam deklarasi TYPE atau tipe bawaan) atau berupa string. Bagian dcklarasi fungsi dan bagian pernyataan fungsi p'ada dasarnya sama dengan struktur program. Bagian deklarasi bisJ saja mengandung deklarasi CONST, V AR, TYPE, LABEL dan bahkan juga subprogram lain . Bagian pcrnyataan diawal i dengan BEGIN da n diakhiri dengan END serta tanda titik koma. Contoh sebuah fungsi: FUNCTION jumlah ta, b: INTEGERl: INTEGER: BEGIN Jumlah := a + b ENO;

99

~ua

Contoh penggunaan fungsi di dalam ''r 11! r ~nrn ;, _,_ memperoleh nilai terbcsar di antara 3 buQh nil<1i I) ' ma.Amya untuk fungsi seperti pada contoh di atas, nilai terbc-lii4t 'd en!<;~~ menggunakan membcrikan instruksi: __ . ap~t dtperoleh dengan

para~etcr for~aidengan

{uogsi ini _terdapat bua_h masingbercipe tnteger. Ttpe hastl fungst berupa mtcger pula. Fungsi rnengandung bagian deklarasi. Bagian pernyataan berupa:

WRfTELN !'Nilal terbesar = ·. Makslmum !A, Makslmum(B, C))) ;

Mul a-mula dica ri n ilai cerbesa r J ntara ll d .t11 r anta ra A dengan nil ai kcluaran dari .\[, 1 ~. , 11

bJ.gian pc rn ya taan ada pcrnyataa n : jumlan :=

a ...

b

yang mcm bcrikan nil ai pcnJum_lah an da ri :1 da n ~ k<.: p mdalt (nam::. fuogsi). Pernyat:Jan sc m acam 111 1 h arus Jd.l dalam tungs1, y.1 1tU untuk roenycb utkan nil ai da ri hasil fun gsi. Contoh yang lai n berupa fungs i u ntuk mempcrolch nil ai tcrbcs:lr di aotara dua buah nilai . FUNCTION Mal<simum !8111, 8112: REALI : REAL; BEGIN IF Bil1 > 8112 THEN Mak.simum := 8111 ELSE Maksimum : = 8112 END .

Pada contoh ini, dalam bagian pan yataan fun gs i. nama fung si ;\!o b i1Htm: diberi nilai sama dengan Bi/1 j ib Bi/1 bc rnil ai leb ih b cs ar dari Bi/2 .1Wl dibcri nilai sama dengan Bi/2 apabila Bi/1 tidak kbih dari Bi/2. Suatu fung si diaktitkan dengan m emanggil fun gsi, dengan car.< mcnyebutkan nama fun gsi beserta parameternya Uika ada). Pada saat pemanggilan, fung si dik enakan sebagai operand di dal am suatu ungkap-

1 111 •

'"' "' f IS,

I I

PROGRAM

.

. _

du a n ndai terbesar

r :; .

~~ tohFung:i 1 ;

<• --------------- -----------. ----- •) <• CAntcn pendekl e raaian dan ~nuvtt.,. ~ t.~nva1 •1 <• ---------------------------- --- -- ------ --- •>

l t ;

USES CRT;

VAA A, 8, C : REAL;

I

--

FUNCTIW ~ k eiau. (X, Y: REAL) :- llf Al

't

BEGIN

~

,t

IF X

> Y 11-IEN

lt• k ahous :

=X

ELSE

tv.ka;- : : Y

ENO; {

~khir

tungs1 Makai.u.

BEGIN { progr- ~ } CLR3CR;

WRITE ( 'Maaukkan tiga buah b i l - - 1 -·-

REAOLH (A, 8, C);

an. Misalnya:

-

WRITELH ('Hi lai t.rbe-r

WRITELN !Makslmum!S, 2ll:

merupabn instruksi untuk m enampilkan nilai yang terbesar antara 5 dan

•

-

,

,

I

);

= '

Makai- (A,~-~- (8, CJJj .

REAOLH

am.

.

')

ttaan

•k . .ku.i :

Fungsi tid ak dapat dikenabn sebagai pernyataan yaog berdiri sendiri. Pcnulisan seperti MakSimum IS. 2l:

M&.ukkan t 1 ga buah bil angan : 20 •~ 4 Hilai tert.-r = 4. 530000000or~ t

17

Program 6- 1.

tidak diperkenankan . 101

100

.. .

· ··~.: )'.:i: ~ ~-·4

..r.·

PTAKAN PROSEDUR

PROCEDURE Garfa;

kedua yang dapat diciptakan oleh pemrogram berupa Deklarasi prosedur terdiri tiga bagi:1n, yaicu judul prosedur, dan bagian pernyataan.

[n.

judul prosedur

BEGIN FOR Pencacah: :t TO 22 DO WRITE (GAR IS_GAiiDA) ;

I

-~

WRITE ltl

(

baglan deklarasl

END ;

prosedu~

I f

I

Struktur dtklaraJi prosrdur

i I

PROCEDURE nama_prosedur fdat:ar_parameter_forma D;

I-

dengan dajtar_pararneter...fonnal bsa berupa scbuah atJU bcbe rapa paramc ter. Bcntuk dajtar_param r:rer_li.>nPw/ scpcrti pada pendekla rasian fungsi Jib prosedur tidak memiliki parameter, bcntuk judul pr oscd ur bc ru pa: PROCEDURE nama_prosedur;

CLRSCR ;

---PROGRAM ContohProsedur1 ;

c• ----------------- -------------------- •> -c• Contoh ~embuat dan ~emanggil prosedur *l ( ~

-- - - - - ----- --- ------- * l

USES CRT; SPAS I

CotlST

= ' 32 ;

f I ~

')

Garig ; WRITEU I ( SFASI: 5,

J

' ' TURBO

PAS CAL' );

Garis;

Contoh ekse k:.Jsi

,,

rf-

READLN

fi4D.

c~

1~+

r>rQ.,\\'

_y_<.'' (

t

j

Bagian deklarasi prosedur dan bagian pernyataan prosedur pada dasarn:·a sama dcngan struktur program. Bagian deklarasi bi sa saj:~ mcnganJung deklarasi CONST, V AR, TYPE , LABEL dan bahkan juga subprogram lain. Bagian pemyataan dia'\\'ali dengan BEGIN dan diakhiri dengan END serta tanda titik koma. · Contoh sederhana tentang program yang mcngandung deklarasi prosedur:

( akhir Prosedur garis

BEGHI 1 Program utama )

~ prosedur mempunyai bentuk:

I

CotlST GARIS_GAIIDA : •205; VAR Pencacan : BYTE ;

=========~== = === = =====

'-.\1-l"'

TURBO PASCAL

==== === = ==== ===~ ====== Program 6-l.

Pada conroh :ni. di dalam prosedur Garis tcrdapat dcklarasi krn,•,tan ra GAHIS_GAND:\ · dan varia bel Pencacalz . Pcmanggilan proscdur p:.d., program utama (berupa: Garis) mcnyebabbn bagian pernyataa,, yang ada di dalam prosedur dieksekusi. Seandain ya pada program utam:. tidak terdapat PASCAL.pernyataan Garis, hasil eksekusi hanya berupa tulisan: TUJJ BO

VJ.4 MELEWATKAN PARAMETER DENGAN NILAI ATAU REFE'RIHSl

P"'"'«"

d'P" da,w,.bn d•l•m '"bp,og"m (pm«du,

""''P"'

fungsi) melalui dua buah cara, ya itu berupa nilai atau refermsi (reference) . Cara pertama. melewatkan paramatcr dcngan nibi, mcnyebabb n 'lliJ.J parameter aktuai disalin dalam parameter formal subprogram . !J'.T'f.;'lrl. l:.lra ini, pengubaha n terhadap p arameter di dalam su bprogram rtd.Jc lllengubah nilai parameter akrual yang digunakan dalam pemanggtlu!

102 "···

){JJ

!::

pemangg ilan prosedur j umlah tidak berubah nilainya. Hal ini disebabkan yang dilewatkan dalam parameter berupa nilai. Gambar 6-2 menjelaskan proses penyalinan parameter aktuaf yang dilewatkan dalam bentuk parameter nila i. Tanda panah menyatakan bahwa nilai parameter formal merupakan salinan dari parameter aktual, tetapiparameter formal tidak mempengaru hi parameter aktual. Berdasarkan sifat seperti ini, parameter yang digunakan· untuk pemanggilan subprogram bisa berupa ung ka pan, nria hcl. konsranta J~Ju ti.mgsi (asalkan tipc pcmangbil d,Jn p:~ra mc tcr fo rm :tl n ya sejeni ~).

gram. Gambaran mengena1 hal m1 dapat dilihat pada Program

pROGRAM Parameter1;

.

<• ----------------------------------- ----- *) <• contoh ~elewatkan parameter dengan nilai •>

)

------------

<• USES CRT;

t

PROCEDURE juml a h (X, Y, Z: ItlTEG ER);

t

z) :

z::X+Y;

I

z):

WRITEUI ('lsi Z oalam prosedu r k ini Elm; "{ akhir prosedur jumlah }

10 _ , _

I

Parameter formal ·

10

] ................................... X

30 ............... ..............~0

- ~

l.... ........... ....... .. y

z .............................t=Ji_'

1 •

20

].. .................................

z

C a m ba r 6- ! . ProJ t J mtltu•atltan par.Jmtru nilai

dia~tifkan =

Z) ;

jumlah (X, Y, Z}; WRlTELN ('lsi Z sesudah prosedur diaktifkan

=

z):

READLN END . Contoh eksekusi : lsi lsi lsi lsi

10 .. ...... ........... ........ [

..

memorl

t

BEGIN WRlTELH ("lsi Z mula- mula dalam prosedur=

BEGI N CLRSCR; Z :: 20; X : = 4 5; Y : = 7 5 ; WRlTELN ('Isi Z sebelum prosedur

L o~ 3S i

Parameter aktual

VAR X, Y, Z : IHTEGER;

Z eebelum prosedur diaktifkan = 20 Z mula-•ula dala• prosedur: 20 Z dala• prosedur kini = 120 Z sesudah prosedur diaktifkan = 20

Program 6 - J.

Pada Program 6- .3 sekalipun dalam prosedu r Ju mlafr, Z menampung penjumlahan antara X dan Y. ternyata varia bel Z yang digunakan dalam

I

C ara kcdua untuk md cwa tbn parameter kc dalam subprogram vairu dcn gan rcferensi. Pada card ini , Jlama t .pa ram eter aktual dilew:ttkan kc subprogram (bukan salinan isi parameter scbagaimana pada c:~ra ! melewatbn parameter dengan nilai). Dengan dcmikian antara parameter ' aktual dan parameter formal mcmpunyai kait~n lokasi memori yang ; sama. Sebagai akibatnya, pcngubahan nilai di dalam subprogram ;tbn berpengaruh terhadap parameter aktual yang digunakan sebagai remanggil subprogram. Khusus uncuk cara ini, param eter forma l harus ; diawali dengan kata-tercadang var (Karena itu parameter formal seperci · ini discbut parameter variabel) , sedangkan parameter akcualnya harus berupa variabel (atau konstanta bertipe) . Pad a Program 6-4 (berdasarkan modifikasi dari Program 6- 3), parameter formal yang terakhir (yaitu Z) berupa parameter variabel. Berbeda dcngan Program 6-3, pada program 6-4 pcngubah:m niLii Z ~ dalam subprogram berpcngaruh terhadap parameter pemang giln y.1. Gam bar 6- 3 memperlihatkan iluscrasi mengenai parameter vari a bel dan hubungannya dengan parameter formal. Khususnya untuk parameter Z 105

104

........

_________________. r.:,-

lokasl memorl

;:arameter mual

acrdiri sebagai

parameter variabel), karena parameter formal dan rrrrrrllff aktual mempunyai kaitan memori yang sama, maka 'f>erubahafanl subprogam juga mempengaruhi parameter aktual.

A .................................. [~-

Pada cara melewatkan parameter dengan referensi, nama parameter aktual dan parameter formal boleh berbeda (tidak harus sama). Parameter aktual harus berupa variabel atau

B ..................................[

30

J I. f

[

-+

._~-

Parameter tonm~ 10

!... . .................... .. . . . X

30

]. ................................. · Y

konstanta bertipe.

i

.

PROGRAM Par~eter1;

)

;:

G ; nb~r 6 - 3. Proses rndtwarlran P~•~mttu ~trupa nilai dan rrjtrtnsi

Vl5 PEMBATASAN PENCENAL

USES CRT;

f

VAR I~TEGER;

X, Y, Z :

PROCEDURE ju:nlah (A, B: ItHEGER; VAR

z : rrneGER 1:

pa('tl{l'terer ~rrna-1.

BEGW

X+

-~ .. .. ...... .. ....... ... ........ .. ......... [____ melewatkan parameter dengan reterensl

<• <• Contoh me1ewatkan parame ter dengan referensi •l <• ---------------------------- ------- •>

z .-

z

y

END; { akhir prosedur jum1ah } BEGIN

CLRSCR; Z :: 20; X :

= 45;

Y := 75;

'P'"~rnH€r CU<-+cJ~)

Z sebelum prosedur diaktifkan WRITELtl ( 'Isi

=

z);

=

Z);

jUIIIlah (X, Y, Z); .

I

WRITE~H ('lsi Z sesudah prosedur diaktifkan READLH

END . Contoh eksekusi: Isi Z sebelum prosedur diaktifkan Isi Z sesudah prosedur diaktifkan

=

20

=

120

P;,;,·a l mcmungkinkan pcmbJIJ·.:•n tcrh adap suatu pcngenal, ent.lh " .J C..::-u pa \'ariabel, label, ripe, kow.t:tnta ataupun subprogram, dalam h!ok t~ :-:;"ntu . Dcngan cara scpcni int , ; ua tu pcngcnal (ider:tijler) bisa dikcnd~i ~.;.:1m suaru bl ok, tctap1 tid;'..l bprogram yang dil ingkup1u y~ tidak terd apat pendeklarasian terh aC4p nama pengenal yang sam •. Sebagai contoh yajtu konstanta Bl:'L

Protr•m '-4 .

I!

106 .~·-~·; ·~ ...... ~ ...of.~vl>~~~'<"' '~t.J<.f" .................

·~--.......t~ · <.,t;_ ....<.•'•··':.:.io

--

Y : BYTE;

dengan syarat subprog ram yang memanggil h arus didcfinisikan ses udah subp rogram yang dipanggil. Sebagal contoh, pada Gambar 6.,- 5, di dalam prosedut Pros_C terdapat pernyataan prosedur Pros-B. ya ng tentun ya dimaksudkan untuk menjalankan prosedur Pros-B. Seandain ya dengan susunan pendefinisian seper ti pada Gambar 6 - 5, disisip kan pern yataan prosedur berupa Pros_C pada Pros_B, akan menimbulkan kesalahan .

•

PROCEDURE Pros_A; CONST BEL = ·c: PROCEDURE Pros_B; VAR Y : BOOLEAN ; M : REAL: BEGIN M := 3.1 4: WRITELN !BE L, 'M pada PROS_B = ', Ml ; WRITELN I'Y dalam prosedur PROS_B = ', Yl; END : { akhir prosedur Pros_B }

I

PROCEDURE Pros_C

I

I

BEG!N Pros_B ; WRITELNIBEL.'Y pada prosedur PROS_c = ',Yl: END: { al< hir prosed ur Pros_c }

1

I I 1

'

BEGIN { awal prosedur Pros_A } y := 50; WRITELN IBEL,'Y dalam prosedur PrOS_A = ·. Yl; Pros_c !Yl: WRITELN I'Y dalam prosedur Pros_A = •• Yl; END: { al
I

Yang pcrlu diketahui , bcrbeda dcngan variabe! global, variabcl yang bcrsifa t lobi mcmpu oyai )ifa t h.111y:1 scmencara. Suacu variabcl lukal hanya abn dicipukan jika subprog ram dipanggil dan akan hilang - · kcluamya dari subp rogram. A danya _pem bacasan per.gcnal dalam suatu blo k (subp rogram) m t· m bcrikan keuncungan. pcmrogram da p ac menddinisikan kcmbali n:1ma suaru peng enal tanpa perlu k uacir mcm penga ruhi atau m embcri cfek sampingan tcrhadap pcn gcna l dengan mma ya ng sa m a tcrktak pa da su hprugrarn lain. Dengan cara seperci ini, suatu prog ram dapac dibua t inclt·pcndcn terhadap subprogram lain, sehingga mudah diuji/dipahami scca ra rcrpisah (terhadap subprog ram lainnya) .

; t

II

II

Gamh<Jr 6-5. S truktur blok program

ya ng didefinisikan pada prosedu r Pros-A. K onstama ini4apat d iakses pada proscdur Pros_B dan Pros_C, sebab Pros_B dan Pros_C didcfinisikan d i dalam Pros__A, dan pada Pros_B maupun Pros_C rida k terdapac pendefinisian BEL. • Jika terda pat dua buah subprogram ya ng didefinisikan pada blok yang sama, subprogram yang satu bisa m emanggil subprog ram kedua

108

109

VAR Pendldl!t:an : !SO, SMTP, SMTA, Akademl, UnlverSlbsl;

VII

MENGGUNAKAN TIPE ENUMERASI DAN SUB~ANGE .

Terapi penciinaan tipe enumerasi dalam TYPE mempuny;u krkb\h~l'l bisa dipakai untuk menentukan jenis keluaran dari s·u atu enumerasi ataupun uncuk menentukan tipe argumen dari su.ttu pr•'~<'\ltH atau fung si. Misalnya:

ti.m~''

TYPE PendldikanTertlnggi = !SO. SMTP, SMTA, Akademi, UnlversltJSI. FUNCTION DataPenCJidikan O(ode : BYTEl : Penaidll
Pascal memungkinkan pemrogram mendcfmisibn t ipc scndiri . DiantJra tipe yang dapat di ciptakan oleh pemrogram bcru pa ripe cnumerasi dan tipe subrange. Kedua tipe data ini sebenarn y a tc;-g olong sc bagai tipe da ta sedcrhana atau ripe skalar , ya itu tipe d a ta yang ha n ya mcmpunyai sehuah nilai dan tak dapat diba gi-bagi lag1 menj adi bagi :m yang lcbih kecil. Tipe skalar sendiri meliputi seluruh ripe bawaan yan g sudah dibahas pada Bab II (seperti char, boolean: Tipe st ri ng tidak ten nas uk tipe-s kalar). Diantara tipe skalar ada yang disebut sebagai ripe o rd inal. T er masuk dalam tipe ordinal adalah semua tipe skalar kecua li tipe real.

Vll.1 nPE ENUMERASI Tipe enumerasi merupakan tipe datJ yang beris i sejumlah pcngcnal yang diciptakan olch pcmrogra m. Tipe ini dia\\"ali Jcn gan kurung bub dan diakhiri dengan kurung tutup dan rnasing-ma >i ng pcngcnal ya n g ada di dalamnya dipisahkan dengan tanda koma. S·: bagai contoh: (SD, SMTP, SMT A , Akaderni, Universitas) yang mendefinisikan ripe enumerasi dengan pengcnal berupa SD, SMTP, SMTA, Akademi dan Universitas. Tipe enumerasi bisa didefinisikan dalam bagian TYPE. Selanjutnya tipe yang didefinisikan dalam bagian TYPE tersebut dapat digunakan untuk menentukan tipe varia bel dalam deklara.si V AR . Sebagai contoh: TYPE TlpePendldlkan = !SO, SMTP, SMTA, Akademl, Untversltasl;

VAR

PROCEDURE Pc:roJenanoataPenalaii
Man(aarnya yang lain dapac diiihat pada bagian "Mcmpcrolch Fk" ' · " Enumerasi Berda :.:ir kan Nilai O rdinal".

Pembandlngan Elemen Enumerasl Scperti halnya bibllgan, nibi enumcrasi bisa dibandingbn. Mi,.d," '' didcfinisibn: rPengena11 . Pen0E:na12. Pengena/3 . ...l

rnakJ: Pengena11 < Pengr:nJI2 < Pengenal3 < ...

Dcngan demikian, pada pendefinisian: (SO, SMTP,

S .~11T A,

Akaderni, Universita..s)

bcrlaku:

SD < SMTP SMTP < SMTA SMTA < Akadcm i Akademi < Universitas

Pendldlkan : TlpePendldlkan:

Pendeklarasian di atas menyebutkan bahwa variabel Pendidikan dapat bcrisi salah satu dari pengenal SD , SMTP, SMT A , Akademi dan Universitas. Disamping menggunakan. cara seperti di ata.s, pcndeklarasian variabd juga bisa dilakukan tanpa menggunakan deklarasi TYPE. Misalnya:

110

MemperoJeh Nllaf Ordinal

~ ~punya1

Masmg-masmg dcrnc n dalam t1pc · . . cnumera.s1. · m·1Jl· nliu,.l 0 yang menyatab n .Jr uran dalam pendctJm~ra::. Pos1s1 yJng . . . pcrf.llll ·' daJam pcndefinJ.SJJn mempunp1. 111la1 . . . 0 nol . DJlarn pt:n . d<:·fi fll\) .11 1

Tip ePmdidikan a ta u fJCI!didikatl Tertincegi.

1

II

Fungsi yang .~ ip akai untuk keperluan masalah ini yaitu: ~

nilai nilai nilai nilai nilai

ordinal ordinal ordinal ordinal ordinal

SD SMTP SMT A ~ Akademi Univeritas

Pred : L=nruk mcmpcroleh pendahulu elemen enumcrasi argu~~~ya Succ : Unt11k rncmperolch pengikut clemen enumerasi argumennya

,.. 0 =- 1 = 2 = 3 = 4

Pcrlu dik::>ul~ui: 1111 Ekmen !"'cn.l ma dalam ripe cnumerasi tidak mcmpunyai pcndahulu. • Elcu1c:1 1:: .:k hir dalam ripe cnumerasi tithk mcmpunni pcngikur.

lkhn.lp .l ,-,,,:: ,, h:

Nilai o rdinal dari elemen enumerasi dapat dipcroleh dengan mcnggunakan fungsi ord . Misalnya pemanggilan ,

H a~il

P~· ''l.ll' ;~d.;: !

FUili!, Si ORO !SOl

:) 1 ~ ED

I'HfD (S \ .\TP)

f

menghasilkan nilai 2.

Memperoleh Elemen Enumerasl serdasarkan Nllal ordinal ckngan

'h:a nil ai

ordinal diketahui , elemen cnumerasi dapat diperoleh

J~\n ggunakan bentuk:

/

~

nama_tipe_enumerasl lnllaLordlnall

l

I

I

Scba gai con toh: Pendldlkan := PendldlkanTertlnggl !Ol;

Pemyataan di atas akan membuat variabd Pcrzdidika11 bcrisi SO. Scbab elemen dalam PendidikanTertinggi yang mempunyai nilai ordinal 0 adalah pengenal SO.

h. ctcrangan

-------------------------1S \ \I' A)

menghasilkan nilai 0. ORO !SMTAl

kdt:aran

SUCC (Sf)' PHED (S I )\

SMTP

so SMTP

SUCC ( L' ""crs itJ~)

~u.iw

-------- - -----

Pcndahulu S.\ 17';\ adah h S.\17P Pcndahulu S.\!TP ada bh SO Pmdahulu SD adabh SMTP SO tidak mcmpun yai pendahulu L'llil'c'rsira.' ti tbk mcm punyai pengikut

lu~il

I

jik.l 1 .1ri "' hc l diberi ni!Ji fu ngsi PRED tcrhad :lJJ elcmen pe-rtama at.J u r-un gsi SUCC terhJlhp clemcn tcrakhir dalam ripe. cnu m cras1 "lkJil 1n~·nycbabkan l:csalah:lll (Kcsalahan :1kan dilaporkan snt cksekusi, k.d.lu dala m program discrtabn pcngarah kompiler berupa

{$R+} ). Pemasukan/Penampllan Data Enumerasl Pcmasukan ,lara enumerasi ke suatu variabel cnumerasi tidak menggunak.ln proscdur READ atau READLN. Pcrnyataan seperti: READLN IPendlalkanl;

Memperoleh Pendahulu dan Penglkut

-

Pascal menyediakan fungsi bawaan yang dipakai untuk memperoleh elcmen yang terletak sebelum atau sesudah suatu elcmcn cnumerasi. Dalam hal ini terdapat istilah:

{ll Pendahul u (Predecessor)

merupabn pcrnyataan yang salah. 1 Lalu bagaim ana ca ranya mcmasukkan data ke variabd cnumcrasi yang /· diatur meblui papan-ketik sewakru cksckusi program? Perhatikan contoh proscdur bcrikut:

Menyatakan elemcn yang terlctak sebelum suaru clemen enumerJ--

si. Pengikut (Successor) Menyatakan elemen yang terlctak scsudah suatu elemen enumera-

PROCEDURE MemasukkanDataPendidlkan !VAR Pendldlkan: PendldlkanTertlnggll; VAR Kode : SHORTINT;

si.

11

,. · -~

---,.--

USES CRT;

TYPE I'Mi!SUIQ(an Kode Pendkllkan:');

so sMT?

NilmaHari :: (Senin, Selasa, Rabu, Kamis, Jumat, Sabtu, Mi n ggu);

!31 Akademi');

141 Untversttas'l;

WRITEL.N 1'121 SMTA'l; Wfl!TELN: REPEAT WRITE I'Kode 10 .. 41: 'l; READLN !Kadel; IF tKode < Ol OR !Kode > 4l THEN WRITELN l'Kode yang anda masui= Ol AND tKode <= 4l;

VAR Har i :

CL RSCR;

FOR Hari :: S ~nin TO CAS E Hari OF

Tarnpak pada prosedur MemasukkanDataPendidikatl, mula-mula yang dimasukkan dari pap:m-ketik berupa kode ordinalnya dan disimpan pada variabcl Kode. Untuk memperoleh elemen enumerasi, perintah yang

~inggu

00

Sen in

WRITElll

( ' Se n i n");

Selasa

~IRITEll l

( ' Selasa');

Ra bu

WRITEll l ( 'Rabu ' );

Kamis

WRITEL" ('Kam is 'J ;

Jumat

WRITEL" ('Jumat ' );

END:

pendldll
i;

BEGitl

pendldll
digunakan:

lla~~~aHar

(' S abtu') ;

Sa btu

~I RITEUI

Minggu

WRITEL" ('M i nggu') .

EtiO; READUl END.

Hasilnya dibcrikan kc variabel Pmdidikatl melalui penugasan: Hasi l Ekse kus i: Pendldll
Berbeda dengan tipe skalar bawaan (seperti char dan boolean), data enumerasi tidak dapat ditampilkan dengan prosedur WRITE atau WRITELN . Jika misalnya diberikan instruksi:

Sen in Selasa

Rabu Kamis Jumat

WRITELN I'Pendldlka!l tertlngg! : ', Pendldlkanl;

akan menyebabkan kesalahan berupa "Cannot Read or Write variables of this type" sewaktu dikompilasi.

contoh program Program 7-1 merupakan contOh program yang melibatkan tipe cnumerasi. Program dipakai untuk menampilkan nama-nama hari dalam scrninggu. PROGRAM TampilkanHari;

<• -------------------------- ------ •> 1• Contoh penggunaan tipe enu~~

•> (• -------------------------------- •>

Sabtu ~inggu

Program 7- 1.

Pada Program 7-1, pernyaraan : FOR Han := senln ro M!nggu oo CASE Han OF Senin : WRITELN l'Senln'l; Selasa : WRITELN c·selasa'l; Rabu : WRITELN ('RabU'l; Kamls : WRITELN ('Kamls'l;

115 114

_

___,__~~-~-

-·----··-

~- · -

- · · --'--

...--.-

-- ~· -·--

-

VAR Jumat : WRITELN !'Jumat'l; sabtU : WRITELN 1'5abtu'l; MlnggU : WRITELN I'Mingg(l'l

Kode : SHORTIIIT; BEGIN CLRSCR;

END;

WRITELN ('~asukkan Kode Pendidlkan; '); WRITELN ('[OJ SO [3) Akademi'); WRITELN ('[1) SMTP [4) Unive~sitas') WRITEUl ('[2) SmA'); WRITELN; REPEAT ~IRITE ('Kode (0 .. 4): ');

ditulis dengan menggunakan pernyataan repeat sebag;;. , • ....._'\' ~ar1 := senln; REPEAT CASE Hari OF senln : WRITELN t'Senin'l: Selasa : WRITELN !'Se!asa'l; RabU : WRITELN f' RabU'l ; Kamls : WRITELN t•tcimis'l; Jumat : WRITELN f'Jumat'l; SabtU : WRITELN !'SabtU'l; Mlnggu : WRITELN !'Minggu')

;

REAOLU (Kodl); IF (Kode < 0) OR (Kode > 4) THEN WRITEUI ( 'Kode yang anda maeukkan aa lAh I ') UNTIL (Kode >= 0) AIW (Kode <= 4);

END; Pl'ndidfkan = ~ Pond1d1k8nTI:rtin~gl

IF Harl <> Mlnggu THEN Hari : = succ tHaril UNTIL Harl = Mlnggu; 1

1

Pada pcrnyataan di atas. fun gsi SlJCC dipakai untuk merr"r- ·-. · :, ' ' 1111 berikutnya . Pcrnyataan IF digunakan untuk memcriks~ -. "' ' 1 dengan Minggu atau tidak . Jika sam a dcngan .\finggu maka i ..::::-.:- ,~._ '\ tidak digunakan lagi. And;,ikata pemanggilan fungsi SU C ~ ~ ' ,.\· •· •• kondisi IF , akan mcnimbulkan kesalahan sewakm H ari b:::::-· :·•11'~'' Sebab Minggu tidak mempunyai pengikut. 11 Contoh yang lain dapat dilihat pada Program 7-'2. Masu;.::: "'·.,; ! '' berupa nilai ordinal dari suatu tipe enumerasi. Selanjur::"- J \·n•f.l' enumerasi dipakai untuk me~entukan besarnya gaji pok01. PROGRAM Gaj i ; ('

----------------------------------------------

.

~: :::::::_:::::~~~~:=~-~:~::::~::_:::~~~~~:: :

USES CRT; TYPE Pendldlk.anTertlnggl = !SO, SMTP, SMTA. Al
PROCEDURE t4emasukkanDataPendi di kan (VAR Pendidikan: PendidikanTert.inggi l

(KutJe)

Etm;

i

P£10CEOURE_

~tenentukanGaj I

(Pond1d1kan: VAR GajiPok ok R~AL; BE Gill CLRSCR;

Pond1dlkanTo~t 1ngg1);

CASE Pendldlkan OF

so StHP Sf-ITA

G ~~k

o'aj 1Po,kok

.- 30000;, , ~

·- 45000;

Oajif'okok · - 55000; : GajfPokok · - 155000; UUIVERSIT AS : Oaj i Pokok .- 82000 END; AKADEMI

WRITELN ('Gaji Pokok: Rp END;

GajiPokok : 10:2)

BEGIN (* Program Utama *) ~emasukkanOataf'endidika~ ~enentukanGaji

(Pendidikan}; (Pendidikan);

REAOLN END.

117

116 -~ - ~ ·

__ .,._,.,_,...-.. ,....,- ,:,..I J-.oi,J'IU , ,,__... , .... _ "'f>>,'l' _~,,

.

~asukkan

[0] SO

[1)

S~TP

Disamping menggunakan tipe yang didefinisikan dalam deklarasi TYPE, deklarasi variabel subrange dapat ditulis sebagai berikut: Kode Pendidikan: [3] Akadeai [4] Universitas

VAR HarfTugas : sentn..sabtu; Karakter : 'A' .. ·z·: Kode : 0.. 4;

[2) SMTA'); Kode ( 0 .. 4 ]

:

1

Gaji " Pokok = Rp

Tipe submnge hiasa digunakan d:1 lam prog ram untuk kejclasan tentan g kcmungkinan nilai dari SLU tu d :Hd.

45000.00

mcmbc ri

Vll.2 TIPE SUBRANGE Tipe subrange merupakan tipe den g:m kawasan merupakan bagian dari tipe skalar. Pendefinisi;mnya di a,,·ali dengan nilai awal, diikuri dcngan tanda subratzge dan diakruri dcngan nibi akhir dari kawasa n ya ng dikehendaki pemrog ram. BcncuknyJ: NilaLawal .. -NilaL..ali:hlr

dengan syarat : Ni iai_awal s !':ilrzi_a khir. Beberapa contoh pendefinisian ripe subrange: TYPE

oataHari = !Senln, Selasa. Rabu, Kamls, Jumat. 5abtU, Mlnggu); KodePendldlli:an = 0.. 4; HariKer)a = sentn ..Sabtu; HurufBesar= 'A' ..'7:;

<•

enumerasl •l

· Pada endefinis · n, KodePendidikan mempunyai kawasan antara 0 sampai den , HariKerja mempunyai kawasan antara Senin sampai dengan Sabt11 , HunifBesar memiliki kawasan antara 'A' sampai dengan 'Z' (semua huruf kapital). Tipe-tipe yang telah didefinisikan seperti ini selanjutnya dapat dipakai dalam deklarasi variabel untuk menentukan jcnis data dari variabel. Misalnya:

VAR HarfTugas : Har1KerJa: Karakter : HurufBesar; KOde

: KodePendtdlkan;

!1 9

----CONST Males = 255;

VIII

TYPE

PENGOLAHAN DATA STRING

StrlngTerpan)ang = STRINC!Maksl;

VAR

Kata : STRINC!20J; Kallmat1 : StrtngTerpanJang; Kallmat2 : STRING; { ldentlk dengan STRINGf2551 )

Srnng merupakan jenis dan yang bisa bcrupa gabung:.n da ri huruf, angk a maupun simbol. Str ing bia sa didcfinisikan scbJgai untaian atau deretan karakter. J eni s data ini banvak d itcrapkan dalam aplikasi yang bersifat nonnumerik, misalnya untuk rncmpcro kh kata-ka ta yang terdapat suaru kalimat atau mcnyimpan data nJma ~csco rang.

Vlll.1 KONSTANTA

STRit~C

Konstanta string mempunY Ji em yaitu ditu li s denpn diav.lJ]i dan diakhiri tanda petik tun gg :1 l. Scb:~gai contoh: 'Jalan Kallsahak 5' '1 56' { string dengan deretan angka 156 } 'Jum"at' { string Jum'at. Tanda petlk harus dltulis dua kal!

Sekalipun pengertian string adalah sederctan karak tcr , sua tu string bisa saja tidak mengandung kar:1krer ~a m a sckali. String dcmiki an discbut dengan string kosong (srri ng dengan panjang samJ deng;m no!). Penulisan string kosong:

--

" { String l
String kosong berlainan dengarf string yang berisi sebuah spasi atau lebih. Sebab string yang bcrisi karakter spasi mernpunyai panjang tidak sama dengan no! (Pengertian panjang string adalah banyaknya karakter dalam string).

Ylll.2 TIPE STRING Tipc string mempunyai dua buah bcntu k. Penanu, bc rupa kauterc!dang string saja. Bentuk kedua berupa kata-tercadang strinc diikuti oleh suatu nilai bil angan bulat antara 1 sampai dengan 255 yang diapit oleh sepasang kurung siku . Contoh dcklarasi string:

Pmdckla rasian variabcl sepcrti Kata := STRINGf20l;

mcnyatakan bahwa variabcl K ara maksim .i l han ya mampu mcnyimp:m sa rnpai 20 karaktcr. Pcnd c kbr::~si :m: Kallmat1 : StrfngTerpanJang;

ataupun Kallmat2 : STRING;

menyataka n varia be] Kalimar 1 rn:lllpun Kali111at:! mampu mcnyirnpan sa mpai 255 karaktcr. Pcnulis:m ripe STRING (t:1 np:1 !lil::!i) sama arti nya penulisan secara ckspJisit STRING(255].

VIJI.3 PENUCASAN TERHADAP VARIA BEL STRING

Suatu variabel string da pat dipakai u nruk rncnyimpan string yang bcrasa l dari konstanta, variabcl. fungsi rn aupun un gka pan string. Sebagai contoh: Kata := 'Komputer': Kallmat1 : = Kata + · Generasl' + · IV';

Contoh pcrtarna, variabcl string Kata diis i dcnga n konstanta string 'I
120 121

• Kallmat1 := ~::ata + · Generasl · + ·

rv ; '

Vlll.4 INISIALISASI STRINe String dapat diddinisikan dalam deklarasi CONST, berdiri sebagai konstanta bcrcipe string. Bentuknya:

'Komputer Generasl' + ' rv·

L---- - -- - - ' Komputer Generasl rv · varlabel Kallmat1 al
AdJnya pcmbarasa:1 jumi.1t: :T. .lksimal karaktcr yang dapat disimpan dalam suaru \·uiabd akan mcnyeoa bkan sduruh hasi l konkatenasi ti dak scl alu tersimpan dabm \·ariabd, yaitu jika panj :mg string hasil kokanrenasi mcl cbihi batas maksimal dari variabel string . Sebagai conroh, J..:aru..Jilikan bcrtipc STRING[lO]. Pada pcnugasan:

CONST Pengena! : Tipe_Strfng = Konstanta_String:

Bentuk scpcrti di a t ~s biasa dipakai unruk mcmbcri nilai awal (ini sialisa\ i) rcrha,hp pengenal (identifier) strin g. Scbagai contoh: PROGRM~

InisialisasiString;

<• ------------------<• Conto h insialisasi string <• ----- ---- --------------- -

. )

t)

•J

USES CRT; COIIST

Kata_ma]emulc := u ngit' " · ciru ·:

String yan g tcrsimpan tbiam Ka ra_majemuk bubnnya ' Langit Biru · tctapi hal1\' 3 bcrupa 'Lan gi r bir' (yaitu 10 karaktcr pcrtama dari string hasil konkatcnasi) . Co ntoh be_rjkut b erupa seb uah fu ngsi untuk mcmpc roleh string ya ng dibentuk ole~ scjumlah ka rakrc: yang sama, ya ng mdibatkan opcmi konkarenasi. TYPE StrlnjiBO: STRINGIBOI ; ~c:Tl.ON' Ulang_Karalcter IKar: CHAR: Jumlah: BYTEl: StrlngSO;

VAR I : BYTE; St: STRINGBO: BEGIN FOR I := 1 TO Jumlah DO St :"' St + Kar: Ulang_Karalcter : = St • END;

Fungsi Ulang_Karakrer berupa fungsi dengan hasil keluaran bertipe string dcngan panjan g mak simal terdiri dari 80 karakter. Dcngan memanggil fungsi tersebut , m isalnya sap: GarlsGanda := Ulang_Karakter fi205, SOl :

maka variabel CarisCaru!a berisi st ring yang tcrdiri dari 80 karakter ber'

{ inisialisasi string} ST RIIIG[6] = 'Halo, ' ·

SALAI~l

SALAM2

: S TRING[12)=

'.

Apa kabar · ·

VAR llama STRIIlG[ 2 0); BEGIN CLRSCR; WRITE ( 'llama and a ? ') : READUI (llama) ; WRITEUI (SAL AI-!1, llama, SALAI-12); READUI END .

Program 8-1 .

Pad a Program 8-1, SALAM1 diinisialisasi bcrupa string 'Halo, ' dan SALAM2 berupa string '. Apa kabar?'. Pada awal program , mula-mula ditanyakan tcntang nama. Selanjutn ya da ta nama masukan disimpan pada variabel i\ 'ama. Instruksi WRITELN tSALAM1, Nama, SALAM2l;

berfun gsi untuk mcnampilkan data p:tda SAL·L\11, ;\ 'a nw cLlll S."LAM2. Jika misalnya Nama bcrisi 'Amh', mJb tulisan ya n g t.1rnpil ldalah "Halo, Andi . Apa kabar?' .

ASCII 205. 122

12.3

VJII.S PEMBANDINGAN STRING

'~

s eta in peng gabungan string (konkatenasi), __ operasi string lainnya yang dimungkinkan adalah pembandingan string. Operator relasi yang dipakai dalam operasi pembandingan string dapat dilihat pada Tabel

8-1. rabel B-1. Operator relasl untuk operas! string operator

<> > <

>= <=

Art! sama dengan tidal< sama dengan leblh darl kurang dar! leblh dar! atau sam dengan kurang dar! atau sama dengan

atau mengubah brakter tertentu dalam suatu string. Untuk memahami operasi ini, string bisa dianggap sebagai array (Masalah array dibahas pada Bab IX). String bertipe String(n] dapat dianalogikan dengan array{O .. n] of char. Lokasi pertama (indeks 0) digunakan untuk mengingat banyaknya karakter dari string. Adapun data string berada pada lokas1 1 sampai dengan n. Sebagai contoh, variabel St benipe strirrg{15}, kemudia n c!iberikan pcnugas:ln St : = 'Turbo Pascal·;

Ad :m ya pcnugas~ n sepcni di at,ls mcnycbabkan string 'Turbo P:tscal' d ircmparbn mulai indcks kc-1 dalam variabcl St dan dengan scndirin y.l indcks kc-0 bcri~i karakccr yang bcr-ASCII I 2 (menyatakan panj an g d.1ri strin g 'Turbo P Jsca l'). 0

Jika X dan Y mew akili srring (X=l...Xn dan Y=YJ..Ym), string X dibtakan sama hanya bila meme.mhi dua syarat berikur: (1 ) Jumbh k:u akt
2

3

4

5

!__~T r 1bIoI

6

7

8

9

10 I I

12 13 14 15

rETaIs I cIa /1 I I D

k.Hd ktcr bcr-asci i 12 Uut uk m cng"kscs karJ ktcr d :dam suaru string , dapat mcmak .1i hcntuk:

nama_pengenaLstring Undeksl Benruk d i ata s d:1 p::c dipakai umuk JJh:mpcroleh atau mcngg.mti kar:tktcr dalam sua tu pcngenal string. PROGRAM AksesString; USES CRT ; VAR St : STRIIIG[ 151; BEGIN CLRSCR;

'ADAT' < 'AlAT' ( '0' < 'L' } 'UMI' > 'UBI' ( 'M' > '8' } 'Piston • > 'Piston' ( panJang string berbeda }

St :: 'Turbo Pascal'; WRITELN ( St: ' , St); WRITELN

abn mcnghasilkan nilai benar.

Ylll.6 MENGAKSES ELEMEN STRING 1

Opcrasi dasar lainnya dalam pengolahan data string berupa mengakses elcmcn string. Misalnya memperoleh karakter pertama dari suatu string.

('Panj ang string St :', ORO(at[OJ)); ('Karakter pertama dalam St yaitu: '); WRITELN (St[1J); READUI WRITEUI

END . Program 8 - :?.

1::!4

r l ~:>

Contoh pengaksesan ' karakter dalam suatu string
Fungsl Chr Fungsi Chr digunakan un_tuk memperoleh karakter yang sesuai dengan nilai ASCII yang diberikan pada argumen . Kaidah dari fungsi Chr: Chr tNIIaLbulatl

Pemyataan ini dipakai untuk menampilkan karakter pertama dari string St. Sedangkan fungsi ORD(st{O}) dipakai untuk memperoleh nilai ASCII dari karakt er yang berada dalam indeks kc-0 p :~ d a variabel St. Dengan men gguna kan sistem array sem acam itu , karJ ktcr rerr entu d:lla rn string juga bi>J diubah. M isalm ·a:

dengan Nilai.Jm/at bisa bcrnilai antara 0 sampai dengan 255 (Lihat tabel ASCH). Sebagai C.Qntoh: Kar : = CHR !65!;

akan... mcnghasilka n brak tcr ';\ · p.hi a q riabcl Kar (bcrtipc Cha r).

St : ~ 'Turbo Pascal'; St!21 := 'U': Stl31 := 'R':

Fungsl concat

Stl41 := 'B':

Fung si Conw t m cmp un ya i keg unJ.1n umu k mcmpcrolch str ing gabungan dari bcberapa stri ng . B cnr uk fung s1 l!li·

StiSI := '0';

dim aksudkan ur.tu k mer.gubah clemen dar i pengenal string St. Kalau semul a St be ri si 'T urbo Pascal' , sesudah d emen kedua sampai kelima diganti, hasilnya mcnj adi 'TURBO P asca l' .

concat !Strlng1, Strlng2, .. .l

dengan sduruh argum cn (Srrin,~ 7. Srn·•~-· J.1n sc b:~ga in ya) dJ pat bcrupa sembarang variabcl , hms tan ta. funp: .H.1tl ungkap'an str ing. Scbagai contoh:

VJII.7 FUi'JGSI OAN PROSEDUR UNTUK OPERAS! STRING

Turbo Pasca l m cnyedi ab n sej uml ah fasilita s bcrupa subprogram yang dapat di p.1ka i umu k kcperlu an o pcras i strin g. Subprogram yang disediakan tcrcantum pada Tabel 8-2. Tabel 8- 2. Subprogram bawaan untuk keperluan operas! string

St1 St2 St3 St4

:= := := :=

'lngln': 'kau ralh': ·se)uta blntang '; CONCAT!St1,' ',St2,' ',St3l;

akan m embuat variabcl string Sr.; hcrisi srr1ng 'lngln lcau ralh se)uta blntang·

126

Pengenal

Proseour/ Fungsl

Kegunaan

Chr

Fungsl

co neat

Fungsl

Copy Insert Length Pos Ord Str UpCase Val

Prose our Prosedur Fungsl Fungsl Fungsl Prosedur Fungsl Prosedur

Menghasllkan karakter yang sesual dengan nllal ASCU dll argumennya Menghasllkan string gabungan dai1 dua buah strl119 a13f , leblh Menyalln baglan dar! suatu string Menylslpkan suatu string ke dalam string lain Untuk memperoleh pan)ang string Menghasllkan poslsl suatu string dalam string yang !Ill Memperoleh nllal ASCII dar! karakter argumennva untuk mengubah tloe numerlk menJadl tlpe strl119 Untuk memperolen huruf kapltal dar! suatu huruf ~ · Mengubah tlpe strlr.g menjadl tlpe numerlk

Pemanggilan· fungsi Concat di ata s sama Jcngan penulisan: St1 + ' ' + St2 + ' ' + St3

Fungsi concat mempunyai sifat, apabil a String gabungan melebihi dari 255 karakter, maka karakrer setelah \·;mg ke-255 akan di buang.

Fungsl Copy Fungsi Copy memrunyai bcnr uk :

Copy !Stnng1, lndelcs, Jum!ahl dengan String1 dapat berupJ ungL1p;m, kom t:mra arau vari abel atau

.

127

I

-

14

c r-=nn·'

PM*

.. w -

-- -

-

Prosedur Insert

fungsi string, Jumlah menyatakan banyaknya karakter yang disa\in,

P!"_o~~dur

dirnulai da ri karak ter ke-Indeks Strit~g1.

Insert tstrlng1 , Strlng2, lndelcsl:

Sebagai contoh:

Kegunaannp ::~dalah menyisipkan Strr'ns1 ke dalam String2 p.1d 4 Y' "' •;., karakter kc--lndeks S tring2. Stn'11g2 sud ah tentu harus bcrupa V~ tL; I,. ·J Scdangkan String1 boleh tidak berupa -variabel, Sebaga~ cu 111 ,,h

St1 := ·rurbo Pascal': St2 := COPY tSt1. 7, 61;

rnaka. Sr2 aka n tcnSl den g:w ' Pasca l',

I -

.PS OFF

. - --- --.

~

1234567890,, St := 'Punca k ltu indah': INSERT!'gunung ', St1 , 81; -

1234S678901 2 COPY !'Turbo Pascal' , 7, 61 -

-

-

-

-

_ _..J

.PS ON

L- - -

Kalau semub , St bcrisi strm g ' Pun o k itu ind::h' dcn g" 11 pcrnyat aa n :

Fun gsi Copy mcngh :1~ilkan str in g kosong, j ib nil ai I11de ks lcbih dari panjan g Srri11g1 . Ap abila ft; deks ~ j;mdah mcl cbihi dari panjang String_ J. maka fun g >i Ct1py m cnghasilkan stri ng \'an g b e rupa dcretan dari brakter ke- fH ,icks cbri S o in_(: 1 sa m pai denga n b raktcr ya n g terakh ir, Bcberapa co tn oh : Pemangg ilan t ung si

COPY copy copy copy

nurbO nurbo nurbo nurbo

Insert mempunyai bemuk:

Pascal ', 7, 31 Pascal' , 7, 61 Pascal ', 7. 81 Pascal', 13, 31

String hasil

'Pas·

INSERT f'gunung ', St1 , Bl;

I

I('!S b'!IJ

(

(Db]> "tQr(jeJ r

~#

:

I

j

I .

p~ S J

m aka, S d bcr isi string 'Puncak g un un g itu ind ah' , Nihi H mn , :r• '·, ,, strin g 'gu nu ng' m cncm pati posis i kc-8 d al am varialwl Si,

Fungsi Length Fungsi Lmgth mempunyai bentuk :

'Pa sca l'

'Pascal'

Length l5trlng1 1

String ko song

Prosedur Delete Proscdur Delete mernpunyai ben tuk :

Dcngan Stri11g I bi sa bcrupa ,·ar ia bel, konst:mt:J m :lU pqn '-''· r, , stri ng . Kcguna:1nn ya y aitu untuk rncmJ' <:ro leh j um bh b rJJ, 1, , argumennya (bukan jumlah rn aksimal string argurn <.:nJ, M 1 ~ "" , , ,PS OFF

123456789012345678901234 '• Delete tst ring1, Awal , Jumlahl:

Proscdur ini digunakan untuk mcnghapus bagian dari String1 dimulai dari posisi se5uai nila i AtVaL Banyaknya braktcr dirnulai dari posisi awal yang d ihapus .di tentukan oleh nilai Jumlah, Pada pemanggilan prosedur ini . S rring1 harus bcrupa variabel. Sebagai contoh: ,PS OFF 12345678901234., St := 'slnat

r~mbulan bersama bintang-bintang' ;

St := 'Kullhat mataharl berseri'; PanjangStrlng := LENGTH!Stl : WRITELN tPanJangStrlngl; .PS ON

akan menam p ilkan n,ilai 24 pada layar yang mcnyatakan vanabd ·, 1 '-' ' · . 24 karaktcr. Fungsl Pos Fungsi Pos mcmpunyai bentuk :

DELETE tSt , 7, 3l ;

.PS ON

Pos tString1 , Strlng2l

mmycbabkan 3 buah ka rakter dim ubi posisi ke-7 dari string Sr dihapus. >t:hingga h as ilny::~ St bcrisi stri ng 'Sinar bulan bersama blntang-blntang'

12.>)

dengan stri11g 1 m aupu n slring2 bi sa bcr up.t ko nstanta , \ '
,....,.

'· Kegunaannya untuk mencari posisi pertama Str-itJg2 dalam String1 . Jika String2 tidak terdapat String1 , hasil fung si bempa nilai 0. Sebagai contoh: .PS OFF

123456789012345678 ...

st

:= 'Kubaca kata deml kata tdan kutemuKan makna·: WRITE tOOS tSt. 'kata 'l; .PS ON

Fungsi PClJ mcnghasilkan nil;J.i 8. vang m cnyatab.n string 'bta' d itcm ubn pada string yan g ada dabm vari:thcl St, p ada po~isi karJk tcr kc-8 . Pada S1 scbcnarnya terdapat scb uah 'bta' lagi y aitu pa Ja posisi ka raktc r ke-18 . Nam u n yang dilaporb n JJ.1bh png pcn.;nLI. y ain.: p.td<~ posi~i kc-8.

prosedur Str

I

Pemanggilan prosedur

String hasil(St)

Str Str Str Str Str

' L2567~E+02' . -1.2567000000£+02'

(Pecah, St); (-Pecah, St); (Pecah:12:2 ~ St) (Pecah :12:0, St (Pccah :6:4, St)

12 .~7'·

13' 12.,567<1"

Panjang -strine 17 17 12 12 7

Tanpa mcbkubn format, bibngan pccahan dikonn.?rst menjadi st rint dcngan p:tnjang 17 br.1ktcr (contoh I dan 2): untu\. b ilangan positif ak..i r Ji Jw,1li dcngan spasi. Jib mcJ:tn va ng ti i ~c'd iab n tidak rncncukup i dcngan scndiri nya digit untuk ni!J i b u latnva tL'rcakup sc luruh rw: (contoh 5). Jika medan untuk bagi.1n pcca h an Jibc n nilai n. m .1b bagi an pccahannya tid:tk dicantumkan .

Pr osedur ini m ernpunyai bcn tu k: Fungsl UpCase Fungsi UpCase mempunyJi bcntuk:

Str tBII. SLhasill:

dcngan Bil bisa bc rupa konst ,\ll ta. ,.JnJbcl . fungsi m Ju pun ungkapan bertipc bilang an bula t ataupun pccahJn. St_!t a~il mcrup.t bn \·ariabcl van g mc nyimpan stri n g dari nil ai dai.lm I3il. Biian gan bisa diformat. . Bcbcrap:1 contoh bcrikut mdibatb:l variabcl :

-

RulaT bcnipe bilangan bulat dcngan nil ai 100 St bcnipc String[ 12]

Pcmanggilan proscdur

Stripg h :~sil(S t )

Str Str Str Str Str

'100 '

(Bu lat . St); (B ulat:4, St); (Bulat :10, St) (- Bulat:6, St) . (Bulat:l5 , St)

roo· 100' -100' 100'

•

Panjan g stnn g

3 4

UpCase tKaralcten

dcngan Karaktcr berupa konstan ta ata u va riabcl b,·rripc Char. Kd u:.H.tr. iung si bcru pa karakccr huruf bpital, jib Kt~r,lkf,·t bc rup-1 huruf kL·,·,:. Apa bila Karaktcr bukan bcrupa huruf kccil. kcluar:H1 r·ll!lf~Si -,es~l.l i cknga• isi Karakter. Contoh: Kar := ·a·: WRITELN tUPCASE fKarll;

akan mcnaml'ilkan huruf ' A ' pada lavar.

10 6 12 (maksimal 12 untuk ·tipe Strin g [1 2])

Prosedur Val Prosedur Val mcmpun yai bentuk: Val !Strlng1 , VarBII, varKesalahanl:

Panjang string hasil konversi ditentukan olch panjang Apabila nilai medan terlalu besar dibandingkan dcngan maksimal yang bisa tersimpan dalam suatu variabcl string hasil scsuai dengan panjang dctinisi suatu tipe .l:khcrapa contoh berikut melibatkan \·:t riabcl : f>rcah bcrtipc real dcngan nilai 12.5()7 St bmipc String( 18]

mcdan jika ada. jumlah karaktcr stri n g, panjang string.

dcngan string! bisa bcrupa konstanta, variabd , fungsi ataup un ungkap:m string, VarBil berupa variabcl bcrtipc bila n g:1n dan l 'arKesn/,lfJan bcrupJ variabcl bcrtipe integer atau wo rd ~ Prosedur ini mmgubah string da ri 5Trin,~1 llll'llJadi nibt nunrcrik dan hasilnya disimpan p ada l'a rl3il. Jtk.l Strin.(!1 hcrup.1 strin g y.1ng mcnyiratkan ~ilangan, maka VarKesa/,Jh.m bcri~i nilai 0 . Ni!ai buka n nol I. I I

Bila string bertipe STRING[255], kata-i~rcadang string boleh clipalcai untuk menentukan tipe dari parameter atau tipe hasil fungsi. Misalnya:

pacb VarKesalahan men~atakan posisi k~ak.ter d~~ String1 yang bukan . Jllenyatakan karakter bilangan. Sebag:u contcili: ' . ~ \

'

I

I;

(1) Untuk variaoel VarBil bertipe bilangan bulat:

lsi String1

PROCEOURE .StrlngKapltaf (VAR St: STRINCI; _

String yang dilewatkan sebagai parameter dapat berupa parameter nilai ataupun parameter variabel. Jika parameter string berupa parameter va riabcl, an tara parameter formal dan panmeter aktual haruslah bertipc sa m:~ . Scbagai cont o h dipcrliha tkan pada Progra m 8-J. Ka!Ju prog ram tcr ~cbut dijaJankan , akan terj:1di kesalal1Jn scwa ktu kompila si bcrupa ' 'Type Mi sma tch' ' p.1d a pcrnyataan proscdur Bcri0Jt.1, scb:~h antara tipr par.Hnc rcr form.1i d a, , p:.:rJmcr c ~ .lkru ;d ber bcda.

Hasil : VarBil H as il: VarKesalahan

'256' 256' '256

256 256

?

'2.5'

0 0 4 (Kesalahan karena ada spa~i pada karakter keempat) 2 tKesalahan karena ada tanda titik yairu p:~da karakrcr kcdua)

PROGRAM Co baS tring; USES CRT; TYPE

(2) Untuk variabel Va rBi/ bert ipc bil angan pccahan

lsi

String 1

String80 String20 VAR

H:1siL: Va rBil H as il: I 'ad(csalalzml

'256' 256' '256

'2.5 '

256 256

0

= STRIIIG(80]; STRIIIG[20];

Stl : String8 0;

u 4 (Kesalahan brena ada spasi pld :l karaktcr kccmpa t) 2 (Kesalahan karcna ada tanda kom,1 y:~it u pada braktcr kcduA )

PROCEDURE Ber iD ata (VAR St : Str ing20}; BEGIN St END;

: = 'Saya suka Pascal'

BEGIN { Program utama ) CLRSCR ;

VIII.S STRING SEBACAI PARAMETER ATAU SEBACAI HASIL FUNCSI

BeriData ( Stl); WRITEUI (St 1); READLN END.

String dapat dilewa tkan kc dalam fungsi maupun prosedur scbagai parameter. D isamping itu, string dapat pula dipakai sebagai tipe hasil dari fungsi . Patokan yang penting kalau men gg unakan tipe string dalam subprog ram , tipe dari parameter atau tipe hasil fungsi harus berupa suaru pengenal atau berupa kata-tercadang string. Misalnya:

Program 8 ·-J .

FUNCTION FormatRuplah(NIIai :LONGINTl :String20;

Namun jika dikehendaki , program tet ap bisa dikompilasi. C aranya dengan mcnyertakan penga rah kompilcr {$V-} sebelum peman gg ibn prosedur BeriData , se bagai berikut:

dengan pen genal String20 berupa tipe yang didefinisikan dalam TYPE sebagai STRING[20]. Penulisan seperti:

{$V - } BerJoata !St11 ; {$V +}

FUNCTION FormatRuplah(Nilai :LONCINTl:STRINCf201 ;

tidak dipcrkcnankan. 132

133

~~

~ ~• . -'"'... , ...... .. ...-- --~v- H ...... ~ .. ~.~ " -' '"- ~ ~ ·- · ~:; u-~ ., ., ,. ,"f:.,... .

....... {,~~!!!1 .-::t.:::::e::t"=st'.J.: -.!@ii..;.- "'"'' .. ~--&f&£ ·~ ~~~==~~~~~~~~~!!~~IIIIIIIIINIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

penulisan di atas menyatakan:

(1) Sebelum prosedur BtriData dipanggil, pemeriksaan terhadap kesamaan ripe parameter aktual dan formal dari string dimatikan. (2) Sesudah pemanggilan BeriData, pemeriksaan terhadap tipe para meter string diaktifkan kembali . Contoh operasi string misalnya untuk menguba h huruf kt-cil yang cerdapat dalam suatu string menjadi huruf kapiul. Pcngubahan ti:J.F karaktcr (mulai karaktcr parama sampai yang raakhir) di!ak ui.:.Jn deng an memanfaarkan fun gsi UpCase. Karaktcr Y;mg tcrakhir hisa diperolch melalui bantu:m fungsi leugth.

<• ----------------- -- ------- -------

.

(* Program untuk mengubah (* huruf kecil dalam string menjadi huruf kapita1

t)

PROGRAH UbahString;

rnul:t-mula diambil J karaktcr rerkanan da ri StrNilai J braktcr ini dit:1mb:1hkan sccara konkaccna si kc suar u variabel pcngingar (Hasil) dengan mcnyisipkan scbuah tanda titik d1 awal nya . kemudian ketiga brakter t.:rka nan da ri Srr:\'ilni dibuang

)

•>

<• ---------------------------- ------------- ----- •> USES CRT; VAR AlaJllat : STRitlG;

Contoh operasi string yang lain adalah untuk menampilkan bilangan dengan format rupiah, yaitu menggunakan pemisah ribuanoerupa titik. Pada contoh ini, fungsi untuk memperoleh format rupiah hanya ditujukan untuk bilangan bulat. Caranya adalah dcngan mula-mula mengubah bilangan menjadi string (dinyatakan dcngan variabcl StrNilai pada ForrnatR11piah). String hasil konversi bilangan inib h yang kcmudian diolah sehingga meng hasil bn kcluaran yang d1ha rapkan. Pengolahanny:~ dilakukan dcngan mem eriksa panjang d.m string StrNilai Selama panj :mgny;; lebih dari riga (berarti masih mcnpndung ribuan) clibkukan prose~ hcrupa:

Terakhir b!inya, hasil yang sesungguhnp dipcrolch dengan mdakubn operasi konbten?.s i antara StrNilni dengan Ha sil. PROGRAM TampilkanFormatRupiah ;

,. --------------------- ------------- . •)

PROCEDURE StringKapital (VAR St: STRitJG): VAR Indeka : BYTE; BEGIN FOR Indeks::1 TO LHJGTH(St) DO St[IndeksJ : = UPCASE(St[Indeks]) END;

(* Menampilkan bilangan

)

( * dengan pemisah r ib ua n b~rupa TITIK •)

C* ---------------------------------- •J USES CRT; TYPE String20: STRING[20): VAR Bilangan : LONGINT;

BEGIN CLRSCR; Alamat := 'Jalan Sederhana 53/F Semarang'; StringKapital (Alamat); WRITELN (Alamat); READLN END . Contoh ekaekus1: JALAN SEOERHAIIA 53/F SHIARAIJG Prolf'am 8-4 .

134

FUNCTION FormatRupiah (Ui lai VAR

LOtiGitiT) ; String20;

StrNilai, Hasil

: String20;

BEGIN STR (Nilai, StrNilai); Hasil :: "; ( Hilai awal dari hasil) WHILE LENGTH(StrNilai) > 3 DO BEGIN Haail : =

+ COPY(StrNilai, LEtiGTH(Strflilai )-2 ,3) + Haail;

135

DELETE (StrHilai, LEHGTH(Strtlil&i)-2,3) HID:

IX

FormatRupiah := StrNilai + Hasil END; { akhir fungsi rupiah }

TIPE DATA TERSTRUKTUR ARRAY

BEGIN CLRSCR; WRITELH ( ·~lasukkan sebuah bi langan bulat : ' l ; READUI ( Bi 1angan) : WRITELII ('For-mat Rupiah == > Rp READLII

ENO. con oh eksel<usi : ~asukkan se buah bilanga n bula t:

600000 Fo r-mat Rupiah == > Rp 600.000 Masuk~an sebuah b•lang an bulat :

aoooooo Forma t Ruoi a h ==> Rc 8.000 .000 PrOX' "'" 8- 5.

Format Rupiah( Bi l a ng anl l:

P:tscll menycd iak ::m bL
IX.1 ARRAY Arr :l\: rnc r u pak.1n ri~'c d.H:J rnst ruk tu r \ .m g digu n.1k :!ll untuk mem· impan scjurnlJh nibi d cng :m j cn is nn ~~ .;a rm . ;\rray scnJiri d ibcdJb n mcnj adi : .A r ra v hrrd im cnsi ;;a ru A rray mu lt idimcnsi Kaida h pc nddlni sia n a rraY di tunjukbn pada G:JJ nba r 9- 1.

C ..rnb ar 9- 1. KaiJah ptndtfinisian array

Tipe inde ks d alarn di ag ram di atas dapat berupa sebarang tipe ord inal. kecuali ti~ .. l<mgint dan su bran ge dari longint. Tipc integer (atau subrange da ri intege r) , char , boo lean ara u tipe e n urn cras1 dipc r boleh bn sebagai tipc indeks . T ipc indc:k s m cnyatakan b.mya knya elcm en J.1ri ~rray. 1'i pc: ses udah k,HJ-tc rcadan g o f bi sa bcrupa scbara ng tipe .bJl ka n oukan bcrupa fik . T1pc ini menpt.Ib n ti pe data da r i cl cm cn ar:a y. Beberap a contoh ripe array:

!37

136 -

··· ..• -

..... .......... """' ~-1 ·- "~•• ,..,.

Dengan adanya pendeklarasian ini bera rt i ada 5 bu ah elemen dalam array

Nilai_ T es. Masing-masing ko mponen dinyatakan dcngan N ila i_ T es{1 ], Nilai_ Tes{2), .\'ilai_ Tes{Jf, 1\'i/ai_ Tes{-1] elm Nilai_ Tcs {5}. N ilai 1,2,3,4 dan 5 untuk contoh ini d iscbut scbagai indeks array.

ARRAY!1 ..1001 OF REAL

rnenyat akan pendefinisian array yang mengandung 100 elemen bertipe

real.

NllaLTes!1 ! _

Contoh 2:

NllaLTesf2J _ NilaL Tes!31

-·

ARRAY!CHARI OF BYTE

NilaLTes!41 _

cnyatakan pcndefinisian arraY dcngan indcks berupa karak tcr (ada 256

NllaL Tes!SJ

111

R ---,

ckm cn) dan data bcrtipc byt.:. Gam ha r 9- 3 . •4rr.•y

·l~n

~ array

NILAI_ TES berisi s elemen

tltmrn-rlrmrrwya

IX.2 ARRAY BERDIMENSI SATU Jcni s array yang pali nt; >LJcrhana adalah array berdim cnsi satu. Untuk mcn1pcrmudah pcmah;un:~n :crhada p jcnis array ini , biasanya array bcrd imcnsi sa tu dinva ta bn s.:bagai kota k panjang ya.ng dibagi menjadi bebcrapa bagia n yang s:1ma . Seb agai contoh, Gambar 9-2 mclukiskan scbuah array bcrdimcnsi satu n ng d ipabi untuk menyi mpan data nilai

Pad;, PasCJl. ~ctcb h pcndckl :v:lsi :rn v:~riabc l ar ray, isi Jari masingrr.asing ckmcn u ray ud :~k Jibc ri nilai 3v.•JI (Pada bahasa pcmrog raman scpcni BASIC. suatu J r[ ,lY bcaipc n umnik dcn g an scndi rinya abil dibcri nilai ;l\nl (1, scd a:Jgk.Jn untuk Jrr.1y alfar.umcrik dibcr i nilai aw;ll bcrup:1 string kosong).

h a~i \ t CS.

[ 100

J 75 I 80

\ 60

I

65

~

Variabel array NIL.ALTES

I

1?1 ....______;

'

1

Definisi/deklarasi yang cipcrlukan untuk contoh di atas: CONST MAKS_TES = 5; TYPE . Daftar_NIIa! = ARRAYI1 .. MAKS_TESI OF BYTE; VAR Nilai_Tes: oattar_NIIal:

Dcfinisi/dcklarasi di atas ~cngan menganggap jumlah maksimal res ad:llah 5 dan elcmen dari nill1 bertipe byte. Dcklarasi array Nilai_ Tes bisJ juga discdcrhanakan mcn_iJ.ii VAR NllaLTes : ARRAY!1 .. 51 OF BYlt;

' ----, ? l ' 1 variabel array

i

NILALTES Gambar 9- 4. l si

Gam b.:~ r 9- Z. Ilus tras i ubuah aruy btrJimtn si satu

'

JrT" )'

urtfah ptndtklaras iJII

Memberlkan Nllal ke dalam Array Untuk mcngisibn nilai kc dabrn arny. dia ntar:myJ dapa t dilakubn melalui pcrn ya taan penugasan. Mi salnya SJjJ NllaLTesi2J := 75;

Pernyataan ini abn menyebabbn bagian :uray N iloi_Tcs yang mcmiliki nomor indck s 2 terisi nila i 75. Pcmas ukan data ke dabm Jrray bisa dilakukan dcngan pcrnyataan READ atau RE ,-\ DLN. Scb:1gai con toh : READLN (NIIai_ Tesf2ll;

merupakan pcr:1~·J ta an untuk rncm.,:-ukLu~ d.lta kc ,blam Jrray NilaiTl's yang mcmpun yai nomor indcb '

U9

DS

,__,...., _;lli!0'-;·~ .. ~·;"'111<>:-~ -·-"-'"''·"" ·,-:"~~'"·""'·"' ·...~:-?i.,.• ..,.,,.....+..,_,..,_~·

... ";W .............

.,

.-emperoleh Elemen Array -

WRITE ('Masukkan nilai tes ke READLN (~lila·i_Tes[IJ) END;

.

vncuk rnernperoleh nilai yang terkandung dalam array, misalnya elemeh kedua pada array Nilai_Tes, pernyataan yang diperlukan: .

t

-

t

1

~lenghitung dan menampi lkan rata-rat .. ,, 1 Jumlah := 0; FOR 1 : ~1 TO 5 DO J umlah : = Jumlah + ll ilai_Tes[I]; WRITELII ( 'Rata-ra ta = Juml-.h/5: fi'~ I· ) .

Nllal := NllaLTes!2l;

vang bcrarri mcmberibn nilai yang tcrkandung pada clcmcn kedua array

Tes kc \·ariabel Nil ai. .·~ilarPcrn yataan scpcrn : .

-

REAOUl

: ,.

~

EtiD .

WRITELN INIIai_Test2ll ;

erup aka n instruksi unruk m cnampilkan nilai clemen kcdua dari array , 01

Contoh eksekusi :

;"Jilui- Tes. mdeKs serupa Bllangan Bulat Progr:11n bcrikur meng gamba rkan cara memasukkan 5 buah d :na nilai tes kc dalam array, mcnghirun g ni\ai rata- rat a dan kemudian menampilkan nilai rata-rata. PROGRAI-4 Arrayrli la i:

<•

------- - --- - --------- ~ ----

•)

Masukkan nilai tes Masu kkan nilai tes 1-lasukkan nilai tes Hasukkan nilai tes Masukkan nilai tes Rata-rata = 76,t Progr~m

ke

1

. t

100

ke 1 ' 75 ke 1 ~ 80 ke 1 ·~ 65 ke 1 : 60

'I - 1.

I* Menghitu ng ni lai rata-rata •J (*

lnde!<s Berupa Karakter C o ntoh herikut mcngg:~mbarkan pcnggurrJ JJJ ir"l' ~ . karaktcr. Sedangkan elcmcn arra y-nya bert ipc byr. 1/ dipakai untu k mcnyimp:~ n jumlah ma smg-rn :J'- 1" : deretan brakter yang dimasukkan dari p:tparJ L , ,

-- ------- ------- - --- - * )

USES CRT; COilST I~AKS_TES

=5;

TYPE Oaftar_llilai

Jumlah Nilai_Tes

= ARRAY[1 •.• MAKS_TES) BYTE : IIHEGER; Oa ftar:_tl )_l a i

<• <•

~!engtlitung

jumlah masing-masing hurut ~-- ... dari suatu data string

\ (.

;

{ Memasukkan data ke array } FOR I:=1 TO 5 00 BEGIN

OF BYTE:

c•

BEGitl CLRSCR;

140

~ . .;.

PROGRAM HitungKapital ;

VAR I

... . "ll.•.

f 4

USES CRT: TYPE HurufKapital " 'A' , .. ' Z' : larik Ka~Jital = ARRAY[Huru fKapital] or VAR I

Karakter

h ·

B~TE;

: CH AR; ! II

•

st Kapital LarikHuruf

Pada Program 9 ....!. 2, mula-mula jumlah masing-masing huruf kapital dalam array diberi nilai no!. Pcr.mah yang diperlukan adalah:

STRitlG; Huruf'Kapital; LarikKapital;

FOR Kapltai := 'A' TO 'Z' DO Lar1kHuruf!Kapltall : = 0;

BEGIN CLRSCR; { Pemberian nilai no l ke elemen ar~a} }

Perhatikan: indeks array pada array LarikHuruj berupa huruf. Pernya taan:

FOR Kapital : : ' A' TO 'Z' DO LarikHu ~ uf{Kapi ta l}

:~ O;

data ST RING dan h i t ung h.J..- 11t

{ Pemasukan WRITE ( 'Masukkan data

st~ing

~o-aoital

: ') ;

READLN (St); FOR 1 : :1 TO LEilGTH(St) DO : = St[I);

IF (Ka r akter>='A ' ) AllD (Ka r akte r ,-·Z'l

THEil

INC (La~ikHur u f[Karakter] ) EIID; Cetak jumlah masing-masing huruf

~~ .,, t al

FOR Kapital::'A' TO 'Z' DO IF LarikHuruf[Kapital) <> 0 THE N WRITELN ('Jumlah huruf ' , Kapil-' • LarikHuruf[Kapital]) : READLN END.

l

=

FOR 1:= 1 TO LENGTH!Stl 00 BEGIN Karakter : = Still : IF !Karakter='A' AND !Karakter< ='Z'l THEN INC !LarikHurUf!Karakterll END ;

digun:1 kan untuk m emperol ch mds:ng- m.;sing karaktcr dari string S t da n kcmud ian m cmcriksa karaktcr t ~;schu t termasuk huruf ka pital ata u tidak. Pern yataan IF Karakter > = 'A' AND Karakter <= z· THEN INC ILar1kHurUfiKarakterll:

Contoh eksekusi: Hasukkan data string: TURBO PASCAL Jumlah huruf' Ju~lah huruf JUIIIlah ·huruf JUIIIlah huruf Ju111lah huruf Jul'lllah huruf Jumlah huruf Ju.lah huruf J~lah huruf

merupakan perintah untuk m ~meaca data string. Pernyataan

BEGIN Karakte~

READLN <Stl;

l

A= 2 B =1 C = L = 0 = R = S = T =1 U =

menyatakan jika karakter adalah hur~f kapital , maka isi LarikHurnj dengan indeks sesuai isi Karakrer dma1kkan sebesar satu. · Untuk menampilkan jumlah da ri masing-masing huruf kapital, diperlukan perintah scbagai berJ::uc FOR Kapltai :='A' TO 'Z' DO IF Lar1kHuruftKapltall <> 0 THEN WRITELN !'Jumlah ', Kapltal, ' LarlkHuruf!Kapltalll;

Pemyataan IF dig unakan untuk mcnycleksi elemen arrly yang nil ainya

tidak no!. Jika nilainya no! tidak ditampilkan

Program 9- 2.

142

143

kS seruPa npe Enumerasl

~~toh pe~deklarasian array yang

.

.

_

·

menggunakan tipe enumerasi adalah-

sebagai benkut:

program dieksekusi. Berdasarkan data yang ada pada array, program menca:i nilai suhu tertinggi dan kemudian menampilkannya ke !ayar. PROGRAM SuhuHarian;

c• ------------------------- ., TYPE rypearl = ISENIN, SELASA, RABU, KAMIS, JUMAT, SABTU, MINGGUl;

VARsuhu · ARRAYfTlpearil OF REAL; Dcn gan pendeklarasian seperri di aras, maka arra y SJ.IIw mcngandung ekmcn. Masing-m asi ng elemcn mempunyai - scbuah indcks berupa 7pengen al SENIN, SELASA. HABU , KAMIS, JUMAT, SABTU auu MINGGU. Dalam hal ini eicmen array berripe real. Pcnunjukan Sulwf.\l ingstu/ misalnya berarti menyatakan ckmen array

C• Nemperoleh suhu tertinggi dal&N WAktu S&Ning gu

(0

*)

0)

c• ------------------------- ., USES CRT; TYPE

TipeH;ori = (SEIHtl, SELASA , RABU. KAI.fiS JUMAT , SABTU, HitiGGU); COIIST Keterangan: ARRAY[TipeHari] OF STRitiG[6J ( 'Senin', 'Selasil', 'R;o bu',

dengan indcks yaim \1INGGU.

'Kami s · , 'Jumilt · , 'Sabtu' . · ~ti ng ge~ · ) : VAR

mlslallsas! Array Berdlmensl satu Suaw array bisa dibcri nil ai :l'x a l. Pembcrian nilai awal d:1pat dilakuk.n1 dalam dcklarasi CONST. Sebagai conroh adalah array yang mcny imp.1n

Suhut-l.aksi mum

RE AL ;

Har;

TipeHari ;

Suhu

ARRAY[TipeH;ori] OF REAL :

nama-nam a hari. TYPE

BEG III CLRSCR;

TipeHarl

= ISENIN , SELASA, RABU.

KAMIS, JUMAT, SABTU, MINGGUl;

{ Pemasuk a n data suhu harian FO ~ Har

i : =SEUII l TO NIUGGU BE GHI

CONST Keterangan : ARRAY[T\peHaril OF STRINGI61 = I'SENIN ', 'SELASA', 'RABU', . 'KAMIS', 'JUMAT', 'SABTU', 'MINGGU'l;

00

WRI TE ('Masukkan datil suhu hari READLN (Suhu[Hari]) ENO;

Ket&rilngan( Hari] : 5, •

.) ;

Pada contoh ini, Kctcrangatl berupa array yang mengandung 7 buah Hemperoleh diln menampilk;on suhu tertinggi ) SuhuMaksi11um :: Suhu[SEUIN];

elemcn data string: KeteranganiSENINl KeteranganiSELASAl KeteranganiRABUI KeteranganiKAMISI KeteranganUUMATI Keterangan!SABTUI KeteranganiMINGGUI

= ·senln'

FOR Hari: =SELASA TO mttGGU 00 IF Suhu[Hari) > Suhut.taksieUII THEN Suhut~aksi~um : = Suhu[Hilri];

= ·selasa' = 'Rabu' = 'Kamls'

= 'Jumat' = ·sabtu' = 'Minggu'

Program 9 - 3 mcm pcrllhatkan conroh penggunaan inisialisasi array bcrdimen s1 satu . Pada prog ram ini, arra y Keterangatl dipakai uutuk menyimpan data nama hari, sedangkan array Sullu digunakan untuk menyimpan data suhu harian yang dimasukkan dari papan-ketik sewaktu

WRITELN ('Suhu tertingg i a dalah · . SuhuHalo.simum : 4 . 1); REAOLN

,

EtiO .

Conton oksekusi Milsukkan data suhu hari

Senin :' 30

Hasukkan data suhu hari Se la&a: 31

145

Rabu: Hasukkan data suhu har\ Hasukkan datA suhu har1 K&lllhs : Masukkan data suhu har1 Jumat : Masukkan data suhu hari Sabtu : Masukkan data suhu hari Hinggu : suhu tertinggi adalah 34.2

33 30 34 . 2 29 31

Definisi dan deklarasi yang diperlukan untuk membentuk array seperti pada Gambar 9-5: CONST MAKS-SISWA = 4; MAKUES = 3; __ TYPE

Program 9-3.

VARPenampungNIIal = ARRAY!1 .. MAKS_S!SWAJ OF ARRAYt1..MAKS_TESJ OF REAl; DataNIIal : PenamoungNIIal;

Unruk konsr anta array d engan ekmcn bnupa karakt <: r. da par d1tulis dalam bentuk karaktcr tunggal atau dalam bcntuk string. Scb.:!);Ji conroh :

P<:ndcfinisian ripe f>cnampzm.t; :' \'zfai juga bisa dirulis: TYPE

CONST Digit : ARRAY!0 .. 91 OF CHAR

Pen2mpungNIIal

= ('0', '1', '2', '3', '4' , '5', '6', '7', '8', '9');

~

ARRAYf1..MAKS_S!SWA. 1..MAKS_TESJ OF REAl;

Penuli sa n dcngan bentuk yang rcrakhir lebih um um digunakan diband in gkan bcnruk yang pert;::ma. Pcndcfinisian tersebut menyJtakan bahvva ripe ko mponcn (elcrnen) array berdirnens i dua mcmiliki tipe real. Sed;mg kan kcdua tipe indek s bcnipc bilangan bula t. lndeks pcnama berkisar 1 sampai den g an MAKS _S/S\\.:A dan indcks kcdua berkisar antara 1 sampai dcn g an MAKS_ TES. Sctclah pendckhra si:m

dapat ditulis dengan benruk: CONST Digit : ARRAY!1..91 OF CHAR = '0123456789':

IX.3 ARRAY MULTIDIMENSI VAR

Array multidimensi mcrupakan nilai arr ay yang bertipe array. Pada Turbo Pas cal, jumlah dimensi dari ar ra y tak dibatas i. N amun nng paling umum dipakai adalah array berd imensi dua. Permasalahan yang menggunakan array berdimensi dua misalnya adalah untuk keperluan pengolahan data nil ~ i dari sejumlah siswa, dengan jumlah nil ai lebih dari satu per siswanya. Untuk memudahkan pcmahaman, array ·untuk keperluan ini bisa digambarkan seperti yang tertera pada Gambar 9-5. Nllal 1

Nllal 2

Nllal 3

Slswa 1 Slswa 2

DataNilal : PenamoungNiial ;

maka terbentuk array bcrdim cnsi satu d cnga n nilai awaJ dari masingmasing tak mencntu (karena riciak d ibc ri nilai awal). t

2

3

..... indeks kedua

1

2

~

3

4 L_

I~

L

L

~

DataNIIall2.31

ll

oataNIIall4,21 lndeks pertama

Slswa 3

Slswa 4 Gambar <J-5. Gambaran array budimtnsi 'dua untuk mrnyimpan ujum/ah nilai J~n· ujwmlah siswa

Gambar 'J- 6. Array dan

p~nunjult.Jtr rl~m~n

;:zrray

Masing-masing clemen dalarn array Da taNilai dapa t diabcs melalui

J>Cnu~ukan:

H6 147

!..-..NIIaltlndeks_pertama, lndei<S-kedual

hal im, ittddes_.pertama menyatakan data dari stutu siswa:

•..:.~,.ngr..an indeks-:edua menyatakan data dari su~tu tes. _Misalnya elcmen

Sctebh seluruh data masuk ke dalam . a~ray, program ~elakuk~ pcngolahan data untuk menentukan mlat rata-rata per Slswa ~'\ kdulusannya. Dalam hal ini sisv.ra dianggap lulus, apabila memiliki nil<\ l r~u-nt:a lebih dari atau s:ama dengan 60.

nilai ces ke--' dan siswa ke-2 mempunya1 1dentttas: PROGRAH Tes ;

c• ---------------------------------------------c• Contoh penggun~an array b&rdimenai dua c• untuk menyimpan d~ta nilal dar! sejumlah s iswa (.

•J •J

. •l )

USE!! CRT:

nilai sisw:t kec mpat. tes kedua .

C0tl5T ~K!!_SlSWA

,.AKS_ TES

n nibi ke v ariabd arr:1y berdimensi dua d iantaranya mdalui raan penugasan . Misaln ya ;aJa:

= 20; :: • ;

nPE

PenaJ>Opungll ilai

ARRAY(1 .. ~AKS_SISWA) OF

C>atat4i l;li J~Siswa,

takan pcr. gisian ni lai 70 k ~ elcmcn array dari sis'>va kecmpat, tcs . Jika 1x·mberia n n ibi d ila kuka n mclalui Readltr , pcnuli s:tnnya:

A R~"f (1

.... AKS_TES) OF

Rl~ 1

liAR

PQOCED~RE

JumTea

Penamp lmgtH lai: BYTE;

Pemasukan_Data (VAR JumSi s wa, JumT es

{ untuk

~em~aukkon

BYTE) ;

da t3 ke da lam a r ray

V A~ !nd ~ k a_Siswa,

bll lSI Array

bilan isi arra y mul tidim ensi di!Jk ukan dengan ~ara mcnyebutkan indcksnya sesuai dengan dimensi array. Misalnya untuk pilkan isi arra y DataNilai dari siswa kcdua tcs keempat, perintah dipcrl ukan:

Contoh program yang menggunakan array berdimensi dua dicunjukpada Program 9-4. Pada program ini, Data Nilai merupakan array · dua, dcngan indeks pertama berkisar antara 1.. 30 (MAKS A) dan indeks kedua berkisar antara 1..5 (MAKS_TES) . Dengan pendeklarasia.n sepcrti di aras rnenya takan bahwa array tersebut i untuk memroses data maksimal untuk 30 siswa dan maksimal 5 tes. Mcngenai jumlah siswa ataupun res yang sesungguhnya an p.1da saat pro gram dicksekusi. Mula-mu!J yang dimasu.kkan jumlah siswa dan cacah nilai yang akan dipros~ per siswa, ian diikuti dengan pemasukan data nilai dan ditempatk.an di arraY-

Inoeka_T es

BYTE;

BEG IN CLRS;:;R; WRITE ( 'J umlah aiawa (1..20): RfADLN (JumSiawa);

') ;

WRITE ( ' Cacah tee ( 1 . . ~) : '): READLN (JumTes) ; FOR lndeks_Siswa :=1 TO JumSiawa DO BEGIN WRITELN ('Data slswa ka-', Indaka_Siswa} : FOR lndeks_Tes : =1 TO Jumles DO BEGIN

WRITE ('Nilai tes ke-', Indeks_Tss, ' : '); READLil (Datallllai(Indeks_ si swa, Indeks_Tes)) EtiD

EIID; EIIO; ( akhir Pernasukan_Data ) PROCE DURE Pro aes_dan_Cetak_Oat a (JumSiswa, Jumres : BYTE);

"r i

" ~ntukan rata-rata, kalulusan

~ eenaMPilkan lnforaasi ) Vllfl

Inoe ks_S iswa, Indeks_tes Juelah. flata_rata l(alulu&an

BYTE: REAL; STRIIIG [ 5] ;

BEGIN { suat judul } CLR5CR; WRITEUI (: OAFl AR III LAI

: '); WRITElll ;

WRITE ( 'tlo'); FOR Inde~s_Tes : =1 TO JumTes 00 WRITE ( ' IHlal ke-', Inde l<.s_ tes) ; WRITELII ('Rata-rata ·: 11. ' Ke te r angan · l : Proses penentuan rata-r~ta, k91ulusan

Cacah tea (1 •• 4) : 4 Data aiawa ka-t tH.lal tn ke-1 : liO Nllal tea ka-2 : 89 Hllal tea ka-3 : 78 tlllal tas ka-4 : 58 Data alswa ke-2 111lal tes ka-1

12

IH lal tes ke-2

56

IJilai t"s ke-3 llllal te'l ke -4 Data siswa ke-3 Hi lal tes ke-1 Hllal te'l ke-2

45 67

IH la l tes ke-3 IH la I tes ke-4

45 34

78 90

OAFTAR II lLA! :

dan ~encetak daftar nilal } FOR Indeks_Sisw~:=l TO JumSiswa 00 SEGitl Jumlah := o; fOR Indeks_Tes :: 1 TO Jv~Tes DO

Ho 11\la i ke-1 Hila\ ke-Z tlilal ke-3 Nilai ko-~ Rata-rata 90 . 00 89.00 76 .00 515 .0(: 77. 75 f1 2 12.00 56.00 78.00 90 . 00 59 . 00 3 45.00 87 . 00 ~5.00 34 .00 47 . 75

K~taranga n

LULUS TI DAl\ TIOAK

+ Oatall~ la i [ Ind e ks_s; s wa , l n d Ak s_Tes];

Jumlah := Jum1an Rata_rata : = Juml~h I JumTes:

Program 9- 5.

IF Rata_ra ta >= 60 THEN Kelulusan : = 'LULUS '

Sesuai dengan contoh eksekusi Program 9-5, p roses pemasukan d:Ha nilai ke dalam array DataNilai (Proscdur Pemasukan_Data) adalah sebagai berikut:

ELSE ·

KeluluSAn : :

'TIOAK ';

WRITE (lndeks_slswa:2 ); FOR Indaks_Tea : :1 TO JUmTes 00 WRITE (OataHilai[lndeks_Siswa, lndaks_Tes] : 11:2J:

[1,31

WRITELH (Rata_rata :11 : 2 , l(alulu~n:10) EHD;

[2,31

ENO· . IEGlH { progra. utaaa P. .asukan_Oata (JUMS\swa, Ju.Tes) ; Proses_dan_Ca~ak_Data (JumSiswa , Ju.Tes);

[3,11

£3,31

Gam bar !J- 7. Prou1 p~mtu11lcan data let array

M~~

END .

Perh.itun gan nilai rata-rata dilakukan dengan m enghi tun g total nilai per tiswa dan sebelumnya variabdjumlah diberi nilai 0. Kemudian nilai ratar.ua diperoleh berdasarkan: (1.

.20): 3

15 1

total nilai seorang siswa Fata-rata

=

Pemyataan di atas jelas menimbulkan kesa.laha.n saat melaksanakan READLN(Nilai_Tes{6}), sebab Nilai_Tes[6} sebenamya tidak ada. Kes'alahan penunjukan terha.dap elemen yang tak ada, ternyata tidak rerdeteksi saa.t program dieksekusi . Untuk mengetahui kesalahan semacam ini, pada program pcrlu discrtakan pengarah kompiler {$R+} yai ru pengarah agar kompilcr m cmeriksa kawasan array . Dengan cara ini. saa r READLN(Nilai_ Tesf6]) dijalanbn. program akan terhenti dan campi] suatu pesan kcsalahan.

Jumlah tes

pcrnyataan yang diperlukan : Jurnlah := O; FOR tndeks_Tes:=1 TO JurnTes DO Jurnlah := Jurnlah + DataNIIalllndeks_Siswa, lndeks_Tesl. Rata_,-ata := Jurnlah 1 JurnTes;

IX.S ARRAY SEBACAI PARAMETER

pcncntuan lulus tidak siswa d1 atur oich pcrn y.nnn.

Arr ay dapat dilewatkan kc subp rogra m bcrkedudukan scb~gai paralllctcr, bai.K sebagai par.1meter nilai arJu pun parameter variabcl. Namun sehai knya sua ru ar ra y d ilewatkan kc dJlam subprog rJrn sc b:.1 ga i parameter nriabcl, unruk mempcrccpat proses (seb::tb kalau dilcw:nkan scbagai parameter nilai akan terjad i pcnyalinan saar subprogram dip:mggil, d an hal ini tentunya mernakan wa ktu . Apalagi kabu array mt·ngandung elemen yang banyak ). Hanya saja jika dilcwatkan scbaga i par;]mCtcr variabel, pen gubahan elemen array, padJ subp rog ram :~kan mempengaruhi parameter akrualnya .

IF Rata_rata >= 60 THEN Kelulusan := 'LULUS' ELSE Kelulusan := 'TIDAK':

Untuk mencetak data ·per

~ is'.'va , imtrubi v an f: di!"crlukan:

WRITE Ondeks_slswa:2l; FOR lndeks_Tes:=1 TO JumTes DO WRITE mataNilalllndei<s_Siswa, lndel<s_Tesl :11 :21: 'h'RITELN 1Rata_rata :11 :2, Kelulusan :10l

Untuk mdakukan proses yang scrupa dari si s,,·;; yang tcrakhir, pernyataan yang dipakai adalah:

Contoh berikut didasarkan pada Program 9- 5. Pad;; bagi:.1n dckbr asi

,·an b pcrtJlllJ

.;;~ r:~p a1

FOR tndei
~1rosedu r pcrlu ditulis mmjadi:

PROCEDURE Pemasukan_oa~ lVAR JumSiswa. Jumres: BYTE ; VAR DatJNIIal : PenampungNIIall; PROCEDURE Proses_dan_CetaiLOata uumSiswa, JumTes: BYTE; VAR DataNilal : PenampungNiiall;

Pada saar pemanggilan prosedur, pernyataan yang Jiperlukan: END;

IX.4 MEMERIKSA KAWASAN ARRAY

Adakalanya penunjukan terhadap clemen array rernyata di luar kawasar.

PemasukarLData uumslswa, Jumres, DataNIIall: Proses_dan_CetaiLData Uumslswa, Jumres, DataNIIall;

IX.6 PENUCASAN ARRAY

indeks array. Misalnya dideklarasikan: VAR NllaiTes: ARRAYI1 ..51 OF LONGINT:

dan kemudian terdap:lt pcrintah: FOR lndekS:=1 TO 6 DO READLNlNIIaLTestlndeksll;

Penyalinan isi suatu array ke array lain dapat dilakukan mclalui instruksi penyalinan per elemen array. Sebagai cont oh, kalau A dan B masingnusing berupa array dcngan pendeklarasian s.cbag:1i bcrikur: TYPE TlpeArray • ARRAYI1 .. 51 OF BYTE : VAR X, Y : TJpeArray;

153

~

penyalinan elcmen dari array X ke Y dilakukan dengan perintah :

X

FOR 1::1 TO 5 DO : YUI :"' X!ll:

Pada T1,1rbo Pascal, penyalinan dari dilakukan dengan cara menyalin secara nakan pcnugJ.san arra y. Tcta pi hal ir:.i mcmp unyai t1pe ,. l!J g sama. Scb :1ga1 y :=X:

identik dcn gan:

suatu array ke array lain d:1pat keseluruhan dari array m cngguhan ya bcrlaku jib kcJ u:t ;~rray contoh:

TIPE DATA TERSTRUKTUR RECORD

Record m crup;1kan jcnis d.1t.1 terstruktur, yang mcngandung sejttr nLd 1 clcrnen deng :m setiap elemcn bi~a mcmpunyai tipc dat a yang bc rla ir u 11 Ma~ing-n1.1sing elcmw dalam record dikcnal dcngan ~cbut.tn _6 <' 1d. St·r '-'1 , Jlcid mcmiliki nama tersendiri . X.1 MENOEFINISIKAN/MENDEKLARASIKAN RECORD

FOR 1:=1 TO 5 DO

vm

:=

xm:

Bcnruk pcnddinisian record: RECORD daft..ar _fiel d..1: tlpeJecord_1: datwr _fteld...2: tlpe_record...2:

caftar. fleld_n: Upe_record_n END

M as ing-masing dajtar_jil'ld berupa scbuah a tau bebcrapa Jleld. · Jd, .• dajiar ..:flt"iJ te rdi ri lcbih dari satu jield, an tar field ditulis dcngan pem i,.d, bcrupa tanda koma. Comoh pendefinisian dan pendeklarasian data bcrtipe record: TYPE FormatTanggal • RECORD Tanggal : 1..31: Bulan . : 1..12: Tahun :WORD

·END;

VAR Tanggallahlr • FormatTanggal: FonnatTml,'?._~·II didefinisikan

sebagai record yang mengandun g .fir/,/ Tanggal , Rtt!att dan Talum. Sedangkan va riabel Tangga/Lahir dideklar.h • kan benipc FormatTanggal yang berarti variabel tersebut bcrtipe n·.. ,,,, yang merniliki tiga buahfield. Dengan pendeklarasian dcmikian, vari:~hd TartggalL1!tir dapat digambarkan scbagai berikut: f"l')

"'

Kadang-kadang dijumpai adanya record yang mengandung:field yang juga bertipe record. Record yang mengandung record memang cliperbolehkan . C ontoh pendefinisian/pendeklarasian record yang mengandung record adalah sebagai bcrikut:

TanooaiL.ahlr

r~·.sr 10-f. G.sm • .sr.stl stbu.sls rtcortl TYPE FormatTanggal = RECORD Tanggal : 1..3~j Bulan : 1.. 17: Tahun : WORD END ;

Jika dikehendaki, pendeklarasian variabel bertipe record dapat ditulis secara langsung: VAR Tanggatl4hlr : RECORD Tanggal : 1..31: Bulan : 1..12: Tahun :WORD END;

RecordTeman

Nama : STRINGI61i Tgllhr : FormatTanggal~ Alamat : STRINGt351; · END;

Contoh yang lain: CONST MAKS_jNS.J!RG

VAR DataTeman

= 20:

{ Masklmum darl jenls barang )

TYPE Recorctearang = RECORD Kode : STRINGt61; . Nama : STRING115l; Jumlah : WORD; Ukuran : ST~INGt101} HargaPerunlt: REAL END; Oattarilarang ,. ARRAYI1 ..MAKS_jNS_BRGl OF RecordBarang ;

Pada contoh ini, Barang merupakan array yang terdiri dan 20 elemen yang bertipe record. Setiap elemen dan array mempunyai 5 buah fie/!

earangl11

Nama

=

RecordTeman :

Pad a contoh ini , variabel DaraTeman d:!pJt digambJrbn scperti tcrlihat Gambar 10-3 .

r:~da

Nama f

I · -

Tgllhr

Alamat

r

,,--

'-----'----~ -.L.__==--L Tanggai

Bulan

/

Tahun

l....-

1 J

DataTeman

•

Gambar 10- J. Gambaran ruord di dalam ruord

VAR earang : DattarBarang:

Kode

= RECORD

Jumtah

f

sarangt2l Barangt3l earangt20l

UkUran

Variabel DataTeman mengandung tiga buahfie/d bcrnama Nama, Tg/Lhr dan Alamat. Field Tanggal sendiri mengandung tiga buah field bernama Tanggal , Bulan dan Tahutl .

HargaPeruntt

X.2 MENGAKSES RECORD

Field dari suatu record dapat diakses dengan mcnggunakan bentuk: -- nama_variabeiJecord . nama_field

Misalnya, untuk memberikan nilai 2 ke field Tanggal dari variabel Tang([alLah ir, pernyataan yang diperlukan:

Gambar 10- 1. Array htrlipt ruorJ

157 156

pemasukan jumlah jenis barang. Pemasukan data sebanyak JumBarang diatur melalui pernyataan FOR, sebagai berikut:

ranggaiLahlr.Tanggal := 2;

earang!21.Nama := 'Oisket DENSO' ;

~erupakan salah satu cara

untuk men gisikan dau nama barang ke field

Nama dari record Barang yang kedua .

WRITELN tBarangl2l.KodeJ;

rnerupakan pernyataan untuk mcnampilkan kode dari barang yang 'kedua . Untuk mengakses data field Tanggal pad a varia bel DataTonan yang rnc1 ;;andung record di dalam record diperlukan bcntuk pcngaksesan berupa: oataTeman.TgiLhr.Tanggal

Misaln ya, untuk memasukkan data tanggal, pernyataan yang dipakai: READLNtDataTeman.Tg!Lhr.TanggaiJ ;

Di samping mengakscs s.:buahfield, tcrdapat cara unt uk mcng ak scs isi ra keseluruhan dari r.:cord. Mi salr:ya saja seluruh dat a yang ada pada record Barang{2} disalin ke Barang{3}. Kalau menggunakan pcngaksesan per field maka diperlukan scdcretan pernyataan sebagai berikut: Barangl31.Kode := earangt21.Kode: Barangt31.Nama := aarangt21.Nama: sarangt3Uumlah := earang!2JJumlah: earang!31.Ukuran := earang!21.Ukuran: earang!3l.HargaPerunlt := earang!2l.HargaPerunlt;

Sedangkan kalau menggunakan pengaksesan record, cukup menggunabn

FOR lndelcsBrg:= 1 TO JumBarang DO BEGIN CLRSCR; WRITELN t'Oata Barang Ice··. lndeK5BrgJ; WRITE rKode Barang : 'J: READLN tBarang!lndeksBrgl.Kodel: WRITE t'Nama Barang : 'J; READLN tBarangflndeksBrg!.NamaJ; WRITE t"Jumlah Barang : 'J ; READLN tBarangtlndel<sBrgi.JumianJ: WRITE t' Ukuran/satuan : 'J : READLN !Barang!lndel<s Brgi.Ukura'lJ; WRITE r Ha rga per unit : 'J: READLN !Barangl!ndeksBrgf.HugaPerUnltJ; WRITELN END

Untuk mcma~ukbn kodc bara ng misalnya dipaka i pcrnyataan: READLN !barang!lndel<sBrgi.KodeJ:

Selanjutnya data barang diurutb n (di -sorting) bcrd:1sarkan kode barang dengan mcnggunakan mctodc hu~.~!e-so rr. Mctodc ini me rupakan metodc ya ng palin g scderha na dabm m.:ia kukan pcnguaHan data (da ri scgi logika maup un pemrograman ). t,' tJpi mcmpunyai kclcmahan dalam hal kecepatan p roses (mcm erlukan \•:aktu yang lana ). Proses peng urutan dilakukan dcngan m embandi ngbn sclu ruh data . Hal ini ditunjukkan pada prosedu r So rti11g_])aca . PROCEDURE Sortlng_Data UumBarang: BYTE ; VAR sarar19: DaftarBarangJ; { untuk: melakukan pengurutan tertladap data barang berdasarkan k:ode barang menggunakan metode bubble·sort }

VAR Barangl31 := aarang!21 :

Contoh program yang melibatkan da ta bertipe record disajikan pada Program 10-1. Program di gunak an untuk menampilkan daftar penjualan b arang. Pemasukan data penjualan bara ng diatur melalui prosedur PemasukarL..data. Data dimasukkan melalui papan-ketik diawali dengan

I, J : BYTE; Recsementara RecordBarang; BEGIN - · · FOR 1:= 1 TO JumBarang ·1 DO FOR J: =l+1 TO Jumaarang DO IF Barangfii.Kode > aarangUI.Kode THEN BEGIN

159

~

kode

RecSementara := earanglll; earanglll := earangUI ; sarangUI := RecSementara END END: { akhlr sortlng_.data }

Ban.ng(I)

KP-002

.....

BanngUJ

05-{)12

.. .. .

RecSemenuu

RecSementua : Bar:lng[I) --+

Seandainya pwgurutan bukan b erdasa rkan kode barang, maka pernyataan terscbutlah yang perlu diubah. Misalnya, ap abila da ta barang disorti ng berdasarkan harga barang, pernyataan yang diperlukan adaiah: IF earangtil.H argaPerUnit > earaMUJ.HargaPerUnlt THEN

Pcrlu dikct ahui tanda > dalam pernyataan IF dimaksudkan untuk mclakubn penguru tan secara naik (ascending). K alau dalam bentuk bil angan, u~uran sepcrti 1, 4, 5, 7, 8, 9 dinamakan dengan pen gurutan sccarJ naik , scd:mgkan urutan 9, 8, 7, 5, 4, 1 dinamakan urutan menurun (desccndirtg ). Untuk mclakukan pen guru ran secara turun, tand a > cukup diganti dengan tand a < Pernyataan: IF earangUJ.Kode > BarangUJ.Kode THE N BEGIN RecordSementara := earangm: earang!ll := earangUI : earangUI := Recsementara END

menyatakan bahwa jika Kode dari Barang ke-I bernilai lebih dari Kode dW Bara rtg ke-j, maka data antara Barang ke-I dan Barang ke-j sating ditukarkan (penukaran berlaku untuk seluruh jieltl). Untuk keperlU211 penuka ran data, diperlukan sebuah record penampung data semenun (RecSementa ra). Proses penukaran dilukiskan oleh Gambar 10-4. Bagian terakhir dari Program 10-1 berupa bagian untuk menampilbn data barang. Proses penampilan data barang dilakukan pada proscdt11' Proses_dart_CetaLData . Pada prosedur ini, total hasil penjualan <Wi masing-masing barang dihitung berdasarkan rumus: Total per barang = Harga per unit x ]umlah barang

B:uang[I)

DS-012

.. ...

BanngUJ

--

I Dmng[IJ

~

!{unci pengurutan berdasarkan kode barang terletak pada pernyataan: IF earangHl .Kode > earangUJ.Kode THEN

.... .

RecSemenura KP-002,L . _..... ___.J .

?

?

KP-002

Barang[ l]

DS-012

BarmgUJ

KP-002

:= Baran g[JJ

iDS-0 1 21~ .. .. Ih rang[l ]

f--+-

+--

j

RecScmentara6P-0021 .....

13arangUJ:= IDS-012j .. ... n.ccSc mcntJ-1

I r:~

Buan i; U)

1

IK P-0t.l2i .....

j RrcSementara

Gambar 10 -4. Prosts pcr.ultaran data

Sedangkan total pcnjualan dihitung J cng an mcnggu nakan pern yataan: Tota iNilaiPenjuaian : = TotaiNilaiPen]uaian + iOG!Lper _barang

Proses perh itungan total nilai penj ualan d ibkubn dc:ngan menggunakan FOR dan di olah sebanyak jciJi s barang. Scbclum pro~es perhirungan dimulai , variabcl Toral.NilaiPw_jnalarJ haru s dinolkan rcrkbih dahu lu . Sesu dah pc ngeksckusi ~n pernyataan berikut: iotaiNiiaiPen]ua!an := 0: FOR lndeksBrg:= 1 TO JumBarang DO BEGIN TotaLper.J)arang := BarangllndeksBrgl.HargaPerUnir • BarangllndeksBrg1.Jumlah: TotaiNIIaiPen]ualan := TotaiNilaiPenJualan + Tota l_per..barang ; WRITELN ondekSBrg :2. BarangllndeksBrgi.Kode:13. earang!lndeksBrgi.Nama:16, Barang!lndeksBrg1Jumlah:7, BarangllndeksBrg1.Ukuran:14, Barang!lndekSBrg1.HargaPerUnlt:12:2, Totalper_barang:1 2:2>: END;

nilai total penjualan diperoleh. Pada pernyataan di atas, tampak setiap bli sesudah menghitung f'!il~i total per baran g dan total nil ~ i penjualan sementara , da ta-data yang bcrb.itan dengan barang (mcliputi nama, jumlah, ukuran, harga per sa tuan dan total per barang) segera ditampilkan ke laya r.

N ilai total dalam hal ini disimpan pada variabcl TotaLper_bar•

161

160 _,. .~ .. ; :

~ .;......~•-'"-"·""'·"'·•"''' .. 'c· .......

... • • ... ..

i . :.. __

•· c ·•lf¥ 11?\!fl.±.:..'§. ~

,. WRITE ( 'Ukuran/aatuan : •); REAOLH (Barar.g[IndekaBrgJ .Ukure 1i j : WRITE ( 'Harga per unit : •) ;- -

..

PROGRAM OataPenjualan;

,. -------------------------------------------- •>) 1• eontoh penggunaan record

REAOLH (Barang[Indel
<• pada pemrosesan- data barang hasil penjua1an ) <• -------------------------------------------- •>

USES CRT; CONST HAKS_JUS_BRG : 20; TYPE RecordBarang

~

H~skimum darl jenls barang

RECORD Kode llama Jumlah Uk uran Ha rgaPerUnit :

J

STRltiG{6] ; STRIIIG{ 15] ;

PROCEDURE Sorting_Oata (JumBarang ;

~,,,

VAR Baran g : ''"' l ~ r iJa r ang) ; Vntu~ melakukan pengurutan tu h o oJ • ., ' l•t. o b•ra ng berdasarkan kode bar ang

mengg unakan metodo bubble-go rt

\~ORO ;

STRING(10] ; REAL

END ; Da ftarBarang : ARRAY [ 1 .. IIAKS_JtiS _BRG] OF Re co rdBarang; VAR OaftarBarang ; Barang · Ju~Barang : BYTE; PROCEDURE pgma suka n_D ata (VAR JumBarang : BYTE ; VAR Barang : DaftarBarang); { untu k mcma suk kan data oacang ) VAR 1 .. MAKS_J IIS_BRG; IndeksBrg BEGIN CLRSCR ; WRITEUI ( ' PEI~ASUKAII DATA BARAIIG : ' ) ; HRITELII; WRITE ('Ada berapa. janis data barang : '); READLH (JumBarang); FOR IndeksBrg : =l TO JumBarang 00 BEGIN CLRSCR ; WRITEUI ( ' Data Ba rang ke - ', IndeksBrg): WRITE ( 'Kode Ba r ang : ' ); READUI (Barang(I ndeksBrgJ. Kode) : WRITE ('Nama Barang : ') ; REAOUI (Barang(IndeksBrg].Uama); WRITE ( 'J um 1ah Barang : ' ) ; READLH (Barang( IndeksBrg] . Jumlah) ;

VAR I. J RecSecnent .M.ra

BYTE; RecordBara ng ;

BEGIN FOR I::l TO JumBarang-1 DO FO R J : :I+1 TO JumBarang DO IF Barang[I] .Kode > Barang[ J J BEGIN

•

IIIEII

RecSementa ra : = Baran g(lJ Barang[I] := Ba rang[J]; B~ra ng [Jj : = R~cSement a r• EN D EUD; { alo.h ir 5or ting_da ta ) PROCEDURE Proses_dan_Cetak_Oata (VP ~ _ ,.,,,~ , · nng: BYT£;

Vfo~ •-~ "

mencetak data dala• bentuk t&be l Perhitungan : menentukan total n i ' • VAR IndekaBrg ; BYTE; TotalNilaiPenjualan, T'o ta l_per _barang BEGIN CLRSCR ;

''J : DaftarBarang);

• 111 .. , ...,

REAL;

WRITEUI ( 'DAFTAR PEilJUALAII : ');

h~ J ·'

,

11 ...,• t.._. ,~,, Jumlah Ukuran/satuan WRITELN( ' No l
l~= = ==== = ============ ==

163

162

---·~·~;"':Q:;~o· ~ - ·· :-~.' .. u·):;.~

Tota1Ht1a1Penjualan := O; FOR Indeks8rg:=1 TO J~Barang DO BEGIN Total_per_barang := 8arang(lndeksB.r9] :HargaPerUnlt • aarang(IndeksBrg).Ju.lah;

Nua larang JUII 1ah Barang Ukuran/aatuan Harga per un1t

: Nonttor ECHO : 4 : buah

: 137000

TotalNilaiPenjualan : = TotaltlilaiPanjualan + Total_per_barang;

DAFTAR PEHJUAL.t.tl :

WRlTELN (lndeks8rg : 2, 8arang[Indeks8rg} . Kode:13,

No

8arang(IndeksBrg].tl~ma : 16,

Barang(IndeksBrg).Jum1ah:7, Barang[IndeksBrg] .Ukuran : 14, Barang[IndeksBrg].HargaPerUn i t : 12 : 2, Total _per_barang : 12 :2);

Kode

&&rang

H. . • aarang

J~lah

Ukuran/.atuan

Harta/unit

3

OS-012 KP-002

K ert~•

Olaket OftiSO Printer

~10- 003

l-Ion I

10

t or £CliO

pak

17000 . 00

Go•

28000.00

56000 . 00

b•JAh

13 7000.00

5• 8 000.00 JH OOO . 00

_

WRITELN(

":================= ==== ============ ====================·,

·======================' ); ~

170000.00

=============================== === ==== ==3================== === === ===== ===: ;: J UMlah ;

EtiD;

TotAl

==========·=========== = ==: = ================================ = ==~========== = ==

Program 10-1.

WRITEUI ( ' JUMlah : ' :54, Tot a llli la i Panjua lan: t 2 : 2) ; EIID: { akhi r Proses_dan_Catak _Data } BEG III { program utama } Pemasukan_Data (Jumaarang , Barang ); Sorting_Data (JumBa ra ng, Sara ng); Prosas_dan_Cetak_ data (JumBarang , Barang); READLN

X.3 MENGCUNAKAN PERNYATAAN WITH Pernyat;tan with dipakai uncuk kcpcrluan Dengan menggunakan pernyataan ini, nama kali dan selanjurnya fie ld dapat diakse~ t:lnpa lagi. Bcntuk pern yataan with scndiri ada lah

rcng::tkscS.1ll JatJ f< '( O rtf reco rd cu ku p dis cbut satu mcnycbutkan nama recMd scbagai berikut:

WD .

WITH nama_record DO pernyataan

contoh aksakus l: Ada berapa janis barang : 3 Data Barang ke-1 Kode Barang Nillll& Barang JUIII l&h Barang : Ukuran/satuan Harga par unit Data Barang ka-2 Kode Barang Na ... Barang Ju.lah Barang : Ukuran/satuan Harga per unit Data Barang ka - 3 Koda Barang

KP-002 Kartas Printer 2'

dos 28000

DS-012 01 sket OEtiSO 10 pak 17000

~I0 -003

Misalnya dalam pendetlnisian dan pcr:dcklarasian : CONST MAKS....JNS_BRG = 20; {Masklmum darl )enls barang } TYPE RecordBarang = RECORD Kode : STRING!61; Nama : STRING!15l ; Jumlah :· WORD; Ukuran : STRING!10l ; HargaPerunlt: REAL END; DaftarBarang = ARRAY!1 .. MAKS...JNS_BRGI OF RecordBarang; VAR Barang : DaftarBarang:

deretan pcrnyat aan sepem:

165

164

..

-.~

,..,...

~ · : ~· .

Apabila dinyatakan dengan menggunakan with, pemyataan yang perlu ditulis berupa: · ··

FOR mdeksBrg:=1 TO Jumsarang ~ BEGIN CLRSCR; WRITELN I'Data- sarang ke·'. tndekSBro>: WRITE I'Kode sarang : 'l; ~ READLN IBarangUndekSBrgi.Kodel; WRITE !'Nama sarang : 'l; ·READLN maranglln~.£!!91.Namal ; WRITE I'Jumlah Barang : 'l; READLN IB)fangllndeksBrgUumtahl; WRITE I'Ukuran/ satuan : 'l: READLN IBarangllndel<sBrgl.Ukuranl: WRITE l'Harga per unit :-~>: · READLN IBarangllnQfkS.ill9).HargaPerUnltl; WRITELN ~ '

WITH DataTeman.Tgllhr DO BEGIN Tanggal := 20; Bulan := 8: Tahun := 1969 END;

Seandainya terdapat beberapa data record, dan secara bcrsamnn tcrda pat operasi untuk m enga kses .field da ri bcrba gai record, penu!is;m pcrnyataan with yang dipcrlukan bc:rbentuk : WITH nama_record_1 DO WITH nama_record...2 DO

END ~

dapat ditulis mcnjadi WITH nama_record_n DO ·pernyataan:

FOR lndeksBrg:=1 TO JumBarang DO WITH sarangllndel<sBrgJ DO • BEGIN • CLRSCR; . WRITELN !'Data Barang ke··. lndeksBrgl; WRITE I'Kode sarang : 'l; READLN IKQ.gg!: WRITE ('Nama Barang : 'l; READLN INamal; WRITE I'Jumlah Barang : 'l; READLN Uumlahl; WRITE I'Ukuran/satuan : 'l: READLN IUkuranl; WRITE I'Harga per unit : 'l: READLN IHargaPerUnltl; WRITELN END

Bentuk seperti di atas dapat digantikan dengan bentuk penulisan scbagai berikut : WITH nama_record_1, nama_record...2, ... , nama_recoic:Ln DO pernyataan

Dengan bcrdasarkan tipe yang dibahas pada Subbab X.l, m1 sainya didek larasikan : VAR TanggaiTransaksl : FormatTanggal; Pembellansarang : RecordBarang;

Seandainya terdapat pemyataan:

Pada pcndefinisian VAR DataTeman : RecordTeman:

Qihat Subbab X. 1), misalnya ingin memberikan data ke field

Bulan dan Tafum , pemyataan yang diperlukan: DataTeman.Tgllhr.Tanggal := 20; oataTeman.Tgllhr.Bulan := 8; oataTeman.TgiLhr.Tahun := 1969;

Tar~ggal.

WITH PembellanBarang DO BEGIN WITH TanggaiTransaksl DO WRITELN I'Tanggal Transaksl: •. Tanggal, ·; ·, Bulan, ·;·, Tahunl: WRITELN !'Nama barang : ·. Narnal: : ·. Jumlahl: WRITELN I'Jumlah : ·• HargaPerunltl: WRITELN I'Harga per unit: ·. To tall WRITELN !'Total END;

167

166

... .. .....:?_,.-!, ~..,:.:+o.--._ ...........-"'".'=" ''~''1,11 ~- ~

....:~ .. -

G.ll~ ..... ""'Lembur: BYTE:

pernyataan yang mengandung with tersebut dapat ditulis menjadi:

It•·-·

END WlTH PembelianBarang, Tangga!TransaK51 _oo_ BEGIN WRITELN I'Tanggal TransaKsl: ', Tanggal, '/', Bulan, '/', Tahunl ; WRITELN t'Nama barang : •• Namal; WRITELN I' Jumlah : •. Jumtahl: WRITELN I'Harga per unit: ·• HargaPertJnltl: WRITELN nota! : '. To tall

RecornPegawaiHonorer = ,.,..........~'

""' \,1. \1"'

,,.,,~,~ :

lONGINT;

"" 11111 \!.ti\Jamlembur:

BYTE ;

f~••~

Untuk mcnghemat mcmon .•. " ''' ' ' l..cdua record d:~pat dijadik an satu

Dari beberapa contoh , terlih at ba hwa p :>,;gu naan pe rnyaraan with dapat menghcmat penulisan program . Unruk mcngakscs sejumlah data _field , nam a record tidak pcrlu ditunjuk be:bli-bli dengan menggunabn bentuk l!allza _record.tumw-Jield mel:l ir:b;. cukup ditulis sekali saja .

TYPE StatusPegawal = ITETAP. Hl''\~~~~·l RecordPegawal = RECORD \ 1t:INC!61; NIP ~~ t:ING!151; Nama , 1 ~wsPegawal OF CASE St"' ' 1t 1AP : tGajiPokol< : LONGINT; JumlahJamlembur: BYTE l: 1, 1 , 1111 ~erja : BYTE!; HONORER : (i t • •• I I' ll I END ·• I1 penutur ' P ' ' • VAR 1 DataPeqawal RecordrN ' " '

X.4 MENGGUNAKAN VARIANT RECORD Bebcrapa con toh di depan mcmbcrikan ga mbaran record dengan tipe data dari clcmcn b ersifa t tctap. Suatu :1ghc mat memori. Sebab dengan mcnggunakan altcrnatif ini, data yan g berbeda dapat menempati lokasi memori yang sa ma. Misaln':a saja. >ua tu reco rd pcgawai mengandun~ data s:.:bagai bcrikut : !'vlcli pu ti:

STRINGI61;

(m cn gg u nak:~n va riant rt:e<'t ·:' ' ' ' •11 ·'· 11 :

END:

(1) Umum :

:

· STRINGI151;

N omor induk karvawa n (NIP) Nama

(2) Khus us:

a. Jika pegawai TET AP, dat a berupa: - Gaji pokok - Jumlah jam lembur b. Jika pegawai HONORER , data berupa: - Jumlah jam kerja Apabila dat.a pegawai tetap dan hono rer disajikan dengan dua buah record yang berbeda, definisi yang diperlukan bisa berupa sebagli

,1 w,.., hagian tetap dan bagian yang I d t• 1t d Suaru vau .1tll rccor" dJ p.H ~ 11 • , ..• , Na ma dan Status (terktJk . pa a 111 1 bcrv aria si . Pad:>. contoh, f1< · ' ,. up dari uariant rewrd. Sclcbthnya C ASE) mcrupakan bagi::n ' ''.':· , ( 1.,,itu Status, GajiPokok, jllmlah]ammcrupak.tn bagtan ya ng bcr• ' '... /.1 ,c pcrti S tatw (yang tcrlet~k an ta_ra Lembu r dan Jumlal~fam Ko]il\ ' ,,.: field . Kcdudukan tag j1eld y~ttu CASE-OF) dinamakan scb 11 '' ;tf ,,.!t l •. Field ini haruslah bertipe ord mal menrntukan haaia11 field vang I•· ·• '. ,ll,,t )11 • field u<::taftH mcny·atakan bahwa: . 6 . . . {ttpc skalar, kecuah real). P;~tl \ , aka 1 111 1 - Jika Status bermlat TE ' ,,;i berupa: fie/d dari ba'gian yang l•t" v A 1 1 (i) GajiPokok (ii) Jwnlah)amLembur . 11 · ll . maka 1 1 jika Status bernilai Ht l Nl i berupa: o/ I.J' }lela dari bagian yan g I .,., · I

berikut: TYPE RecordPegawaiTetaP = RECORD : STRINGI61: : STRINGI151 ; NIP LONGINT; Nama

(i) /um/ahfamKa.f,1 ·

Poia

d:~ta

-

•

pa d a varnbel

I

, , 111 , 11 ; )'ang ' '·' 1·" · f 1 ,· , ;uJba r 10-5.

kl ·k . dtdc · a ras1 ;an

bcrtipe

RecordPe_~tnlllai dinyatakan d .&!""

16Y

168

.

~~

~

7 ~~ :....__t1112 r

w

16 t--n' ~WIR H"-' PGN

6

1bvt

I "TT~ ~

-:srox

1 t"lif

~if :

1 !7fn' ,

~ sc

~Ok .uniah.Jaml.embur

C.. ml>c-~.,

(• (e

1Jumtah.JamKerja

120

4bvt

_j !Kosongl !bl status

=

---------------------------------------------------

Contoh pengguna.n variant record

-------------------------------

(•

li~H!I

HONORER

TYPf

va rianl ruord

~~ ordPegaw•;

=

HOIIORER);

~ECORO

_,,-n •..:· ~"man nilai da ri r'1.~ jleid bi sa lebih da ri dua. • r:dc ~.i..c""lt- berkaitan de ng:m kemungkinan ni lai dari r.Jg fie 1.. .:

NIP

: !ITR!IIG [ 5];

lla " •

: 3TR!IIG( 15 J ;

CASE Status · S tat us Pegawat OF TE TAP

( G•j i Pokok

~1 :u~ .iirulis di dalam tanda kurung .

HG '.; v H.F.R

( J •-""lahJa~>Kerj;a : BYTE);

HOIIORER EtlO;

(GajiPokok Jum lahJa mLcmbur OumlahJamKerja

LON GINT; BYTE); BYTE );

\IAR

sc~u.:ah tanda kurung tutup terdapat tanda titik koma • _liKa .oJ .1 kemungkinan nilai dari tag fie ld yang tid~ ,!irer~unakan, bagian dcklarasi field cukup diculis beru('l U:1~l kurung buka dan langsung diikut t d en gan kurur:?

D"taPega~>~ai

~eco r dPvgaw ...

JAwab~n

CHAR ;

OajtBer•ih

l~I G itiT ;

( He•~aukkan data ke recor o yang

••11bt~kan

v•riant recor d

CL~ SCR :

KO'.;ST AN_)(:(); tidak ada spesifikasi field untuk KONST AN_x.

WITH DataPegawa ; 00 BEGIN

KONSTAN~"X

tidak ada field khusus" . (cara lain: kemungkinan tersebut ridak usah ditulis) • Berbeda dengan pernyataan CASE, CASE pada pendefini5lan variar1t record tidak diakhiri dengan tND. • Pengaksesan terhadap field pada bagian yang bervari.lsi. sepenuhnya harus dikendalikan oleh pemrogram (denglll memcriksa nilai kemungkinan dari tag fi elcl). C o n toh program yang ·melibatkan variant record 6pat dilihat

pa-dl

Pro gram I 0-2. Su atu varrant record dapat hanya mengandung bag:un yang berva.OJsi (tidak mern ilib bagian tetap). Pada bcntuk seper..l ini, yang bertiiri

i

!EO IN

rutur- . Misal :

yang mcnyatakan: "Jika tag field bemilai

LO!IGIUT;

Ju.lahJAmlembur : BYTE);

f:rL i.i;.m: TET :\P

.,

CRT;

C:nJ r;;:; · •

~

--------

COt~T UPAH_PER_JAN : LOIIGIUT : 3000 ;

!ltatu•Pegawal • CTETAP w< latl.f

.,

•)

t• untuk . .nyiMpan d~ta gajl PQkok, ju.lah ja. le•bur •> t• ~ ju.lah j . . kerja dart pega~at TETAP dan H~IORER •)

HONORER status Jl ....... . -.t,;:;.. • .....

1 bvt•

ta:sun.o: : mAP Gomb3r tV- .:

PROaRAN VartantRecord;

NIP 16b' eUDINSAH Nama

7bvte ···11114

WRITE ( '1lomor Induk Karyowa n . ·) ; REAOLH (HIP) ; WRITE ( ' II~10•Pe9•w• I READLH (tl•ma) :

:

' );

WRITE ( ' Pegaw•i Tetap fY/T)? ' ); REAOLII ( J;awaban) ; IF (Jawaban: ' Y' ) OR (Jawaban:'y') THE!! Statu• : : TETAP ELSE StatiJS : : HOtiORER ; CASE Statua OF TETAP :

BEGIN WRITE( ' Gajt Pokok

") ;

REAOUI (GajiPok ok) ; WRITE( 'Juml ah

j~

lembur

REAOLH (JUGlahJa~>Lembur ) ; Gaji8erath : : GajiPokok +

' ); UP~ _ P ER_JAM

• Ju=1ahJamlpmbur

171

170

.~~. ·.- ~ I •· . , i·•

~-{

END; HOIIORER: BEGIH WRITE ('Jualah Ja. kerja

:

BX

');

REAOLII (JUilllahJa.~erja); GajHleralh :o UPA<'i_PER_JA>l •

J<MOlahJaa~r.la

.-

ex

EtiO E~D;

( akhlr

caw }

ox

WRITELH; WRITELH ('Ga.ll total : Rp' , GAji6erslh : 10); EIID; { akhlr ~
E.S

EIID.

[ { f-

AL AJI BL

BH CL

CH DL

DH

----.....

~·

flags contoh ek.s.ekusi :

Gambar 10-6. Variant rteord yang tidal< m~mililti bagian t(tJp

HOMOr Inouk Karyawan: 11112 ~

HaAI& Pega.,.a i

: AIHR HAJI

Pegawai Tetap (V/T)! Y Gajl Pckok J~lah

j~•

Ga.ji tot,al

250000

1embur

: 150

=

700000

RP

UOQor lnduk Ka.rya.,.an:

11,14

Harta Pec;&w•1 : UOIUSAH P•g-wa i Tetap (V/T)! T Ju.lah j uo karja

Gaj 1 tot& 1

=

Rp

: 120 360000

Program 10-2.

sebagai tag field tidak lagi berupa suaru varia bel, melainkan berupa suaru definisi tipe . Sebagai contoh adalah ripe Registers yang disediakan dalam Turbo Pascai, yang nantinya bermanfaat unruk keperluan pengaksesan DOS . Tipe ini didefinisikan sebagai berikut: TYPE Registers

= RECORD CASE INTEGER OF .Q: lAX,BX,CX,DX,BP,SI,DI,DS,ES,Fiags:WORDl; 1: IAL,AH,Bl,CL,CH,DL.OH:BYTEl; END;

Pendefinisian di atas dapat digambarkan seperti yang tertera padl Gam bar 10-6.

field tidak dipentingkan, brem Hu tag jlcld-nya tid.1 k berupa vari.1bcl. Pada contoh , masing-masingjldd AX, BX, CX . 0.\. BP, Sf DI, DS, ES ldan jFiavs menemp;;ri mem o ri scbanyak 4 byte (tipe woro ; . Sedang kan AL, 1\H, RL, BH, CL, CH, DL dan DH mcnempati 1 byte (ripe byte). Berdasarkan urutan pendeklarasian j l.-1.1, dan sifat b:thwa t'ariant record disimpan mulai mcmori y:mg samJ. maka field .-lL akan berisi bvte oertama dari field AH yang bcrisi bvtc kedua dari .iX, field BL berisi byte pertama dari _field RX, dan setcrus n\"J.

Variant rt:cord yang tidak memiliki bagi:m tetap sering disebur dengan · istilah free u11ion. Pada pemilihan bcntuk ini, nilai dari kemungkinan t4g

X.S INISIALISASI DATA

RECO~D

Seperti halnya array,. memberikan nilai awal terh adap record juga dapa t dilaksanakan dalam deklarasi CONST, berdiri sebaga1 ko nsranta bc rt ipe. Bcntuk konstanta record: pengenaiJecord : tlpe_pengenal = (flelcL1: nllaL 1; fleld-2: nllal-2;

flelcLn: nllaLn)

Program 10-3 melukiskan contoh inisialisasi tcr had ap da ta rcwrd, bernama Data, yang digunakan untuk menyimpan d:ltJ permainan . Pada program ini, nilai pada record Huruj; X dan Y untuk masing-masing indeks array: indcks == 1. Huruf == #1, X == 7, Y == 3 indcks == 2, Hunif = #2, X == 8, Y == :1 indeks == 3, Huruf = #153, X = 4, Y = 8

173

.•· .•.

~,.

UNTIL pROGR~ Pe~lnan;

c• ------ ----------~:: ---------~-- --- •> c• canton pea.akalan konetant.a record . • , c• ---------------------------------- •l

Poalai_Kin~

<> 0;

( kalau tennyata 0, ulangl

OOTOXY .(X, Y);

( ke postal ta.pllan huruf

WRITE {132); · INC(X, Poslai_Kinl);

( hapua huruf pada layar { poalal baru X

IF X > POSISI_AKHIR THEN BEOIN

I)SES CRT;

=

cotiST JIJI.ILN1

X :: POSISI_AKHIR;

3;

TYPE Oata_Perealnan

= ARRAY(1 .. JUMLN1)

P... nang : : _Indeks ; Seles.al : = T~UE EIID;

Of ~ECORO Huruf : CHAA; BYTE ; X, y

GOTOXY (X, Yl;

EUD ;

cousT Data : Oata_Permainan X: 7 ; y : z l. ( (Huruf : (Hurvf : •z; X : e · Y : 5 ).

., ,

( Huruf : ,153;

X : ~ ;

( record u n tuk indeks arr& y pe rta~a \nd eJ..s array 1-.edu..l I re co r d unt uk I recor~ untuk inde~l array ketiga

Y : 8) );

WRITE (Huruf); DELA Y (80) ; END; DEL AY ( ~00 ); UIITIL Sa leu; ; OOTOX Y ( 1,

k• posiai barv

taoilkAn huruf lunda s..si.at

{ ! :...n:j" !teaaat

2~);

WRI TE ('Pemenang adalah noeor ~ROCfOURf G&MbarPosisiAwol;

~

Pe•enang) ;

EHD ; ( akhir prosedur LombaKecapAt&n

VAR Inde ks : BYTE; 6EGHI

CLRSCR; FOR ! ndeks : :

h•pus

1 ayar

BEGIN t• prograM ut ... •) GaMbArPosia1Awal; L0111bftKQC8P" t"n ; REAOLH E!IO.

}

1 TO J Ut;LAH 00

WITH Dat a (I ndeka ) 00 BEGlH

t~?~tkan kursor ke bar;a Y, ko l ~

GOTOX Y (1, Y);

tulis OOMOr urut t•mpatkan kursor ke bari• Y, kolON X

WRITE (InO.ks); GOT OX Y ( X , Y ) ;

WRITE (Huruf); END ; ( with )

HRITE ('Tekan ENTER.'); REPEAT UIITI l READ KEY : '13 ; COTOXY (I

,2~);

WRITE ( ' 'l; EHD; { akhlr prosedur )

Mengenai instruksi seperti Delay, ReadKey, CotoXY akan dijclaskan paJa

te•patkan kursor k• b&r , ~ 24 . ko10ft 1

2~ );

GOTOXY (1,

Program 10-3.

tulia pAda poais i kuraor

'"'"abaca t001bo 1 EIITER te~patkan ke~b•l\ ke pos isi b&ri•

hapua

tult~

2•.

:

Ba b XII

ko1G3

aemula

PROCEDURE LOMbaKecepatan; COIIST POSISI_AKHIR = 80; VAA

s., ... ,

BOOLEAII;

Indeks, P...nang, Poalsi_Kinl: BYTE; IIEGIM Seleul :: FALSE; lN1DOIUZE;

{ lnlalall...,.sl peab•ngklt bllangan acak )

REPEAT • FOR lndeka : : 1 TO JUMLAH 00 WITH Oata(Indeka) 00 3EGIM REPEAT

Poslsi _Kin l : =

RAtl~

bangkitkan b\langan acak

(8) ;

antara 0 •~oa1 ~gan 8-1

l75

174

,.,

~::

~J~ Z.fl?:..r-"n'".!l"~7r'!:l ,,..J_,. , ,T,.,.~a.' ·~- _..,_'""

..... ~.-....... ,...~

...

~-

"'~,,_,

______ ,., t.r. ..

• .. . -. , ..

.

""*~;-..,. .,.,..·~-:

. .-.!:;'

Pcndeklarasian kedua variabel tersebut mempunyai makna: • Variabd Kapital bisa berisi satu atau bebcnpa karakter hurufbesar, atau bahkan tidak mempunyai demen sama sekali. • Variabd Bilangan bisa berisi satu atau beberapa elemen yang bernilai ancara 0 sampai dengan 9 acau bahkan mungkin tidak mempunyai elemen sama sckali .

HIMPUNAN

}-lirn puna n j ug:~ termasuk sehagai salah satu ti pe data terstruktur . }-lirnpunan ~erdiri dari sejumlah clemcn yan g bertipe sama dan harus bertipe data o rdinal yang memil iki nilai o rd in J.! terietak anrar a 0 sampai dengan 255. Dengan demik ian nilai scpc rti 256 Jt:lUpun -2 tidak bisa rnenjadi J.nggota himpunan. Berbcda den gan array, pada himpunan tidak .Mkehal adanya istilah elemw pertama, kedua dan scbagainya. Disa mping itu , kalau pada arra y ada kemungkinan elcmen dengan ni lai yang satna. pada himpunan tid.1k terdapat elemen yang bernila i sama. Pada masalah tertcntu , penggun aan ripe himpun an sangat membantu dalam mempermudah pcny clcsaian pcm rograman .

I

Xl.2 ELEMEN HIMPUNAN

I I

!'cnulis :Jn hi:11 p:..m.lll r;Jcn1p uny;1 i bentuk : ldaf+..Br _elemenl d.- n~J n da_(tar_c/t'mm dapat beru pa konscanta , va riabel. fun gs i atau sua w u n ~kapa n . Ji ka d~(l,Jr_ t'femm tcrdi ri lcbih dari satu elcmcn, ant arclcm cn

f' c·rlu d i p is;~hbn d cng :~n tan da koma : Ketentu an yang bin, sc tiap clcmcn :~ .~rus bertipc sama. Contoh penul isan elemen dari himpunan:

[ 1. 2, .3. -i. 5] ['A' , 'E' . '1' , '0', 'U ' j z [ 'A ' . . 'Z' . 'a' .. '']

XJ.1 PENDEFINISIAN/PENDEKLARASIAN TiPiE HIMPUNAN Pendefinisian tipe data hitnpunan diawali den gan kata-tcrodang set dJr.

j

of. kemudian diikuti dcngan ripe clcmen .

PJ,l.l co ntoh pcrtJm ;l, I i. 2. 3, 4, 5J mcnyatak an himpunan tcrdiri dari 5 clcmc:n dcngan ni!Ji 1, 2, 3. 4 da n 5. Elemcn seperci. pad a contoh ini dapat di tulis mcnja d1 [ 1..5} . Comoh kcdua menunjukkan b:J.hwa himpun an ['A·. 'E', '!', '0 ', 'U'] tcrdiri dari 5 elcmen berupa hurufhidup (vobl). Contoh ketiga. himpunan bcrisi seluruh karakter yang cergolong sebagai huruf. Contoh kecmpat, mclibackan variabel dan ungkapan. Oalam hal ini , himpunan memiliki 3 elemcn , dengan nilai sesuai dengan isi 01 , 02 dan 02+ 1. Adapun [] menyacakan himpunan kosong.

SET OF t ipe_elemen

Beberapa contoh pendc fimsia n tipe himpunan:

' TYPE Digit = 0.. 9; Hart = !Senln, Selasa. Rabu. Kamls, Jumat, Sabtu, Mlnggu); HlmpunanDiglt = SET OF Digit: HlmpunanHarl = SET OF Hart: HlmpunanKarakter = SET OF CHAR: HlmpunanHurufBesar= SET OF 'A' ..'Z' :

Tipe-tipe di atas selanjutnya dapat dipakai untuk menentukan tipe variabel atau parameter ~ubprogram . Misal :

[D l , 02. D2+1]

[J

X1.3 OPERAS! DAN PEMBANDINGAN HIMPUNAN Salah satu kegiatan yang melibackan himpunan adalah memeriksa suatu elemcn menjadi anggoca himpunan acau cidak . Untuk keperluan seperti ini , Pascal men yedia kan operator bernam a in . Bentuk penggunaan operato r in:

da~

VAR Kapltal : HlmpunanHurufBesar: Bllangan: Hlmpunanlglt :

Elemen IN Hlmpunan

177

~ .,~ ~.:.4'·

•! '

t ·~

.

., = BEGIN { program utama } CLRSCR; REPEAT

, diinginkan untuk mengctahui isi variabel Perit~tah yang bertipc berisi 'H', 'h', 'A', 'a', 'S', 's' atau bukan. Ungkapan nahr yar.g an kalau menggunakan operator in:

WRITEUI ('Pilihan: A) angka H) hurur S) seleui'); BacaTornbol (Perintah, ['A', 'a ' , 'H' , 'h', ' S' , 'a')); CASE Perintah OF

periota h IN ['A' , ' a ' , 'H' , 'h' • 'S' , ' s ']

In~l'"•y un di

atas memberikan nilai b enar (true) jika Perintah berisi salah dari huruf 'A', 'a', 'H ', 'h', 'S' atau 's' . Apabila tidak menggunab n in, ungkapan nalar ya n g diperlukan berupa:

' 11'

WRITEUI ('123456 .... ' );

: ._IRITELII ( 'A BCDEF .... ' j

a~hir

CASE )

UIIT !L Porint a h Ill

('S',

"s' );

END.

bahwa dcngan mengg unakan operator in, penulisan ungkap~n

Perintah pad a prosedur Baca Tombol.

'a'

'H',

END; {

(Perintah='A') OR (Perintah=' a') O H (Perin tah ='H ') OR (Perintah='h') OR (Perintah='S ') OR (perintah= 's ")

nalar menjadi lebih sedcrhana. Contoh penggunaan operator in dalam program bisa dilihat p;~dJ Program 11-1. Program ini sekaligus juga mernbcrikan con toh rncn!lenai parameter prosedur yang bcrtipe himpunan (yaitu para meter Himpw: ;n-

'A',

Program 11-1 .

l

Untuk keperluan pembandingan yang melibatkan himpunan, Pascal mcnyediakan S ope rator hu bungan herupa in. )=, (=, = dan {). Mengenai sifa r-sifatnya dJp at dilihat p :~da Tabd 11-1. label 11-1. Operator hubungan dalam hlmpunan

PROGRAM Himpunan1;

<• --------------- --------------

*l

(• Contoh penggunaan operator !II •) ----- t)

<•

I

Ungkapan

Keterangan

Hlmp1 = Himp2

Memem:sa kesamaan antara himpunan Hlmp1 dan Himp2. Hasll true apabl!a Himp1 sam a Himo2. Dua himpunan dlkatakan sarna jlka jumlah elemen sama aan masmg·maslng elemen sama. Memeriksa ketidaksamaan antara 11lmpunan Hlmp1 dan Hlmp2. Hasll bernilal true apabila Himp1 tldak sama· Oengan Hlmp2. Has:! bernllai true Jllta semua elemen oan Hlmp1 terdapat pada

Hlmp2 (i Hlmp2

USES CRT; TYPE HimpunanKarakter =

Hlmp1 (= Hlmp2 SET OF CHAR;

Hasll bemllal true Jllta semua elemen oar! Hlmp2 terdapat pada

Elemen IN Hlmp

Memeriltsa eiemen adalah anggota hlmPUnan Hlmp atau tldak. Hasll true Jlka elemen adalah anggota dan Hlmp. ·

Hlmp1.

VAR

Perintah : CHAR; PROCEDURE BacaTombol (VAR Perintah: CHAR; HimpunanPerintah : HimpunanKarakter); Membaca tombol terus hingga tombol yang ditekan adalah salah satu karakter yang terdapat pada HimpunanPerintah

BEGIN REPEAT Perintah := READKEY; { baca tombo1 UNTIL Perintah IN HimpunanPerintah END; { akhir prosadur BacaTombol }

178

Himp2.

Hlmp1 )v Hlmp2

Beberapa contoh tentang pern bandingan hirnpwun: Ungkapan

Hasil

[1,2,3] (= [1,2] [1,2] (= [1,2,3] [1,2] (= [3,4] [] (= [1,2,3] 1 IN [1 .2,3] 5 IN [1 ,2 .3] [1,2] = [1,2]

False True False True True False True 179

., -· - - -

_/

Sc

True

[1,2] () [1,2,3] (1,2,3] )= (11

Pemberian nilai himpunan dapat dilakukan sebagai berikut:

~l ~

Tru~

Hlmp1 := ['A', 'E', '!', '0', 'U'I; Hlmp2 := !'A' ..'Z'l;

Untuk keperluan operasi himpunan terdapat n~p operator himpunan bcrupa +, - dan *, Sifat dari masing-masing operator dapat dilihat pada

Pcmberian nilai di atas mempun yai makna:

Tabel 11-2. Tabel 11·2. operator

• Himp1 hcrisi seluruh huruf hidup (\·okal). Jadi memiliki 5 ekmcn. • Himp 2 bcrisi scluruh huruf kapitaL

6perast· himput:an

Kalau lllisalnya dikchcndaki agar 1--JimpJ bcrisi sclun.h huru( rnat1 (konsonan), h;d ini bisa dipcwlch mclalui penugasan:

Keterangan ungl
-

Himp3 := Himo2 - H!mp1 ;

Kcmungkin.m yang lain dalam pcnugas:m himpunan adalah mcnambahhn ckmen baru ke dalam suatu variabcl himpunan . H.1l sc pcrri ini dap.lt dipcroic h mcblui pcnugasan :

Bebcrapa contoh opcras i himpunan~ Un gkapan

Hasil

[1 .~.3 .4,5]~* [1,3,5,6,7] (i,2.3,4,5] * [6.7 ,8, 9,10]

[1,3,5] [) [) [1,2,3,4,5,6,7) [1,2,3,4) (3,4,5] (1,2,3] - [4,6,7]

[1,2 ,3] * [) (1.2,3, 4,5] + [6,7) [1,2,4] + [1,2,3] [1,2,3,4,5] - [1,2} [1,2,3,4,5] - [4,5,6, 7] [4,5,6,7] - [1,2,3,4,5]

Xl.4 PEMBENTUKAN HIMPUNAN

Pemberian konstanta himpunan terhadap v .1riabel bertipe himpunar.

Hlmpunan : ~ Hlmpunan + le!emen_baruJ

Pcmben tukan himpunan scmacam ini niisalnya pada pcrsoalan untuk rncmpcrolch scmua huruf kapit ;d yang rcrd apat pada suatu ka!imar. Mu!a-mula himpunan di-sct bcnqJ:l hi mp un;;r. kosong. Kcmudian sctiJp braktcr dJia m kaiim:H dipcrik sa . Jika br.tkter tcrscbut bcrupa hurut· 1 bcsa r dan kar~ktcr tcrscbut tid:~k rcrdapat pada himpuna n. rn.lka brakrer tcrscbu t dimasukbn kc dalalll h1mpunan. Ha l ini bisa dilihat pada • prosedur BetHHI.:J-iimpu71.111 dalam Program 11-2. Kalan mi ~:1lnya Kalimat t bcrisi 'saya suka TURBO PASC AL', maka Hin~pKar,Jf.aer akan --bcrisi :

j

[ 'A'

'B' 'C' 'L' '0' '

'

'

1

'P' '

PROGRAI
'R' '

= SET

'S' '

'T' '

'U') ,

@F CHAR;

mcmpunyai bentuk: varlabel : = !daftar _elemenl

Jika m1salnya dideklarasikan:

VAR

Hlmp1 , Hlmp2, Hlmp3 : SET OF CHAR;

'

.

1Ril

VAR Kalimat : STRING ; HimpKarakt er : HimpunanKarakter; PROCEDURE BontukHimpunan (VAR Kalimat : STRIUG; VAR HimpKarakter : HimpunanKarakter);

181

.-

END; mbentuk himpunan huruf kap;-tal yang ada p&da KALIHAT

._.

E~

8

dan dit~patkan pada HIMPKARAKTER }

VAR BYTE; Indeks Karakter: CHAR;

END; { akhir prosedur CotakHimpunan

I. ~c

1tc BEGIN HimpKarakter := []; FOR Indeks : =1 TO LENGTH(Ka1imat) DO

:sC1

"'"''"'~~er< .

(I~ J·

BE Gill Karakter := Kalimat[Indeks]; IF Karakter IN ['A' .. 'Z'] THEil If HOT (Karaokter IH HimpKarakter) THE il HimpKara kter : = HimpKarakter + [Karakter)

Etm: END;

{ akhir prosedur BentukHimpunan }

PROCEDURE CetakHimpunan (HimpKarakter : Hi mpunanKarakter) ; Untuk merlcetak .s e 1uruh huruf kapi tal yang terdapat pada HINP KARAKTER ) VAR Karakter

BEGIN { program utama } CLRSCR; WRITELN ( 'Masukkan sebuah kalimat : ·); READLN (Kalimat); BentukH impunan (Kaltmat, H impK a r~k t er) CetakHimpunan (HimpKara Kter ) ; READUI Ell D.

;

Contoh eksekus i : Masuk kan sebuah kalima t : · saya suka, l~RSO PASCAL Huruf kapttal yang m ~ mbentuk kali mat te rseb ut: ABCLOPRSTU Nasukkan sebuah kalimat : saya suka turbo pascal Kalimat tersebut ti dak menganaung huruf kap i tal Program 11-1.

CHAR;

BEGIN IF HimpKarakter = [] THEil WRITELN ('Ka1imat tersebut tidak mengandung huruf kapital') ELSE BEGltl WRITEUI ( 'Huruf kapi ta 1 yang membentuk ka 1 imat tersebut : ');

XI.S MENAMPILKAN ELEMEN HIMPUNAN

Elemen-elemen yang merupakan anggota dari su atu himpunan tidak dapat ditampilkan dengan menggunakan WRITE atau WRITELN secara Llngsung. Misalnya saja HimpKarak ter berisi

[ 'A' 'B' 'C' 'L' '0' 'P' '

Karakter := ' A' ; WHILE HimpKarakter <> [] DO BEGIN IF Ka'rakter· r'N · HimpKarakter THEil BEGIN WRITE (Karakter); - [ Karakter) HimpKarakter := HimpKarak~er END; Karakter:= SUCC(Karakter)

,

,

'

'

t

'R' 'S ' 'T ' '

'

'

'U']

lsi HimpKarakter tidak dapat ditampilkan dengan pernyataan seperti WRITELN
klu bagaimana cara n ya mcn:1mpilkan isi suatu himpunan? Untuk ttperluan mi harus dilakukan sua tu pcn,mga n:Jn tcrscndiri . Sebagai tontoh, misalnya diinginkan untuk menampilkan isi himpunan HimpKarllltJer. Salah satu cara yaitu mula-mula pe rlu mengctahui kemungkinan 183

182

'"

.,

Tipe~u•ik

· pertarna dari elemen . hi~pUl'lan. Pada Program f1-2, _varia~el g;mpKarakter hanya berupa karakter yang_tergolong huruf kap1tal saJa. tentunYa kemungkinan nilai yang pertama adalah huruf'A'. Nilai ini ~:1....-lkan ke variabel Karakter. Langkah selanjutnya, selama HimpKarakberupa himpunan kosong, proses yang dilakukan berupa:

:

(JAZZ, JAZZ_ROCK, ROCK, B\.. \ l E FUSIOII, SLOW, COUNTRY, KASIOAH , KEROIICOIIG) ;

1. Jika Karakter ad:1lah anggota HimpKarakter, maka • Cetak Karakter • Keluarkan Karakter dari HimpKarakrcr 2. P~oJeh karakter selanjutnya dan simpan kembali ke variabel

1

)\;\}

=

SET OF Tlpe~tusl k;

LarlkHua ik

=

ARRAY[1 •• 3) Of Himpun~~usl k;

StringH~ a

:: STRING[20];

LarikHaNa

=

i ~ G,

ARRAY[1. .2] OF Stringlla01a ;

CONST

J&n isHusik · APfl AY[Tipetlusik] f'F STPIIIG[ 15) ( 'JAZZ' ,

'JAZZ ROCK ' ,

'SniiiG',

'FUSION',

'KLASIK',

'ROCK' ,

'SLOt/' ,

'OAIIGOUT.,

' BLUES' ,

'COUiiiR v· ,

'KIISIOAH'.

' KEROUCOIIG ·) ;

VAR

'

SUCC(' A'l aoalah 'B' SUCC('B'l adalah 'C'

OaftarJenisMusik

LarikMusik;

OaftarNa01a

Lar i kll ama;

PP.OCEOURE Pemasu~anOata (VAR Oatr.arJe n isl! u ~ik:

La ri kl~u,., > ·

VAR Oaftarllama : Lar i kllal'!a);

dan sebagamya (Sesuai urutan dJlam ta bel .1\ SCII). Penuan gannya dabm pernyJtaan:

'

'7

KLAS~ ~' . \)(IA.i (.- ()Ui

Hi111punan~uslk

Karakter. Untuk mcmpero\ch karakter selanjutnya bisa menggunakan fungsi sUCC. Pcrlu diketahui:

------

{ Untuk ~ernasuk k an data jo nis ~ u si k kesukaan dar, d ua

Karakter : = ·A' : WHILE HimpKarakte r () [} DO BEGIN IF Karakter IN HimpKarattter THEN BEGIN WRITE (Karakterl ; HlmpKarakter : = HimpKaral
or· kr t q

)

CONST SPASI

= 132 ;

VAll

END; Karakter:= SUCC(Karakterl

Husik

T; pef.fusi k;

Panjang ,

BYTE;

Kode

1.. 12:

BEGIN { Henamp i lkan daftar ~kode Mengenai

END;

jenis musik )

CLRSCR ;

Contoh yang lain bisa dilihat pada Program 11-3. Pada program ini, himpunan bertipe enumerasi . Perhatikan cara menampilkan dalam . himpunan (prosedur CetakHimpunanMusik).

FOR Huslk :,_J AZZ TO KEROIICONG DO

I:..:..("'"A... ..

BEGlti Kode : :

ORO(Husik)+1;

Panjang := 14- LEHGTH(JenisMusik[HusikJ ); WRITE('[", Kode:2,

Progr . . Himpunan3;

c• ---------------------------------- •> c• contoh penggunaan operasi himp~ •> (•

terhadap data enunteraai

(• obyek

(•

: jenls MU9ik

----------------------------------

IF (Kode HOD 3) :

'J

•, Jeniiii·IUIIik[J.Iusik), SPASI : Panjan!OI

0 THEil

WRITELH

EIIO;

• )

•>

.,

( Pemasuk an data )

WRITEUi ;

USES CRT; TYPE

in 1 )

184

~,;)~

!:

WRITELII

( ••lasukk&n angka 0 untuk mengakhl ri pe11aaukan

WRITELII ( 'Tekan ENTER eetiap

EHD;

kode jenl• IOUSik');

•

IF DataJeniet.lueik o

-~~~asukkan kode');

(] THEil := SUCC(Musik)

.Muslk

WRITELH; FOR

END ;

1:=1 TO 2 DO

BEGIN WRITELH; W.RITE ( 'Ua.caa orang ke-', I,

WRITELN; '

:

');

~IRITELH ( 'Ke>Oe janis .. u sl k y ang d i sui< a I

:

BEGitl

DaftarJ en is.lh.. s' ~ [ l]

:=

( prog r a11 utaaa }

Pa10asukanData (0 aftarJa ni sHu9ik, Daftarllama};

[);

WrliLE Kode Jtl ( 1 . . 12] DO BEGIN IF tiOT

( akhir CetakHiapunanHu•ik

·);

READUI ( Koc:lf; ) :

Musik : :

WRITELN; END;

READln (Dafta rHam a(I)); WRITELH;

T ;pe~usik(Kode-1) ;

•

WRITEUI ( ' Janis 111uslk yang dlaukii i oleh

•• Oaftarlla ma (1].

•

') :

CetakHiapunanHuslk (OaftarJenlsl~uslk[l));

(~olk IN DaftarJe nisl·lusik(I)) THEil

Daftar Je,, ~u!!; k (I)

: = Oaft;o.rJeni sl·lusi k (I) + [lotus I k J;

WRITELN ('Janis rnus ik yang cli<Jukai ol eh CetakHiapunanMusik

READ LH(kove l

· , Oaftarl/:oma [2

J , · · ·);

(0aftar J enlsl.\uslk(2]) ;

EIIO ; WRITELII ( 'Janis Olugik yang cli!lukal oleh

~IRITEUI

• d&n ·, 0&ftarN•11a[2],

EIIO EtlD ;

DaftarJanl~ualk[3)

{ akhlr Pemas•J>;or.Oata

::

•

', DaftarNama [ •],

' ):

DaftarJenlsl~usik[l)

• DaftarJen 'sl-lu si~Pl ;

(OaftarJsnlsMuslk{3) J;

CetakHirnpunanHuaik

CetakHi ~~ .. r a~u!!ik (DataJenisl!usik : HlmpunanMu!!lk);

PROCEDURE

w .~ I TELN

untuk men&JOPi lka"•

=•ta

VAR Musik

=

' atau ', Oaftarllama[2),

j enis mus ik yang ada pada

Oa ft arJeni ~ue ik [3 )

paral)'eter DATAJE '•: :;-.LlSIK

COtiST SPA3I

(' Jenis RIU9ik yang Cisukai oleh ·• Oaftarllama(1J ,

c.. takHiiiOUnanMusik

•32 ;

~-
•

');

:= D afta rJenist~usik( I] (0aftarJenisl~usik[3)

•

OafLuJen l S11usH. {2):

I:

( 'Jenis musik yang clisukai oleh

',' Oaftarllarna[ 1 J,

• tetapi bukan kesukaan ·, Daftarllama ( 2],

Ti p.,.h..Jsil>';

0&ftarJeni~usik[3)

Panjang , J : BYTE ,

:=

OaftarJeni&Musik[l)

-

'

·);

OaftarJeni~uslk{2] ;

CetakHiapunanHusik(DaftarJanl ~~uslk[ 3]) ;

READLN END.

IF DataJenisl-lusilo. = [ J THEil WRITE ('Taka~ ,. J;

Contoh eksekusi :

J := 1; Musik :: JAZZ; WHILE OataJenisl~s i • <> () 00 BEGIN

2] J AZ Z ROCK

3 J ROCK

5] SWIIIG

e) fUSIOII

7] SLOW

IF Musik lH ~·u.Jenl ~uslk THEil BEGIN Panjang : :

1] JAZZ 4] BLUES

( 1 0) OAIIGOUT

8) COUIITRY [11)

KASIOA/1

9] KL ASIK (12] KE ROIICOfiG

H - LEIIGTH{Janls~lusik(I·IUsik));

WRITE (J~ ! ~JSik[Huslk), SPASl : Pa njang);

Masukkan angka 0 untuk mengakh l ri pema s ukan kode janos n u s i k

DataJen l~~ i · : = DataJeni~usik -

Tekan EIITER setlao ae11a suk kan kode

IF J HOD ~

=0

IHC (J) ;

THEN WRITELH ;

[Huslk ] ;

Nama orang ke-1 : IRWAII

187

,,

HlmOperator Kode jenia .uaik yang diaukai:

: SET OF CHAR "' ('+', ·-· ..... '/'1;

1

Inisialisasi seperti di atas identik dengan penulisan:

2

•5

VAR HlmpHurufKapltal, HlmpHuruf. HlmpOperator : SET OF CHAR ;

e 0 Kaaa ornng ke-1: OIOI

Kode janis .uaik yang dlsukai:

BEGIN {program utama} HlmpHurufKapltal : ~ I'A'..'Z'I; HimpHuruf :~ I'A'..'Z','a'..' Z'I; HlmOperator := !'+ ', ·- ·. ·•·. '/'i;

2 j

8

8 0

Janie ausik yang diauka i ol8h IRWAH BLUES JAZZ ROCK JAZZ FUSION SWIH
END.

•

Jani s •uaik yang diaukai olen 0101 FIJSIOH ROCK JAZZ ROCK COUNTRY

Janis .usik yang diaukai olen IRWAH d.an OIDI FUSIOH

JA;:Z ROCK

Jcnia .ueik yang diaukai olen IRWAH atau 0101 BLUES JAZZ ROCK JAZZ

I

COUNTRY

FUSIOtl

SWING

i!

Janis IIVtlik yang diaukal olen !RWAH tetapi bukan kesukaar. OI DI !WINO

BLUES

JAZZ

Program 11-J.

Xl.6 INISIALISASI HIMPUNAN

Memberikan nilai awal terhadap himpunan dapar dilakukan dalllll deklarasi CONST. Contoh mengenai hal ini: CONST HlmpHurufKapltal : SET OF CHAR ~

HlmpHuruf

!"A' ..'Z'l ;

: SET OF CHAR !"A' ..'Z',J ',.'z'l ;

188

189

.. .'

~

·~,. ~·~

.

~-- ~

....

XII

"

"-tl'

FASILITAS DALAM UNIT CRT

L~YAR

Jendela Y2

180,25)

X2 Ga m ba r 11-1.

Cnit C RT bcrisi fasi!iDs yJng bcrhubunpn dcng an Llyar. papan-ketik d :m suara. scpcrti: • • • •

Mcngarur dcsain byar Mcngakrifkan jendcla hyar Mengatur frekucnsi bunyi spea ker ~ M embKa karaktcr dari p.1pan-kerik ranpa mcnampilkan kar2k ter ke la var

dan masih banyak fasilita s yang lai n .

Xll.1 MENGATUR JENDELA TEKS ,Salah satu fa silitas yang disedi:~kan dalam unit C RT bcrupa prosedur ·u ntuk rncnga t ur jcndcla tcks . Prosedur unmk b.:pcrluan m1 vairu proscdur Window. B cntu k dcklarasi p roscdur Wi•z.l,,rl-': Window !X1, Y1 , X2, Y2: BYTEJ ;

Kegun aannya untuk mcndefinisikan jendda dalam laya r. Caranya dengan rnenyebutkan koo rdin at p ojok kiri-atas (XI, Y1) dan koordinat pojok kanan-bawah (X2, Y2). Jika suaru jendela telah chdefinisikan, seluruh koordinat layar bersif~t relatif terhadap jendela (kecuali koordinat untuk menentukan j endd~ baru). Dengan sendirinya , pojok kanan-atas jendela memiliki koordinat (1,1). Perlu diketahui, jendela terbesar memiliki koordinat pojok kiriatas (1,1) dan pojok kanan-bawah (80,25) untuk mode 80 kolom . Padl mode 40 kolom, pojok kanan-bawah jendcla terbesar berkoordin~l _ (40,25). Dalam uni t CRT terdapat dua b uah variabel global yang berhubung~ den gan pengaturan jendela, berupa WindMin d.m WindMax , yang keduanya be rtipc word . Kcdua variabcl ini mcriyimpan data koordin.l1 jendela, setiap kali suatu jenocla diddinisikan. WindMin berisi d~u

190

I

Prn n<'-Ar' ,._ ,.t ! mdt!J

koordinar kiri-.1 : .1' !· ,1.;n ll"ind,\Jax bensi data koordinat k .111.1 ;;bawah jcndc L1. Jtl.. • ,. ...-l.. 1·an~ .1kr if nJcmpunni koordinat (X 1, '{J. X2, Y2) , mak.J :

L_Y1 ·1_j___Y~:

!Y2~..,.TXMJ

fl"i·td.\1/TJ

II ,.,J.If.IX

f

----~---

Byte ordc rcnrbh II •' 11' ' 1 bc ri, , ab>i s >-:J -1 dan byte ordc ti nggmy,1 bcrisi ord inat Yl - 1 j l , '' •' <de rcn dah l!"ind.\Jnx bcrisi absis X2-1 d;1n byte o rdc ring~ 1 p 1 , !•. . , .. , urJin.lt Y::?-1. Contoh pcng~u", " ' I I ,doll" d:tp:rr dilibr pad;~ P ro gram 12-5 .

Xll.2 MENGATUR WI\~NA TEi<S Peng:Hu ran \N3fll.o J r~- •• ,ungg:uhnya cipcrolc_h dcngan memanipubsi arribu t da ri ek- 1111 " r. " · (' .1iru braktcr). Scriap karaktcr pada bvJr penampil sebcn:Jrlll, oi l· 1 " "111 p3ti 2 byte me mori , dcngan byte pcrta~1 .1 bcrisi nila i ASCI! ,1. 11 l ·1" kedua bcri~i Jtrib utnya. Inform asi atribur karakter adalah sc i• .•H ·" j.,·r•kut: 7 [ k

6

1 b 1

5

11

iiJ

{J

2

1 rt [ d I d 1 d 1

~- ''

L_

L

0

~ L_ warna Jatar de pan karakter

JN;1riM

,,,l.lt

l!nfJkJng

karakter

keadaan kamktnr berxedlp at,llJ "" ·'~ Gambar tl- Z. AtribNt " '" ''~ '" .l.sl~m l~r~r

191

J3it o-3 berisi informasi warna latar depan karakter. Bit 4-6 menyatakan warna latar belakang karakter. Bit 7 menyatakan karakter berkedip atau cidak - Karakter ditampilkan dalam keadaan berkedip, jika bit 7 bernilai 1, dan tidak berkedip untuk bit 7 bernilai 0. Bit 3 sendiri berisi informasi rentang intcnsitas warna (terang atau tidak) dari karakter. Pcngaturan warna teks dapat dilakukan dengan membcrikan nilai cerhadap variabel global yang dideklarasikan dalam unit CRT bernama T exrAttr (bertipc byte). Tabel 12-1. dapat digunakan sebagai patokan.

.

pprx;RAM Warna1 ;

Dipakai unruk mcngatur warna Jatar bcbbng karakte r/tcks y:tng hcndJ l ditarnp.iLb n kc · bpr. A rgumcn warru d.1pat d1s pcsiiika ~ I dcn g an n il.t1 ata u konstama ~c pcrti yang tcrcan tum pa da Tabcl 12-2.

)

i • ------

*)

~engatur warna teks 1• melalui variabe l TEXT ATTR •)

(.

-

(.

. )

Tabel 12·2. Warna latar depan dan wamJ t<Jur bdakJnx

,

BEGIH CLRSCR ; TEXTA TTR := S1E ; ( Pola bi t : 0001 11 10 ) WRITELN ('Teks kun ing den gan Jatar bela kang bir u '); TEXTATTR : = 7 ; { warn;o nor11al } REA DLII EIIO.

Program 1Z-1.

Tabel 12-1. Data wama latar depan oan lata r belakang teks warn a latar C:epan karal
B!t 3

2

0 0

c

1 1

0

1 1 1 1

0 0

0

1 1

0

0 0 0 0

0 0

0

1 1

0

1 1 1 1

0 0

0

1 1

0

0 0 0 0

a

0

0 0 0 1 1 1 1 1 1 1 1

0

1

0 0 0

1 1

1 1 1 1

1 1

Prosedur TextBackGround Bentuk prosedur ini: TextBackCround !Warna: bYtel;

Contoh program:

USES CRT;

Disamping pengaturan mclalui variabel TextAttr, ada cara lain yang relatif lebih mudah untuk melakukan pengaturan warna tampilan karakterlteks, berupa pernyataan prosedur TextAttr, TextColor, High Video , Low Video dan Norm Video . ·

Hi tam Biru HI] au Sian Merah Magenta COI
warn a latar belakang karal
Bit

6

5

0 0 0

0 0 1

0 1 1 1 1

1 0

0 1 1

4

0 1 0 1 0 1

0 1

Hltam Blru Hl)au Sian Merah Magenta coklat Abu-abu

I

Konst>nq ";"

I

I ;

I

Cyan Red Magenta Brown UghtCray

1

3 4 s 6 7

l

Jenis warna Hitam Biru Hi]au i Sian Merah Magenta Coklat Abu·abu cerah

l

I

I I

_ _J

Dengan mcmanggil proscdur ini , wJrna LH .Ir bcl.,bng dcng;;.n scndinnva akan dicatat da bm vari2bel Tcxr.4 trr. Contoh program : PROGRAM

W~rna2 ;

<•

'l

(• Contoh penggunaan TEXTBACKGROUIID *)

c•

--- ----

•)

USES CRT ; BEGIN CLRSCR ; TEXTBAC KG RCUtiO { 1) ; WRITELN (" Oitampilk;on dengan warna latar bela kang : BIRU '); TEXTBACKGROUtiO ( 0 ) ; WRITEUI ( ' Sekarang di tampi 1kan REAOLN

____.J

tiOR~IAL '

);

EIIO .

I>Togram 1Z-Z.

19J

192

_,_'",.,,•.; .. ... .. .. -..

-. · ~"·'"; <:~ .•.. r ~ ... w.-.: . J~ s_;::; .:Z_,_,.,· ~ I ..}t.......¥._¥4, l "' .... :I

WRITELH ('Teke dengan VIDEO TERBALIK'); TEXTCOLOR ( 7) ;

prosedur Texteolor Bentuk prosedur ini:

TEXTBACKGROUIIO (0);

WRITEUI ( 'Teks IIORI-IAL') :

rextCclor <Wama: BYTE>:

REAOLtl

Dipakai untuk mengatur wama lnar dcpan karakter/teks yang hendak ditampilkan ke layar. Argumen warna dapat dibcri nilai antara 0 sampai dengan 15. Untuk wama 0 sampai dengan 7 dapat dilihat pada Tabel122. Scdangkan nilai 8 sampai dengan 15 chpat dilihat pada Tabcl 12-3. Tabel 12·3. wama latar depan twama lan!Utanl

oa~

UghtBiue UghtGreM UghtCyan Ught:<ed UghtMagenta

i Nilal

I 1

I I 1

I

Ye. llo.w I ~h it_e__ _ j_

1

8 \ 9 \ 10 11 · 12 13 14

15

Jenls warna

A~u-abu

J

i

I

tua B1ru cerah Hl]au cerah . Sian cerah · Merah cerah Magenta cerah i

Kunlng . Putih

Program 12-J.

Prosedur LowVIdeo Proscdur LJw Video tidak memiliki :t rgum cn. Digunabn untuk mcngatur tampilan teks dalam kcad~ar1 inrt-nsit a;. rcndah (w arna tu a). Proscdur ini mcnyebabkan bit 3 (b;-t pcnprur inrcnsiras warna) dai:Hn atribut ka rakter dihapus (mcnjadi 0). W:~rn.1 LHar dcpan antara 8 sarnpai de ngan 1j akan diubah menjadi antJra 0 sampai dcngan 7. Mi s:~ ln ya jika warm la tar depan yang aktifadalah biru cc rah (w.
· - - -1

Konstanta

Ell D.

I1

Prosedur HlghVIdeo Prosedur High Video tidak mcmiliki argumcn Digunabn umu k mcng-

Tcks ymg berkedip dapat dipcrokh dcngan menarnbahkan nilai 128 (atau konstanta Blink) tcrhadap \.Varna latar dcpan teks \'ang diinginkan. " Pcmbcrian warna !Jtar dcpan braktcr :J.bn m engubah nilai dalam variabel TextArtr. Contoh program: PROGRA:-.4 ~larna3;

.

atur tampilan teks dalam keada an inre ns ita s rin ggi (warn:1 ccra h). Prosedur ini mcnyebabkan bit 3 (bi t pcngatur intemius warn .1) d~la rn atribut karaktcr di-set mcnjadi 1. Warn a l.1t ar depar. antJrJ f; -;am p.li dengan 7 akan diubah menjadi antara 8 sJrnt•.li dengan jj_ Mi ~.
(* -------------------- ---------- -------------- *l (* Contoh penggunaan TEXTC OLO R & TEXTBACKGROUilD *l

-----------------------------

<•

)

USES CRT;

Prosedur NormVIdeo Prosedur ini tidak mempunyai argumcn. Diguna,kan untuk mcngcmbalikan atribut teks sesuai dengan atribut ketika program mulai dijahnkan . Contoh:

BEG HI CLRSCR; TEXTCOLOR ( 14) ;

PROGRAH Warna4;

TEXTBACKGROUIID (1) ;

<• ----------------------------- ----------- ------- ---- •)

WRITELII ( 'Teks KUIIIIIG dengan latar belakan~ BIRU');

(* Contoh penggunaan LOI~VIOEO , HIGHVIOEO dan tiORtWIDEO •)

TEXTCOLOR

( 1 HBLIIIK);

TEXTBACKGROUtlD ( 4) ; WRITELII (' Teks PUTIH dengan latar belakang MERAH'); TEXTCOLOR

(0);

TEXTBACKGROUIID (7);

<• ---------------------------------- ---- --- ------- --- •> USES CRT; BEGIN CLRSCR ; WRITELII ('T eks awal, saat program mula! dijalankan');

195

. .,

akan mencmpatkan tulisan 'Turbo Pascal' pada baris 2 mulai kolom 25 dari jendela yang sedang aktif.

TEXTCOLOR ( 9) : WRITEL~ ('leks BIRU MUOA');

Xll.4 MEMPEROLEH POSISI ICURSOR

LOWVIDEO: wRITEUI ( 'T eks .dengan IUTEtlSITAS REIIDAH');

Posisi kursor yang sedang berada di suatu tern pat dapat diketahui dengan menggunakan fungsi vJ.'hereX dan H1tereY. Kedua fungsi tersebut tidak mempunyai argumen. Hasil fungsi bertipe byte.

HIGHVIDEO ; wRITELtl ('Teks dengan IUTEHSITAS TINGGI'); NORMVIDEO ; WRITELII ('Tulisan ini dengan atribut seperti'): WRITELII

Where X

Untuk memperoleh pnsisi kolom tempat kursor scdang berada .

WhereY.

U ntu k mem pcro lch pu ~isi ba ris tcm par kt1 rsor sedang bera da. -

( 'saat awal pr og ram dijalanka n'):

REAOL!J EI IO.

Progra m 1Z-4.

Posisi y:mg dihasilkan oleh HlhercX maupun H1terd' bcrsiLH rc!Jrif te rhada p jcndela yang sedang aktif. Posisi absolut terhadap la yar bis a dih itung bcrdasarkan acua n nilai yang tcrekam pada variabcl WindMitJ.

)(11.3 MENEMPATKAN KURSOR KE SUATU LOKASI JENDELA LAYAR

~1isal:

Kursor dapat ditcrnpatkan ke scbarang posisi pada jcndcla layar yang sedang aktif d er.gan mcnggunabn proscdur GoroXY. Bcntuk prosedur

GotoXY:

X : ~ WHEREX; { Menylmpan poslsi kolom dar! kursor ) v := WHEREY: { Menyimpan poslsl barls darl kursor }

f

GotoXY lX. Y: BYTEl:

den gan X m cnyatakan absis X (kolom ) dan Y mcnv at akan o rdinat Y (baris).

[Ill y

j_ t__

JENDE~

I

kursor

Garnbar 1Z-J. Pmtmpatan l
Untuk menempatkan kursor ke pojok-kiri at as jendela layar, pemyata•r. yang diperlukan: GotoXY t1.1l;

I

Xll.5 MENGHAPUS LAYAR

Pc rintah yang digunakan untuk mcnghapu s bya r adalah proscdur C lr::iu. Pcnghapusan layar dapat diatur supaya misalnya la ya r bc rwarna abu -.Jb u muda. Sifat dari proscdur ini. seusai pcnghapusan layar. kursor ditcrnpatkan pada koordinat {1,1) dan pcnghapusan ber!Jku untuk jcndela yang sedang aktif. Concoh: WINDOW !10,8,50,161; .

TEXTBACKGROUNO 17l; CLRSCR;

~kan menyebabkan mulai posisi kolom 8 baris 10 sampai dengan kolom 50 baris 16, dihapus dengan warna 7 (abu-abu muda) . Bagian layar l:~innya (di luar jendela ) tidak dipengaruhi oleh prosedur ClrScr.

Pcnempatan kursor biasanya ...Oiikuti dengan pernyataan WRITE (lta!i WRITELN ), yang akan menyebabkan tulisan ditempatkan pada posili

X11.6 MENGHILANGKAN BARIS

kursor. Contoh:

Perintah yang dapat digunakan untuk menghibngkan baris ya ng scdang .!Hcmpati kursor yaitu De/Line. Pada saat mcnghilangkan baris, scluru h

GotoXY <25.21 : WRITE rrurbo Pascal');

197 196

teks yang ada di bawahnya akan dige~er ke atas 1 b:1ris. Proscdur ini berlaku relatif terhadap jendcb yang sedang aktif. C ontoh penggun aan

-

Data

ARRAY [0 •• 7,0 •. 7] Of CHAR

=

((J218,J191,J192,1217,J179,1179,J19~,1195},

(1213,J184,1212,J190,1179,1179,1205,J205),

De/Line dapat dilihat pada Program 12-5 .

(1214 , J183 ,J211 ,J189,118fl ,1186

,119~,1196)'

(1201,1187,1200,11BB,I186,J18fl,J205,1205},

Xll.7 MENYISIPKAN BARIS KOSONCi

(11220,J220,J223,1223,J221,J222,J220,J223),

AntJra dua buah bans tcks pada la ya r dapat disisipi sebuah b aris kosonc. Caranya y aitu dengan meng gunakan prosedur ln sLine. Prosedur ini jik2 dipan ggil akan men yebabkan pada pos isi ku rso r disis ipb n sc~ u ah ha~is baru (koson g). dan mcn ggeser tcks pada posisi kursor semul a kc bawa~ sa(Ll ba ri s. Schagai ak ib atnya tck s yar.g rc rk tak di baris akhir dJ r i jcn d~; J yan g scd ang akt if akan hil an g d ar i b n r. Contoh pcng gun :lJn fii ,L:>.,

(*

I

BE Gill

Contoh pen ggunaan 1-/I tlO Ov/ , GOTO X'l , !t iSLIIiE ~ DELLII JE • )

- --- - --- ----- - - - ---- - - ~- - - -- -- - - - - -- - - - - - --

GOTOXY ( X2,Y 1 ); \"/RITE tDa ta[Pi l ihan,1]); FOR I : = Y1+ 1 TO Y2-1 DO BEG!tl

t)

GO TO XY ( X1,I) ;

USES CRT ; COIIST { Data ko ordinat je n del a

=

5;

X21

1

= 35 ;

~/RITE

(Data[Pil~han , 4]) ;

GOTOXY ( X2,I }; WRITE (Data[Pilihan,5]} EllO ;

~

X11

Prose du r bing ka i

WRIT E (Da ta[P i l i han, 6 ) );

AnimasiJendela :

(.

I-

I : BYTE;

FO R I : = X1 • 1 TO X2 - 1 DO

------- - - - - ----- - - - - - ~- - -- - -- - - - - ------- - •J

(*

VAR

GOT OXY (X 1, Y1) ; WRITE (Data[Pilihan,O));

d:~ pa t d ilih at pad a Prog r:~m 12-5. PROGRAI~

(1176,117e,,176 , 117~,,176,1178,1176,1176),

( 11177. J177 '11177 '., 77 ' 11177 '1177 ,11177 '., 77) ' (~1 7 8 , 1l 1 78 , •17~ •• 178,1178,J178,1l178,1l 17S )};

GOTOXY (X 1 ,Y 2) ;

~IR ITE

(Data [ Pilihan , 2]) ;

FOR I := X1+1 TO X2- 1 DO WRI T:: (D ata[ P i 1 i han , 7 )) ;

{ Data koordinat jend e la 2 ) X12 = Y1 = Y2

X22 = 75 ;

45 ; 6;

= 20;

<*

baris awal dari j endela * ) (* baris akh i r dari j endela •>

GOTOXV iX2, Y2 ); WRIT£ (Data(Pilihan,3]) EIID ;

( a khir prosedur blngkai }

PROCEDURE TulisTurboPascal(Pilihan9ingkai : BYTE); VAR I : BYTE; BEGIN

VAR I, JumlahGeser : BYTE; PROCEDURE Bingkai (Xl ,Y1 ,X2,Y2, Pilihan : BYTE);

<•---~------------------------- - --------------------•>

(* Prosedur ini dipakai untuk membuat suatu ~ingkai •l f) Posis i pojok kir i atas bingkai Xl, Y1 <• (* X2, Y2 : Posisi pojok kanan bawah bingkai *) Pi1ihan : 0 .. 7 -- j anis bing1{a i •> < • --- - -- -- - - ------ - --- - -- ----- - - - -- - - - -- --~ - - -- - -- --•)

B i ngka i ( 5, 2 , 2 5, 12 , Pi 1; hanB i ngka i } ; fOR I : = 1 TO 9 DO

BEGitl GOTOXY (9,2+I} ; WRITE {'TURBO END

PASCAL' )

EUD; ( TulisTurboPascal }

(*

COUST I Data blngk a i }

198

PROCEDU RE I n i s i alisasiJ en de l a ; BEGIN { Je nde la 1 }

199

. srNOf
END; tlltiOOW (1,1,80,25); { jendela nor111al} READLU END .

CLRSCR; Tu1iaTurboPasca1 (4}; { Jendela 2 } WINDOW (1,1,80,25); {Reset ke jendela BINGKAI (X12, V1, X22, V2,1) :

Program 11-5.

'''A • •¥nuh l

WINDOW (X12+1, V1+1, X2 2-1. Y2- 1); TEXTATTR :: $70; { Video terbalik

Xll.8 MENCHAPUS SELURUH KARAKTER MULAI POSISI KURSOR .\knghapus sc luruh brakt cr mu!Ji posisi kursor s::tmpai akhir baris (tc:rh.1cbp jc:ncicla y.1ng akuf) d.1 p.1t di lakukan Jengan n1udah menggunabn ~'ro~cclur Clr Eol. SitJt cLri prosedu 1 ini . p osi·: i kurs\)f tidak diubah (< et ap seperti SJ Jt schc:lum pcnglnpu s:m) .

CLRSCR; Tu1isTurboPasca1 (6) ; jenoela } END; { akhir Inisi a lisas i PROCEDURE ProsesJende1a1 ;

Xll.9 MENCATUR DAN MEM:ERII<SA MODE TEKS

BE Gill

WItlOOW ( X11 +1 , Y 1 +1 , X2 1 - 1 , Y2- 1 ) ;

TEXTATT R :=

P~da kompu tcr !B tvl PC yang m cngg un akan adap ter CGA terdapat bebcr:1pa m ode tcks . Mi salnya mock tc k s dengan 80 kol o m atau m ode rcks 40 kol o m. bcrvvarna at:lll tidak. Pengaturan m ode tcks dap3 t dila kukan dcngan mcmang~il proscd ur Tt!xtMode. l3ent uk nya:

so7 ; { warna no rmal }

OELLltiE akhir ProsesJende 1a : END; PROCEDURE ProsesJendela 2;

~

TextMode !Mode : INTEGE R!;

BEGIH

WIIIOOW (X12+1, Y1+ 1. X22-1. Y2-1) ;

GOTO XY ( 1 , 1) ; TEXTATTR : : $70; { Vide~ t eroalik IHSLINE END; { khir ProsesJende l a 2 BE Gill

( * Progralll uta111a • l

CLRSCR; WIIIOOW. GOTOXY, lllt •. lll~ 'l•tL LIIlE' : 60) ; WRITELU ('Demo: lnisia1isasiJende1a;

Mode d..!pat dis pcs ifibsi dcngan n i!Ji atau konstan ta sepem t<.:rca ntum pada TJbcl 12-4.

ya n g

Tabel 12·4. Mode telcs Konstanta BW80 C040 !C401 BW80

Nllal Keterangan

0 1

2

coso ((80)

3

Mono

7

Mode Mode Mode Mode Mode

40 x 25 40 x 25 so x 25 80 x 25 80 x 25

tak berwarna berwarna tak berwarna berwarna untuk adapter monochrome

{ Proses penggeseran dalam jende l• Juml ahGeser := Y2 - Yl - 2: FOR 1 : = 1 TO JumlahGese r 00 SEGIN ProsesJende1a1 ; Pr osesJendela2 ; OELAV (1000)

200

Mode 0 sa mpai de n gan 3 h an ya untuk kom puter yan g men gg unakan CGA . D alam un it CRT juga dised iakan fasilitas untuk m engetahui m o de teks Y4ng scd an g aktif. M o de tcks yang sedang akrif dapat dipcriksa pada 'iariabel global Lasr/1Jode. Mi s:~ ln ya nilai 3 mcnya takan , mod e yang aktif ~alah mode 80 X 25 berwarna .

201

~-=

"" PROGR~

ModeTeks;

<• ------------------------------ •> <• eontoh pengaturan ~ode teka •> <* pada k~puter yang menggunakan •> (•

adapter CGA

•)

c• ------------------------------ •> USES CRT; BEGitl TEXTI~OOE

(C080);

WI\ITEUI ( '1-lode t e ks kini :

tiODE BO x 25 berwarna · );

WRI TELU ('~ode teks = ', LAST~ODE); DELAY (4000); { tunda sesaat } TEXTMOOE (C040);

w~ITELH ('Sekarang berada p ada : '); W~ITELH ('MODE 40 x 25 berwarna');

{ Per;ksa mode teks } w>n TELtl ('Mode teks :: DE L AY

(4000) ;

TEXT~ODE

,

LASTI~ODE);

{ tunda sesaat }

(C080) ;

R E~O LII

Membaca Tombol Blasa dan Tombol Pertuasan Readkey dapat dipakai untuk membaca tomboi bias2 ::..Jupta

'.\.....rr-~-.;:,

perluasan (semacam to mbol Fl, Alt-W dan tomhol !J;c.ili). _!.&;. '~ d itekan berupa tombol perluasan, sesur}g guh ny~ ?~-.:.. r'~:::;,o:::: ~ papan-keti k terdapat karakter NULL (ASCII 0) . U nrui: ::: : r~~'-"-"'lF­ karakre r NULL harus diperiks a terlebih dahulu. J ib ~'a:. , ;-..li.: :-:: NULL ada , maka kodc bcrikutnya dalam pcm mp:..=.~ r:r:-:--':-::~. Jiba ca ke rn bali , d an kode cerscbur merupakan k,, ,:Je ;.:.=::: .::..r ._,_. ~ · perluasan. Car a mc m hao com bo l bias.a m a u pun 1 <'1~ 1 ~- ~ :- .•.:: scba gai bc rik ut: KJral
BEGIN TomboiPerluasan : = TRUE : Karakter := READKEY EN D ELSE TcmboiPe rlua san := FALSE;

Dcngan -: :~ra ini, va riabcl T ombv/Pcrlzwsmz ~h .lll ":-:-~..: .. ..;. - :o mbol pnlu~san yang di tcbn d an s.1lah hi la t omb,, ![-.~,.;. ' .1:_ .. .'viengenai ko dc .
Etl :) .

Membaca Tombol Sesaat PrllKra m t :. -6.

Xl1.10 MEMERIKSK ADA TIDAKNYA TOMBOL YANG DITEKAN DJlam u..1i t CRT tcrd apat fungsi b oolean bcr:nmJ K eyPrcssed. Fungs1 tJnpa arg umen ini di gunakan untuk memeriksa ad a tidaknya tombol yang d itekan . Hasil fungsi berupa kcadaan benar (true) atau salah (false). Hasil bcnar jika ada tombol yang ditekan . Hasil salah jib tak ada tombol yang ditekan. Setelah pemeriksaan, kode tombol yang ditekan tetap berada dalam penampung papan-ketik (karena fungsi ini memang bukan unruk membaca) . Fungsi KeyPressed tidak dapat dipakai untuk mendeteksl tombol Shift , Alt, NumLock, Ctrl yang berdiri sendiri .

Xl1.11 MENGGUNAKAN READKEY UNTUK MEMBACA TOMBOL Dengan unit C RT , to mbo l pa pan- ketik dapat dibaca tanpa karakternyl tampil ke layar. Fasilitas y:m g b..::rkaitan deng an hal ini yaitu fungY

ReadKey {tanpa argumen). 202

Dengan Turbo Pascal. pcmbaoa n rombol Sc<;aat \J :: __ ,: ::.::.~- ...... ·-· ~ ·,\·ak ru tert cntu J d a tom bo l d it:::k.m nuk a aka n ,:1b~ .:-~ ~- _'h ~ -~ _::.... rombol yan g di tebn , ek sck usi progra m ak an d il.m_;L:: t ;.::- !< : x-:·' ,. :.....; : sel anjutn ya) dapJt dil ak uka n de ngJ n me m a.n:·.LHK :~ ::..:"~' - .-. 0 KeyPressed dan RcadKey. Pcmb:tcaan to m bol ><·;-::-:-.: ~; • ..:.........· .dir :::rapbn pada program permainan (gam e.<) . ln !r :~=:.:: :;:.s.r: ;:_:-.: dilihat pad a Prog r am 12-7 yang bcrupa fu ngsi B.1 :: ~ : -:•,).;",_ ...,..,

PROGRAM 8acaTombo1;

USES CRT; VAR KunciKhusus : BOOLEAII; Karakter CHAR; FUtlCTIOII Ba,caTombo 1Sesaat ( Se 1 ang : WOR D; VAR T ombo l Per 1u a :;an

?-.~0_:.:~•

<• --- -- ---- - ----- - --- ------------- - -- ------- --- --- --

<•

Hasil : - karakter tiULL jil<.a tombol tal. d• a .... a~ .., -. -

.:----;;

waktU SELAIIG. Jika tidak - sama dengan · karakter tiULL, ;naka bi 1a TOMBOLPERLUASAt~ bern I lai TRUE berarti tOMbol perluasan yang ditekan.

<• <• (•

""

..,

WRITEUI ("Anda menekan tOfllbol perluasan") ; WRITELN ('Kode \ombol p•rluasan = ORO (Karakter)) END ELSE WRITEUl ( "Tombol yang anoa tekan bar-ASCII OR O (karakter));

)

., *l

<• TOI-IBOLPERLUASAN bern I la i FALSE berart i •> <• <• tombol biasa yang ditekan •l <• ------------------------------------------------------- *l

RE/\DUI

VAR Pencacah : WORD; Karakter : CHAR ; BE Gill Pe ncacah : = 0; Karakter : = P O;

END. Program I 1- 7.

{

SET dengan karak te r tiULL )

REPEAT IF KEYPRESSED THEil

Tabel 12·5. Tabel tombol perluasan

BE Gill { e aca tom bo l ) Karakter : :: REAOKEY: IF Karakter = 110 THEil { Karakt e.> r !l ULL }

- - -- --- -- --··-- --·· -

EIJO ELSE TombolPerluasa n : = FALSE

(• Progra• utama •l

•o

ELSE IF Kunc i Khusus 'THEil BEGIN

F1 F2,F3,F4,F5. !=G,i'7 Fo.F9.F1 0 Home Panah

72

ELSE INC (Pencacah) UNTIL (Karakter <> •Ol OR (Pencacah > Selang); Ba~TombolSesaat : = Karakt8r; END; { akhir prosedur Bac~TombolSesaat

IF Karakter = THEil WRITELN ("And& nggak menekan tombol sama sekall !")

CTRL 2 SHIFT Ta b ALT O,W,E ,R,T,Y. U,I ,O.P ALT A S.D.F.G,H,J,K,L ALT Z,X.C,V.B.N ,M

!"

A CJ~

Pg Up

73 75 77 79·83 84·93 94 ·103 104·113 114 115·116 117-119 120-131 132

EllO

CLRSCR; WRITELN ( 'Tekanlah tombol. Saya akan menunggu hanya sesaat Karakte r := BacaTombolSesaat (600tlb, KunciKhusus);

--- --

3 15 16·25 30-38 44-50 59 ·68 71

BEGIII TombolPer lua san : =TRUE; Karakter : = READKEY

BEGIN

ro mbol yan g diteka n

Nilai Kode Kedua tsc.1n codel

Panah Klri Panah Kanan Pg Up,Panah sawah,Pg Dn,ln · S,Del SHIFT Fl .. F10 CTRL F1 .. F10 ALT F1 .. F1 0 CTRL PrtSc CTRL Panah Klri.Panah Kanan CTRL End ,Pg Dn,Home ALT 1,2,3,4,5,6.7,8,9,0,-, = CTRL Pg Up CTRL Panah Atas CTRL Panah Bawah .lns,Del ALT Home,Panah Atas, Pg Up ALT Pariah Klrl ALT Panah Kanan ALT End ALT Pg Dn ,lns,Del

160 164·166 174-176 178 180 182 184·186

- ···-

-

- --·-- --

204

...

·;t(;-- ~-~ i .. · !;.·~,~-- --~-~ .~..,,

....

-.~ .. }.;: -_.;,.__~' ·;~· 1

_+M-4 . . _L . . .,;;;~~~

r Menghapus lsi Penampung Papan-kettk Kerika program dieksekusi, setiap kali ada tombol yang ditekan, kode dari combo! segcra disimpan dalam penampung papan-ketik. Data-data dalam penampun g ini akan dibaca oleh pemyataan seperti Read atau Read/11, maupun fungsi ReadKey. Terkadang hal seperti ini tidak diinginkan , tetapi di lain saat memang diperlukan. Untuk mengatasi hal ini , misa!nya dlinginkan supaya ReadKey (ataupun Read dan Readln) benar-benar mcmbaca tombol ya ng sedang d~tekan dan bukan membaca d:.ra nng sudah ada pada penampung papan-kctik, caranya yairu dengan leb ih dulu mcn g hapu s seiuruh isi penampung papan-kctik. Cara pcngh ap usannya disajikan pada proscdur HapusPerz amp z111g .

CHECKBREAK :: FALSE; I Ctrt-Break talc dapat dlpakal untulc menghentlkan program )

Jika Check Break berni!Ji jalse, penekanan Crrl-Break aka n kodc C trl-C (yairu bernilai ASCII .3) .

Catat an: ClzeckBrcak di-set bcrnila i Tme setiap bli T extA/(lde dipanr;ril.

Xll.13 MENUNOA EKSEKUSI SESAAT

AJak.J ! .1ny~ ching1nL n supaya kornputcr t1d.1k m engc rj J.~:lii .l p ..- .;p,; scla m a sd ang WJkw t::rtcntu. K cacla:~n Jcmikian clapar d if >Crokh misaln ya dcngan pcrnya taJ n scpcrri :

PROCEDURE HapusPenampung ; VAR Karakater : CHAR ; BEGIN { Baca selama masih ada karalcter dalam penampung papan ·ketlk ) WHILE KEYPRESSED DO Karakter : = READKEY END ;

U ntuk mcm bao tom bol dari papan-ketik secara langsung (bukan vang sudah adJ dalam pcn.1rnpung papan-kctik), m ula -mu la proscdur Hapu sPenamp111rg harus dipanggil tcrlebih dahulu . HapusPenampung; ( Baca tombol secara langsung darl papan-ketlk ) Tombol := READKEY; ~

mcngh:~silbn

FOR 1 :~ 1 TO 1000 DO · ; tun da sesaat )

• I

Seldin cara di Jtas . tcrdapat fasiliras dalam unir C RT yang mcmpunyJI kcgunadn untuk mcnunda cksekusi scsaat }":l lt u pro>cdur Dduy . Bemuk nya:

l

j

Delay lms : Word>:

. Proscdur ini dipa b1 umuk mcnunch cksckusi sclama kir:1-k ir.1 ,,_.. miliderik.

~

Xll.14 MENCATUR SUARA SPEAKER

Bunyi arau su Jra dapar dihasil kan dengan mcnggunakan proscdu r S:

X11.12 MENCATUR SUPAYA PROORAM TAK DAPAT DIHENTIKAN Df-

NCAN CTRL·BREAK Tcrkadang dikehendaki supaya suatu program yang sudahjadi tidak bi5J dihemikan d cngan tombol Ctrl-Break. Hal seperti ini dapat dilakubn dcngan rnud ah. Dalarn unit CRT terdapat variabel global bemaml ClzeckBreak (b.ertipe boolean). Keadaan bawaannya, variabel ini bernibi tme (be nar), yang akan menyebabkan pcnekanan tombol Ctrl-Brtli padJ sa:lt ada opc rasi penampilan ke layar atau pembacaan dari papwkctik akan scgcra menghentikan program. Variabel ClzakBreak dapll diatur bernilai salah (false) , dengan maksud supaya program tak d~~ dihentikan dengan mcnekan tombol Ctrl-Break.

Hz rnerupakan nilai bulat positif yang menyatakan frekuen si suara dalam saruan Hertz . Suara yang dihasilkan speaker komputer hanya d:~pat dihentikan dengan memangg il prosedur NoSo11 nd. Lamanya suara clapat diatur mclalui prosedur Delay. Sebagai contoh : USES CRT; BEGIN SOUND 1220>; DELAY 1200); NOSOUND END.

206 207

I I

I

,.

Xll.15 LAIN-LAIN · program pendek di atas akan memperdengarkan suara dengan frekuensi 220 Hz selama kira-kira 200 milidetik. Contoh yang lain dapat dilihat

1. Varia bel Direct Vidr.• Variabel DirectVideo b,•ftl!'l.' boolean. Kead aa n bawaannva bcm 1J (salah) . Variabel ini d ;~)'.it ,l igun akan untu k m enent uka n pcng ;, ; .. " memori sccara lan~Sil ll'" .11 .1U tid ak lan gsung pa d a saa t penu l1). , , ,·' m emori lavar (perintJ h II n it' atau Writeln). "'lib v a ri abd bcrnil-I f , , / .. pengaksesan mcmori ,i1h \..11 1....1n scca ra lan gs un g, scd an gka n j ib t. , , fa lse p cn ulisan kc m c lll •' " ln .1r d ilakuk an mcla! u i subrutin d:~ larn ):, . 1 Pcmbe rian ni lai fa/ .; 1• lq, \ 1 !> irc·tf Vidt \1 .tbn m c n y cb :~b bn pcn uL la yar dibku kan dcJJj:.ul ' >t lll'.ll ( d i ban din~ ka n j ib d i-sct lm ·· ~

~ pada Program 12-8.

PROGRIU-I Sirine;

<• --------------------------------- ----- -- •> ( • Contoh penggunaan SOUIID, - DELAY & IIOSOUIID (* untuk membangkitkan buny i sirine (* ------------- - -------------------- -- -- - -

USES CRT; COtlST FREKA~IAL

=

900 ;

FREKA KHIR = 1500 ; VAR Frek BEGIN

HORD;

*)

•> •>

C ata tan : Direa 1-'idc·•• .h ' · 1

.

) (* Frekuens i awa l (' Fre ku e nsi a kn ir • )

v~ ri a b cl Chu kS II t'll ' h 'll 'l '' ht)\ ) lc J11, y an ~ bcrnil :~i !J i l t ' p:HL ' a"v al (a tau sctia p bh I, , r.llc•tfc Jipan ggi l). N il.!i . rru,· p.t,iJ ' .cr m cnj a m in tidak tcrja dn :' • kr qapn s ct i :~p k .1! i .1 J.t o pc n ~i pc rit: la ya r. ScJ ang kan 11 il.u f.,/ .. · padJ va ri:t bcl in i ak .111 m cm·· k cmun gkinan tcrj adi11 1 .1 k· •r ·•P.Jll (pad .l ko mputc r yan~ m cr. g;.: ad a pter CGA), tc tap 1 "f '''·' ~ ' pcnul is an kc laya r :tk J n dil:~ k u k .u , ccpa t (d ibandin g kan l11 l.t < ·!J,·.-kSn''" bcrnilai n 11c).

(• Program utama • )

CLRSCR; WRITE ('Tekan sebarang t ombo l unt uk me nghe nti ka n . . . ');

{ Suara menurun REPEAT SOUHD ( Frek) ; DELAY (70) ; NOSOUIID; DEC (Frek, 20) UNTIL Frek < FREKAHAL ; UNTIL KEYPRESSED EtiD .

Program 11-8.

208

~ ' ''·'P k:d: Fni .\ L •, /,· ,J,p.mg::

2. Var iabcl ChaJ.zs,,,,,,

(* Pengat ur f r ekuens i s uar a * )

REPEAT { Suara meningg i ) Frek : = FRE KAWAL ; REPEAT SOU liD ( F rek) ; DELAY (1 0 ) ; NOSOUI'lD; INC (Frek, 8) UNTIL Frek > FREKAKHIR ;

/I ll <'

,~ ,

I

Catatan : Ch a kSnow ,, ,l.,k ,n .- m bcn pcnguu h a pa-.1p:1 ji b

/) -,,

h::- rn ib i fa/." · Tabd 12-6. m cny.q1 k '" f;.1111ha r.m kcc·cp.Han p,· n.l ! ll ~' i lan :-L .•. bi b Dirarl 'idt"v a tau ( 'f1, , A \ rt <'ll ' d:beri n ibi lrr lt' ar.w f;ll.>c' . T:tbci t-. didasJrk an pcng uj i:ur ,, 11 ·11 .11ll pilb n rulisan 'Tur h<~ P.J>ca l' p:.. l·. se ban yak 350 kali . Tabel 12·6. Perbandlngan kClCI1Patan penampllan teks untuk berbag;tl kC)f!Oaan DlrectVIdeo & Checi<Snow

#

DlrectVideo CheckSnow W•lklll tdetik) True True False

True False

1,26 0,80 fi, 21

3. V aria bd CheckEof Vari a bel ChcckE, ma b pc nck ,ma n to nr b• Z aka n mcnyebabkan dd • ·" " ~ kit k.1 n r. ya ~a r .1\..r cr t.md.1 akh tr-ti k '

,

akibarnya scluruh operasi pe.m bacaan· terhadap papan-ketik berikutnyJ akan diabaikan. 4. Prosedur AssignCrc Prosedur ini digunakan berhubungan dengan file teks, yang menugasbn keluaran file ke lavar penampil dan pembacaan dari papan-ketik. Bentuk

XIII

PENGOLAHAN DATA DENGAN FILE

proscdur ini: AssignCrt !FileTek.S : TEXT);

dengan FileTeb be rupa variabel bcrtipc TEXT

Kadang-kadang diperlukan agar data disimpan pada media pcnyirnpan tct ap, sepcrti disket. Dengan menyimpan data dalam disket, data dapat ]angsung dibaca sevvaktu-waktu jika diperlukan, sc.:hingga pengctikan data yang berkali-bli (setiap kai i data akan diproses) dapa t d ihindarkan . Pada media pcnyimpan scpcni disket, data disimpan dalam bcntuk su acu kesatuan yang discbut dcn~ .l n file (berkas). Seriap file mcmpun yai nama tcrscnd iri dan bcrsifat unik (ridak ada yang sama). Setiap file tcrsusun dari saru atau bebcrapa item data yang discbut komponen (atau record). Sctiap komponcn mcmiliki nomor komponcn, yang menyat aka n urutan komponcn dalam file. Dalam Turbo Pascal, komponen yang Fcn am.l mcmpunyai nomor komponcn sama dcngan 0. Komponen kc,:ua hcrn o m o r 1, d :m sctcrusnya . FILE

Komponen

~

Komponen

G,unbar 13-1. Strulrtur data Ja/am Jilt

' ;.

Untuk keperluan pengaksesan komponen dari file, file dilengkapi dengan pointer file . Pointer file menunjuk ke komponen yang akan diakses (dibaca atau direkam). Apabila pointer file sedang menunjuk ke !tutu komponen, kemudian terdapat operasi pembacaan atau penulisan, dengan sendirinya pointer ini akan bcrgescr ke lokasi ~csudah komponen Y~n g semula ditunjuk. SeandainyJ seti:~p komponcn mcmpunyai panjan g Y•n g sa ma, posisi dari m:~sing-masin g komponcn dcngan mudah bisa dlketahui. Pada kcadaan dcmikian, pointer file Lhpat diarur supaya lllmunjuk ke komponen yang diinginkan pemrogram, sehingga mctnungkinkan pengaksesan secara acak (random) .

_ .... ..._~~...-u,.••,,..,•. ., _.,.~~··v·.~·· ·~-.....t ·~-.;-;. f> •···-._if'ls~'S~..:.......,.£r.

211 ··;),.: C,..!. . . ·

1:

p ada Turbo Pascal , fi le sendiri dibeaakan menjadi 3 golongan, berupa: File bc:rti pe File tcks, dan Fi le tak-bertipe. D iar.tara kcti ga file tcrscbu t, yang tak dapa t diakscs scca ra acak adalah file teks . File rcks hanya dap:~r diakses secar J berrurura n (sckuensial).

yang men yatakan bahwa masi ng-masing komponen fil e berupa array dengan 7 el em en benipe real. Sedangkan: VAR Data_Matrllcs: FILE OF REAL;

men yata kan bahwa komponen file beru pa elemen brmpe real.

Operas! File Bertlpe Xlll.'i FilE BERTIPE

Fi le bcrripc mcrup:~ kan jcnis tile dcngan ripe ko m poncnnya didcfinisikan olch pcmrogram.

MenentuKan Tlpe Komponen File bempe diddinisibn den ga n be ntuk : FILE OF t ipe _cata

dcngan ripr _,lara J ap:lt bcrupa sebanng tipc da ta, kccuali file. Sebag;;,i contoh: TYPE

Record_Pegawai = RECORD Ni P : STRING!61; Nama : STRING!251 ; KodeBaglan Ker]a: CHAR : Ca]IPokok END; : LONGINT npe_FIIe_Pegawal = FILE OF Record_Pegawai; \,

VAR F!le_Pegawal : Tlpe_File_Pegawal:

Pend ek la rasian va riabel fi le bernama FileY egawai , dapat j uga dirub1 mcnjadi VAR File_Pegawal : FILE o~ Record_Pegawal:

m enyatakan kcpada kompilcr bah wa data fik Pcndeklarasi an di atas, komponen yang berripe RccordYegawai. tcrsusun at:~s scjumlah Contoh yang bin : VAR Oata_5uhu: FILE OF ARRAY!1 .. 71 OF REAL; ~

.... 4

"""

• .•,

Pcngolahan data Jcngan file berti pe mempunyai urur:w beriku t:

prrhD

scb:~g . tt I

I. Menyebutkan nriabel file dan nama file 1. Mcmbuka file .3. tvlclaksanak.tn pt·- ·_saksesan file 4. Menutup file

I

Urutan p roses pada file berripe ini paJa c:hsarnya sama dt;;gan 'Jpcr.bi pada jenis file binnya. Pcrbedaannya rcrletak pada fa~i li t :J~ yang digunakan. Scbc!um mclakukaJJ pcngolah ,m data dcngan file. 1·arial_;::, file h.nusl:lh rcrkbih dahuiu Jibnbn llJ J1l.l file. Hal ini dilabar.:..on dcngJ11 mcmanggil pro,L'dur .·L:i,m. 1·ang m::miliki bcntuk: ASSIGN rvarlabeUile. nama _file J

dcngan 1-'ari,lbcl_jl/c lltcrupabn VJriJb,-1 bc~jLni .> file bcrlip·- :Jn ,. 1"1<7 ...)1/r bcrupa .nama tile yang aturaJllll-.o "-''U.1i dcngan arur:u, j )QS . <;;:.:car:t singkat, nama tllc hisa rcrdin dari kodc penggerak disk fd!Jk dr ir•c) dan Jirek tori yang bcr.,ifJ t opti onal, nama dcpan file (maksirn ai =-:-: :·:Jga.-. dung 8 ka rak ter), diiku ti tanda titik dan nama extension (m abt:71a! mcng andung 3 ka rak ter) yang be rsifat optional. Sebaga i contoh L:-:tar.~ narn:1 file: PEGA W AI. DT A

I

Yn1a extcnston nama dcp:m

Conroh yang lain · C \TUHBO'.PE< ;A \\'t\1. DT ;.,

T~ktor1

kode disk driv~.: ?.U

I I i

I I

Untuk keperluan menutup file, prosedur yang digun;.k 411

Contoh penggw1aan Assign:

dengm bmtuk :

ASSIGN tFI!e_Pegawal, 'PECAWAI.DTA'l;

nama file PEGA WAI.DT A. Untuk keperluan membuka file, disediakan dua bpah prosedur berupa

Reser dan Rewrite.

Reset {variabeLfile)

Baik

Rt'5 t'l

Dipakai untuk membuka dan menciptakar. file. Seandain ya dalam di sket su dah ada file yang sama dcngan nama file yang berkaitar. dengan vari,Jbc! ....Jile, isi fil e akan menjad1 kosong. Dipakai untuk mcmbuka file. dengan sifat: File yan~ berkaitan dengan l'ariabel....fi!r harus ~udah ada pad a diskc r. Jika file yang bersangkutan tid ak ada, akan terjadi nmtime error. lsi file tidak hilang serelah file dibub

m:wp tm Rewritt' menycb ab kan pointer file akan ditempatbr:

di awa l fik .

lsi file PEGAWAI.DTA sebeium REWRITE atau RESET

0

2

I

I I I I l Kosong

I

I

I pOinte' fll•

lsi file PEGAWAI.DTA sesudah RESET

0

2

3

I I I IJ

L pointe<

Gambar tJ - l . P~nga"'h R~1d tlan R~writ~ doJiam m~mbuka fil~ ..,L!

yang menyatakan bahwa file yang berkaitan dengan vant~lir/ II . · · I J' C1ltUtUp Proses pengakse5an file pada dasarnya d1bedakJ" , d. · . · '•' '' J~ 1 dua kategon, berupa: - Menulis · (mcrckam) dat:1, dan - - Membao data. Pernyataan yang dipakai untuk mcrck .nn data: WRITE tvariabeLftle. varlabeLkomponenl

dengan variabd.....kompotleJI berisi data J:ni komponcn y;,, ,., · ' .."··· ' 1trckamkan ke dalam file. Scsudah operas!. pcrckarnan d.Lt . pomter . fi1I c a k an d.1gese; k c pos1S1. sc IanJUl . L , . .,. , "'' • ·~ l'Ca ra otomans . • . . . • • • 111 va sa1a pomter file sedang menunJuk kc pos1S1 bcrnomv : . ' . rcco r d) bcns1: . . vanabcl Dala _pegaw01. ('ocrt1pc NIP Nama KodeBagianKcrjJ · GajiPokok

11896~

ALl

=

200000

I

Sebelum WRITE

~-~

I

'

Close •

j

3

lSI ftle PEGAWA!.DTA sesudah REWRITE

r~•tu

CLOSE tvartabeUllel

vang menyatakan bahwa variabel file File_Pfgawai berkaitan dengan

Rewrite (variabeLfile)

,

l

"J

f pointer file tposlsl nomor 2l Sesudah WRITE

r---

L

I

komponen no 2 ~

118962

I ! I All

1

200000

I +

pointer ftle tertetak sesudah komponen nomor 2

C...•ar

13-J.

Op~r
Writt

215

~

Pemyataan y ang dipakai untuk m crnbaca data pada file memiliki

J{alau sel anj umya dikenakan pernyata.m:

bentuk:

WRITE (Flle_Pegawal , Data-Pegawail;

·

READ (varlabeLffle, varlabel_komponenl

maka sesud ah perekaman DataYeg.:t uai. po inter file ak an m enunjuk ke posisi sesu dah komponcn bernom o r 2. C o n roh scdcrhana untuk meny im p:m scb uah komponcn bert ipc R cc,,nf_JJe.~all·.;i kc dal~n 1 file b cnDnl.l PEG/\ WAI. DTA Japat dilihat pad a Prog ram L\-1. Untuk mt·m bc ntd; fik ba ru . maka lilt PEGA-

Sesudah RE AD dilaksan akan , data pada po sisi yang ditunj uk o leh pointer file ditcm patkan kc '' ariab,·Lkomponm da n po in ter ti le dige~c r pada posisi sclanjutnya. Untuk kbih jela <; nya dapat diliha t p ~da Gam bar 13-4.

~l

WAL DT.A. dibuk:l dengan HEWRlTE. p R(XjRAH 5 ~ a panD at a,

,.

(•

CJn ~~h

---- ----- ---- -

o r ogr~~

(•

u nt.uk /1\flny i moan s tt Ou ah komp~g,-. ~ w a.- l• 1; t \ )

(•

--- ---- ---- -- ---- -- -- ------

&

---- ------- --

Sebelum READ !File_Pegawa l. Dat
., • )

• )

• )

Q

U5E3 CRT; TY PE R• coro _P eg •~ ~i

I

; RE COH U lllP l(oOtJ61i9 tanr..e r J a

_,..;..R.

G.. j,PoJo o k

l.:·rlG !ioT

: Fll f OF

Fac.c. ~ .:

I

' 1::1S.; ... , ;

i

VA R f ile_Peya wa l

Tip • _ f l l & _ P e ga~al .

Oat ii_P e ga ~•i

Re cord_Pega wa i.

' PEG AHAI . Oi l

);

P~ny e out ~ n v ~ ri a b e l

f i le

a~n n •~

REWRITE

(flle_Pog a "al) ;

f ; le ) uambu~ ;a a-.n •vnc ip tak a n f il e b;aru )

WITH Oata_Pegawa\ 00 BEO II I tUP := ' 11890 0'; Hu•• :: 'BAOU

T1T-2oooool

?

l

?

j_i[

?

_j Data. Pegawal

Sesudah READ !FIIe_Pegawal, Data_Pega wall:

r-- komponen no 1 omponen no 2 - l I 118961 I UM I 12 I 150000j_ 118962 I All 11 !-~~] I

I

pointer file

I I

I

1 118961

l UMI !2 1 150000 I Data_Pegawal

SlDII.Rt-11 1~ '; Gambar 13- 4. OpuaJi Rt<Jd

_ GAJIPok.ok : = 400000 EIIO ;

WR ITE (fil• _P •gawa1, Oata_P• 9•" A, ,; CLOS E (fil e _ Pegawai);

•lereto.a.c Oata_ Pe ga.w a 1 ~lenutup

file )

WIUTf lH ( *O.a ta evd01h dire kaa . T• ,;.an RE l UfW ' );

REAOUI

All

data ya ng akan di r ek .... )

KodeBag i anKe r ja := * 4 ';

EIIO .

I

LJ'

{ p ro gran. utatnA )

CL RSCR ;

ASSIGN (f ; ht_ Pegawa 1,

11 18961Jur~l_2 1 1sc~;o.;-~2 ,a962 -l

t

,

51 R:IiG{25J,

~ liD ;

BEOI U

komponen no 2 -~

pointer file

5 rR !IIC{6J;

~~~-;,

T\pe_ F 1l e _ Pe g a~a t

r- kompor.en no 1

L:: CI- 1)--,{ 1= -tj

Comoh program umuJ.. mcmbac.1 schu:1h kompon cn ya ng tcrdap:n pada file PEGA WAI. DT.-\ di~ajikan pa th l'wgrJ!Il 11 - 2. Pa,i.t program ini , file dibub dengan HESET. HESET nte11\'cb.1bbn i'Ointcr tile di tcmpatkan Ji Jwal fil::: (mmunjuk komponcn bcrnom o r 0) . Dl'ltgan demi kian saat ada operasi HEAD, kom ponen bcrnomor 0 inibh yan g lllasuk ke variabcl Data _P(~arvai. 217

-- . , -· . - .. ppOORAM a.caoata ;

r• ---------- ------------------------------

Pada file bertipe, terdapat fasilitas lain seperti Seek, FileSize, FilePos dan Eoj Fasilitas ini sangat berguna untuk memanipulasi pcngolahan data ftle . Prosedur Seek yang mempunyai bentuk:

. •l

)

<•

contoh progru

{f

UtltUII HaOlOI Mbuan koapon.n da1u f1le •)

. .... l

. )

(.

SEH rvartabeLflle. nomor_komponenl

USES CRl ; TYPE

dcr.,::Jn nMr:or_Jwmponw bertipe longint, m empunyai kef!: una :m un tuk n;c:.;:mparkan pointer fi le ke kom pon en yang _9ii ngir.brl. Jika j uml ah ko mpo nen file adalah jum.Jwmpoi!OI , maka

REC O ~D

Record_ Pega w&1

STRIIIG(fi] ;

tiiP

S TR III G ( 2 ~) ;

tlaooo. kode8ii g 15nKer j a ':

CHAR :

Gaj \Po~.o k

LOilGIIIT

SEEK rvariabeLflle. jum_komponenl :

END; Tip¥_ F ;1 e_P2g~wa \

: f! L: Of Pecord _ P• g~w a i :

akan mcn ycbabkan pointer fik dircmp arkan kc akhi r file. Scd:-t ng bn

VAR

f\le_P •~·• i

T 'p e_F l ) e_Pe s ~wa 1 ;

Oata_ P e~·• i

Rec o ro _ Pega wa i ;

SW < rvariabeLflle, Ol;

{ p ro~u· A.ftl u tllr;,• }

SfGIU

CLRSCR ; ASSIG!i ( F i le _ Pegawa i .

me ;11buat poi nter menunjuk ke J w al fik. ' PEGAWAI . Ol A ' l ;

Penye butan vari~ b el f i 1• d.an nU\a fil e

r F t1 • _ PegA~at} ;

RESET

~fAD ( r i l s _ Pe g awa~ ,

WITH

C a~a _ Pegawat

Sebe!um SEEK:

)

sesudah SEEK rvariabeLflle . 4J·

~'CII'IbUk& f i le P€0""'A! .DT A

f.i &trtba C4 O ~t~ _Peg,;,w .l.i

O~t•_P ~gawa , ) ;

0

Cot.a k. ka lA ya"" }

DO

2

3

2

0

i ·-r-urJ

3 - nomor komponen

CTJ___ r_J

t

8f Gi t1 WRITELU

IliP );

( ' IIIP

WR! TlLH ('~ode baglan kerja

KoaeBaglanKerja);

WRITELH ( 'G&j i

GajiPokol<)

Pol
G•rr.bar tJ - 5. Opmui

HID ;

pointer fl!e !berada pada akh lr fi lel

d~ngan

j

SEEK

Fungsi bernama FileSize yang memiliki benruk:

{ »enutup file ]

CLOSE ( Fii e_P•gawal ); WRITELN ; WRITE

pointer file

l

Uaea):

WR!":'EU• ( 'HaJt•

ALESIZE rvartabel...fllel

( ' Tekan RETURU') ;

READLH

END .

mempun yai kegunaan unruk memperolehjumlah ko m po ncn dal am file .

~

Contoh eiiNkusl :

6ADU SI OARIII IIT O

tl &t~ta

~ ode

b a g , a n ke r ja

Gajl PO>
r ! [T I L 0

I 18980

tllP

400000

~·

1

2

3

+-

nomor komponen

I I FlleSJze rvartabeU11eJ

C...iGr 13- 6. Fung1i

1 ."''' .,.

= 4

~ I

I

Fi/~Siz~

Program 13 -Z.

210 -.~ 'l

, ..

., . 1

file (eof= end offile) a tau tidak. Keluaran fungsi Eof bcrupa True (bcnar) apabila pointer file sedang bcrada pada akhif file. Jika pointer file tidak bcrada pada akhir file, m aka keluaran berupa False (salah). Conroh penggunaan prosedur SEEK dan fungsi FILESIZE diantaranya terdapat pada Program 13-J, yaitu prog ram untuk menambahkan data ke file PEGA W AI. DT A (Program ini hanya bisa dijalankan jika Progra m 13-1 sudah d ij.1 ian bn). D ata tambahan dimasukbn kc ba gian ~csudah ko mpo nen rerakhir yang rclah dircbm. K.uena itu pada pcmasub.n data t:unba ha n va ng pcrtlma (.;c tiap kali Program 13- .l dijalankan) . pointer file har us tcrlcbi h dah u!u digcser ke akh ir file . Pcrnyatnn y311g dipcrlukan :

fungsi bernama FilePos ber guna untuk memperoleh posi si f<'in rer fil e. Benruk fungsi ini: FILEPOS lvariabeUllel

f>pabila kcluaran. fun~_si ini berup a 0 (no\), bcrarti roint er iil~ scdang berad a di awal fi1 c. N1la 1 rerbcsar vang t:hha s1lkan okh fu:-;,;:,, lill sama dcng;m jurnlah kornponen dalam fi le, yang menyarabn :-oinrcr file st:dan g bcrad,, pada akhir file.

0

o=J-Tl

FilePos rvariaoeUileJ

jpOintEr .

I.

I f IE

NmU
SEEK tFIIe_Pegawal, Nmr _Komponenl ;

Prog r.> m 13-3 se lcngb.pn ya cbpat dilih at bcrik ut ini: ~ROCRA14

[J I I J tpointer

L

I

4

=

3

2

0

\

I

...... nomor l
3

2

FilePos rvarfabeU/Ie!

T. -t>ahO• t • ,

•l

(•

=2

' l

( • Contoh or-ogr ...

('

u'ltvk . . n .a.•b&h~a r• d • t •

('

~ --

lo. a o.a 'l ol!l fl l •

-- -

•l ' l

VS E.S CA C:

file

lt F'f.

- -- - -

P • cor d _ ~>•9•"' a \

:: R£ CO ~O

...

ST R l tJG( 8) .

HIP

,

Gdmb~r 13 - i . l'ung$i FiltPo$

SlR1 11G{15) :

lt00.8a gt af'\'·•r J a : CtiA A ,

lOtiGltiT

Caj tPok.ok

Fun gsi banama Eof yang mem iliki bcntuk :

END ; Tipe_F 1 l a_P•g.awai : ;: FILE Of P.co r d_ Peg"wa t :

EOF lvartabeLfilel

PROCEOUAf P•taaeu"'-.an_dan_Pereka.-an_Oata

(VU ftle_P•gawai : Hp._F t h _ Pe9awat ;

berguna untuk memeriksa posisi pointer file sedang bera.il pada akhir

t,_r _ Aec : WORO) :

f Untu)l. --~~kan data yang t>era . . l d•ri Dapan-lo.et ~ k

2

0

3

,

[ I I I ] Eof IVartaoeLfllel

=

True

pointer file

0

1

2

3

L I I [ ] Eof rvanaoeU ilel = False '

'""Inter

flle

Gambdr 13-B. Fungsi Eof 'J'J(\

cs.an .. ,..k . . k• rile )

...- nomor komponen

V AR

•

I .

_ _

I

!

_j

Po•:C

IVTE ;

0. ta_P•·9 a•• •

Jteeord_Pegawa' :

&tO Ill NITM Oata_Pe9&wa t DO

lfGIH ( Buat katerangan p.ada ta,.a ,. ) CLR'SCA; GOTOXV(10.

2) : _.JUT!( "P£f.lA5UKAII DATA KE

OOTOXY(IO , 4) ; WA!Tf( ' IHP

[8 dlgtt)

lt.,-_ R.c : l ).

: 'l;

221

~I

: s 1184fAfl; OOTOlY(IO, 5): WRITE( 'II_. ooTOXY(10, I); lt!ITTE('II
'):

••s•an

Kerjo:

NI•

1 1!98 1

u.....

UO
ltode hglan Ker ja :

2 f 1)

(1]. l'er_,.lh (2] . O<euangon 'l: {S) . Produ-..; ·1. (4) . Teknik

GOT0l1(10, T); WRilf('

Gajl

P::euang.an

{4).

T•knik

{S] . P..-.kol

ISOOOO

""

~ok

Rp'):

GOTOXY ( 10. I) ; WRITE ( 'GaJ I Pokolo

Personalla (2).

f l} . P. . ea.aran

(3) . ,_..,.,..,

{ Y/ f ~ •

.._na.llbahkan data lag t

'f

{ p_.~an OAt& dar\ p.aoan "etik

P£HASUKAH OAT A KE - 3

CiOTOtY (Powlt, 4 ): AEADLII (fliP);

, 1 !1,~

fliP

GOTOIY (Po9X, ! ) ; fi'EAOlH (I~) ;

Alt KOO. B•9 t an Ker j a : l !

2

Ua••

GOTOI'I' (Pe.l, 8) :

P • .- ..or..a I i a

i ).

I J!

QfP(Al

Koc:te8ag\anhr j ~ : :

REAOkE'

(i:.aj t

r::c

Po,.ck

= -~

•.,,. ... .

( Z J.

K ~u..a n g a n

1'1 ·

, ...

{2).

t<•uang•n

(•J .

hknik

~ ~)I.

( S) .

Produi<S i

{ 5} .

Produll. st

: CNO . .J'J

•.JITll ttoo.SagianK•r,ja IH ( ' ! ' . . . , ·): wRITE

(llOO.!agu,)f.erja) :

GOT0XY(Po•.:l+4, I );

Hen-...aa h kan ~t• 1 • 9'

END;

PE ..-~ UK AU

WAI'!£ ffi1. _ P•ga wa L END;

( aM!"! I r

O...ta _ P•g..& .. a t);

t P•k ... k• dta~> •t J

II

I I I i

0\9'---n.alo.V"' untuk . . n.-oa,.,kan C:at.a

l

T i p._l' i la_Pagawa i ;

J a•&b•n

CI"IAJt;

rr.r _P.cord,

~r_~n

:

1

WORD;

i!!EGlN CLRS.C~;

·~~ION

( ,- i 1•_Petawa t , · PEOAWAI . DT A·) ; { P• t"l yebuta, var, abel f \ 1e d•n

RE~!,. (l'iltt_Pegawat) ; Nar-_K.:.ponen : :

( .,.._buka ft1• PEQAWAI.OTA

Mltr _a.cord : .. •• r:_Kc:.ponen • 1;

( uo-or r ecord pert&JU dlang~p :

REPEAT p . . . .ut~;an_dan_P•,.•..,~-Oat.a (flle_Pegaw•l , IIJar _Record) ;

INC (,_r _Record) ; OOTOIY (10, 10); WRIT(

( ' ~kan

RfPf.AT Ja..ab&n :: lltEAOt
UNTIL Ja•&b&n IH { ' Y ' ,'y','T",'t'); UltTtl uPCASE(Jawaban):'T ';

W'ttlf. (uPC.SE ( Jawaban)) EH'O;

na.a.a f

FILESIZE<'tle_Pegawat) ;

S[fK (ft1e_P•ta"'•t. Uar_KOIIIIP('Jr',.n);

( akhtr pro-..dv,. ~•bahOata)

1~9 6 3

&.aghn llerjA. '

{3) .

Gaj t

Pokok

Nt;t'lJu..-o..hkan oat a

...-.;li'tAPHO

• . {1) . t:>arson • H •

~o

'•9;

Pvo•a.aran

•oooco ( 'f f1 I " T

'

yang aod.a.h ada p...1.da. d i !lk•t }

1 t 1e_P•g.a. .... a t

•

1!1/~E : ll

a••

~oae

PROCECi.:RE: w.~oahOata;

v••

OATA ll:f

UIP

proaeOur P•••~ukan_Per•lo.••an_Da ta

t•,..,._,.d.aP rt 1•

f ¥ 1 ' J "' "

READUI {G aj,Pokok) ;

data lagt

(Y'(T)?

t

)

11& )

Program 13 -3.

Pcnggun aan L.m ~:: s 1 EOf cbpat di!ihat pada Program 13-4, yang dipakai untuk cncn,1 m pdk an scl uru h kornpo l1\:n yang tcrdapat pada file PEGA WAI.DT :\ . :1.l f-o n tma yang di gunakan dalam program :

1. Buka ,file P EG.r\ W.A. l. DTA 2: Jika pointer file tiJa k berada di akhir file, nuka: • Baca scbu.1h kom poncn p:~da posisi pointer file • Tampilkan kc: laya r • Ulan g i langbh mulai nomor 2 3. File PEGA W AI. DT A ditutup

' ) ;

PROGRAM BacaSe•uaData ;

<• -------- ---- ----------- ------- ----- --------------- ., <• Contoh progr~ •) <• untuk .an&Mpilkan 5eluruh data yang ada dala. file •> <• -------------------------------------------------- ., USES CRT;

!fG[N (

p,-ogr ... ut . . . )

~·t•

[NO .

Contoh ............ :

TYPE Record_Pega-.al

RECORD tHP tlaJII&

STRING[O) ; STRIN0[25] ;

PEMASVI
223 222

.,

oontuh akaakuai : KodeBagianKerja: CHAR; Gaj i Pokok LOIIGIHT

untuk menampllkan seluruh data yang ada pada f ; le PEGA~IAI. OTA

118960

BADU SI DARI-IIIITO

Tek ni k

Rp

1169& 1

u... I

Keua n ga n

Rp

150000

118S6 2

ALI

P~ r aona l i a

Rp

20 0000

11 8963

! SIIAEIII I-IURYAliTO

Te knl k

Rp

t OOCOO

Te k.a n R£TlJR fl P ro.~ ram

/J ·- ~ .

FILE OF Record_Pega wai ; STRIIIG[ 10); Record_Pegawa i :

Penyebutan variabel file dan nama fila ) l-lembuka file PEGP.WAI.DTA

RE SET (File_Pegawa i); WRITELH ( 'HIP

II AI~A

EAGIAII KERJA

GAJI ' );

(' = ==== = === = == = ==== ====== " ~ = == = = = ==== = === = == = ===== = =====" ) ;

WHILE IIOT EOF (F lla_Fegawa i) DO WITH Oata_Pegawa i DO BEGltl READ (File_Pegawai, Data_Pegawai) ; CASE KodeBagianKarja OF '1' : BagianKerja : = '2' : BagianKerja : = '3' : BagianKerja : = '4' : BagianKerja : = '5' : BagianKerja : =

'Persona1ia': 'Kauangan' : 'Pa•asaran': 'Teknik' : ' Produksi'

WRITELH (lllP : e , ti&JU : 21. BagianKarja : 12, '

.1\ d.tkai any~ cb ta t ~Tt c' IHU va n g hcr ...la dal.!n 1 file p(rlu d:uhJh. Prog ram l.)- 5 mc m pcrhiD tk :u• c.tLl mc ng g am t tic!J Kv,JcBa~:aii Kcr:~ dJ n C<~JII-'ok ok d:-t~i s u :-~ ru ko m po ncn dalam tlk PEG 1\ WAI. DT.~. Pcm as ub n \':J ng di pcrl ubn bcru p:-t N IP da ri da ta vang abn diubah Kaiau dJ ta png dicui tJ k .tdJ dJ h !J\ file, p ro gr:ll n Jkan m cmbcrikJ.n pcsan kcs.1l.1bn herupJ ' DJta tc rs<:bu t nd.1k di rcm u kan 1'. Al gori t ! l ~rl yang di p.t k.ti :>clc ngbpn p ad al::lh scb .< g:li bn ik ut :

1. File P EGAW:\I.DT A d ibub Mcm a.;ukkan N IP d :-~r i da tJ va:1; :1bn d: g.1nti 3. J ika d.tt J yJ nt: dicar i :10:1 p dJ f:ic. nD k.J: a D:Ha ditampil bn h byar a Mcma sukbn dat.1 pcn gg:lilti (•:a1 ru Ko~lt'l ~.~-~ ia t! i(nj.J Jan C a;zl\·· kok • Pcrckama n data kcmbali kc di skct Ji ka data tak ada p:1da fil e. maka pcsan kcsalaha n 'dJ ta terscbu t ta k ditc mukan !' dim uncul ka n pada laya r. 4. Jib m au m clakukan perubahan lagi, ul an g i mul ai langkah nom o r :2 5. File PEG A W AI.DT A ditutup ')

PROGRAM

END; { akhir for ) Rp

, OajiPokoi< :1CI.

<• <•

G~ntiDoto ;

' )

Conto h program

•}

(• untuk •enggant i data dari •uatu ko.ponen

END; WRITELH

40 0 0 00

~· ·= ~ 22 =~ == == = =: == == == ===== = ====== = === = = = = = = = = == = == == ~

BE Gill CLRSCR; ASSIGN (F;le_Pegawai , "PEGA\IAI.DTA " ) ;

WRI TELII

GAJI

===== ======== == ======================== == =============

pROCEDURE MenaapllkanS&•uaData;

VAR File_Pasawai Bagiant<erja Oa t a_Pegawai

BAGIAII I<ER J A

II A~IA

IIIP

EHD; fipa_Fi la_Pegawai : fiLE OF Record_Pegawai:

{ akhir with )

( ' ==~== = = ==== === = == = = = = = == = === = =========================') :

END ; ( akhlr proaadur HenambahData )

da l~ ~

<•

f il e • )

.,

US E3 CRT : TYPE

BEGfN ( progra10 ut uoa He~ilkanSa•uaOata ;

WAIT! ( 'Tekan AI!TURII'l; RI!ADLII

Rac ord_ P•ga \ollllli

RECORD

tllP

STRI IIG{ 6 ] ;

u.....

STRIIIO[Z5] ;

Kode8ag\• n Kerja : CHAR;

END.

225

224

*'

I

T

. 7 rm

3 . ,

7 itiJI!

s

1

·= 2'.,

77

a

77 OJ

T.

r

7

ountuh ek .. kual :

KodeBagianKerja: CHAR; GajlPokok L~lGINT

Untuk ~enam pllkan seluruh data yang ada pada f i le PEGAWAI.OTA

118960 118911 1 1189132

BAOU Sl DARMIIITO UM I ALI

118963

!SIIAE!i! HURYA!iTC

Rp Ro

P& raona ll a Te knlk

Rp Rp

4000 00 150000 200000 ~ 00000

Te l
/J ·- ~.

FILE OF Record_Pega wai ; STR!IIG[ 10); Record_Pegawa i ;

Penyebutan variabel file dan nama file ) 1-!embuka file PEGP.WAI . DTA

RESET ( F i le_Pegawa i ); WRITEUI ('HIP

.1\d,lkalany:~ d ~Ha tcT tnHu vang hc~ .lcla dal.ln 1 file pc rlu d:uhJ h. Program 13-5 mcmpcrldntk:w ura lllL,nggantl ticlJ Ko,JcBoxza!IKfl~ ;~ dan C,zji/\Jkok ~i:lri su:lfl: kom pon(·n dalarn tile PEG t\ W AI. DT.~. Pemasub n \·ang dipcrlubn b crup:t N IP dar i d:~ t a va ng ak:ln diubah Kaiau dJta y:~ng dicui t3k ,JdJ dab!)l file, program .zkan m cmbcnbn -pcsan kes.llJh:~n herup:~ ' Da ta tcrs<:but nd.1k ditcmukan ,. Al gorit!T~~ nng dipJb! ~L· icngbp n ya adalah scb.tgJi bn ik ut:

1. Fi le PEGAW,-\ I.DTA dibuka

IIAI~A

EAGI AII KE RJA

GAJl') ;

(,======= == == ====== === ==== === ===========================· );

:2. Mcma sukbn ~ I P chri da ta van g :~k:-tn d1g .onti 3. Jib d,lt;l y:m:.: dicar i :~da pda f:lc. mak .1: a O :n a ditampi lbn kc layar

WHILE NOT EOF (File_f'egawa i) 00

Ill

WITH Oata_Pegawal 00

CASE KodeBaglanKerja OF '1' : BaglanKerja := '2' : BaglanKerja : = '3' : BaglanKerja : = '4' : BaglanKerja : = .'5' : BaglanKerja : =

Mcm~ s ukkan

dat:J pcng/!Jnti

(\'Jitu l(,,~ldi.l:;:iod-:c lj.l

dan Caid\·-

kok

SEGIII READ (File_Pegawai, Data_Pegawai);

• Pcrcka m;m da ta kcrnba li kc diskc t Jika data tak ada pada file. maka pc ~ an k csab han 'da ta terscbut tak ditcmukan 1' di muncu lkan pada layar . 4. Jika m au mclaku kan perubahan la g i, ulang i m ul ai langkah n omor 2 5. File PEGA W AI.DT A ditutup

'Personalia'; 'Keuangan' ; 'Pemasaran' ; 'Teknlk' ; 'Produksi ·

,.

PROGRAM CantiData ;

END; { akhlr fo r } WRITELH (IIIP : II , tlanoa : 21 , BaglanKerja : 12, ' EHD ; WRITELH

Te~ n ik

Keua r.g an

~• a~ » ,~====:~~= ~ ~========== ============= ~ ============~

BEGIN CLRSCR; ASSIGN (File_Pegawai, ,PEGAHAI.DTA') ;

WRI TELII

GAJI

==== == ======================================= ====== ===

pROCEDURE ~~pllkanS&•uaData;

VAR flle_Pegawai BllgianKerja Oata_Pegawai

BAGIAII l(fRJA

IIA~IA

IIIP

END; r;pe_Flle_Pegawai =FILE OF Record_Pegawal;

{ akh lr with }

Rp

Oaj1Pokoi< :1CI.

('==~===================================================') :

END ; { akhlr proaedur HenambahData)

(t

. ' )

Con t oh

)

pro gra~

(t untuk •engganti data dari

auatu kDMponen dalam

r; le

•)

(. ----------3--·--- 3---------------3--3--------------- . , USES CRT : TY PE

BEGfH { pro"graJO uta•• HenaapllkanSeauaData ; WRITI ( 'Tekan RI!TVRII') ; RI!ADLII

R~~:cord_Pega~~ti

RECORD tllP

u...

STR!IIGI&J: STRI NCI25);

KodeBag \a nKerja : CHAR ;

END.

22.5

224

Iii

Gaj IPokok

LOIIGIIIT

Ill¥

EIIO;

(1'1 ,..._,.._.., . l'oot• . "-gawal) ;

..s., _Olear I

If ~..,...,.., ""' •

Tlpe_flla_Pagawal • FILE OF R.cord_Pagawal;

a..c:-w : • PROCEDURE Ta•pllkan_Ko.ponan(VAR D~t~Pagawal: R.cord_Pegawal) ;

rHfH

~

!110; II Ita~ "!!!Illi

( Untuk ••na•pllkan data ~ang ada pada Oata_Pagawal )

llfUill CU!Sa :

a·ecrtt

Te~~p ~ l lt.IW\ _._~~' .:•"'-'., t.._g,a.,ai);

~ITH

00

O~ta_Pegawat

OOT~T"

keterang~n p~d a

~);

WRITE('IIAJ!Ia

Ua.IU:) ;

GOTOX¥(10, 8) ; WRIT E('Bagl an Karja : W~ITE

WRITE (

WRITE ( 'Pa•aaaran '};

'K e u ~ngan

WRITE ( 'Teknik · };

. 5.

WRITE ('Produksi ') Rp

f

I

Record_Pagawai;

Jawab.an

CHAR;

"'•*",.lt•tJtanKerja);

f'e•••• '·

r l\t,·o~(F1le_ P•9Jtwat )· l) ;

l\·• ' •

c. h r•o•••,

P•9a"'ll 1):

atur ,. ......."

~) u~

rt ' •

k .-.o• t 1

t:f~IN

00TO%Y

i t

J , • l .

-IT£ c t\ata t• r •• ... "'"

It .... ,.

o I t . .ukan

f •)

Dll ;

PosX

BYTE :

~-::ry

II!P _Olear I

9TRIIIG(8) ;

J!EK...AT

K•t eau

BOOLEAII;

(10 . tS); WIIIIJ , . , .... _,..gut>ah lagl

. . _ , : :
BEGHI ASSIGN (File_Pfl g&wal,

R E4D ~ £Y;

f~ { t i::.t "•t....u

Tlpa_File_Pegaw~l ;

O~ta_Pegawa1

... ""•r)a ::

[ "l)

~

VAR

v~ ... ._,. .. ,

! ~t"- ,.._..,...... ,

WRITE

SEE« t • •~ •

POS!Sl_AWAL_fllE : 0; t

£•! Pr.,.,....at ' ) ;

GOTOX'f .. "-~•" . '-' ' REAOUW ;tt.ta ,...,_ ..."' 1 •kJ u~o«~);

proa edur Tamo t 1 k•n_ KOQ\ponen

~enggantiData;

le_Pega~~tA

••uang.AI'I') ;

l.JrifTIL 0.<.-.. t"•••"'~ ' ~r~,h.,.4'•V'.anKerj a l N ( ' t ' .. · ~·J;

f

Gaj i Po kok );

COl iS T

Fi

('{lJ P•r~li• (2J

~1• t • ~ · "

O.U _ ......,.,.~

l

Jlf'RI T£

PROCEDuRE

..... Iff

•t\

IIEPE.I T

EUD; GOTOXY(IO, 7); WRITf ('Gajl Pokok EIIO:

') ;

OOTen , ..... . ,

·) ;

... ErW ; { akhi r

peaa....,...."

l

.3 .

( ' Kodo b6g1a.n ~-"•rja

I ,... . , . t.tl poai • l ko 1o. dar I kvraor

' );

('Personalia');

. z.

l ' L•AfA 8AJlU : • };

)otill\1'1

OOTen , .._,., .._, , • tl ,.,.lit ('(J) P-.,...ran [Jj hknlk OOTor• 1•11', 13 , , ,....,., 1 · oajl Poke»< : Rp') ;

II! P) .

CASt KodeBagtanKerja Of 'I'

" "' t l

ttl

OOTO~ \ ",.\ "",'

l~yar

GOTOXY ( 10 , •) ; WRITE ( ' IIIP GOT OXY(1 0,

t

z """' ll~- \

POSJ

{ 6uat

\t O, t \

QOTOr\

BEGI!l

t.JIW"T':t. llli'ITf

'PEGAWAI.DTA');

RESET (File_Pegawal);

l.t
RE PEAT

!110;

r.

I

• '

'

I

'

(Y/T)r');

r ... t.);

(...-c;AISl (J a.,.ban) l 1

:.>cASf 1J ....a>an) a ' T '

( ..<'~ fr p,.._.,. _,,,.,.wata

ClRSCR ; GOTOXY(IO, •l: WRITE ('HIF dart data ~ang akan
llEat11

( ll""ogr- ~

~ I O.ta EI
( Proae• pencarlan d&ta pada file PEOAWAI.DTA COt)tO'"l

t

SH K ( Fila_Pegawat, POSIS!_AWAL_ FlLE ); Kate•u : : FALSE;

•~ tii4H'. 4

•

( penujuk file ke posiB i ••• I f llo I

WHILE (NOT EOF(flla.)'agawal)) A/10 (tiOT Ketaau) 00 IIEOIH

tllP e._, 1 :ata Yah9

N!P

a~ an dtt•"•

1

11ft 'i02

t t8 H t

227 !

I .

"'

Berdasarkan algoritma di aus, ada dua perintah vang belum dib:thas yaitu menghapus dan mengganti nama file. Untuk keperluan menghapus file, Turbo Pascal menyediabn prosedur bernama Erase, dcngan bentuk :

All

Naaa

8ag1an Karja : Personalia

GaJ1 Pokok

Rp 200000

O.ITA BARU:

ERASE lvartabeLfllel Kode bagian kerja__: 1 G..&ji

"""'U

Poko..,_

~n&ng r.Jba't'l

{1) Person..lia

{2) Keuangan

(3) P-.,...riln

t•J

Rp 'lagi

(Y / T)?

Teknik

( 5) Produka t

250000 T

Pernyata:~n ERASE hanya bisa dikcnakan terhJdap file yang tertutup. Jib file scda ng tcrbub, pemanggilan ERASE akan menycbabkan kcsalahan . Adapun untuk kcperlu,m mcngg anti nama file. Turbo P:~ :-. cJl menycdiakan proscdur Rowm,·, dcngan bcntuk:

Prt•gr.;m 13 - 5.

RENAME lvarlabeUlle. nama___barul

Sdain mcn~ubah data , kcmungkinan pengolahan yang lain bcrupa p cngh.;pusan tcrhaciJp data vang tidak dipc·rlukan. Untuk kcpcrluan n;i sc bcnarnya ada bcbcrapa cara yang bisa ,iipakai. Cara yang di tempuh pad a Prog ram 13- f1 ad:llah scbagai berikut: !. File PEGA WAI.DTA dibuka

...,

Variabcl pcngingat AJaPmgh.1p11san dibcri nilai false -' · \1cmasukkan ~IP dari data yang akan dihapus ~- Jika d:lta yang dicari ada pada tile, maka: (i). Dat ,l ditamoilkan kl' lavar . (:i) Ji ka d.:; ra mcman g mau dihapus. maka: • Fiel.l .'-..IP digami rncnjadi tanda '*' (sebagai randa komponen tcrscbut Jihap us) • D:lta direkam kcmbali • Variabel AdaPenglzapusan di-set bernilai tn4e Jik:~ data tak ada maka tampilkan pesan kesalahan 'data tak ditemukan !'. ::>. Jika mau melakukan penghapusan lagi, ulangi mulai langbh nomor 3 6. Jika variabel AdaPenghapusan bernilai True, maka: • · Menciptakan file penampung data sementara b'trnama TEMPORER . DTA • Seluruh komponen pada PEGAWAI.DTA yang NIP-nya tidak berupa tanda '*' disalin ke file TEMPORER.DTA • File PEGAWt\I.DTA ·dan TEMPORER.DTA diturup • Fil e PEGA WAI.DTA dihapus . • File TEMPORER. DT:\ diganti namanya menjadi PEGAWAI.DTA jika varia bel AdaPengapusan bernilai False, maka file PEGA WAl. DTA ditutup

.

"">~

j ika proscJur ini dipanggi!, file yang bcrkait J n dcng an t•ariabef_Jife ak.Jn diganti namanya rncnjadi IIOIIIiLbant . Scpcrti halnyJ Era se. f<malll<' hany.1 bisa dikcnakan tcrhadap fiic yang tcrturu p. PROGRAN

. .

H•pusO~ta;

(•

)

c•

PrograM untuk M&nghapua au~tu k~ponen dal~~ filo * )

(•

)

USE S CRT; TYPE Re c o rd_Peg ~ w~ t

=

~ECORC

!liP

STRII10[5 J ;

u.~~"'.a

STR!tiG[B) .

Mode8agianKerja : CHAR ; GAj i Pokok

LOIIGIIIT

EIIO ; Ttpe_Ftle_PegAwat :FILE OF Reeord_Pegawat :

VAR Flle_Pegawal

Tlpe_Ft le_Pegawal;

Oat&_Pegawat

Record_Pe~wai ;

(• aiatpkan dt aint : proaedur Taapilkan_ko.~n ~ang

Ada pada prograM

~ntiOata

. )

PROCEDURE Menghapu.Oats ; COII~T

POSISI_AWAL_FILE : 0 ;

VAR F i le_Peg.awa i

T i pii_F t l•_Peqaw • t ;

)(ete•u. AdaPenghapusan : BOOLEAN;

Jawaban

CHAR ;

HIP_D1car1

STRIIIQ(O);

229

.,.

p~EOURE Prosea_Pangnaous&n (VAR Flla_Peg&wa l: Tlpe_File_Pegawal);

SHK l"le_Peg&wal, POSISI_AWAL_fllf); { penujuk file ke poalel a .. l file) Ket..u :• FALSE;

~ST

~jt~llf

(HOT £Of (F1la_Pegawal) l NIO (HOT BEGIN

~ . . aFilaSe. .ntara: 'TE~PORER.DT~';

If Dato_Peg•wa I . HIP : HIP _Olear i THEil

Keteau : • TRUE

WOIID;

Ut~rRecord

Data_Pe~wal);

RfAD (File_Pegawal,

VAR Tlpa_File_Pegawal; filePro,..,. Oata_Pegawa• : Record_Pegawai ;

~eteltU) DO

END;

eEGIN

IF Kete•u Tt<EH

CUISC~ ;

WRITELH ( ' lunggu ...

S•>
BEGIN

l!lehku~;on. pensh•P'-''"""· ');

CLRSCR ;

1 c lpt;o~an f il a a.-.ntar;o ) ASSIGtl IFilePro,..s, 'TENPORE~ . DTA') ;

Taapllkan_~~ponen

(Data_P ag&wal) ;

GOTOXY (10, 9); WRITE ('Data ini dihAoua (Y/T)7 ' ) ; REPEAT

REWRITE ( f ll eProeee);

Jawab•n := READKEY

{ proaes penyAl;nan ~·file soaentara }

UtlliL Jawaban Ill [ •y·,

SEEK (file_Pogawol, POS ISl_AWAL_fi LE); FOR tlorR.cord :: 1 TO FILESIZE(f l le_"89~ "&1 ) DO BEGIN AEAO

'y ', 'T ', ' t ' ) :

'Y' THEil

BEGIN Oat•_P•gawa1.UIP ;: ' t ' :

{ Ftle_Pega~a i,

WRITE (FileProsea, Oat&_Pegawa \) W~ITf

tAnd~l

O•t•_P•ga~ai };

If C& ta _Pegawai.IIIP <> •• • Tt<EII ELSE

IF UPCASE {JawabAn) :

('Ka.ponon ~or

:~IP

d~ ngA n

blntanq

j ika. tll P buk•n bf!.ruo• bintan g

( atur

•Aka d\ sal•n ~• f11~ ~ ~n t ar a

~ nun juk

file ke poat•'

WRITE (file_Pega•ai, Ooto_PegawAI); AdAPengh•pu~n : = TRUE END

FILEP OS (filo_Pegawal)- 1 ,

' dihapus. ') EIID ;

ke~ b •li

~a-ponen

ditemuk &n

SHK (F1le_Peg&.,oi, fiLE~(fi l•_Pesa wAi )-1);

( re k&JO k.,.ba ll

EtlD

ELSE I ti dak ket&•u ) ••nvtuo file )

EEGIII

CLOSE (Fila_Pegawai);

GOTOXY

CLOSE (FileProses);

WRITELH ''0.-ta tak dite•ukan ! ·)

( 10 ,

8) :

£110 : E~ASE

(flle_Pegawal); ASSIGII (FlleProMs, tlaooaFlloSeJOentar&); REIIAUE If lleProMe, 'PEGAWAI. OT A' ) ; WRITELH ( 'Penghapu..,n Mle..,l . '); END ; I akhlr pi'OMdur PrOMsPenghapU...n BEGIN I awol pi'OMdur Mengh&pueData )

I b\Jka file J (flle_Pegawal, 'PEGAWAI.DTA'l;

AS~IIGtl

RESET lflle_Pegawal);

QOTOXY (10, 9); CLREOL; WRITE ('Mau ••nghapuo lagi IY/T)? '); REPEAT Jowaban : : REAOKEY UNTIL Jowoban Ill [ 'Y', 'y', ' l ' , 't 'l ; UNTIL UPCASf(Jawaban) : 'T'; { Prose• akhl r ) IF A
AdaPenghapuaan : = FALSE ; ~EPEAT

CLR!ICR; GOlGXY (10, 4) ; WRITE {'NIP dart dala ya"g akan dlhapua : '); RE.OLN IHIP_Dlcarl); I Prose• pencarlan data pad& fila PEGAWAJ . DTA)

!NO ; { a khtr pro. . dur NenghApu•O• ta

BfGIII 1 Prograa utaea } 14enghapu.Oa ta

!NO.

231 ~1 1\

. cof'ltoh 8kHkuw1:

fliP d&rl data y;mg akan dlh&pu• :

119811

tak dite•ukan

o~ta ~au

Misalnya saja file PEGA \\' Al r' r.-\ berisi 3 buah komponc 11 :H , 11 . l'1h at k an pada c.amlur ~ . !..:>' - -J K a1au fil1 e pomter sc d ang 111q I ' ·'. d 1per 'llill•d komponen nomor 1, m.lk.l : ·

~nghapus

1ag1

(Y/T)? Y

NIP dar1 data yang akan dihapus : HIP

118961

TRUNCATE IFife_Pegawall :

118981

B ~9~~ n

aka n m cny ebab k.1n 1-.om:•,•ncn "IlLii norno r 1 dJn sctc ru~nv .• d.;,, 1 , kan .

0...!

tliii!J.il

Kerj a : KeuAngan

Gaj I Pokok

Rp

150000

Xlll.2 FILE TEKS

Data lnl dihapus (Y ! T)? y ~au

••nghapu" lag!

{Y/ T)? T

Tunggu ... 5sdang melakukAn penghApusan. Kompon~n

~r

1

dihap~a.

Se1•a.ai.

Program 13-6.

File ya ng dapat diakses seca ra a.:ak (file bertipe dan fi le tak-bcrti pt") dilengkapi dengan fasilitas untuk menghapus seluruh komponcn mulai posisi pointer file sampai kom ponen yang terakhir dalam tile. bcruFJ prosed ur Tnmcate. B c ntuk prosedur in i: TRUNCATE lvarlabeUIIel

Pendeflnlslan Fil e Teks Fi :~ te ks Jid efin isi b 1< ,Ln~;·''' lll t: nggunakan kara-ttrc:td ."''

Pemanggilan prosedur ini harus dilakukan terhadap file yang tcrhub.

I

Sebelum TRUNCATE :

I

4

400XXl

118962

AU

1

250000

I

118963

ISNAENI WURYANTO

4

400XXl

i

I

I I

I I

lji8960

I BADU SIDARMINTO I 4 I 4CXXXXJ I

pointer file Gam bar 13 - '1. Pro~td"r TRUNCATE "'"1"""l

Flle_Masukan: TEXT:

BADU SIDARMINTO

Sesudah TRUNCATE:

;,

Scb:;gai com oh:

VAR

118960

pointer file

I

File reks mcrupak.1n jcn:, tile \ .Il l~ ha;1ya bisa diakses sec:H.I . , , , saj:t. Peng.1kse~.11i sn.n:. .tc.1k :,.!.1k dimungkinkan . Patb til , .. ; rers u ~ Ui l ata~ seju nd .1h l'.HI>. , ·.;u~-·n sc tiap baris merup:1 kan ,1 ,, karaktcr. Setiap l'.1ri~ liiJ :,h in .1.-n ~:.tn suJ tu tanda akhir hari~ (,j, ' · arau md ~r line). Di5,+ .. l'!-.. .11: , ,. , 1.1p baris bclum mcm P'"' \. brJktcr vang s.111 1:1. nu,;.l til; "·f....; hanya bisa di:tkscs seCJr.1 \• , Suatu file reb lllt'l l:f'\1 11\".:t ,1r'Jt yakni isinya bis.1 Jdd 1•• mcngg um bn pn 1nt.d; J' YI'i "' suatu file teks bis:J j ug .1 ,, bahka n b1sa died1t stY.J:.I l.n··>'"'~ dengan m en ggu mbn (sc perri Sit!cKi,.t. 11 ·,,,,;_-.::.J • .< . •:u niiror Tu rbo Pasca l).

l

yang mendeklarasikan \·ari,1kl bcrnama Fi/c_Afasukan scb-'Y.· file bertipc file tcks . Dalam Turbo Pascal tcrdJt'·lt Jua buah variabel file StJII <.lv' Input dan O utpllt. Vari.1bcl tile l11p11t mcrupakan file hany .• ._.__ , bcrka itan dengan fil e nusubn ,t:mdar sistem operasi (bia s.Ju ,, papan-kctik), sctl.ll1gkan v:m .•h·l file Output mcrupakan fil, , . yang berkaitan dengan tile hl uaran standar sistem oper.• ·· berupa layar). Kcdua v:tri.tlwl file ini sccara otomatis .J~ ~ sebclu m progr.tm muLti di c!,."·kusi dcngan bcnruk ASSIGN llnput, " ); RESET !lnputl ASSIGN !Output, "); REWRITE IOUII)Utl;

dan dengan sendirinya akar1 ,htutup ketika program berak h,, r

untuk variabel file Input atau Output, vari:1bd ini boleh tidak dituliskan pada pernyataan-pernyataan yang berkaitan dengannya. Misalnya:

Contoh WRITELN: Y.'RITELN !varlabeLfllel;

PASCAL'!;

WRITE !Output, iURBO

dipakai untuk menuliskan tanda akhir-baris ke ,l~l;~m file.

cukup dirulis dengan WRITE IThRaO

PASCAL'); [

o peras! File ieks

Sebelum WRITELN

Scperti halnya pada file bc rtipe, opcrasi pada file tcks diawali dengan pcnycbu ~an variabel file Jan nama file , serta diikuti den gan perintah untuk membuka fi!e. Khu sus un tuk perintah membuka file. ada pcrbedaan terhada p file benipe·. Pada file teks :

I! P j Ai s j c j AIL l

I

Rn o dikhususkan unt uk membuka file yang isinya mau dibaca. Pen gg:m tia n isi file tid ak dimungkinkan. D isamping Reset dan Rewnre, terdapat paintah Append yang fungs in va untuk membuka file yang isinya rnau ditarnbah.

[Q)\D J c I A~j -~ ~

f

j

Pointer file

I

--- -

---' f

Pointer file

_j

Tana.. ·•~ hlr · barls

I

- -- ~-

G.Jmb.Jr 13-11 . WRITELN (variabrLfilrj

pad" fiir

APPEND ivariaoeLflle)

WRITELN (variabeUlle , Stl;

Sam a hdl::ya pa d a file bcrtipe. file teks ditutup de ngan m cmanggil prosed ur CL O SE . Untuk ~eperl uan mcrckam data, proscdur yang bisa dipakai yaitu Write dan Writeln.

deng an S; misaln ya bc rtipc ~t ring, akan n : n. yd >jl. ~ .•n s c~ u <~ar. menul isk.m.isi nri:~bel St, tand a ak hi r- bar is (ro/11 :H .l ll ,.,,, .. f 1111 c j dit.Jmbahbn ke dalam fik. 'Sesudah

5ebelum WRITELN

Contoh WRITE:

WRITELN (Varltl

WRITE !variabeLflle. Karalcterl;

IpI A Is Ic IA I LT•l

dengan Karakter bertipe char, akan menycbabkan isi Karakter disimpan pada file yang berkaitan dengan variabeLfile.

Pointer flle St

Sebelum WRITE

sesudah WRITE lvarlabeLflle. Karalcterl

I p I Al s I c I A] 1

Karalcter = 'L' Garnbar 11-10. WRITE pau Jilt ttlu

[ PIAislciAitJ Pointer flle

r

=

f

[P IA I5 Ic1~L~J ·l~LEJ! L~ Polr;~r 111~

f

'ADA'

Garnbar tJ - 11. WRITELN (variabtLJih, St) ,pada Jilt td., ,..:f

I I

,,~, ,

Cont oh lain dar i pernyataan WRIT EL N :

Bcntuk rrosedur Appe11d:

Pointer file

sesudah WRITELN lvariJbel tlinl

' I'

Untuk keperluan memb:~ca d:~ta dari fi k '', : rerd:•pJt du:~ buah fasilitas berupa R ead dan Readln . Contoh READ : READ lvarlabeLflle, Karalcterl ;

234

235

!':

dwgan variabel Karakter bcrtipe char, merupakan inscruksi l!_~tuk rnembaca sebuah karakcer dari file yang berkaitan dengan variabeLfile dan ditcmpatkan ke variabcl Karakter.

5ebelum

READLN

sesudah

READLN

(VariabeLflle. Stl

IpIA Is Ic I"-IL 1·1 A fo!AT~ [PTATTfT[ ATL i • IA ID IA I·] seoelum READ

~I s Ic liliJ~E.li1~

•Poin ter file 1

Kmkter =

?

sesuclah READ !var!abeUlle. !<arakten

'

Ip IA i s Ic IA I L I· IATi l l

'

t

Pointer file

Pointer file

St = 'SCAL'

St = ?

Pointer file I

Gambar 13- 15. READLN (•·ariuhri_J ilr, S t) P"J" filr ttlt.<

i

I

Karakter = 'A'

Contoh program yang mclibatkan fik tcks dap :lt Ji!1ha t pada ProF.r.1111

13-7. Program ini dip:1bi untuk mcnvimpa11 dua b uah pcrinuh 1)( l· , (berup.1 ECHO OFF d an I l ATE) kc dalam tile bcrnJm a A UTOL\ 1 < .l3 AT.

Gumb,r 13 - 13. READ pudo Jilr trkJ

C on :oh RE1\ DLN:

PROGRAM Slmp•nh •. s;

RtADLN !variabeLfi lel:

--- --- ------ ---- -- --- --- --

(.

( * Contoh f il e oe,-tipe

dipakai ·unruk m cnggcsn pointer file kc rem pat sesudah tanda akhirb.m s Data pada fi le tnuhi posis; pointer tile scmula s::~mp1i unda akhirbJri s akan diabaikan .

(' Oigunakan unt uk (*ECHO OFF l

TE.X T (mode ASCII).

men yi:~~tp•n

.. • )

peri., t ah DOS • )

DATE p•da t;lo AG TD EXEC. BAT

• )

- - ------ - ·- - - -

•l

t• USES CRT;

VAR

Sebelum READLN

ip IA Is Ic IA I LT-.-TAJOIAIJ

'

Pointer file

sesuclah READLN !variabeLftlel

FjloTe ks

TEXT ;

Sf.PI~I

jPIAi siciAILI• IAJojA)•J t Pointer file

Gam bar 13 - 14. READL N pado Jilr trkJ

CLRSCR ;

ASSIGII (Fileleks, REWRITE

( buk• d an c;pto•an file

WRITE UI (FileTeks,

'ECHO OfF·) ;

WRITELN (FtloTeks,

'DATE") ;

CLOSE

Scdangkan:

'AUT OD EC . 8 AT" );

(Fileleks);

(FiloT o ke);

rekaM l8ks : ECHO OFf

rek•m teks : DATE tutup rile

WRITELII ('File AUTOEXtC.BAT sudah terclpto

!") ;

READUI

READLN

!varlabeLflle, Stl;

clcngan St misalnya bcrtipe string. merupakan instruksi untuk membJO scluruh karakter mula i posisi pointer file sampai sebclum tanda aklurbaris, dan ditempatkan ke variabel St. Sedangkan setelah pembac;a.lll. pointer akan ditempatkan sesudah tanda akhir-baris . 2.1t'

END.

Program 13 - 7.

Dalam prompt, perintah DOS ya ng dipakai untuk menampdk. 111 1 ~, file AUTOEXEC.BAT bcrupa : -~

II

A> TYPE AUTOEXEC.BAT ..J

~ahTek a ;

PROORAN

-------------------------------------

(•

Melalui program, isi file AUTOEXEC.BAT dapat ditampilkan dengan menganggapnya sebagai file teks, sebagaimana disajikan pada Program 13-8. Pada program ini. fungsi Eof (sama halnya pada file bertipe) dipakai untuk memeriksa posisi pointer file sedang berada pada tanda akhir-file a tau tidak.

r•

Conloh file bertipe "llT I~ ASCII) .

t• t• t•

P4rintah DOS: TtHf

Ofvunak•n untuk . .fte..,.,.an

. )

... . t)

)

)

!>&cla fl 1e AUTOI!XfC . U T

)

(.

)

tnr~

CRT;

VIJ• PROGR~

B~ caleka;

---------- ------ --- -- ---

c• (• Oigunakan untuk

~~b•c•

r1

•) ia; file AUTOEXEC .BA T •)

.

TC~T.

8f 'Jl ,,

)

(.

' •'• "•

~~~R;

USE3 CRT;

, •• , IQrl( f llelek• .

\IP.P F i 1eTekQ

TEXT:

D~taTeka

STRH i G ;

""l lflll (FileT•••·

r.ur-t BEGIN

(FileToka};

_.,,..!": f l ll

CLRSCR ;

. A UTC~ \fC. BAT') ;

(fileTeka}:

lf-1- t iiO

buka f il e IJr•ta~~ 1. ... ... , r:--~e · };

. .n.,.bah k •fl

t•"'.,

rek•• tt~t._ •

r I14t

1

. , .,..

tutuo f i h;

(' Data ta .. t>.t.'"""'"' •tJdah di•l'"P.ol n oad• t t ' •

1\Uilu , ,,

•• r

" ' ;.:;L U ;

! ' ) ;

[J.ff/

ASSIGII (F i 1-Teka, RESET

' .OUT O~XEC .

BAT' );

(F i le hka);

WHILE tiOT EOf(FihTeka) DC

BEG III

p . .baca.a.n

Proz r~"' bac& ts ! file O&n

ka layar,

READUI (Fi1oT .. ka, Datahka): W~ITELH

Duka fi 1• vntuk op•rae1

aa l •~•

t1dak berad•

pad~

t~pi

IJ

9.

1k an

o~n un juk

fl ) e

Kai;, ~J

v:mu ia file AL'!,) EXEC.BAT bc m1

akh1r f11e

(OataT•ka):

EO'f'J 'JFF

EIIO;

or<: CLOSE (Fil•T•ka);

I tutup file }

READLH;

mab --:cng an diekscku.s in ya Program 13-<J "k 1

END.

Contoh ekaekuai

EOiO Off

DATE

Program 13-8.

Seperti telah disebutkan di depan. file teks dilengkapi perintah unnli membuka file dengan Append, yang memungkinkan menambahkan 0.0 ke dalam file yang sudah ada isinya. Contoh penggunaan A?Frti ·~ ditunjukkan pada Program 13 - 9, yang dipakai untuk menambahbtl perintah TIME ke dalam file AUTOEXEC.BAT.

E~

,, j

1.

ilp

fi J ..

I(ii

OFF

DA'n n~

F;, tt . • ·.a~ la in untuk kcpcrluan pengolahan fdr: 1 .1 SetTo:.rBu(( d an Flush scrtJ fungsi Eor Eoln' <) t'r',.~ ', ·tj'·' I· ·•pa prosedur ')I ' '• 4 n SeekEvln.

SetTe".c.Buf Proser.: • • l!li di pakai uncuk menugaskan suar!J V•·-" . kelu ;;~ ...- .w.tuk su:1tu fi k ccks . Bemuk pro~v;. 11 •• ·ng masuk:1n / Se"'"' .

•.Jf !varlabeUIIe. vanabeLpenampungJ

ata ,

239

\ setrextBuf tvarlabeLflle, vartabeLpenampung, ukuran_penampungl

]3encuk pertama menyat~kan bahwa seluruh ruang d;.1lam va riabel....penarn-

pi4ng digunakan sebaga1 penampung masukan/keluaran bag1 file tek s ang berkaitan dengan variabeLfile. Pada bentuk kedua, ukuran_penarn.

Y,ng (bertipe word) dipakai untuk menyatakan ukuran (bagian) d~ri

~ariJbt-Lfile yang

dipakai sebagai pcnampung m asubn/kcluar:m bagi file

rck s. Prnscdur SetTextBuf biasa digunJkan umuk _mcmpcrcc pat proses pcn ga kscsan file, rcrurama jika dat a yang abn dipr oscs s,mga t banyak Caran ya dcngan mcmpcrbesar pcnampung yang dig un akan sebagai rcnampung pcmrosesan file . Sccara incernal (kalau SerTcxrBuf ridak discrrakan ), ukuran pcn ampung masukan / kciu:uan adaiJh ~cbcsa r 128 bne . Sup a ya pengakscs:m dilakukan dengan ccpat. fX'na m pu n g van~ dihcr ikan harus lcbih bcsar dari pcnampung intcrn .d. . "

Dipakai uncuk mengoson&~an pcnamp ~J,, q e~l ~. ~('{'.\ ()it1'1\'-~'' ~ ·c: ,__ ,,. ini menjarnin seluruh karakter dalam pcrp,..,. '{uil.~ ~ fiq ,~ , Y:t '\\,h- "" ·. - ·~ WRITELN) akan dimasukkan ke da1am filt 1\o\17 i'-\ Y"' ,--. H '\-If.... 'J ""''' "~' Flush pcrlu dibcrikan jika di dalam ~u~t1gg 1 la~ prose ur ' a w,UTE se b aga1. parameter W RITE atau WRITELN te, . ata u . d h · tak dnutup atau WR[ 1 ELN. Pa a conto Program l.l-10,t . k . . . . : 1 · 'lk . d dl)!:lliJa · an mcnJamm ru 11s.1n l 1ta mp1 an sesua1 t'llf!.-'11 yans . .. IT[ 1 'Saldo bulan lalu :' dJn 'saldo bulau kini :' ,Ji rulis Jalan \v ~ .' 'lk an d atam . 1 I t ll lltuk s•: d Jn g k·an 111.I a;. u,lll)!. d 1tamp1 ,,,.,, J :lJn Y t.lt'll .. '1 . , I.1par .. 1''t1'"" 1 .I P·" l 11I , ,111 me 111ar pcnguu I1 / ·.,liS I1, pcrnyataan 1111 , 11 .1pa yang tcrjJdi; ' l;

'j

FROGRAH Contoh_F 1uot1 ;

USES CRT : FUIICTIOU VioeoTerbJ11ik

seek Eof r ungsl ini mcmpunyai bcntuk:

(lH l~i :

REA"LJ : STR JII lf.

{

vtdeo terbal l ~

COfiST KOSOIIG:

SPAS!

I

0 0:

= 0 3Z,

seei<Eof lvar!abeUIIel BE G !II

Kl·Qvn;;an nya sJnla dcng :m timgs1 Eof Perb cdaan d cn "an !:1.1_( fung>i .)okE4scbcium mcmcriksa posisi pointer fik. :~kan nh·r,~Jb.J:bn D n~. akhir- buis, tab ( -.f-9) dan spasi ( * 32) .

FLUSH (Output);

TEXTATTR :o 170 ; 'O'IQ!T[

( 'Rp .

', IIi la>:8:2,

Eoln Fun gsi Eo/11 dipakai uncuk mcmcriksa pointer file scd ang ,ncnunJul: tand a akhir-baris atau tid ak . Hasil true (bcnar) jib pointer sedJng mcnunjuk tanda akhir-baris . Bcntuk fungsi: Eoln lvariabeUllel

{ video nor~a1

TEX TATTR : : S07 ; VideoTerbo11lik(O)

EII D;

BEGIN

}

',-');

: = KOSOUG ( k elu•r~ n berupa s tr;nq ~· oaonq )

{ ~k hir tungot VtdeoTerbaltk

{ orogr,aa utama }

CLRSCR ;

WRITEUI (' S.aldo Bul.an lalu WRITELN ('Sol do Bolan klnt

Videohrbolt k

(200000 ));

, VtdeoTerbol lk (250000)) :

REAOLN

END.

seekEoln Bcntuk fungsi me seekEol tvariabeLfilel

Kc gunaan sama dcngan fun gsi Eoln . Perbedaannya. fungsi ini abn mcn gaba ikan spasi (#32) dan tab '(11''9) sebelum memcriksa posisi roinr~ tile. Fl ush Bent u k prosedur 1111 : Flush !varlabeUllel 24( 1

Contoh eksekus t : Soldo bulan lalu

tp:!OOOOO;•

Soldo bulan klnt

tp :l 50000;o

Program 13- 10.

Co nt oh penggunaan pcrintah HEAl>. HEADLN, \VIUT! · . \\ i(l TELN , EOLN dan SETTE XTBU F dJp.,t ddi lnt p td .t P ro~rJi n 1.1 -l!. Prog ram ini dipab1 unruk mcngganti du.1 buah spa~ i .1t.1L1 khd; \'~ 11 !-! bercurutan mcnjadi ~cbuah spasi saja. Oat.• Jibac:t d.m tik TEKS.'i. P:\S dan hasil dirckam pada file TEKSS . HSL

141

·

ELS E

~ ...,_,.speal;

c• ----~-------------------------------------------- •> CG"td> ~ READ, IIEADLH, WRITE , WRITELH

1 _,. EOLM pada fila bertipe TEKS. :.

•'paJ
t•

.,

:

( ke pos;si aeaudah tan~ akhir-baria

READLU (F i lelekstlasuk .t.n);

t)

..,

C F~leT•ksKe 1 u~ran) ;

WRlTE LH

•I

Et ~O;

~rosedur

{ akh i r

{ menul;5

P ro se~Oat .t. Per Baria

t~ nd a

& ~hir- bar is

}

)

TE~5.HSL

,. ----------------------------------------filA haall

K~rakter)

EIIO ;

•)

dib&C& : TEKS5.PAS (progr- inl)

:: FALSE;

E'ID

'I

.

..,tul< -napia apaal berturutan

y-

Ada3 p aai

WRITE (FileTekaKelu.r a n,

o)

(f ,.,.. jualahnY• labih darl aatu pac!a fila.

c•(f pll•

( karaktar buk;on apui )

aEOlN

BEGIN

f

Progr>&rJ~

utama

CLRSCR ;

ulll c;~~T;

WR! TEL~

tyPE

Strin9fila

ASSIGN

= STRIHG(14) ;

( 'T u nggu . . . '); (FileT e k~lasukan,

SETT EX TBUF

CIJIIIT ~fllaMAaukan

: Stringfila

~filaKaluaran : StringFila

'lEKS~.

PAS';

l:a MAF i l et-ta•uk~ n);

(f i l eTekst.ta.suk iln,

Penill'tpun~F

l l • );

RESET (Fi leTeksllosuk•n);

'TEK55 . HSL';

ASSIGtl {Fi

leTekslc:8lu~ran,

SETTEXTBUF

.. r pen••pung file

bu kil file untuk dibil c • lla.M<Jf I leKeluaran} ;

(fileT~ks~elu ~ran,

P•n~mpungfile) ;

REWP.ITE {Fi lflleksKeluar•n);

v#IJ

o~rbes

{ buk A dan cipt&kiln file }

filaTak~•vkan ,

TEXT;

fllaTakaKaluaran

ARR~Y(1 .• 10240) OF BYTE ;

,.._.,gFila

10

~110

WHILE IIOT fOf (f ll•l o>a><esuk• n) DO

8yta )

Pr oseg0ati1Per 6•r1a

Pti(ICEOURE ProaaaOat&Par6arh (V~R f ll"""auk~m , filaKalueran : HXT);

{FtleTek~~~eukan .

CLOSE

(f11eTt~ksl.ti19ukan);

CLOSE

(Fil eT~ kvK el uaran):

WRITE ( "Sel9Soi

FileTe~skeluar .. n)

;

.. ') ;

~E.
1 p,..,..c~Ur

untuk - c a data par barle pada fila TEKS5 .P A3.

EIIO .

Jtka terdapat lebih dari aatu karakter &P&ei yang O.rturut~n

akan dlgantl . .njad1 aatu apaai aaja . Naail dirak . . ka fila TEKS5 . H5L

Pro~r~m

13 - 11 .

CQIIST

Sf'ASI

{ karaktar apaal )

= •32 ;

VIlli llaraktar Ad&Spa&l

Kalau sem ula fik TEKS5.PAS berisi:

CHAR; BOOLEAN;

ROIM Ad&Spa•i :: FALSE;

(•

•)

I• Contoh penggunaan READ, READLN, WRITE, WRITELN I• dan EOLN pada file bertlpe TEKS .

•) •)

dan seterusnva. maka file TEKSS.HSL akan berlsl:

MHILE HOT EOLH (FilaTakaMaaukan) 00 IEOIH READ (FilaTakaNaaukan, Karaktar) ; IF Karaktar

=

SPASI THEN

(•

•)

I• Contoh penggunaan READ, READLN. WRITE, WRITELN •) I• dan EOLN pada file bertlpe TEKS. •)

IIEQIH

If HOT AdaSpa•i THEN IE GIN WRITE (FilaTak•Ka1uaran, SPASI) ; Ada5pae1

END

: • TRUE

dan seterusnva . Sebu:~h co.n toh lagi tcntang file rcks d:~pat dilihat pada Program 13-12. Pada program ini, data yang dibaca merupakan data bilangan. ~ta bilangan dibaca dari file bernama FILEBIL.DT A, berisi:

END

243

2300.23 302.45 381 .00 2000.00

3000.00 256.00 400.56 1204.00

Xllt3 OPERAS! PERANn DOS SEBAGAI FILE

Perangkat keras eksternal seperti keyboard {papan-kecik), printer, layar (monitor) dikenal scbagai peranti (deJ!ice), baik bagi sistem operasi DOS maupun Turbo Pascal. Dalam Turbo Pascal, suatu pcran ti dapat d iperlakukan scpe rti halnya suatu file, dalam hal ini yJitu sebagai file tcks .

Data tersebut dapat dibuat secara langsung dengan men ggunakan · 01 isaln va ed itor Turbo Pascal. PROGRIII.I BacaB i Iangan;

,. -- ------ -------- -

--------

. .. •)

i

) (+ Contoh program untuk c• membaca filB teks yang beri91 data bi Ia ng a n • ) (. (+

)

File da ta:

)

FILEBIL.DTA

-- -- -------

(.

•)

USES CRT; VA R F i leData

TE XT;

Bilanganl , Bilangan2, Selisih

REA L;

I

l

Perantl LPT1, LPT2 dan LPT3 Mcnccta k kc printer dap :tt dilJkubn dc ng an m cmk nbn n a m:~ file bcrupa LPT I. Sch:tgai co ntoh di tunj ukkan paciJ l'ro g ram 13-13. Progra m ini dipakai untuk mcn cct.d.; tu!i.sa n 'M (· ncob.~ PHiNTEH'. PPOGRAH Pi r·antiPrinter;

VA R lst: TEXT;

t'

BEG III ASSIGII ( Lst,

BE Gill

'L PT 1 ') ;

REWRlTE(Lst);

CLRSCI'; ASSIGtl (fil eGata ,

'FI LEB I L.OTA');

WRITELII (Lst. CL OSE

RESET ( F ileOa.ta);

'HEIICOBA P RI!ITER ' l;

ce t a~

ke printer )

(lst };

EIID. ~IHI LE

tiOT EOF (Fi leOata) 00

BEG HI REAOUI (FileOata, Bi langanl. Bi langan2); Sel i sih

:~

Proxram 1J - JJ .

ABS(Bilangan1-Bilangan2) ;

WRITEUI (Bi langant : 10 : 2, Bi langan2 : 10 : 2, Sal; 9ih: 10 : 2 )

Disamping mcnggunakan LPT l, bisa juga menggunabn nama f:lc berupa PRN, yang idcntik deng;m LPTl. Scandainya komputer dihubungkan dcngan bcbcrapa printe r, maka nama lain ya ng bisa digunakan yaitu:

EtiD; READLII EIIO . Contoh e ks e ku si : Data 1

Data 2

Sel isih

3000.00

2300.23

699.77

256 . 00

302.45

46.45

400 . 56

381.00

19.56

1204 . 00

2000.00

796 . 00

Program 1J - ll.

244

LPT2 : m~nyatakan printer kcdua LPTJ: menyatakan printer kc ti g~ Perantl CON Pcranti CON menyatakan konsol. Yang dimak sud kan pcrl nti k.onso l !cons<'le) yaitu berupa layar atau papan-kctik . Layar scbagai pcrabtan hluar ,m dan papan-kctik scbagai pcranti mJ.suka n. Program 13-14 tncmpcrlihatkan conto h sedcrhana peng g unaan perantt CON , untuk tncnampilkan tulisan 'Mencoba CO N' pada layar.

245

Program 13-16 memperlihatkan sebuah contoh program yang hi~ dipa.kai untuk menyalin sebarang file reks (file dengan mode ASCll) kc file ya ng lain, mencetak kc primer ataupun menampilkannya ke layar.

pf!OGRAI~ Pi rant i l
USES CRT;

VAR

PROGR~ Pl11~takan;

Konsol : TEXT;

----------- ----

(.

r•

sEGIII CLRSCR ; ASSIGrt (l
(' ke :

- disket

,.

- printer

('

'COtl'); 'MEHCOBA COli') ;

{ cetak ke 1ayar }

CLOSE ( Konsol);

qu• tu

.,

fi l e t ek') • )

'l atAu

' )

h · y ll r

')

---- ----- ------- ----- ---

(.

(l
WRITE (l
Con toh progr&Jl untu k •vncetAk ts i

•)

US ES CRT ; TY PE hrln904 : STR itiG[6 4) ;

READ LN ;

VAR

END .

f 1 leflaouk..an,

r nr :

f i l•Kelua,.-an

Program tJ - 14.

U&Aa.F i

perantl COM1 dan COM2 Peranti COMl dan COM2 mcnyatakan p o rt kom unikasi yang bcrsifat serial. Khusus untuk COMl bi sa diganti dcngan AUX . perantl NUL Nama file bcrupa NUL aka n mengab:tikan semua opcrasi pcnulisan ataupun pembacaan. Pada Program 13-15, Sekalipun tcrdapat pcrintah pcrnyataa n WRITE (f, 'MENCOBA NUL') tidak ada scs uaru hasil apa pun .

l eH.a.t- u~ •n,

Na••F i leKeluaran : 3tri,lg 64 ;

PROCEDURE Pi lihan M•~A9Ukkan n~~•

dan

~nen tuka n

(VA ~ U."lao~.a Fi1a 1, u-. ," i.F ~l .-.2 :

Stringfi,);

f1le yang A~an d~ba c a

pil1h•n ke luaran

VAR TOMbolPillhan: CHA R BfGIH CLRSCR ;

PROGRAM TidakCetak;

('ll~on& fila yong a k•n Olb• c a :

GOTOXY (15, 4) ; WRITE REAOLH (HaaaF11•1J;

');

OOTOXY (15, 0) ; WRITE ('Oicetak k a l& y ar, Printer otau Oi aket (l, P, 0)? REPEAT

VAR

' );

To-bolPillhan : = UPCASE (REAOK EY)

f : TEXT; ••

Uti TIL Tooobo 1 PI 1 I han Ill I ' l ' ,

'P' ,

' D' ] ;

WRITE (T001bolP1llhan];

BEGIN ASSIGN (f, 'NUL'); REWRITE (f) ;

WRITE (f ,

't-4EtiCOBA IIUL');

CASE Ta.bo1Pillhan OF

' l'

rt. .aF11e2::

•p•

Huaf':_I.J e2 :: 'LPT1' :

' 0'

BEGIII

CLOSE (f) ;

GOTOXY ( 15, 8) ;

REAOLN;

WRITE (

file untuk ••ny i lll'l o •n ea. lln.an :

');

ENO EIID ;

Program 1)-15.

'tl•••

READLN (Na-FI la2)

END .

246

'COli' ;

I akhlr ca . . I

END ; ( a khlr pro~edu r Pl11han ]

247

~

p~OCEDURE Cetak (VAA File~aukan, File~e1uaran : TEXT;

ASSIGN (FIIeKeluaran. NamaFIIe2l

VAR Na•afile1, H. . aFile2: String84);

pcrlu dimodifikasi mcnj ad i: ...,.baca hi file U&ll&file1 ~" ... nc.tak k• file

VAR OataPerBaris

u..afile2

ST~liiG;

Buffer

ARRAY[1 . . 10240) OF BYTE ;

{ 10 KB)

IF NamaFIIe2='CON' THEN ASSIGNCRT !FileKeluaran l ELSE ASSIGN !F!IeKeluaran. NamaFIIe2l:

Xlll.4 MENCCUNAKAN UNIT PRINTER UNTUK MENCETAK KE PRINTER

BE G !II

CLRSCR; wR !TELII ( "Tunggu.

Seelang 10encetak !" ) ;

ASSIGI I (FileHasukan, llamaFile1 ); SETTE XTeUF

( F il.r~asukan,

B"' ffer) ;

PESE T (FileHasukan) ; AS S IGII (Fil o ~ el u aro.n, t:a.. aF i 1e2 ); RE WRITE ( f i leKe l uaran) ;

{ pr09 C9 pem b a c aan dan pencet.akan

L nwJ... lll CiliUd ah k.l n pcih'c'Llk.!n kc pr r: HL"t. 1t:rho l'.hol Il1L'nynli.1k.1n u ni t b,: rnam :t printer . ll.d .tn l ~::;i t 1111 p n:lfc r didvkl.Jr.bik.Jn ~cb:tg.t i ~d)l1ah fi le tck s d cni~"n \'.li"J.lbc·l t"tk bnup.1 L· r. ,. 111~ l>c·!·k.1iu n ,kn~ .IJ J pcra nt i LPT I. N.llllll ll t'tl.l t llL"llt~~~~n .Jk .Jt l I·.J ,tltr.l ' tllli! printer fl L" Illi o~; r am tida k pc rlu bcr~ u ~;J h-l' ·l\· . .!1 !IIL" I Iltkll· k.J!I t c· n t. Jll !,: J'C!"Il\",JU .m .·\.,, ,1.' ''· Ncll'l'lf<' d,m C / tlit'. lll<"t llf':JJ l J'L"tltlc kl.tr ,t;i.JJ J tile tc·k,. Contoh pc ngcnd:di.tn J'Iiittn tiillllk !l lcnlpc·r, ,kh h·r h.t~.11 tlhl·.!c·l cc tJkan ditunju k b n p.td.\ l 'r()~l".lllJ 1.)- 17.

WHILE II OT EOF(FileH~sukan ) DO

PROG RAM CetakKePrinter :

BE Gill R ~ADL~I

WRITEL tl

{ FileMas u~ an,

OataPe r ea ris) ;

(Fil~ ~ elu•ra n,

Oa tdP e r Ba ris)

EIID; HRITELH j' S e lesai . " );

ffi O;

BEGIU

{ akhir protiadur Cetak

{ prograM

'I

( • UII I7 PRIIITER

.,

(.

' )

( • Cont oh me n c et .ak ke p r ; nttir me nggun itk.a n • l

~ SES

v to~:ma

PilthAn (Nama Fil•.,.aaukan.

tiA.Jft.aF11e !l. ~luaran);

Cttak (F 1let.fa•ukan , Ftle Ke luaran, U.a:aaft l ef.tasukan, l4a..mafi l sfeluaran) : READUI [110 .

Contoh

(.

e~aekus i :

llama f i le yang akan dibaca : AUTOEXEC . BAT

Oicet•k ke Layar , Printer atau Oiaket (l, P , 0)? p

Tunggu. Sedang $encetak f

CRT ,

melibatkan unit CRT

PRIIITER ;

melibMtkan unit PRlNTEq

C OII~lT

COI IDEIISED PEIIUTUP_COUDEUSED EII LARGEO

J 15 ;

{ ko de

fiB ;

(

.,.

:

c eta ~ an

~•normalkan

{ kode

c et~ kan

den g an ukura n k• c il cetak~n

d&n q~n

uk u ra n kecil

dengan ukuran be e ar

PE"IIUTUP _ EIILARGED

J 20 ;

{ menorm•lkan c etaka n dengA n uk u ran bos•r

MIRING

127 . •. :

{ kode c eta kan miring

PEIIUTUP_MIRIIIG

J27. 5 . ;

{ penutup cetakan m;ring

CET AK_GAIIDA

1 27 1 71 ;

{ kode cetAkan ganda

PEIIUTUP_ CETAK_GAIIDA= 127172 ;

( penutup catakan ganda

BE G!II CLRSCR ;

Program U - 16.

WQITE ( ' S\apkan PRIIITER . REPEAT UIITIL R€A OK EY

Khu sus untuk m encetak (m enamp ilbn) ke l:lyar. prosl:s pcnam piian dapat dilakukan dengan cepat apabila pcrintah .Assig11 d iganti dengan Assigr~Crt (fasilitas yang disediakan dalam unit CRT). Untuk maksud ini. pcrnyataa n 1 .15{

WRITEUl (LS T,

Tek.•n EIITER u ntuk

mel~nJ u tkan ,

').

= 113 ,

'Ukura n norm._:tl'):

WR !T ELII ( LST , COI/O EII SfO .

"Uku r• n kacil".

PEtiUTUP _ COIIDEIISEO ); WRITE U I ( LST ,

Et ll~RGEO.

'U k llr>n

be~u

2-+(J

.,.

PEtiUTUP _[IILARGEO, 'dAn no,....l'); W~ITELII (LST,

CETAK_GIUIOA, 'Oiceuk dua kall pada po,.lsl yang,...•• ,

PHIUTUP _CETAK_GAIIO-); W~lTELII ( LST , IIIRl!IG,

'Tullaan •1r11'g', PfiiUTUP _tHRitiG);

(LST, HIL.RGEO, COIIOEUSEO, 'T ulla&rl tnl agak beaar') : ~~ITELH (LST, ' Perhatikan tulta&n 11'1')

WRITEL~I

diperlukan adalah berupa pernyataan untuk membuka file. Dalam hal ini berupa Rewrite eLm Reset. Namun tcrdapat perbedaan dcngan fiie bertipc dan file teks, y aitu berupa adanya parameter tambahan (Yang bersifn optional) pada Rewrite maupun Reset untuk tile tak-bcrtipc . Rentuk prosedur Retvrite dan Reset yang mcrniliki dua parameter (ar~ umt:n):

[JIO .

REWRITE (varlabeUlle. uk.uran_recordl RESET (variabeL fl!e. ut:uran_recordl

13- !7 .

Bcriku c ml rupakan hasil cetakan dari Program 13-17:

--

u~:.ur-an nor-ma 1

(luran r.eci l

Ukur-an be sa r d c:>tll rl CJ ...- m ..3 ] _ oiceta k dua kali pada posis i y ang sam a Tul isan miring Tulisan ini agak besar

PerhaWan tulisar. ini terinci . kode-kode yang dipakai untuk mcngatur printer dapat pada buku panduan printer.

XIII.S FILE T·AK·BERTIPE File tak-bertipc mcrupakan cara pengaksesan diskct secara low-level (aras rend ah). Pcngaksesan dcngan cara ini dapar dilakukan untuk semua file, tanpa memandang file tersebut sebagai golongan file bertipe ataupun file teks . Penggunaan file tak-bertipe di:mtaranya untuk menyalin sebarang file.

File Tak-bertlpe eklarasian file tak-bertipe dilakukan dengan menggunakan katafile saja. Sebagai contoh :

VAR FlleProses: FILE : yang menyatak.an varlabel flle FilcProw bcrjcms file ta-bmipc.

Opera s! File Tak·bertlpe halnya dengan file bertipe ataupun file teks, operasi dengan file takpe dia'"'lli dengan pernyataan Assign. Pernyataan selanjutnya yang

dcngan t;l•nlran _nc,·r.! fhe rti pc word ) digll!nkan untuk nrL·ncrHtn . .Jn ukuran rec u :d at :lll k om ponen yang akan diakscs (d.li.1m s.Hu.rn hv:c,. Jib llkurun _ r ecord t il ~ .1k di ~ ebutkan, maka uk ur :m record , l:J r :~ ~. r p bernilai J 28 byte. Lntuk k cpcrluan mcrnhac:r isi file. discdi:tkan rro~c dur !··c rn.1 m.1 m .,ckf?rt:d. yang memiliki be ntuk: BLOCKREAD cvariabeUile, var _penampung , Jumlah. lvar _hasl!ll

dcngan tJariabeLfile bcrjenis file rak-berripc. r'a r_pi'IIrd * jrmt!olt. )11n;ia!t mcnYJtJbn blok reco rd y1ng dibac:1 unruk seti:1p satu k1li opna~i Bf ,,,·kRt':l'i. Scd angkan varialxll'ar_/wsi/ (bertipt: word ) bt.:rsifat o pti onal. Jib \·ari abcl ii~ i disertabn , scsuciJh opcr1si H!tJckl?ead. maka abn hc:ris t: • Sama d<:nganjwnla!t. apabila blok yang dibaca samJ dcnganjiim/,dt. • Kurang danJ~unlah, ;mdaibta sisa b!ok Yang diba ca tem ya u kL:r.;n~ d:1ri Jumlnh . Jika var_}wsii tida k disertakan, akan rerjadi nmtim f crTor apabila rern yara sisa blok yang diba ca kurang dari jumlal: . Untuk keperluan merebm ke file, disediakan proscdur bern :mlJ Block W,.ite, yang memiliki bcntuk : BLOCKWRrTE lvarlabeUlle. var _penampung, Jumlah, !var _has till

dcngan variabeLfile bcrjenis file tak-bertipe, l' ar-penampurlg dapat bcrupa scbar:111g variabel digunakan sebagai penampung masukan/kcluaran (1/ 0), dcn gan ukuran minim1l sJ ma dcngan ukwatLrm~rd * jt~mlall. Jumlah rncny.1t..1kan blok record ya ng direkam untuk setiap satu kali opcrasi Bl,>t:k Write. Scdangkan va ria bel var_lwsil (hcrt ipe word) bcrsifat optional. Jik J variabel ini di se rtabn , scsudah opnasi Hf,• ckWritc, maka ab n bcrisi: 251

.... \

...

• Sarna dengan Jumlah, apabila blok yang dibaca sama dengan Jumlah. • Kurang dari Jwnlah, andaikata saar perekaman .remyara disk penuh . Pada file tak-bertipe, perinrah seperti Seck, FileSi: ,· dan FilePos, serra Tmncate juga bisa digunabn, seperri haln ya pada tile bcrtipe . Prosedur Seek dipakai untuk menempatkan pointer file ke suatu record d alam fil e, fungsi FilePos digunakan unruk mempe'rolc:h posis; p oi nter file dan fungsi FileSiu untuk memperoleh jumlJh rccor,J ,1ari file. Adapun proscJur Truncate. dig u na~an unruk mcn gha pu s rl ,·o rJ m uL1i posisi · . 1,0 in:c·r file ~ampa1 akh1r _! I~e . Conroh pengg una an BLO CKWR ITE, BLOCKHE:\D. HESET dan ltEWRITE deng;m d ua pa rameter, ~erta FJLES JZE J:saj ibn pada Prog ram 13-18. Program in i digunabn urHuk m ::::' :::n seba r:ll1g file.

I

pro. . a penyalinan )

REPF;AT BLOCKREAO (F llei!Aaukan, Penatopun9F ile, UKURAII_PftiNIPUIIO ,

J~la h Blok Dib aca) ;

BLOCKWRITE (FilaKaluarAn, Pena•oungF I la, Juoolana l okD i baca, J'-"'lan8lok.O itul1a); UIIT!l (JunlahftlokDibAca =O) OR (JUMlahSlokOibaca <> Ju.JahBlokOitul l e l ;

I otenutup file I CL03E ( f llelta,.ukan J ; CL03E (fi TeKaluaran) ; liRITEUI (·fila audah disali n. ·). READUI EUO .

Program 11- 18.

FILE ;

P ad a Program 13-1 8, sc ti ap kali 13/ockR.-;I:i Jijalankan. scjumlah iiJ:2 4il record dibaca, k eCLiali j ika record yang ter sisa (scbl'lum (hb aca) kur ,lng da ri 10240 reco rd (Pada program in i l reco rd berukur .1 n I byte). Scjurn lah record yang dibaca kcmudia n d irekam dcng a n inst r uk ~i 8/ockWrite. Proses pemb acaa n dan perekaman di lakukan rnus s~mpJ i rida k ada lagi record yang d ibaca Ut~m ir~hBlrkD ii>Ma = 0) :trau j ika ternya ta]umla!JB/okDibaca ti dak sa m a dcn gan)um lahR/nkDi!!llis . Kondisi yang kcdua digunakan u nw k mcnghcntikan pro ses pcrw.IIin.Hl jika tid:tk ad a ruang lagi untuk menyimpan (dalarn di~k ) bl ok record ;·.111 g ~ed :mg di baca.

ll.,.;ofileKoluaran

ST RliiG[64 ) :

XIIJ.6 MENANGANI KESALAHAN 110

Pon,...pun9F lle

All RAY [ 1 .. UKU RAti_PEIIAJ.IPUIIG J OF BYH

PROGRAU Sal inf t le : (.

' )

( • Ccntoh sederh~na progr am untuk ~enyaltn file t )

{• (•

O~o•t

dipakai unt uk semua jeni9 flle

' )

-------

-

.

)

USES CRT; COl iS T UKURAII_PEIIA~IPU.IG

=

1024 0;

I 10 Ki l o Byte )

VAR F; 1ef.t a~ukan ,

F llohluaran N• m aftle~asukan ,

J~lahBlo k Oiba c a.

Kesalahan I/0 (masukan/keluar:ll1) akan mcnyebabkan tcrJadinya nmtune

JUIII1ah81okOitulls : WORD;

error, sehingga eksekusi p rogram akan seger.1 terhenri. Kesalahan seperri ini diantaranya disebabkan:

BfGIH CLRSCR ; WRITE ("NaMa file yang akan d i ~ l in ; READLN (tlallafi let-taaukan) ; WRITE (' llama fila hull ulinan

• saat membuka file dengan RESET, tcmnta file tidak ada • file yang dihapus tidak ada • atau secara ekstrim. p ada saa r ada o perasi pcngaksesan diskct rernyata penggerak disk (disk dri1Jr) belum siap (baran gkali diskct belum dimasukkan atau palang penutup penggenk disk bclum dinnup).

• J;

.,:

REAOUI (tlaooaFileKaluaran); ASS!GII (filltl4uukan, llamafllallasukan) ;

( buka fil e •~su~an

RESET ( Filallaaukan , I) ;

ukur~n recor o

ASSIGtl (FileKeluaran, Na01afi l oKoluaran ); REWRITE ( F llaKeluantn, I);

ukuran rec o~o

WR!TfLN (•Ukuran f llo yang akan disal in = ' FllfSIZE ( F llell... ukan) . WRl TEUI ( • Tun990 ••• •) ;

• byte . •) ;

=

1 byte

bulo.a dan clot ak&n fi 1• keluarw- '

=\

byt e }

dan tentunya masih banyak kemungki n.tn ya ng bin. Dalam beberapa hal, kesalahan 1/0 ya ns nicn:·cb.1bbn n111ti111C error tidak -diharapkan oleh pcmrogram. Seand ainu ~:l,Jt snbn g mcmbuka file tcrnyata file tak ada, :1langkah lebih bJik k:l l.ou p rug ram hi>.l rnc mbe nrahu, katakanlah berupa pcsan: 'File tak ada . Tckan ENTER'

233

•

. dikend~ikan tanpa menimbulkan terhentinya eksekusi rogram di luar keheriaak pemrogram. Hal seperti ini bisa didapatkan ~c:ngan jalan mengatur pengarah kompiln- I. Sebagai contoh, supaya saat operasi RESET tidak menimbulkan . runtime error kalau file tidak ada, rnaka perlu pcnulisan sebagai berikut:

dan program bisa

WRITE ('Tekan ENTER ' ) ; REPEAT UIITIL REAOKEY • 113;

EHO; { a khir proaedur P•aanXesalahan

BEGIN KooeKesala ha n ::

IF u1ah THEN

{$1 - } RESET (vartabeUIIe): (SI + )

BE Gill

CASE

Kod e K ea~ lAh &n

OF

002 : Pesanl<e!la'A h .an (' fi l e ta k dite,.uko.n. · \.

pcngarah kompdc r bc rupa {SI- } meru~ ~ kan ca ra untuk mcncegah 1.:rjadinya nmlin:e nrar, karen a k csa la b~ 1/0. Scda ngb n pcn garah kompilcr {Sl +} m crupakan upaYa untu k mcnga bifkan kembali pemeriksaan terhadap kesaiahan I /0. Lalu bagaimana ca:a m cngecahui misa ln va pada saa c RESET, file ada atau tidak ada' Untuk kepaluan menget.1hui tcrj adin ya kesalahan 1/0, Turbo Pascal men ycciakan suatu fung si bcrna ma IoResult. Fungsi inijib dipanggil akan memberi kan nilai no I j ika tak ada kcsab ha n l/0. Ad apun jika kelu aranny<~ btikan berupa nol. maka nilai terscbut mcnya ta kan kodc kesala han (Mengcnai kode kesalahan ditunjuk ka n dalam m an ual Turbo Pascal). Yang pe rl u dikc tahui , secara oromatis IoResult akan bcmibi noi srsudah fungsi dipangg il. Pad a prosedur Periksa_JQ berikut, dipcrliharkan cara unruk mcnvelck si kcsalahan \·a ng terjadi karcn a ada opc rasi masu bn arau kcluaran . Mula-mula nilai keluaran fungsi l oResult disimpan padJ vari 3bcl KodeKesalahat; . Kalau cerjadi kesalahan (yaitu KodeKesa/,zhatl <> · 0), maka prosedur akan memberikan pcsan kesalahan pada layar sesuai dengan Rilai pada KodeKesalahan. PROCEDURE Perlk.u_IO ( VAR SalAh : I!OOLEAII) ;

He. . r1ke& ada

t1da~nya

kalau terJedl

kaaa1an&n ,

keaalahan 1/C ,

pade layar akan d1.unculkan pea&n keaalahan dan ekeekuai ••lanjutnya harua d i atu r oleh pearogr . . . Keluaran ~rupa arguaen SALAM VAR

kodeKesalahan: SYTE ; PROCEDURE

IOR~SULT ;

(KodeKesa lAhan <> 0);

Salah : :

Pea&nKea.~ro l .ahan

BE Gill WRITHII (Keterangan) ;

( Keterangan · !TRI I/G ).

003 .

? esankes.a 1 ~ han

(' P.ath

00 • :

Pes a~ l<es~lah.an

(' file t Ak

(1 ~nta~ ~n ) d ap ~ t

t~k

Ol teraukoln. ' );

dibuk1. ' ).

OOS : Pesa nK•sa l a.h .l n ( 'Penga.ksesi\n terh.aoa p file g• gc..l.. ') :

100 :

Pes•~~•sal.aha n

{ 'K•~~l~nen

t er j•di &e••ktu

pem b ac~an

t e ~n •d ~p

di s~ . ' ):

101: PeeanKes• ,ahan ( 'D i e k p enu h . ' ) : 150 :

Pesa n k •~~lahan

{' Oi ak terprot• kat. •):

152:

Peun K es ~l A h A n

( ' Oiek dr i ve belUtSI! ai .J.p ' ) ;

ELSE ,...RITEUI { 'Kes•1 ar. ;~.n be lu• Oide fi nisi kan ' !(ooe 1-eulah.l.n EUO

j

= ',

d~la11

program .

KoaeKesalahan)

a.khir C
EIID EfiO;

{ a:k.h;r pros 9 d.J r

Pt! riks~ _ IO

P ro u dur [} · 1

P cnJ cb·;:~ n tt·:: r~'' C: p c~.t!l kc~.tlahan

j

I J

1

n ng dicmtumkan dJI.Jm proscdur

f>crik s<~_ f O:

1. File tak di;cmubn Dilaporkan oieh Rt'~ Ct, Appmd, Rename da n Erase. jib file ya ng d ili ba rkan tcrnnta tak ada. 2. Path (i inrasan) t.1k Jitem ukan Disebabka n: • saat operasi Rt'set, Append, Rerwme atau Erase, ternyata na ma file tak berlaku ar au mclibatkan subdirckro ri yang tern ya ta ta k ad a. II subdirckto ri yan g dilibatkan dalam pcrintah Ch Dir, .\JkkDir atau RmDir ra k bcr!Jku atau tak ada (Mcngenai perintah ChDir, :\fkdir dan RmDir dibahas pada Subbab XIII. 7). 3. Fik tak dap.H dibub M cnyatabn file \·ang scdang tcrbub tcrlalu banyak, schingga tidak bisa rncmbuk .1 file lagi . 4 . Pcngakscsan rcrh.1dar file g:~ga l Diantaranya discbJbkan: • Dirckto ri
255

• saat Rwame, ternyata nama file pengganti sudah ada dalam clisk. • saat ada operasi Erase, nama file ternyata adalah nama direktori dalam disk. S. J{esalahan terjadi sewaktu pem bacaan terhadap disk. Timbul jib bcrusaha membaca komponen pada file bertipe, padahal pointer file ridak lagi menunjuk komponen dalam file (misalnya menunjuk akhir-

tilc). h. Disk penuh. Di sk suJ Jh pcnuh saa t ada opcra~i Close, Wrirc , Wrireln atau Fltdr. -

Disk rcrr ro rck si Disk sed ang rerproteksi. 8 Disk drive bclum siap Disebabbn dabm pcnggerak disk belum ada disk :.tau p ahng pin tu

Contoh cksekusi Program 13-19 dengan bcrbagai kemungk inan: Nama file yang alcan dlhapus: HAPUS.MAP Disk drive belum slap. Tekan ENTER Nama file yang akan dihapus : HAPUS.MAP File tak ditemukan. Tekan ENTER Nama file yang akan dlhapus : HAPUS.BAK OK. File sudah dihapus !

CatatJn: Pada Program 1.3-19 terdapat pcrnyata~n HAL T. Pnw. l :.un tcr~chut fungsinya unruk mcn ghcmikan cksckusi pro!C ~1::1

pcnggerak disk bclum ditutup. Contoh untuk mengendalikan kesalahan l/0 dapat dilihat r•da Progr:1m 13-19, yang dipakai untuk mcnghapus sebarang file. PROGQ:IU-t M•na.,o,ahi~ks: ')

('

.. .

(' Contoh file bertlpe TEXT (Mode ASCII) . • l 01gun~k~n untuk "'ena.rwbahkan

t•

)

(' p•rln t oh DOS: TillE (' podo f!l• AUTOEXEC.BAT

----------------------

('

)

., )

USES CRT ; VAR

Fll•T•ka

TEXT;

BEGIN CLRSCR; ASSIGN (f ll•Teka,

'AUTOEXEC, BAT') ;

buka file untuk keperluan

APPEND ( FileTeka);

•enaebahkan tek• WRITELH (fll eT•ka, CLOSE (fll•Teka);

' TI~E') ;

rek . . t•ka :

TI~E

tutUI> fll•

WRITELII ('D o to ta10bah"n eudah dlsl•pan pada file AUTOEXEC. SAT ! . ) ; READLH ; EIID.

Program 13 - 19.

25(-.

XIIL7 RANCKUMAN PERINTAH FILE 1. Bcrbku unruk seluruh jenis tik: (pro~cdur ) ChDir As~ig n (1-'rmcdur) Erase Close (fungsi) GetDir Eof lu He< u It (iungsi) MkD ir RLI1:ll1ll' (p roscdur ) Hesc t I<.cwritc. ·· (prosed·u ) RmDir 2. Bcrlaku untuk file tcks: (p roscdur) Flush Append Eoln (fungsi) Head In ScekEof (fungsi) SeckEol n SetTcxtBuf (proscdur) Writeln 3. Bcrlaku untuk file tak-bertipc: Block Read (prosedur) Block Write (prosedur) 4. Berlaku untuk file berripc dan file Write (prosedur) Read 5. Bcrlaku untuk file bertipc dan file FilePos (fungsi) File Size Seek (proscdur) Truncate

(proscdur) (p roscdur) (prosedur) (proscdur) (proScLiur) (proscdur) (proscdur) (proscdu r) (fungsi) (prosedur)

tcks: (proscdur) tak-bcrtipe: (fungsi) (proscdur)

Diant.Jra perintah-pcrinrah tcrsbut , yang bclum dibah:~s y:1itu CI1Dir, C etDir, .\lkDir dan RmDir. Keempat proscdur tcrsebut berkaitan dengan direktori. 257

(tl-)

untuk pindah ke direktori atau subdirektori lain. nama di rekco ri /s ubdirekto ri yang dituju.

St

lfRITflN ( 'K.w.c I ptal 0 THEN lfRITELH ( ' Ciagal -.clpta~an -dlraktort baru I' )

c;etDir tdrtve, var_dlrektorll . . . Dipakai untuk mempero leh d1rekton yang sedang akuf dala m suatu pcngg crak di sk. Par;Jm ercr DritJ<' bcnipe b y te . m cnyJ takan pen g ge rak disk yang dilib ~tkan . K n dc: nn g pc rlu d ibn ib n padJ drive :

ELSI!

WRITELN ( ' !lubdtraktorl baru audah dlcipt.akan I'); lfRITELif (' Pind•h ke aub 0 THEN

NRJTELH ('Ciag•l . . .u~ k• oubdlr•k torl

0 == pcnggcrak disk yan g aktif == pcngg er:1k di~k A " == pcng ge rak disk B, dan sercru ~ nva

SUBDIREKTORI BARU, '

I');

WRITELH ( ' ~n&aoilkan dtro~tori yang . .dan9 •kttr . '); GETOIR ( PENGOERAK_ AKTJF, Oiroktori_Aktir); I F IORE!IULT = 0 THEN

Vauli rektvri bc rupa v J riabcl bcnipc stri ng, yang Jkan bcrisi nam a dirck cori sesudah proscdu r GctDir dicb ckus i.

WRITELH ( ' Direktori aktir :

Oiraktort _ Aktir, '. ')

ELSE WRITELH ( 'C.g•l •-bac a ctirttk.t.o r1 akt11' I·);

MkDir <Stl Digun akan untuk mcncip tabn subdirckwri baru . Nama subdirektori yang akan dibmt diberikan pada param eter S r (bertipc: string). RmDir <St} Dipabi unr uk mc n g h:~ p u s s u~ tu su bd1rc ktori ya ng kosong (tidak me ngandun g tile ::aaup un s ubd irektori vang la in. Nama subdirektori yang akan dihapu~ pcrlu diberikan pada pa rameter St. Program 13-20 mcm be rikan contoh tentang cara menggunakan yang berkaitan dengan operasi direkcori. PROGRAM Oirektori ;

<• ----------- ----- -- ------ --- ---- -------- ----- -------------- ., (• Contoh penggunaan perint~h CHOIR , GETDIR, ~K O IR dan (• WulA - ~ula mencipt•kan s ubdirektori bern&M~ PASCA L, (• ke~ud;an ~asuk ke subdirektori PASCAL, (• . .na~ i1k an eubdirekLcr i yang aedang aktif dan

Menghaous aubdirektori PASCAL

(t

PEtiGGERAK_AKTIF SUBOIREKTORI_BAR U DIREKTORI _AKAR

=

'PASCAL ' ; ';

YAR

Dlrektori_ Aktif

CLRSCR ;

...,, ..,

!ITRIIIO ;

{ ptr,<J.I'\ ke dir•ktor1

~ITELN (·~n7hAoua Subd t r akt ~ r,

RMOIR (SU 0 THEN 'fA:ITflN ( ' G.tr.g..aJ

~ngh&.~>U• •uttdi rsktm· i ')

WRITE LH ('Subo tr~k tort s ud~~ Oi ha pu3 !'J : {SI+)

READLN

."'

END. Canton ak . .kua t :

•) )

)

M.nciptakan aubdir• kto r1 baru . Subdirektort baru .udah dtc1ptakan t

Plndah ka aubdlraktorl PASCAL Nena.ptlkan dlrektori yang ..o.ng •ktlf . Dlraktort aktlr : A:\PASCAL .

~gram 1J - 20.

&kar { root d irectory) }

SUaO! RHT ORI _!IARU) ;

ELSE

llanghapue aubcHraktor I PASCAL Subdtraktort •Udah dlhapus 1

0;

.,

R~DIR .

CHOIR (DIREKTORJ _ AKAR) ;

variabel pointer bukan berisi data, melainbn berisi alamat dari suatu data. Singkatnya, pointer "menunjuk ke" suaru lokasi da ta .

PEMROGRAMAN DENGAN POINTER Varlabel

Varfabel

pointer

yang dltun)uk pointer

0-J D salah satu jc ni s data tcrstruktur dahm P,lscal. PaJa tcrt cnru. j cn is da ta terstruk tur ini sangat bcrman faat. Dcngan nakan puinccr , suatu variabd dap,tt d iciptJkan atau d ih.1pus a pcngck~ c kusi an program . JumiJh variabcl y:tn g dapat diciptakan uadi tid :lk tc rbatas (dalam arti:ln jum !Jhnva ticbk p crlu didckbrasitcrkbi h d:1hulu). Batas total variabcl yJng dapa t d icip takan h;;rm an olch kapas ir:ts mL·m ori yang ada chhm ko mputcr. I'vlisalnya. sejum lah da ta yang hcndak diproscs. D:m, ber:1pa pun ba n yaknya. dimasu kbn kc dalam m cm ori komputcr, dike lola dc n gan menggupoin tc r. Hal scpcr ti in i bclum tcn tu b isa di pcca h b n dcngan i j cni s d ata ters truktur scpcrri arr:w, >ct•Jb ar ray han ya bisa pung cla ra seban yak 64 Kil o b vtc da !l kcm Jmpu.m mcnampun~ ini pu n harus did ck!a rasikan tcr khh cL!l-,u lu. rk an kc mung kinan Lbbm mcncipt:1 ka n \';triahcl sci.lmJ ekscprogram dan bahkan kcmung( in,ln uncuk inenghapus Yariabcl. variabcl scmacam ini dinamabn scbag ai va riabd dinamis riabcl yang telah dibahas pada bab-bab di depan tcrgolong variabel statis). Denga n m eng g unakan v:1riabel dinamis, dJuntuk membuat struktur data dinamis, yang biSJ atau dipersempit selama cksekusi berlangsung, tanpa harus sejumlah memori terlcbih dJhulu dalam pendeklarasian. r ·data dinamis sendiri sebenarnya mcrupakan kumpulan dari yang dinamakan sebagai simpul (node). Simpul biasanya berup• record , meskipun bisa jug:1 berupa ripe data yang laii1 ( misaln y~ Pada struktur data dinamis, terdapat variabel yang discbut pointer (atau secara singkat disebut pointer), ya itu variabd menunjuk alamat mem o ri dari variabel dinamis .

-·- --

Gambar 14 - 1. V~riabtl poinur Jau-variahrl yJ n_f ditunjult

111 cr up:tk:ll1

XIV.2 PENDEFINISIAN POINTER

Suatu rip e poin ter d idd inisikan dcng:1n d iaw ali tanda · pengenal tipe, scpcrri bcrikut:

((art'IJ

dan diil... ,

·pengenaLtlpe

Scbagai conroh ya ng sedcrhana : TYPE

ptrfnteger

=

.INTEGER:

VAR ptrSIIangan: ptrJnteger:

men ya takan bahwa variJbel PtrFiila11gali m erupaL.m variJbl· l pt )iiHcr yang menunjuk variabel bcnipe integer.

,.

.

P~OGRAH Pointer!;

)

(t

Ga.baran ••derh&n. tentang pointer t)

{•

----------------------------------

•)

USES CRT; TYPE

Ptrlnteger ¥All

= - ItiTEOER ;

PtrBllangan : PtrTnte9er; ll l angan

INTEGER ;

lfaw ClRSCR ;

lebih umum , va riabel p ointer m crupakan suatu variabd yang alamat dari suatu obj ek (dapat berupa va riabel , konsunu atau subprogram)·. Karen a itu biasa dikatak an b;~hwa sebenaro)O

lllanga r. ; =

ez ;

II'IIITH N (' hi varlat..l 8ILAIIQAII = 'trBllangan : • ee tl angan ;

811•'•9Ar>) :

( PtrBilangan •enyiM P • n al•~•t dar t variaO.l ftil&ngan}

~61

·--~~~~.a --

I

WRITELII ('IIi lal yAng dltvnjvk ole n ?TR BI L• JIGAil : PtrBilang•n·);

IIEADLII

Contoh lain ten tang pendeklarasian varia bel pointr {' , ?tn string

....:::: , Oc -~

TYPE

ffiD .

8 ~);:,

PtrData = ·RecordData: Str1ngMama = STRING!20J; RecordData = RECORD tal varlabe l BILMIGMI : 82 fl!l&i yang dltunjuk ol eh P TP. Bl LAIIGAio :

nns' Z

'

Q,~t; , '-'()

Nama : StrlngNama: Jabatan : STRING!1 Sl; LanJutan: PtrData

82

END;

VAR

Con roh progr;;m yang scdcrhanJ rn cn gcru i pointer ditunjukkan pada Program H-l. Pada progr a!ll inL mul:1- m ula v.tr iJbcl I3il<111san yang integ er dibcri nilai 82, ~c(" an:z k ,m variabcl PtrBilangan diisi dengan alamat dari Yariabc l Bilan,~ "m mclJ lui penugasan :

Ptrl(epaJa. ptraaru · PtrData; Pada pendek larasian ini, Ptr f...·, p.da da n PtrBaru merupakan pointer v~ng mcnunjuk kc ~ tL1tu record bcnipe RecordDa ra.

· PtrBilangan := (J BIIangan:

var i:~bcl

XIV.3 PENCENALAN DAFTAR BERAI'.JTAI

@ p:~da (r~· Bt!an,~an illl' l l \ J U Kan J i.11JLlt d :tr1 v:niabcl Bilangan . gan demik ian. PtrBilanx.m n :,: ;, ~! flJUk Kc 13iianga li. Kcllludi Jn. uncuk pilkan isi · Y;mg diwnj ~ 1k o lch •:ariahcl poin ter PtrBilartsan, ukan pernyara an berupa : WRITELN l'Nilai yang ditunjuk oleh PTRBILANGAN

=

PtrBilangan·l : J'trBilangan· (Ptrf3ilangall d1iku~i dcnpn t.wda ') bc rarri: " lsi yan~ ii.l:.,,njuk oleh PtrBilangar1. Karcn a iru p::tda ProgrJm 14-1, PrrBilm1gan · menghasil kan nilai 82, sebab variabci yang ditunjuk oleh PtrBilang· bernilai 82. !si variabel pointer tidak bis a di tamp ilkan dengan WRITE ataupun WRITELN . Pern yataan seperti

.

I

Salah saru ben'ruk struktur d.JtJ d inarnis yang sederhana yai tu cla frar berantai (link llsr). Daftar bc ran tai pada contoh ini beris i sejum lah sirnpul deng:Jn masing-masing simpul bcnipe record yang rcrdiri dari 3 bu:1h fie ld, bcrup3 l\ 'ama , jabatan d:ln L.:u~jwan. Field Lm~jutmJ sendiri bnupa \·aria bel pointer yJng m enunjuk reco rd yang terdir i dari Na n:a, Jab,lfc~IJ d1n L.u~illr,Jn. V:1riabcl po inter Lu!fll tan berfung si scb;lgai penpit a Ll u ptrKepala

[ alamaLn

J--=:J

r alamaLn

WRITELN !PtrBtlanganl;

Nama

alamat.n·1

Jabatan

SlmpuJ n

LanJutan

merupakan pernyataan ya ng salah . ~Jamau

Bllangan

I

82

[

I Nama

- ~t

ita maL1[ ---r~1

sesudah PtrBJJangan := @81/angan 14-2. Ptmbtrian alamat Pariabtl lrt Juatu variabtl pointtr

lq Jabatan

.

/

_l_

~-

NIL

Nama

~

alamau LanJutan

Jabatan

C...bar 14- J. Sr,.,lr tur data dafrar

brr~rtlai

-

-:J

SlmpuJ 2

Slmpul 1

LanJutan

263

r-

bung dengan simpul berikumya, sehingga membentuk suatu yang dinamakan sebagai daftar berantai. Ciri daftar berantai, pointer yang berfungsi sebagai kepala (head) dari rantai. Pada bar 14-3 kepala dari rantai yairu pointer PtrKepala yang mcnunjuk n. Ciri yang lain, yaitu adanya pointer yang tidak mcnurjuk ke yang lain (v ariabel pointer Lanjutan pada simpul 1) .

MENCIPTAKAN VARIABEL DINAMIS Pascal, terscdia proscdur bcrn.1 ma 1'\1ew yang digun akan umuk dinamis. Bcmuk proscdur:

• Field Nama dari record ya ng ditunjuk oleh PtrBaru diisi dengan string 'UDIN' _ • Field j cJbatatl diisi dcng;m string 'DIREKTUR'. H asilm·a di_tunjukkan pada Gambar 14-5.

II

PrBJru-_Nama : ~ 'UD!N'; Ptrearu·.Jabatan :~ ·oiREKTUR'; Ptr8aru

var!Jbel dinamis

[~.

I I

0JD!N:-T-:-o,REKTuR· T

L_

Nama

Jabatan

?

1

LanjUtan

_ _j

Gamhar 1-1 - 5 . Pt::rbrrioJn nilai kr Pariabtl dinami.s

contoh:

an ir.i mcnyebabkan suatu alamat mcm o ri dari var i~h cl dinam i\

DataRewrd disimpan dalam variabd Pirl3aru .

Opc r.b; \' .i r: ~ mc libatkJn Jua buah pointer mis al n\'J ad,ll.lh un tuk m cny:llm Jlc: ld .\.a1na y:1ng di tunjuk o lch Prrl3am kc jleld .\'Jn l cJ \· Jng dirunju k ilkh 1-'rrJ..:epaLL Pcrnvacaan vang dipcrlukan : New

sebelum NeW tPtrBarul: PtrBaru

! Ptr K e~a '" '

PtrKe;:;,.3

~. a ,.....a

{ clptakan variabei dlnamis yang ditunjuk oleh PtrKepala l := PtrBJru -. Nama : ( salln Nama }

Kahu m :s.;; ;-_-.-3 sclurtlh rcco rJ yang dirunjuk olch Prrnant disJ!inkan '; J.:-: ~ d itu njuk o lch PrrKepala, pern\'ataan yang dipcrlukan:

0

kc rc,-o d

PtrKepai
varlabel dinamis

!

? Nama

I

I

7 Jabatan

?

l

Lanjutan

14-4 . Pcttciptaan variabd Jittami.s Jcngan New

variabcl dinamis terbcntuk, pcngisian dapat dilakukan terhJdinamis. Scbagai conto h : --

berarti :

Ke ti ga pcrn:.- 1:2an di atas bisa d isingkat mcnjadi : PtrKepala : = ;=:traaru ·;

Benr u k sqxr:: mi bcrani: "Sa linlah isi ya n g ditunjuk olch PrrBaru kc lokasi yang J :.: .l.I1j uk olch PrrKcpala" _ Suatu hcn::-.1:< penugasan lain y:mg rndibatkan pointer yai tu bcrupa: PtrKepar 2 ~ =-:-saru ;

Pcrn y a u :~r: .:. oras bcrarti ' 'l si J>rrRam di ~ alm kc PrrKepala " _ Dcngan demiki:m b'l:k :=-rBam maupun PtrKepala mcnunjuk lokasi rncmori ya ng ,.ma_ · 265

XJV.S MEMBUAT DAFTAR BERANTAI

varlabef dlnamls

PtrSaru

0

..1'UDIN' I 'DIREKTUR' I Nama

Ptr1(epala

D

Jabatan

I

?

Lan)utan

varlabel dlnamls

..1

'UDIN'

I

Nama

G4mbar U - 6.

Setelah mengctahui dasar-dasar operasi mengenai pointer, berikut akan dibahas cara menyusun daftar berantai. Pernbuatan daftar berantai dirnulai dengan mengatur agar pointer yang merupakan kepala dari rantai tidak mcnunjuk kc lokasi mana pun . Hal ini di lak ukan dengan mcmbcrikan nila i NIL kcpJda PtrKepala:

P~nugasan

'DIREKTUR' !

Jabatan

PtrBaru· :=

PtrKepaJa : = NIL ·

I

?

Lan)utan

NJL mc ru p.lbn bu -t crcadang chlam Turbo Pa scal. Diagr:11n awa ] rcrhcntuk bcrupa :

PtrK~pa/a "

Catatan: Mulai Turbo Pascal versi 5.5, terdapat fasilit as New dabn bentuk fungsi. Formatnya: New (TipePointcr) Fungsi ini juga mcmpunyai kegunaan untuk mcngalokasikan nriabcl dinamis . Hasil fungsi berupa poilltcr yang menunjuk lokasi variabel dinamis . Se bagai contoh:

£1-t'{PtrBaru); identik dengan: PtrBaru := 1\'EW(PtrData),

1 .' \

Sebetum PtrBaru := PtrKepala: PtriCepala

I I ! I

~·ang

PtrKcp.lla

~

..._'

.._ rauJJ f• oi ntcr tidak mcnu njuk suaru lob si

Simpul 1 (Gam b:lr 14 ·-J) dab m daft .tr berantai d ibentuk dengan mengg unak an scd aer:lll pcrnyataan bcrikut : (J) (2) · (J) (-1 ) (5) (6)

PcrK cpal:l · -- N fL; NEW (Prd3.:ru): Ptrl3 Jru·. Nama := "UDIN"; PtrB Jru·.Jlbar :m := 'D lHEKTUH': PrrBJru·.Lanjutan :== PtrKepala: PtrKcpala : = Ptr Baru;

varlabel dlnamls

PtrBaru

Diagram scsuda h pernyar aa n kccmpat ditunjukkan pada Gambar 14-8.

I

1

I

setetah PtrBaru

D

~

I

I

Nama

Jabatan

I Lanjutan

PtrKepaJa

~

:= PtrKepala :

varlabel dlnamls

PtrBaru

D-

varlabel dlnamls

~J Nama

G.m•u 14- 7. P~tulglfsan antarvariabcl point~r

"DIREKTUR'

Jabatan

I

7--J LanJutan

C..rnb.,, 14 - 8

_266 267

I

•..

F-· ~

Selanjutnya, pemyataan kelima

Diagram sesudah pernya taan keriga pada pembuatan simpul kedua dapat dilihat pada Gambar 14 - 11.

PtrBaru ·.Lanjutln := PtrKepala;

Ptraaru

menyebabkan pointer Lmzjutan menunjuk lokasi y3ng ditunjuk oleh PtrKepala, yaitu NIL (Gambar 14-9).

PtrKepa la

.. 1'UDIN ' I 'DlREKTUR' l Nama

Jabatan

NIL

Lanjutan

~

;

I}

G cmbar 14-9

~--

~

I,

__ _j __SEKRE~ Jabatan

~--= · u._~~~· =~~=-[DIREKT-UR Nama

Lanjutan

: ___ NIL--=J f

Jabatar.

Lanjutan

-

- - - - - - -·---··-----------J.l - 11

Pcrnv:JtJan

PtrKepala := PtrBaru ;

Ptrbaru-.Lanjut<Jn := PtrKepala;

men yebabkan PtrKepala mcnunjuk lokasi yan~ dirunjuk olch PtrBan. (Gambar 14-10).

PtrKepala

mernbuat po mter Ln~juran d:1 ri simpu! y.1ng ditull_:uk olch PtrRam men unj u k simpu! yang dirunjt d.; "kh P!,,r..:,·i''''·: (C.il!lbJ r 14-12) . IPtrearu

~~~ ~'""

variabel dinamis 'UDIN' Nama

I DIREKTUi I ""'""

~14 utan ~

14-10

I

'o

--c_-=_-=:=--:AR:·~-~-=rsE~RETARIS~ Nama

PtrKepala

0

(1) NEW (PtrBaru); (2) PtrBaru'.Nama := 'ARI': (3) PtrBaru '.Jabatan := 'SEKRETATUS'; (4) PtrBaru '. Lanjuran := PtrKcpala ; (5) PtrKepab : = Ptr Baru; untuk menambahkan simpu i sebt'narnyJ scrupa deng-l 0 nomor 2 sampai dengan 6 pada saat mcmbu.lt simpol

n=h

Jabatan

I

_

~

Simpul tambahan dapat diperoleh dcngan memberikan pcrnyataan: ~

'ARI'

NarnJ

·

G.1rnh~ r

Pernyataan keenam

~~mbar

..

varlabel dinamis

PtrBaru

D

n

'UDIN' Nama

:=LDIREI
!

Nil

h

LanJutan

Cambar 14 - JZ

Pada saar pcrnyataJn kclimJ ptrKepala :-o PtrBaru ;

dijalankan , PtrKepala abn menunjuk simpul yang dirunjuk olch PtrBan1 (Gambar 14- 13). Dengan demiki:1n, ,bft.lr hcrantai ya ng tcrdiri 2 simpul sudah tcrhcntuk. "'l(,()

VAR

Ptrxepata

Ptrearv Jawa t:>an

PtrOata; CHAR;

?traaru 'ARt'

BE Gill REPE:Oi

'SEKRETARIS'

Nama

Jabatan

Lan)Utan

CL=<SCP.;

ll o W

r

·uotN'

r ·otREKTUR' I

Nama

Jabatan

NIL

~

Lan]utan

·cambar 14 - 13

(PtrBa ru) :

wo:rE

('tl a ma pe gawai : ') ;

P.E~ C> lll

(Pt rBaru· . llama); (' Jabat a n

W~IT E

'):

R:;:.ouJ (PtrBaru · . Jabatan): P: rB ar u".L anjutan : = PtrKepala; := PtrBa r u;

Pcr ~ e pai a

Contoh mcnyu sun daftar berantai secara lebih umum ditunjukkan pada prosedur BentukDI'jia r. Pada prosedur ini, data dimasuk kan melalui papan-kctik. Kctika memanggil prosedur ini pertama kali, PtrKepa!a harus dibcri nilai NIL terlebih dulu.

h' 0 ITE ( 'J.lasu kk a n data l a gi

(Y / T)? ');

RE"E .C T a~aban

:: UPCAS E (REAOKEYj

Ut.T !L J awaban I ll [ 'Y' ,'T ' ); WA:TELII (Jawaban)

USES CRT; PtrData StringNama

= " RecordOata;

: STRitiG[ZO); RecordOata= RECORD Nama

pointer awal heap. berupa pointer tak bertipe

: PtrOata;

pointer kepala daftar berantai

PROCEDURE 6entuk0aftar(VAR PtrKapala: PtrOata); ~enyusun daftar beranta1 dengan variabel PtrKepala •enunjuk data terakhir yang diMasukkan ••lalui papan-ket1k

nn

a ~hi r

,

bentuk daft ar

: Stringtlama;

EtiD;

VAR PtrAwalHeap : POitiTER;

END; {

P roudur 14 - 1.

Jabatan : STRitiG[15]; Lanjutan: PtrData

PtrKepala

Ja wa ban = 'T'

UHTI~

TYPE

XIV.6 MENAMP1LKAN lSI DAFTAR BERANTAI lsi · daftar lx:-m cai dapat ditampilkan deng an cara sr:bagai bcrikut:

1. Sebuah \·ariabel pointer (PtrSementara) diatur suraya menunjuk lokasi yang dJtuiJjuk oleh PtrKepala 2. Selama PtrSementara tidak bcrisi NIL, maka: • Cetak isi simpul y;_~ng ditunjuk oleh PtrSfmOitara • PtrSm:wtara digeser agar menunjuk lokasi yan g dit unjuk olch pointer Lanj11tan . 3. Selesai Pada pfl.':>r:~ mc namp ilka n isi daftar berantai, pointer sem entara (PtrSemeiii.J:.: ) dipcrlukan dcngan maksud ag ar PtrKI'pa!d rcup rnen unjuk lokasi yang sama baik sebdum atau sesudah isi dJrta r berantai ditamp ilkar. D l

Dalam bentuk y:.tilg sed erhana, implementas i cara menampilkan daftar berantai ad~.lb sebagai berikut: PtrSementara : =

~pala ;

WHILE PtrSementar.~ · <> NIL DO BEGIN ··-

WRfTELN ( ~ntara ·. Nama . PtrSementara· Jabatanl: PtrSemenon · = PtrSementara·.Lanjutan END; Bent u k pen u lis.
lSI

XIV.7 MENCHAPUS VARIABEL DINAMIS Dalam s truktur data d inamis, kadang -bd ang d il iba tkan u pe rasi untu k m elakukan pengh apusan terhadap d a ta . D,1l am hal ini. \·ariJ bcl d inamis yang mcnyimpan data yang dihapu s PL' rlu d ibuang . d cnga n rnak sud supaya lo ka si dari variabcl d inarn is tcrsebut bi s.1 digu na kan alo bsi va riabd dinam is la in nya (blau ad a pcn c ip t,l;tn \·ma bel .~i n a mis b!l, i,l . T urbo Pasc:~l mettyc diak an dua ca r.1 un t uk m cb b tka:: pcng hJp u\,ln tcrhada p vari a bel d ina m is. be r u pa:

1. Di spose ata u FrccM em '

~EDURE CAt.a..ki:i.t~Ur

{ ~t.&k iai

( PtrKepala: PtrData);

Sebd u mnya pc rlu d ikc tahui . LHi J bc! din.1Il1JS •,d,cn .1 - ,;~:a dl\il ll{',ln dalam ha5i an mcnH.5 ri yan g k hus us di gun.1L1n unt uk a,. k.1~i \'J riahd d ina mis y.Jng Ji5cb ut heap . D JI.nn h,·.lp lL'rc!. t ;.) .l[ ~li;lt u r ''lllt cr ba \\'Jall yJng bcrsifJt g lo bal dcngan n.1rna 1-!t•,,p f 'll Pu :n tcr in 1 s,- :_;_~I lll L' tl ll llJU k mem o ri tcrendah da lam ht'ap y;mg bd un 1 dJgUit,ib n c:I Huk ,1lu b 'i va ria bd din ami s (scl u ru h m cm o ri J .tla m ltl'ap , ..1ng k bih un~~ i d ari ya n~ diru nje1k o leh H.cap Ptr bclum dipab i untuk alub ~i \·ar :.; 0c l d ina mi s

~~...& r t>.ranta i

}

VAA pt~t.&ra

?"t.M)a ta ;

BEGIH CLRSCA;

Mark & Release

WJUTEU4 ( ' I!!! S-'<-i .M~ BERAI'ITI.I : ' ); WRITEL I>f; WRITELH (' = ==== =~========= = ==== == = = == = ========'); WRITELH ('N A w l ' : 20,'J A a' AT A N' : 16); WRITELH

('===:=:==============================');

pt~ara

: = ?t.r"-Pala ; { pt~ntara -nunjuk pad.i loltaai yang

au~a

O.Og&n

ptrKepala

»fiLE pt~.__.. <> NIL DO WITH pt~.....,...A DO

BEGIH ~Inuc

(--:20, Jabatan: HI);

pt~

: = Lanjutan

END;

('=:=-----============================') ;

WRITELN WRITE ( 'Tekan

~.JRN·) ;

READLH

ENO; { akh1 r ~r CetakOaftar }

M ark d an R el ease

Pro-,cd u r .\lark m e m p u npi bcntuk:

Mark (var_ptrJ dcngan l'a r_p rr berup;~ varia bcl bcrt if' C p o inter . Prosccu r tni d iJ.' ,1ka1 unru k m c nyimpan isi p o int er heap (1-lcap Ptr) kc da bm \'J :-IJ bcl ;•ar_prr. Proscdur R eleast' m cmi lik i bemuk :

Release (var_ptrJ den gan l'ar_ptr bcrupa va ri abcl pointer. V.uia bcl p oi nt er im m e ru p:1 b n variabd ya ng sama dc nga n v:~riabel pad a M ark. Kala u proscd ur in i diekseku si, maka aka n m enyebabka n selu r u h va riabcl d ina m is ya ng terletak antara yang ditu ru u k o leh l'ar_p£r sa mp.1i se bt:l u m y;111g di tunj u k ole!-: Henp f.Jrr akan dibcbaskan (diha p us). Sc bagai con toh jib sederc tan 1>-!rnya taan bcrikut dick sck usi: NEW (Ptr! J; NEW (Ptr2J;

MARK (PtrAwaiJ:

New (Ptr3J; NEW (Ptr4J; Proudwr 14 - l . 'l"M

+;'-

NEW fPtrS J;

273

rnaka gambaran dalam heap ditunjukkan dalam Gambar 14-14. Memorl terendan

,.---

ptr1

lsi dart Ptr1 .

•

ptr2

lSI dar! PtrT ___ ..

~~~wat _ _.J._~

lsi dart Ptr3.

ptr4

lsi dar! Ptr4"

ptrS

lsi dar! Ptrs-

HeapPtr

I

be bas

l

I

I

IJ

dengan var....ptr merupakan variabel pointer. Prosedur ini mempunyai kegw1aan untuk menghapus variabel dinamis yang ditunjuk oleh var_ptr. Berdasarkan Gambar 14-14, scandainya kemudian diberikan pern yataan: DISPOSE !Ptr3l; DISPOSE !Ptr4l;

memorl untuk heap

Memorl tertlnggt

mab akan mcnycbabkan varia bcl dinamis yang ditunjuk olch PrrJ eLm Ptr4 dihapus (Gam bar 14-16). Kedua Lobsi ini akan diingat oich sist cm Turbo Pasca l. Seand:1inya ada pen ci ptaan variabd dinamis lagi, lo b -;j in i aka n dipriorit:1skan untuk alokasi variabcl dinamis (as:1 lkan cukup) . ,-------------------- · -- ~

Ptr1

Gdmbdr 14-14. J/uJtraJi New dan Mark

Saat pernyataan Alark ( Ptr A wal ) dijalankan , PtrA tva! abn menu njuk lokasi yang terletak sesudah yang ditunjuk oleh pointer Prr2. Sclanjutny:; New (Ptr3) membuat Ptr3 men unjuk lokasi ya ng sama dengan yang diwnjuk oleh PtrAwal. Setelah adanya pernyataan New

(PtrSl~

Ptr2 PtrAwal

I

Ptrs

L

HeapPtr

maka HeapPtr akan mcnunjuk lokasi sesudah yang d itunj uk oleh Ptr5. Seandainya kcmudian diberikan perintah bcrupa:

~

I

Memori terendah lsi dar! Ptr1· lsi darl ptr2·

be bas

I lsi ~art Ptrs· ~+ Memorl tertlnggl

~

Gambar 14 - 16. Ilu>tra>i Dispose

Release !PtrAwail:

Berdasarkan Gam bar 14-16, seandainya kcmudian dibcrikan pern y:aa.m

.

maka gambaran mengenai heap ditunj ukkan pada Garnbar 14-15 . DISPOSE !PtrSl; Memorl terendah

ptr1

HeapPtr

gambaran mengenai heap adalah seperti pada Gambar 14-15 .

lSI dart Ptr1"

ptr2 - - - - ----

lSI dart Ptr2"

~ ~

Gam/lar 14-15. Gambaran ttntang Rclcau

GetMem & FreeMem Memorl tert!nggl

FreeMem juga dipakai untuk menghapus varia bel dinamis . Penggun;un nya bcrkaitan dengan pcrnyataan Geti\1em. ' GetMem merupakan prosedur yang disediakan dalarn Turbo Pascal untuk menciptakan variabcl dinamis yang ukurannya (dalam sa tuan byte) bisa ditcntukan olch pemrogram . Bentuk proscd ur:

Dispose

Prpsedur Dispose mcmpunyai bentuk: Dispose !var_ptrl:

274

CetMem lvar_ptr, uk:uranl:

dengan rJar_p tr mcrupakan variabel pointer d:m ukura11 (bertipc word) '27:'>

.,

2. PtrPraPosisiData ••nunjuk sl•pul &ebelua aimpul data yang dicari,

menyatakan ukuran dari variabel dinamis . Sesudah variabel dinamis diciptakan, variabel dinamis ini akan ditunjuk oleh var_ptr. Jika ta k ada lagi ruang dalam heap untuk a~okasi variabel.dina:ni.s, ak~n menimbulkan ,-unrime error. Perlu dtketahlll, ukuran vanabel dmamts terbesar yang da pat di ciptakan dengan GetMem sebesar 65521 byte (kuran g dari 64 Kilo bvte). · \·ari ahcl dmamis yang diciptabn den gan Cet1Vfem dapat dihapus, dc ngan menggunakan proscdur Free.Hcm. Bentuk proscdur: FreeMem !var _ptr, uKuranl:

pada pemanggilan proscdur ini, liar_p tr dan uhtran haru slah sam a dcngan pada Cet:\ Jem. Catatan : • Pada penghapusan variabcl dinam is, Freelvfem d:ll1 Di.ipu.> e biasa dig una kan untuk penghapusan ya ng bersifat acak. • Jika menggunakan Mark / R elease ya ng di padukan dengan Dispvse atau FrecMem. harusbh tidak ada variabel dinamis di bawah poi nter pada .\lark yang dih ap us dengan Dispose. Jika hal ini sampa i terjadi, memori dari variabel d inamis yang dihapus tidak lagi diin gat olch sistem Turbo Pascal, sehingga memori tersebut tid ak bisa dipakai untuk alokasi variabcl dinamis , saat program masih dicksekusi . Hal ini

atau same dengan HIL jika PtrPoaiaiOata Menunjuk slmpul yang juga ditunjuk oleh Ptrl<epala - Jika data tldak ditemukan, maka PtrPosiaiOata sama dengan HIL VflR

Ketemu BOOLEAII; BE Gill Pt r-Pr aPosisiData : = IIIL ; Ptr-PosisiDa t a : = PtrKepala ; ~ ;-e mu : = FALSE ; ~i iiL L E (tiOT Ketemu) AllO (PtrPosis iData <> llll ) DO IF PtrPos isiData - .llama <> llam;;tDicar i TH Eil BEG HI PtrPraPosisiData := PtrPosisiData ; PtrPosisiData .- PtrPosiaiOata - .Lanjutan Et lO ELSE

Ketemu : = TRUE; EllD:

{ akh i r pros'ldu r Car i Data

P roudur 14-3.

terjadi kalau Release dijalankan. Contoh program mcngenai daftar berantai yang mcl iba tkan ca ra: mcmasukkan data ke dalam daftar berantai -"' menampilkan is\ daftar berantai mencari suatu data dalam daftar berantai menghapus data dalam daftar berantai · disajikan pada Prog ram 14-2. Cara mencari data dalam daftar berantai ditunj uk kan dalam prosedur

CariData . PROCEDURE Car lData (Ptrl<epala : PtrO&ta: llamaOicarl : Strlngllalll&; VAR PtrPraPosiu\Oata , PtrPoslsiData : PtrData ); Untuk menca rl datil llamaOic;arl pada daftar beranta l. Hasll : - Jlka data ketemu , maka : 1. PtrPosiaiOata menun juk aimpul darl data yang dtcarl

Pros::dur CariData mcmiliki 4 argumcn/paramctcr bcrup.l Pt1Kcpal.J, (yai tu pointer y.mg bcn indak sebagai kepala dalam dafta r bcrantai ), NamaD icari (berisi nama pegawai dari data ya ng akan dicari), scrta parameter PtrPosisiData dan PtrPr!ZPosi.< i Data. Mcngenai parameter variabel PtrPosisiData dan PtrPraPosisiData me miliki sifat :

1. Jika data yang dicari tidak ditemukan dalam daftar bcrantai, PtrPosisiData berisi NIL 2. Jika data yan g dicari di tem ukan , rn aka : • PtrPosisiData menunjuk simpul dari da ta yang dicari • Apabila sirnpul yang di tunj uk PrrPosisiData m erupakan sirnp ul yang ditunjuk oleh PtrKepalu (simpul yang tak mcmiliki pendahulu), maka PtrPraPosisiData berisi NIL • _-\pabda simpul yang ditunjuk o lch PtrPosisiData m crupak an si mpul ya ng tidak ditunjuk olch PrrKepula , maka PtrPraP,Js isiDutu berisi lokasi da ri simpul yang terlctak tepat sebclum simpul yang d itunjuk oleh PtrPosisiData .

277 1

~:.---;.·

1 ' 11 ·~· ; ~ 1•cnghapusan data secara acak-dalam daftar berantai dilakukan

111' '1 l'ft/',••isiData tidak berupa NIL (yang berarti data ditemukan). Pada '"' 11

I

l!ldnk llkan penghapusan , ada dua kondisi yang perlu diperhatikan:

'• hl 1 1'l d yang dihapus merupakan simpul yang tak memiliki pendahu-

~~~ l'!t•q•u l yang ditunjuk oleh PtrKepala).

1

' 1111

1'"' nng dihapus bukanlah simpul yang di tunjuk oleh PrrKepala .

,. ••pl,,!'ll'an dc.n gan kondi.si yang pcrtama dilakukan dcngan m eng1 1' ' ' f!rrKepaia men unjuk ke lokasi yang di tu njuk olc:.J.l pointer ' '"""' ' '' l·l.1ri simpul yang ditunjuk olch PtrKepala). Pernyat aan yang ....

1 ' '1 '

·ltd.

Ill

1 '1 • \ ··"·''-' . =·

Penghapusan dengan kondisi kedua dilaksanakan dcngan menga' po inter Lanjutan dari . simpul yang ditunjuk oleh PtrPusisiPraData a1 menunjuk lokasi yang ditunjuk oleh pointer Lanjutan dari simpul ya ditunjuk oleh PrrPosisiData. Pernyataan yang diperlukan: PtrPraPoslsiData·.Lan)utan ~ = PtrPoslsiData ·. Lan)utan :

Lmgkah selanjutnya ringgal rn cmhcbaskan varia.bel diruruuk oleh PrrPosisiData , dl' ngan pernyaraan NEW !PtrPoslsiDataJ;

PtrKepala· .Lanjutan:

.

Sebelum simpul I Ill~ :\_

dl

-c lanjutnya ti nggal mcmbebaskan va riabel dinamis yang ··lch PrrPosisiData. dengan pernyataan

,1, 1, ,, , ,,\"

dinanri~ y.1

d ir, ~~ us

"'' '' li'!rPoslsiDataJ: ,,,~ ...... .,,

(impul dihapus PtrPosisloata

,.,

' r- 1\.l i J

I

ses udah slmpuf dihapus:

s---

PtrPraPosisiData

J

mau dlhapus

~"' '\'''"'Oata

~-~ II

'~" '""' .slmpul dlhapus:

PtrPoslsiData

I

;'-'"''";J !

I I I l I I

rt _., _--

I

r

'

~.~,~~~t~a---------------===~~~:;,~~--~ J

'· ·~"-...

""

, ., · 17. Mcnzltapou 1impul yang ditunjult ol~lt PtrK~pala

~r--7---_j__J__ bebas

Gambar 14 - 18. Mmghap•u 1impul yang tidalt ditunjulc olrh PtrKrpala

_j

'

I

I

Prosedur HapuslsiDafiar merupakan prosedur yan g dipakai unru mclakukan penghapusan data dalam dafrar berar1ta1. Proscdur ir mclibatkan prosedur CariDa ra . PROCEDURE HapusisiOaftar (VAR PtrKepala : PtrDa ta ); { untuk menghapus sebuah aimpul oada daftar bera ntai . I

I 71

"rosr. . l let:

CotiST

.,

(•

( • Cont~ progr . . vntvk -nrvell\ daftar tt.rantat

STRIIIG_KOSQilG :

(• cJ.an k¥V<J' a.n ~..aac:dlkan k-baH

: StringNama; VAR NaJGaDicari PtrPos1siDat .a, PtrData; PtrP raPosisiD.ata

{ ltM lt•t) •)

hinya

., ')

r• ~E~

CRT ;

TVP[

BEGIN CLRSCR;

PtrO.t a

~

~'t•cordO~ota :

~t,.-tng.flalfl&

:z

STAIU0[20);

...

nee.orOO •ta:: IUCORO

..,

HRITELII ( 'J.Ia s u~,. an llama pega1·• ai dari da ta ya ng akan dihapus: ' ); READLii (liamaDicari); IF llamaDicari = STRIIIG_KOSOIIG THEil

..

Stringti.t.llllol ;

Jatatan

~TRIUG(

lanJut.t.n :

P tr D at~

15 }.

(HO;

_

EXIT ; I kaluar dari prosedur Hap usisiDaftar CariOata (PtrKapa la, llamaOicari ,

Pt,.-A~o~ a

Hi •ao : POI IllER ;

PtdC: apa Ia

patnt •r ilw• l haol.p )

Pt r Oata ;

ootnt•r ....... a l a d af t.u

, ... a n ta 1 }

PtrPra FosisiData , PtrPos isiData); IF PtrPosisiDa ta BEG III ~IRITEUI

= li iL THEil { data t ak ditamukan

(• a 1• 1plo. a n pro •• Ovr San t uk Oaftar di

{ • a1•tpkan pro llf• <Jv,. Cet a lo:O aftar dl

( ' Dat a tak dit<>mukan. Te kan EIITER untuk malanjutkar•.

(•

al ·~d ""•n

{•

• t a t pkan p,.-oaadu r

proa• dur Ca r4Qo.t.a di

ainl

'}

.,

a int

e tnt

•)

READLN EtiO

ELSE { data ta k oitemuKan } BEG III

{ bukan simpul yang ditunjuk PtrKepala dihapus } PtrPosisiOataA.lanjutan; DISPOSE (PtrPosisiData);

~trPraPosisiDataA.Lanj~tan :=

Tekan EIITER');

READLN END

END; { a khi r prosedur HapusisiDaftar } ProuJwr U-4 .

Pada Program 14 -2. ,\[ark dan Releast.' dipakai unruk membcbaskan scluruh variabel dinamis saat data yang ada pada va riabel dinamis tidak dipcrlukan lagi. Namun sebcnarnya pada prog ram ini, Mark dan Relrajf bisa juga tidak usah dituliskan, scbab dengan sendirinya seluruh variabd dinamis da.lam hea p dibebaskan saat program usai .

280

{\1 /.~

PROCfOUR( Pro•aaPt l tf\an

I proses pe nghapusan } IF PtrPraPosis iDa ta = till THEil { s1mpul yang d i tunjuk PtrKepala dihapus } PtrKepala : = PtrKepalaA.Lanjutan ELSE

WRITELN ('Ok . Data sudah dihapus .

Ha pv•l •I Darta,.. <1; . ,,..,,

""•,.II lh

Otg\Jna k a n untul..

• }

Ptrll. trp .a 1• : PtrO ah );

proaa a :

MaMaavkkan d• t o~ "'-n.aapt l kan d ata ...._ngh.A p~w~ a

dJtta

VAR

Ptllha n

CHAR;

8EGI II REPEA T CLRSCM; TEXTAlTR GOTOXV

TEXlATTA

t

: = 170 ;

(20,

"ideo tarbaltk

2); WRITE

::.: $0 7;

(

PlllHAJI PROSES

('

video nor••l

') ;

)

OOTOXV

(20,

ooroxv

(20 , ' ) ;

OOTOXV

(20, IS) ; WRt T f

( ' (J} Mangh•pua data p.aoa daf'tar berantal ');

GOTO.iCV

(20,

( ' f4) Se l ••• t ·} ;

c ); WRITE ( ' ( 1) )-l . . aaukkan / ••na.b.ahkan CS..ta' ):

7);

WRITE

WRIT£

('(2) Men ... pllka n hi dattar barantat');

r·

GOTOX Y ( 20,

8) ; WRITE

GOTOXY

9) ; WJUH: ( ' Ha•ukkan "'-OO•

(25 ,

' ) ; pt llhan [ 1 . . C)

'):

REPfAT Pt lth.an

:=

UPCA ~f

(RE AOK E't')

UUTt l

P ll I han I H ( ' 1 ' .. '4 ' J ,

w~trr

(Pil th• nJ :

CA.Sf Pll t h•n 01 '1 ' ·

8al"tuk0a ftar

' 2'

C•t• kO•rtar

(Pt rK•po~ h ); (Ptr· ~ • P •la );

' J ': Hapu•I•tOaf'ta,.

Erm UNTfl PIHhan:

' 4'

IPtrK•pala) ;

~J

... _

• .,. • - ptllhan (1 . . 4) : l pep~~tat

Maeutlkaft 1'-"

EttO: { akh ir p ro_.d\..1,. Pro Na.P il \ha/'1

()til .

pen.andaan t .erh.adaP •-'•' ~ ARIC ~tPtr.ba 1 Heaol ;

P t rl( epa\a : = Hi l: Pro. . ~ t l\han (P trlepa l a l :

p••'

,....~ba•lt&n ~•P

f ... O.

c.on td"' • " • •• v .. ' · ll:l tt

':% ::: ::: : :::::::;: :: : J

·- ~ ··o-s• ,==

:::::::::::::::::::::::.:

{ 4) ~·1 • ... '

~• • u ., lt .& n

o• 9--''" •

t

1or.oe-

pilt Nln {, _. 4) ;

Tekan ftiTUI

OI«l f. lt.T UR

~.._,~o;, ,.a n O•U· h gt (V/ T)? Y ....... P•¥"" ' : "Rl ~E 1t.RE T - ~~~ J •D.& l &l"'

Mat-U kk _, n d~ t• la g' (Y/i}! Y tla•• P•9A"'a t : F Atii.U ... A II .l J[~

Ja b.l. t• n 14&SU"-kcn d a t a

h gt

EDP

(Y/ T)1 1

:.; ::::::::::::::::::::::: Jl C. Ill' ... : I.O!tl :::: ::: :: :::::

~=:::::::::

t 11 ,... . .. s v"-~A n / . . ~hkan data {2 1 ,_ na-p t l k&n t s t c:taftar o-ran tat

r 3 ) ~9"·pu•

M.awk kan kode ptlihan ( t..

•1 :

Z

l~I O'-'taA IEJIIAIIT.l :

:: s:s =~:: ::1 ::s: s:: :;:~:a ::;:"$:=: ::::a:s::::::a::::r.===·'li::

tiAM .

J A IA T A N

::::::::::::::::::::.:::::::::::::::::: :::::::;a.:::c:s:a:a:a:a :a•s;~~:•:a:s:a

f _,.,.1

ARl

UO!II :::: '::Z:::: =::::: ==:::::: ::1::

2:::::;::: :::::1:

14AIIIUEA EOI' S£1tli£TlPIS D!REKTUA

=s :::: :a::::::a:a-a::z•=·· :r. ::a:c :s:a

:: llkiMIUI 11'1aerSt • :s:::::::::':l ::: s ::::: :::~t:s

( 11 ~·u~k •n/ . . ~ahkan ctat •

(4}

~' '"an ~

s.•- ·

,.,q...,

y ang

d tpaka ~

vntvlo.

alck••' d i .......,. U l

Kalau dipc rhati kan scca ra scksam:~ , tcrnya ta urut an dJ ta sut dima kJn mempun ya i urutan tcrbali k p:~ciJ ~ aat dit am pi lk.trl. D ·tta tcra nn g dim .1~ukkan ab.n l1lL'tlC!l lpati sebJgai da ta per t.lnJa !>.t.lt d it;m kan . Struk tur da tascmaca m i111 dikenal dengan schuun LIFO (Las First-Out) yang aninya ad ala h Masuk - tcn khi r Kelu.H-pertama.

Turbo Pascal m cn yedi akan clu J buah fu ngs i yang hcri-..aita n den alokasi va riabcl dinami s, bcrupa .\f,,xA .. ail dan .\frm.i: -. n/ . K niua fu 1 in1 ridak mem iliki argum en {par;i!Jlctcr). MaxAvall Fungsi .~1axA. 11a il di gunaka n u nruk mc m pcrole!J ukuran b!uk be rcrbesar dalam l1 eap (bcl um dipabi un tuk alokas1 LHiabci d inl:nis). H bcrripc longint , dan m cny:Hak :lll ukuran dJhm ~.ttci.lll byte. Fungsi in i dapat dipa kai un w l... m~·nghindari tcrja diny.o rllur,me c1 : kalau sa.lt penciptaan vari abd dmamis (ba ik dtT ;.!.lfl :\.'e ll' ~taur CetM em) tcrnyata ruang dah m i:t'Jp rid:1k cukup uncuk rcng .dokas variabcl din amis . Cont oh lllengc na: h~ l mi d:q)Jt d ilih.H p.td.t Pro gr.

14- 3. PROGRAM CekBlokBebaa;

data paca daftar ber&nta t

s..., .....

(1 ) (3)

P rogra m 14-1.

1

UClU

J..Wt afl

"Z::

dthapus .

\ a i o a ft&r b•r a nt a t

{3 1 .,..f'\9'"\.&PU S dAt • o ., da C:aftar e.r a n ta t

(4 }

~

XIV.S FUNCiSI UNTUK KEPERLUAN ALOKASI DINAMIS

( 1} j.&_..aauk lo.a nl •• na•D • t-"a n
~ r\·· oilk • n

•~•P l

ke J. daan •-'•' PtrK•P•l• oe l a.., a.&J'I a&n 1 ihan p r o•••

~E LE .I .!f ( Pt.r .:.~ota lH eaP} :

ti &Jio&

Da t a

( pr09 r aa ut.. .• )

&E OI "

{21

dari data y•ng akan dtn• P\J I :

AAI

• • • d&ttar e>er .nta t data pada ck ft ar ttoer ant.a \

<• -------------------------- --- ------------ --------- -- •> (8 Contoh penggunaan MAXAVAIL untuk mengendalikan •) (8 NEW atau Gfn.E_M agar tidak 11enimbulkan RUtiTIJ.lE ERROR t ) (8 jika ruang dala. heap tak cukup t ) (t untuk pengalokasian variabel dinamia . •)

<• ------------------------------- ------------ --------USES CRT ; CONST MAJ<S_OATA TYPE

=

t )

16000;

ArrayData : ARRAY[1 .. HAKS_ OA TA) OF BYTE; VAR PtrOata •ArrayOata; BEGIN

~l

·-

CLRSCR; IF HAXAVAIL >=

PROORAN MMI_dan_Nax ; HAKS_DAT~

<• --------------------- -------------------------------------

BEGIN { ••nga1okas1kan varlabel dina~la HEW (PtrOata(Pencacah]); WRITE ( ' Untuk ~al~njutkan prog r aa , tekan E~ T ER. ') ; lanjutan &eaudah d i cipt akannya var iabe l

( 8 Con ton

pr-ogr. . untuk ee llhat perbed.aan NEMAVAIL

c• -----------------USES

I

HAXAVAIL

-----------------------------

CRT;

•J

. 8) )

VAR Ptr1, Pt r2 , P t rA~al

" INTEGER ;

d ir~i s

PROCEDURE I nfoHeap (Kete rang;an : STRitiG); EHO

BEOIII

ELSE WRITE LH

('~emori

t a k cukup.

Te ~an

WRITELN ( Ke terangan) ; WRITELN (' ~•ori heap te r s i g~ WRITELN ('Blok terbsaa r da !Aa heap EtW; { akhlr proaedur InfoHeap

EHT ER . ' );

READLN END. Program 14 - 3.

Pada Program 14- .3 . seb clum pcn g:d ok.lsi.1:1 rcrhJdap v aria bd d inam is dilaksana kan . blok bcb :1 s tc r bcs~r daiam l1cup dipcriksa. jik.1 rernyata terdapat blok b ebas yang lcbih bcsar atau sarm dcng an uku ran ....-a riabel dinami s y ang akan di ciptak an , ba ru bh mc ;-.j.ll ankan pcrny ataan NEW Sedangkan ji b bl o k be b as tcrbcsar tCrrl\ .:t~ ichih kccil th ri yang dipcrlu kan, p rog ram akan m cmbcri pesan ::-cru p ' ,'v1cmon tJ k cukup. Tekan ENTE R. ' .

MemAvall

Fungsi ini dipakai untuk mempcroleh ro:al mcmor i d al am izeap yang bcluiTif digunakan untuk pengalokasian \'a ria bd dinamis . H asil benipe longint, dan m enyatakan ukuran dala m SJ tu an byte . Perbedaan Mer:nAvai ! dan MaxAvail dap at di lihat pad a Gambar 14-19. MemA vail dan ,\ !ax Avail menghasilkan nila1 yang berbeda, apabi la dalam heap terdapat blok bebas yang bersegmer: (terpi sah).

ptr11ptr2-{r_ _ _

_jl

blok bebas

MernAvall = MaxAvall

Ptr2

- 1b!o< ""'' I Ole( beb-~

MemAvall > '.la\Avall

Gambar U - 19. P~rlr~d<Jan M~mAvail dan M.>:ri~Pail

284

'

~IEI-IAVAIL,

MA XAVAIL,

byte.' ); byte. ·);

BEGIN i progr~ ut~a CLRSCR; MARK (Ptr Awa 1); InfoHeap ('Setelah MARK : "); HEW (Ptr1); { menclptakan va r i abel di namis ya ng ditunjuk oleh Ptr ! InfoHeap ( ' Setelah NEW . {Ptr1) : '); { aenciptak an v•riabel dina~ is yang ditunjuk oleh PtrZ InfoHaap (' Setelah JIEW (Ptr2) : ');

NEW (PtrZ) ;

DISPOSE (Ptr1); { menghapus variabel dina,.is y.mg ditunjuk oleh Ptrl ) InfoHeap ( : setelah DISPOSE (Ptr1) : · ); RELEASE (PtrAwal) ; In foHeap ('Setelah RELEASE REAOLN END.

');

Conton ekMkuei : Setelah HARK Me.arl heap terelea 8lok terbeear dalaa heap Setelah HEW (Ptr1) : Me•or i heap tereisa Blok terbesar dalaM heap Setelah NEW (Ptr2) : Meaorl heap tereisa 8lok terbeaar dalaa heap Setelah DISPOSE (Ptrl) :

295280 byte.

= 295280 byte . 295275 byte . 295278 byta . 295278 byte .

= 295276 byte .

285

~ri

n.ap tereia« k t erbesar dalaM heap 110 e-telah RELEASE ~.a r i hOAP tersiaa ok t erbesa r dal .. heap 11

= 295270 byte. = 295258 byte . = 295280 byte.

= 295280

XV fvlANIPULASI MEMORJ

byte.

14-4.

ccrdapat pe rnyataan DISPOSE yang mcnyebabkan te rjadin ya blok yang be rsegm en , maka A1emAIIail da n .\ laxAvall tilhk lagi silka n nila i yang sa ma. Pada saa r ada perny:ltaan DISPOSE. ccrsisa tern yata menjadi lebih ke cil. Hal ini dise babkan ada mcm ori yang digunakan untuk mcnca tat (mcngingat) b agian blok di hapu s. Pada saat pe rnyaraan RELEASE diplankan, mcmo ri heap (baik untuk alokasi variabel dinam1-. ma upu n umuk tatan tcntang b!ok bebas akibar DISPOSE; d1bcbas kan . Tampk program , rnemo ri tcpat ses uda h MARK dij:dankan sama dcngan h RELE AS E diek scku si. Pada Program 14 -4 . memor i tcrsisa dalam ltcap se<elah DISPOSE (Ptrl) se h a rusnya bern ila i 295278 byte, namun kcn yac.tannya ting gal 295270 byte. Hal ini disebabkan sisrem T urbo Pascaf mc mcrlukan 8 byte set iap kali ada pengharusan yang mc nyeba hbn b lo k bcbas yang
Un;r Sy •tt:n• nn ~ '>c'C:l rJ otomJtis .iik
XV_1 MEMOR! DAi.AM KOMPUTER IBM PC

..

Mcmori rn nupJkJn bagia n dabm ko mputer yang digunabn umuk mcnyimpan cb ta arau program . Setiap mcmori berukuran 1 byte (8 bit) denga n ma sing-m asing mcmiliki alamat. Setiap alamat memiliki bag ian va ng discbut segm e n dan ofset. Untuk menyarakan suaru alamar mernori bia sany.1 Jig unakan n ou si Scgmcn : ()f,e t dcngan scgmcn dan ofset d in yatakan dalam 16 bit. Alamar seperti ini disebut alamat rclacif. Alamat yang sesungguhnya (dinamakan alamat scbenarnn terdiri da ri 20 bit. Da lam sistem desimal, alamat sa rna dcng.1n 16 kali segmcn ditamhah den gan ofs c:t . Jika seg men ofset dinvar.;kJn dalam sistem heksadesimal (basis 16), al amat •bsolut dapar ;ii pcrole h de ngan menambahkan ' digit 0 di bagian akhir stgrnen, kern udian dijumlahkan dengan ofsetnya. Misal, al arnat relatif B8oo:0002 hcksJdcsimaJ memiliki alamat absolut B8002 heksadesimal.

~bsolut) -~ bsolut d~n

287_

program maup un data (informasi) sewaktu program dieksckusi. Jenis lainnya yaitu ROM (Read-Onl y Memory). merupakan mcmori ya ng hanya bis:1 dibaca isinya (tak dapat ditulisi) .

segmen

Islsi ofo] c

- tambahan digit 0 heksadeslmal

XV.2 PETA MEMORI OALAM TURBO PASCAL

of set

Pcngg unri an rncrnori da l;: m Turbo PasLal JJ~Jjikan ,iJI.mJ Gam b;u 15-3.

[ojojol2! +

~----------------------~

[llFloToT2l

r-------- - ,

+-

alamat absoiut 20 bit

mem·Y rendah

1--a:.Va:.kod;-;bj;;-_J f---~hlr ~ode obJe k

Gam bar 15-1 . Pt nga lamatan mtmon

L_ kode

I

i\lamat rc!Jtif sepcrti B 800:000(lh (h = hcksadcsimJ! ) bis;:; juga ditu lis menjadi B000:8002h. Organisasi memo ri dalam komputcr IBM PC tc~diri dari 16 b!ok dcngan blok pcrtama diberi kode seb.:~gai blok n. Scti ,lp blok mengandung 64 KB memori. Sching{2:a sccua ke:; cluruhan rcr dapat ! .~1B mcmori. Biok atok BIOIC atok Blok iiOk atok Blok atok atok Blok Blok Blok Blok Blok Blok

o 1

2 3 4 5 6 7 8 9 A B

c

0 E F

I I

I

c<.,g·Sotr -

-·· ·

- - - - ·-

stack ' -----·-r penampung overlay puncak heap memorl terslsa dattar bioi< bebas

j I

t ke memori t-erkembang rendah stac~

1

ukuran penamoung "· 0 . jlfc:a tak ada overlay

JkeHeapmemorl oerkembang tlnggl memorl tinggl

Gam bar 1J - J . Ptt" mtmori Turb o Pa1 .:"/

, Diamara jenis memori, tcrdapat memori yang disebut RAM (RandOffl

288

oseg:OOOO - · ~ - koue unit system awal darl data ;!!(hir darl datd NC;J .VVVV - - ~ bebas

~~/h;ap

G.Jmb"r 15- 1. B/qlt mtmori

Access J'vfemory) . Mcmori inilah yang dipakai untuk

-1-j

1--~;~~t

I RAM sampai 64 KB RAM sampai 128 KB RAM sampai 192 KB RAM sampai 256 KB RAM sampal 320 KB RAM sampal 384 KB RAM sampal 448 KB RAM sampal 512 KB RAM sampal 576 KB RAM sampal 640 KB Memorl pertuasan untuk video Memorl standard untuk video Ekspansl ROM untuk keper1uan tatn Slstem ROM·BIOS dan ROM·BASIC

U:llt n -----

menampur~

Stack mcrupakan dae rah mcmo ri yang antara bin dipakai untuk lokasi parameter, atau pengenal yang bersifat lokal saar subprogram dipanggil. Sccara bawaan besarnya stack adalah 16 K B. Ukuran stack dapat dipcrbcs:~r atau dipcrkccil mclalui pcngaturan pcngarah kompdcr. Ukuran tcrbcsar chri stack adalah 64 K B. Scpeni rel.lh dijelas bn paJa bab di dcpdn, itrnp mcrup.tbn danah mcmori untuk alokasi variabcl din&mis ya ng di cipt&kan dcngan New atau Gt:tAfcm . Ht'<JP mencmpati ruang mem ori yang tersisa, berkembang kc arah rnem ori yang lcbih tin ggi . 2R9

){V.3 MEMPEROLEH ALAMAT, SEGMEN ATAU OFSET Ti ga fungsi yang bcrkaitan den~an hal ini, yaitu Addr, Seg :f_an Ofs. Semua argumen dari fungsi tersebut dapat berupa seb.uang variabel, konstanta bertipc ·a tau pengenal subprogram.

XV.S MEMPEROLEH UJCURAN MEMORI SUATU VARIABEL, TIPE ATAU KONSTANTA BERTIPE Fungsi Si:cq[ yang m em il iki bcn tu k SlzeOf !ob)ei<J

Addr <Xl

Digunakan untuk memperoleh alama t dari suatu objek X . Kegunaan Addr identi k dengan k cgunaan operator @ (lihat Progr am 14 - 1. Pada progr:1m ini. @ Bilangan dapat dituli s mcnj :~d i A.ddr 1B1i.mgan!).

dcngan <'b:ick cbpat bempa '- 'J ri .lbcl. upc at au konstall tJ bcrr ,:,c, hi J~.l dipak:1i tJnt uk !Ill J:1puokh uk uran m c rnori yang dipcrlu l:Jn oit'h <>bJt-k \·ang mcrtq,akJn .•a;t ll'llc n n ;: c; f l.1~d i~ J ; :g~i !>c r{!pc wc•nf 'i .l n rnc ll i'.J L ,k.m ukur.JiJ IIJcn ~ ,, fl d JI ,Jn J ~J tu an byte .

seg <Xl

Contoh:

Digunakan untuk mempcroleh scgmcn dan o bjck X. Hasll fungsi bertipc word .

OfS

(X}

S!ZEOF SIZEOF S!ZEOF 51ZECF

iBYTEJ . !WOROl • !REAU -· !POINTER ! -

1 2 6 4

Dipabi untuk mempcrolch ofset dan o2j ek X. HJsil fungsi bntipt word .

XV.6 MENGISI SUATU TIPE DATA TERSTRUKTUR OENGAN NILAI YANG SAMA

XV.II MEMP!EROLEH lSI REGISTER CS, OS, SP DAN SS Fa si lit :~s untuk m c mperolch isi register CS. DS, SP dJ:-: SS scmuan\'J berupa fungsi y,mg tak m cmiliki argumen . Keluar~n fu r. g;i b..:rupa ndJJ

bertipe wo rd .

cseg Fun g si CSeg dipakai umuk memperoleh isi yang tcrbndung dalam register CS (Cafle Segment), yai tu nilai yang mcny ata kan segmen dan awal kode objek dalam program.

DSeg Fungsi DSeg digunakan untuk memperoleh lSI rcg1ster DS (Dar; Segnw1t), ya ng menyatakan segmen dari awal data dalam program .

SSeg Fungsi SSeg berguna untuk mendapatka.n isi dari register SS (Scalt Segmer!C), yang menyatakan segmen dari awal stack .

Sptr Fungsi Sprr menghasilkan nibi yang tt·rkandung dalam register SP (Sta.« Poir1ter), yaitu nilai yang menyatakan ofset dari penunJuk scack. Nilai Jll sekal igus menjelaskan besarnya sca.:k tersisa (belu m digunakan).

Proscdur Fii/Char \'Jng di scJi ak.Jn da lam 1u rb o P:~scal sanf :!C bcrgu na unruk mcmhcrikan in1 sial isasi tcrh ad.q · upc data instrukt tJr. lkntuk rroscdur:

FiiiChar :var...x. ca::.ah. nil ail Jib pro~cLiur ini d1panggil. mcmori pntalll;l dJri l'ar_ y (dapat bcrupa sebaran g \'J riabcl J sampai yang .kc-.-a
Misalkan, sel uruh elcmen arra ~' hcndak diberi nilai 0. pern yaraan yang diperlukan: FJLLCHAR !LarlkData. SIZEOF!Larlk:DataJ, 01:

Ptrnyau:1rl di ata s nH:mbcrikan basil y:111g SJ rn .t Lkng.m pl'nulis.ln FOR i : = 1 TO 100 DO Larii o·

291

1'

. Contoh yang lain yaitu unruk membuat prosedur yang digunakan untuk menghasilkan string yAng merupakan pengulangan dari karakter yang sam a, seperti diperlihatkan pad a Program 15 - 1. Pad a program ini, prosedur Ulang_kar dipakai untuk membuat garis ganda . Perlu diketahui, kalau menggunakan Fii/Char yang dikenakan pada variabel string, haruslah terdapat perny;~taan untuk menentukarl panjangn ya (Lihat pern ya taan: St{O] := CHRljumlah)). PROGRAM Garl•;

,. -------------------------- •> (* Contoh penggunaan FILLCHAR •) (* untuk ee~bentuk g~rla •>

Pernyataan seperti: MOVE 1Mat1, Mat2. SIZEOF rMat1li:

membcrikan hasil yang sama dcngan pernyataan: FOR 1:=1 TO SO DO Mat2!fl := Mat1!1l;

ataupun: Mat2 : = Mat1:

<• -------------------------- •> FUNCTION Ulang_Kar (Kar : CHAR; Jumlah: BYTE !: STRING; VAR St : STRING ;

BEGIN FILLCHAR 1St, Jumlah +1, Karl; St!OI := CHR!J umlahl; Ulang_Kar : = St: END;

BEGIN WRITE IUiang_Kar !: 205. BOll, : gar!s ganda ·seoan]ang 80 karakter ) READLN

XV.8 MANIPULASI DATA BERTIPE WORD

Turbo Pascal mcn yL·di,Jbn f::tsilitas untuk mcmpcroleh byte tcrcnd dh atau b yte tc rringg1 dari data bcnipc word. Disamping iru, terdap at pula fa~iJitas un tuk mcnubrkan by te terendah dan byrc tcrt ingg i pada ripe data word . Untuk mcmu dahbn pemahaman. perlu d ik ctahui tcrlebih dahulu bahwa tipe word rncngandung 2 bu:: h hytc . Nilai bcrti pe word j ika dinyatakan dalam sistem hcksadcsimal d.;pa t din\·atak.t r. ckngan 4 d1git heksadcs lln:Jl. M isJ! , pad a bilangan bert; pc word

27 13 hek sad csimJl

END.

27 heksadcsimal merupakan ni!Ji dari by te tcqin ggi dan lJ hcksadcsimal merupakan nilai dari byte terendah. ·

Prog_ram 15-1.

XV.7 MENYALIN lSI SE.IUMLAH MEMORI

lsi sejumlah memori dari suatu lobsi dapat d isa lin ke lokasi lain dengan

Fungsl HI Bentuk fungsi : HI IX!

menggunakan prosedur Mo ve. Bentuk prosedur:

Move lvau. var...2,

cacahl

dengan var_1 dan var...2 dapat berupa sebarang va riabel, serta cacah menentukan banyaknya byte ya n g disalin dari var_1 ke t'ar...2. Misalnp dideklarasikan:

VAR

a.kan menghasilkan nilai $27 (27 heksad csi mal).

Fungsl Lo

TYPE Matrlks

dcngan X berupa sebarang ungbpan berripe word. Kegunaan unruk memperoleh byte tcrringgi dar i X . Mis.tl, pemanggilan : HI ($2713l

= ARRAYI1 .. 50l

Mat1, Mat2 : Matr1ks:

OF BYTE :

B~·nruk fungsi · Lo fXl

293

,.

-w=-.

-----

dengan bcrupa seb arang ungkapan bertipe word. Kegunaan untuk memperoleh byte terendah dari X. Misal , pemanggilan:

nilai 7, berarti mode reks yang ak rif adal ah mollocl:rom e. Pulu juga diketahui, setiap data karakter dalam layar seben:1rnya memnlukan 2 byte memori . Byte pertama -umuk m enyimpan kodc /\SCI! d ari karakte r dan byte kedua untuk menyimpan atr ib ut dari karakter (Lihat Subbab XII.2) . Oleh karena itu daerah la yar unruk mod e tcks bcrukur 3n 80 X 25 karaktcr dapat didefini sikan den gan:

LO !$2713)

akan memberikan nilai $13 (13 heksadesimal).

Fungsl swap B cnruk fungs i:

Llr!ILL.ayar : ARRAY!1 .. MAkS_BARIS. 1.. MAkS KOlOMl OF RECORD Karakter: CHAR ; Atr!but : BYTE END;

Swap tXl

dengan X bc rupa seb rang ungkap an bcrtipc word . Kegunaannya yaitu untuk mc n g h :~ silka n nila i berti ~' c word y:mg merupakan pertukaran byte terendah da n byt e tcrting gi ,:;ui X. Scb agai contoh:

dcngan MAKS.J3ARIS 3.:hl:d1 2::; d.1 n MAK S_ KO LOM :-tci.1 i3 h Rrr. PROG R~

swap tS2713l

( • Contoh arogr&JI unt<.~k •ancet•k is I layar •) ba ik yang 11engguna kan adapte r mooochron.., mau;::un CG A • ) (• Khueua untuk •ode tei<.s 80 ~ 25 >- ar-akte r •j

<•

akan mcnghas ilka n nilai $1327 (1.327 hcksad csinlJ! ).

<•

XV.9 MENGUBAH SEGMEN DAN OFSET MENJADI ALAMAT Fur. gsi Prr yang mem ili ki bcntuk Ptr tSegmen. OfsetJ

mempun yai kc g un ::un untuk mcngubah suatu alama t rclatif yang terdiri dari segmen dan ofse t menjadi sebuah alamat bertipe pointer. Sebagai contoh ditunjukkan dalam Program 15-2. Program ini memperlihatkan conroh untuk mencerak isi layar baik untuk monitor yang menggunakan adapter monoCirrome maupun CGA. Untuk keperluan ini, diperlukan suatu po inter yang menunjuk ke lokasi memori layar yang sesuai dengan mode teks yang ak tif, hal ini disebabkan lokasi layar untuk monochrome dan CGA berbeda . Lokasi layar untuk monochrome dimulai pada alarnat BOOO:OOOOh scdangkan untuk CGA dimulai pad a alamat BSOO:OOOOh. Agar pointer (Prr_Layar) menunjuk ke lokasi layar, pcrnyataan yang diperlu kan dalam program berupa : PtLLayar :: PTR !Segmen_Layar. OFSEL AWAU ;

Adapun pencntuan segmen layar dilakukan dengan memeriksa isi yang terdapat padJ variabel bawaan dalam u nit CRT yaitu LastModt. Jib lAstAJode sa·ma den gan Jv!ON O (konstanta bawaan dalam unit CR1] auu

Cet&k l aya r;

<• --------------- -- ------ --- --- --- --- ---- ---· ------ -- •)

l

--- ----- -------- --------- --

USES CRT,

P ~ INTER ;

.,

CONST MAKS_BARIS = 25; MAKS_KOLQI.I = 80; Of SET_AWAL

=

0:

TYPE larl k_layar : ARRAY [ 1 •. MAkS_BARI S , 1 . . HAKS_KOL OH } RECORD

OF

Karakter : CHAR; Atrlbut : BYTE END; VAR I, Bar1a, Kola. INTEGER; Karakter_Acak : CHAR ; Se~n_layar t WORD; Ptr_Layar : ·larlk_Layar; BEGIN CLRSCR; {

~bangkltkan

karakter aca k sebanyak 2000

RAHOOHIZ£;

FOR I

: = 1 TO 2000 DO

BEGIN .

.295

Karakter_Acak

:~

CHR (RNIOOM (128));

IF Karakter_acak >= t32 WRIT£ (Karakter_Acak)

T~EH

END;

akan menyebabkan tampiJnya huruf A (ASCII==65) pada pojok kiri-atas ]a yar. Contoh yang lain ditunjukkan pad a Program 15-3, yang memperlihatkan contoh mengakses memori dcngan mc:n ggunakan

MEMW.

1-lenentuken SE(li.4EH_" LAYAR IF LASTK>OE = ~ONO THEN Se~.>en_layar : = $6 000

PROGRAM Ak . . s_~amor1; USES CRT; VAR

,;~:onochrome

ELSE ~n_layar

Var _word BEGIN CLRSCR;

: : $SSOO; ( CGA }

Ptr_layar :: PTR (Sogmen_layar, OFSET_AWAL); ( Catak i~1 layar k• pr1nter 8ar1a := 1 TO MAK9_BARIS DO

FOR

BEGIN

fOR Kolom : : 1 TG

~AKS_KOl~1

DO

WRITE ( LST , Pt~_layar-(BAria, Kolom].Karakter); WR!TELN (LST) END

END.

word:

WRITELN ('APA KABAR ?'); var_word : = Hfl.frl[SB80 0: 0]; WRITEUI ( LO (v ar _ wo r d}); WRITELN (HI (var_word )); REAOlN £NO.

$8000 :0000 unt"~ mo'>oc hro"'" )

Contoh akaakua1 : APA KABAR ? 65

Pr v.~rom

15 -:!.

7

Program 15 -J.

XV.10 MI:NCAKSES MEMORI DAN POP.T SECARA LANGSUNC Turbo P.ascal menyedia kan fa siliras untuk mcngakses memori sw:• langsung, berupa., array bawaan : MEM!segmen:~etl

MEMW!segmen:Otsetl

Mula-mula program mcn ghJ silkan tu li san 'APA Kt\B.AR ;" rlimul., j dJri pojok kiri-Jtas layar. SelanjumyJ rcrnvata:in : var_word := MEMW!$B800:00CQJ;

MEML!segmen : ~etl

akan menyebabkan 2 byte mulai :1lamat B8(i(i:O(I()()h disa!in kc variJbel

MEM dipakai untuk rncngakscs sebuah byte dari memori ~ mempunyai alamat segmen :ofset. MEMW dipakai untuk mengabo sebuah data bertipe word (2 byte) yang berada dalam memori beralllP J'..va] segmen:ofset. MEML digunakan untuk mengaks~s sebuah ~ benipe longint (4 byte) yang berada dalam memori beralamar ~n

var_tvord. Nilai yang tcrka nd ung daL1m variabd ini rncrupakan data dJri

karaktcr yang tcrlctak pada pojok kiri-Jtas layar (dalarn hal in1 vaitu brakter A) . Karena itu pcrnyataan: WRITELN ILO cvar_wordn;

segmen:ofset. Sebagai contoh : Karalcter := CHR IMEM!$B800:0ll;

,

rncmpakan pernyataan untuk memperoleh karakter yang beradl ~ po;ok kiri-atas pada layar (CGi\) . Sed,mg kan : MEM!$BBOO:OOOOJ := 65:

.

menghasilkan byte pc:rt:11na dari Far_ll'ord )iJng menyatakanlvdc ASCII dari huruf A, scdaugbn WRITELN CHI lvar _worOJl:

tncngh.~silkan

ni!:11 byte ttrtingg1 d.Jri l'or _l/•ord, van!:' m cnv.H.1k.1n ndJi

~ibut dari huruf 1\.

2 ~I )

_1

~

Selain untuk keperluan pengaksesan memori, Turbo Pascal juga menyediakan fasilitas untuk meng akses po rt (saluran untuk berkomunikasi dengan dunia luar, seperti speaker atau ke yboarcf) secara langsung, berupa array ·bawaan:

Sebagai contoh , diinginkan aga r variabel Alemori_La yar yang rnencakup seluruh d~ ta p ada layar merupakan variabel yang beradJ p:~da rne m ori B800:0000h. Bentu k pendeklarasian: TYPE LarllcLayar

PORT!nomor __portl PORTW!nomor_portl

MemorL Layar : Lari!LLayar ABSOLUTE $8800:0000;

Dengan ad an ya pendek larasian scpcrr i d i ar .. s. scandainya di bcr ika n pern yataan :

CON3 T

MemorUayar

port pe ng endal t e p e ~ ksr d;on t; e ber ep& porala t an l a inn y•}

VAR Nilai BYTE; BEGIN CLRSCR ; WRITELN ('Te kan sebar an 9 t ~T.bol ' ) ; WRITE ( ' untuk me n 9 ~k h i r i pro s ram. · ): Ni1ai :: PORT {NHR~PORT] ; REPEAT PORT {HHR_PORT] := Hi la\ + 3 ; DELAY (100); PORT [HHR_PORT] : = H\lai ; DELAY (1DO) ; UNTIL KEYPRESSED

OF

VAR

PROGRAM AkaesPo~t; USES CRT ;

= 97 ;

= ARRAYI1 .. MAKS_BARIS, 1.. MAKS_KOLOMl RECO RD Kara lcter: CHAR; Atrlbut : BYTE END ;

K o m ponen array d:t ri PO RT berupa ti pc by te , sedangkan ko m ponen array dari PO R TW bcnipc wo;d . Contoh mcng,· nai pcngakscsa n port d itunjukkan p ada Program 15--i. yang dipakai un tu k mcngend al ik an speake r aga r me n imbulkan su;;rJ hidu p-mati bcr:J,:< nti an.

N~ R_PORT

~ -~:,.'11

I l'

r1 . 30J. Karalcter

:= 'C' ;

pad a poj ok kan an-a tas (bar is J. kolom 80) abn mun cul hur uf ·c ·. Deng an m enggunabn kl ausa ab.>o lu r ~ . va ria bcl d ap ar J iatu r :lg.:r berada dalam vari abel lain. Dcnga n kara bi n, d ua nriabcl dapar , mencm pati m emori yang sa m a. Scbagai conroh da r at di lihat pada Prog ram 15-5. PROGRAM V~riaD& l _ADsolut

:

<• - -- - ' •l <• Contoh penggunaan k i aus a ABSOLUT E •) <• -------- ----------------- -- ------ * )

~

aktifk a n s peA ker

VAR St

tunda aesaat auara barhe nt t t unda seaaat

STRIIIG; Panjang_St : BYTE ABSOLUTE St ; BEGIN St :: 'TURBO'; WRITELH (Panjang_St) ; St ::: 'PASCAL' ; WRITELN (Pan jang_St ); READLH END.

END .

Program 15- 4.

XV.11 KLAUSA ABSOLUTE Cootoh eksekus I :

Klausa absol11tt: disediakan dengan tujuan untuk mem ungkinkan pendck· 1 larasian variabel absolut , yaitu variabcl yang tinggal pad a memori Y~ g dikchendaki oleh pemrogra m . Benruk pendeklarasia n: var...absotut: tlpe_vartabel ABSOLUTE segmen:otset:

298

s

• ''

~tram 15- 5.

2')9

-----

-~

.- 1-..

------....._~

-rxr ._. . . _ . ..

Pond,klu£ Panjang_St : BYTE ABSOLUTE St;

XVI FASIUTAS LANJUTAN

rnenycbabkan variabel PanjaugSt menempati byte !JCrtarna dari variabel St. Karena itu, variabel Paujang--.St menyimpan nilai yang menyatakan panjang dar! string yang terdapat pada variabel St. Catatan: ;.; Ia us:~ absolute bisa juga dipakai pada konstanta bertipe

Bab ini mcm bicar,lkan subprogram lanjutan yang terdapa t pada unit

System. Disamping itu juga mcmbahas fasilitas lanjutan bcrupa in.-!ude tilt·, d c klarasi fo rward, pengarah interrupt, masalah rckursi dan t ipt.:

.PH"'Scdur.

X'./1.1 SUB PROGRAM LANJUTAN Subprogram bawaan lainny:t (dalarn unit System) yan g aka n dib :thas bcri kut ini achlah Exir. Hair , ParamCotmt dan Param Srr.

Exit

! I

!f

hoscdur Exi; yang tak mcmiliki parameter ini bcrguna unt uk kcl uar d:lfi blo k pro ses. Jika Exit dicksckusi dalam suatu subprogram , 1~1.1b cksckus i tcrha.-i ap subproferJm sq;era dihenti b n (cfcknya adalJh k··lt!Jr d.tri Stlbprogra!:J ) . i\;.JJbila f:n r dijalankan dalam program utama. abn mcnvcbabkan c!: sckusi prog ram dihcnrikan.

P~oscdur ini sa ngat bcrmanfaa t untul< rnernudahkan pcmbu :u.m program ya ng tersr ruktur, scbab bisa mengeliminir kehadiran pcrnpt.l :m Coto . G;1mbaran penggunaan prosedur ini ditunjukkan pada P~ogra m

16-1.

PROGRAM Contoh_EXIT; USES CRT; PROCEDURE TuliaAc&k; BEGIN RANDOMIZE ; REPEAT WRITE (CHR (RAN00«(258)JJ; IF KEYPRESSEO THEN EXIT UNTIL FALSE

300

fNO;

I

akhir proaedur Tuli&Acak

8EOIN

1

program utam& I

3U l

/

<• Contoh zengetahui jumlah par~eter •> <• dal . . baria perintah (comm;ond line) •> <• ----------------------------------- •>

Tull aAcak; END. Program 16-1.

BEGIN

Kalau dilihar secara sepintas, kondisi pada UNTIL tidak memungkinkan selesainya eksekusi terhadap pcrnyataan yang ada dalam REPEATUNTIL. Sebab kondisi dalam UNTIL selalu bernilai salah (FA LSE).

IF PARAHCC'UNT < 1 THEil WRITELN ('Tak ada para~•ter d;olam b;orla perintah. ') ELSE WRITELN ('Ju,.lah panunetar d;ola~~~ barie perfntah :

Namun ada nya pcrnya taan:

PARAHCOUIIT)

EHO.

IF KEYPRESSED THEN EXIT;

&k!Wkuei:

Ha1111

akan menyebabkan cksckusi terhadap prosedur TulisAwk dihentikan. bl au ada tombol pada papan-kct ik yang ditckan . Eksekusi selanjurnva akan dilanjurbn ke pcrnya taan yang tcrlctak scsudah pern\'~ta~

A>BP1 <_j Tak ada parameter dalam baria p~'intah A>BPt

Jumlah

proscdur Tu!is A cak .

par~eter

dalam barls perfntah : 3

!'rPxram 16 -1.

Halt Prosedur Halt d1gunakan untuk menghentikan eksckusi po5ram

Paramstr

Bentuk proscdur:

Fung >i Par,1,111Str memiliki bnltuk:

Ha:t !¥.ode<:e!uan

Paramstr

a tau Halt

KodeKeluar (bertty: word ) men yatakan kode keluar (exit cvde) program Nilai ini nanr1n:n ?isa diperik sa oleh program induk (akan dibahas padJ unit DOS) au u Juh,u da lam DOS bisa dipcriksa dengan menggunilin ERROR LEVEL Biasanya, eksekusi yang dihentikan karena terdap•t sesuatu kesahh:.c ;.}:.an menggunakan kode keluar tidak sama dengan noi (diatur sendi...-i c~ ?Cmrogram) . Per!u dik.etahui, prosedur Halt yan~ tidak memiEb ~~er.cr sebenarnya identik dengan Halt(O).

ANDO/iG KERET~ v OKAR <_J

'i.

!!n de~s l

dcngan ind<'ks bcrkisar antara 0 sarnpai dcngan ParamCvzlllt. Kcguna an yaitu untuk mcmperolch param eter dahin baris perimah . Parameter bari s perint ah ditcmpatkan pad a indeks kc-1 ~ampai dcngan ParamCmmt, sedangkan inJcks ke-0 bcrisi nama file program. Contoh dirunjukkan pada Prog ram 16-3. PROGRAM BariaPerintahi: ·

<• -------- ----------~----------------------- · ----- ., <• Fil e executable : BP2.EXE •) (t

Contoh aengetahui parameter dalam baria perintah • J

--

(• 'JAR I : BYTE;

Paramcount

Fungsi Parmr.C.-,..P;: :=~ memiliki para~eter. Kegunaan untuk mem!Xf" oleh banyalL"'l n ?"~~e--....cr yang dilewatkan dalam program melal ui baru perintah (con---:.=""'..i ·:ne1 Contoh dapat dilihat pada Program Ill-2.

.,

BEGIN

WRlTEUI ( ' Fne pr·ogram : ', PARAI-4STR (0)); FOR I ; : 1 TO PARAI-4COUIIT DO WRITELH ( 'Panunet•r kl!-', ! , ' ; . , PARAI~STR II) l EUD.

PROGRAM ~- . , _ • r.~ · ,

<• -----

------------------- ------ •> •> ~.EXE

(& F11e .,~ ' e .

I:Qntoh e kaekuai:

303

·-· r

I

-

"

~ETA

A>BPZ AHOOOG DCKAR <-J File pro9raa~ :\ BP2.EX£ Par..-ter ke-1 AIIDO!Kl Par~ter ke-2 : KERETA Par ... ter ke-3 OOKAR

-

-

-7

Garia; ------- - ---------c•PROGRAM ----------------------------------------Contoh program yang .,..nggunak&n cara IIICLUOE FILL (t Progra. inl dlal•oan pad"' file PROG_~,.PAS, (t . .dangkan fungsl Ulang_kar yang dl~kan dalaa prograa lni C• dit. .patkan pada file SUBRUTIN.INC (t

Program 16-J.

7

e)

., •> •> .,

c• ---------------------------------------- · ------------------ •>

Dalam baris pcrintah, tombol yang dian~g:1p sebagai pcmisah parameter ad alah spasi (#3~) dan rab ("lic9).

(Uh.ng_k;.r ( 17 0 ~,

WRITE

kom piler l berbcnt uk:

{SI Nam aFik } I

!

~-- minim;;\ bc-r cTa ' cl)U :Jh ~p:tsi

Sebpi CC::1 toh, tiL :;L: i\ !' c·r i N 1'~I.. . bn:~i fu ngs i bernama Ulang_Kar. Fun gsi in i dipcrgu nak,111 d,il~r:n p·op.1m yang disimpan pada fiie PRQG_GR SS. bn:r-.1 1tu ,L,t:; rn fdc PROC_GRSS terdapat pengmh benq'~ ·

{$1 SUBRUTININC }

St : STRING ; BEGIN FILLCHAR !St. Jumlah-+ 1, Karl ; StlOI := CHR Uum!ahl; Ulang_Kar : = St; END, Frmgsi 16 - 1.

•l

80) );

Progr.Hn 16 - 4.

Untuk m cngkomp ilJsi p!·o~~ .u: ,, fiit· dik o mpilasi.

p~,

)( : _(;H\S-hh vang harm

Catatan : Nama file d .1lam p c::g:~rJi"; kv r:J;- .. : : holch ml'ng andun g narnJ dirckto ri. Jik J cxrcnsi•.ln cL~1 ii k :- _t U Jl.l . PA S. nama extension boleh ti da k ditubbr. XV1.3 REKURSI

'· Suatu subprogram Sct.lCIJ clnl\"a bi,J I li t;:, ::l!(f~ il d i:mya scndiri . C ar.! seperti ini dikenal denga n nam a rckur,;i Reku rsi banyak di tcra pbn rcrhJd ap fC ~!:J.t , .t L:h:tn ~·,1ng Japat dipccahkan sec.ua indukrif Sc ba gJi LOn:oh .;c.rLth p:~d :t persoa lan untuk mcnghitung nilai fakt o ri ~l . y:~ng mcrn1hk , rumusan :

n!

VAR

~unRUTJN . ItiC

REAOLN EtiO.

hi F 11e SUB RUTIN. WC :

FUNCTlON Ulang _Kar !Kar: CHAR ; Jumlah : BYTEl : STRING;

,.e ny ertakan til•

BEG HI

Inchui<" Jil,· mcrupab!! su3t!i r;, rc; un tuk menye nakan bagian program yang dituli ~ dah m file lain . Dc ngan mcr.ggu nakan eara ini, suaru prog ram dapat dirulis daiarn bcbcrapa ti le, sehingga program tampak keli ha tan tidak bcsar. Supaya sel uruh bagia n vang ter kt ~t k d;:d am fiie yang terpisah dapat dik o mplibsi , pada file ya ng mcn1abinya perl u dituliskan pengarah

<•

{$I SUBRUTlH. INC)

XVI.2 INClUDE FILE

kom piler

-

·p

=[

1 jika n = 0 n X

.. .

X

4

X

.)

X

]

X

]

jika n > 0

Pemecahan seca ra reku rsif:

0! = 1 n>O, n!

=

n X (n - I) !

{ penghenri rt'kursi { bngkah wdu)..,, }

Bcrdasarkan langkah d : a ta s, fun g~ 1 untuk ;::cmpcrokh faktc> nai sccarJ rekursif adalah se bagai bc rikut : FUIICTlON faktorlal (n: BYfE ) . LOUOIF IT IIEOlll

lsi file PR QG_GRSS:

304

lF n:O THEil

305

·y

Faktor~l:=1

XV1.4 DEKLARASI SUBPROGRAM SECARA FORWARD

ELSE

Sebenamya dua buah subprogram dapat diatur agar bisa saling m cmangg il , asalkan salah satu da ri subprogram did ek!Jrasikan deng:m forwa rd. G ambaran pendcklarasian denganfom•ard adal ~ h sc baga i bcrikut:

Faktorial = n • Faktcrial (n-1) akhir fungal faktorial )

END ; FwngJi 16- Z

PROCEDURE BacaKarakter (VAR Kar: CHAR; Menu: BOOLEAN ); FORWARD: { ce!c:larasl forward untul< BacaKaral
Program 16-5 merupakan conroh prog r:tm untuk rncm bua t rahc! faktorial yang mcnggunakan cara rckursi. PROGRA~ I

T;obel f akt or i a 1 ;

r• ------ ---- -- - -------- -------- - -- • J (• Contoh penggunaan fungsi rekursi <) (•

_u ntu~

.

me1np•roleh nllai faktorial •l

(•

)

USES CRT; YI\R I: BYH;

fUtlCTION Faktor 1a l (n : BYTE): LOilG111T;

BEGI N H

n~o

THEil

Fa x tor1al: =1

ELSE F~ ktorla l :=

END ;

n • F4ktoria l

(n- 11

{ akhlr fungsi fak tor t al

BEGIN ( progra~ utama CLRSCR; FOR I := 1 TO 10 DO WRITELN (1:2 ,'! :' , fioktorl al (1) : 10);

REAOLN END.

Il j

l

j

PROCEDURE ProsesMenu : WRITELN ('SUbprogram 3, Pilihan : ·. Karl : END; EN D; END : { al: END; { al
T .1 mp.1k pad a co ntor. pada kond1~1 rc rtcntu pro~cdur Jlro.<<'s.\lt !!ll mcm:mg g il prosed ur BacaKaraktcr, dan Ji lain pih ak proscciu r f3araKar.:l.:rer ada kcmungkinan juga lllcmanggi l proscdur f'roil's.ll,f ,·llt l. Yang pcrlu dikctahui, scsudah su.Hu subprogram didckbra~ibn Jcngan )inward. parameter subprogram. bo leh tid:.~k di ruli sbn dabm pcndcklarasian akrualnya .

Contoh eksekusl:

,, =

1

21 = 31 =

e

.,

=

~I

=

24 120

&I

= =

5o•o

7! 81 91 101

Setiap proscdur yang diddi ni sikan pcn gg una dcng .tn tllJU.!JJ u nt uk kepcrl uan interupsi, haruslah dide kbrasib n dcng.1n mcrn·cn .J bn pcn ga rah illtl'rrtipt. Bentuk dekla rasi yang lcngbt' :

720

.03:'"

:

= =

XVtS PROSEDUR INTERUPSI

2

311 2 650

PROCEDURE Sublnterupsl !Flags, CS, IP, AX, BX. CX, OX. 51 Dl. OS ES, BP: WORDJ · INTERRUPT; BEGIN

3aze s oo

16 - 5.

END :

-

Writs.

_ ...... ~~---·- ~

_,tti7">

Daftar parameter dalam prosedur interupsi mempakan nama- nama register, yang umtannya tidak bol eh dipenubrkan . Jika dalam prosedur intempsi terdapat~areter yang tidak diperlukan, bolch tidak disertakan asalkan ameter di sebelah kanannya tidak ada yang digunakan sama s ali. Dengan demikian, prosedur interupsi yang tak memerlukan parameter memiliki bc:nt uk :

PROGRAN TlpeProsedurt;

<• -----------------------------------------

)

USES CRT; TYPE

FungBoolear.: FUNCTJOU (X:

PROCEDURE Sublnterupsl; INTERRUPT; BEGIN

.

•> c• --------------------------------------------- •> (t Canton prograa yang 3enggunakan tipe proa.aur

Prosint VAR

:

IIITEGER) : BOOLEAJI;

PROCEDURE (VAR X,

Var_Fungs i

FungBoolean;

Var_Proa

Proslnt ;

Y : ItHEGER) ;

H11a i 1,

END ;

Ni1ai2

Contoh pcmakai:lll proscdu r mt<:rup>J akan dibalns pda B.1b XVII.

INTEGER;

{Sf+) FUNCTI Otl Gen ap

XVI.6 TIPE PROSEDUR

Turbo Paso) m cmun g kinkan ~u .Jtu proscdur :l tau fun gs i d1pcrlakukan sebaggi objek ya ng dapa t dibcri kan kc ,•ariab cl atau dilcwatkan seba g11 param eter. Bcrk aitan dengan h.1l in i tad;~pa t su aru tipc ung d inamJ bn sebagai tipe pro scd ur. Bcbcrapa C;..: nroh pl·ndckl arasian ti~·c proscd:1~.

(flilai:

lfiTEGER):

BOOL EAJI ;

( ••nghaeilkan TRUE jik~ JIILAI berupa b i la n g ar Dulat BE Gill Genap:: HOT 000 (IH la i) EHO;

~

{ akh ir fungal Genap )

PROCEDURE Tukar (VAR A , B: IfiTEGER);

TYP: Fungsoolean Prosint FungsiBacaint

{ ~snukarkan iel par~m&ter A d~n B

FU NCTION IX: INTEGERI: BOOLEAN; PROCEDURE iVAR X. Y: INTEGER J: FUNCTION : INTEGE R

VAR

Z : INTEGER;

variabe l

aementara }

BEGIN

Z: : A;

Ada suatu pembatasan, yaitu suatu fungsi tidak bolch m cng hasiikan keluaran berupa tipe prosedur.

Varlabel Prosedur Yang dimaksudkan sebagai variabel prosedur ad.1 lah va riabel yang bertipe prosedur. Sebagai contoh (berdasarkan pendekbrasian tipe di atas):

VAR Var _Pros : Proslnt: Var_Fungsl : F:.mgsoolean:

END ;

A:: B;

8:: Z

{ akhir proaedur Tukar

{$F-) BEGI~

: o r ·-, 9ram Ut&lla )

CLRSCR; Var_Fungs t

: = Genap;

Var_Proa

.~

Tukar;

WRITELN (Var_Fungsi Ntla11 := 10;

(100));

{

identtk dengan WRITEUI

{

identik dengan Tukar

(100) )

Nilai2 : = 82 ; Var_Proe (Nilatl, llilai2 );

WRITELN ('N i 1ai1: ' , Nila11, REAOLN

Dalam hal ini, Var_Pr,Js dan Var_F:111gsi dinamakan sebagai variabd prosedur. Gamba ran lcbih lanjut d ~ pa t dilih at pada Program 16-6.

(Ger>Ap

' Nilai2 :

(tlilai1, N1ldi2)

' , tHl ai 2);

~NO.

Pregram 16-6.

lf\ ')

)

rzn·

~:.:;.._ ~-

Pada Program 16-6, dideklarasi~kn ua subprogram (berupa prosedur Tukar dan fungsi Genap) yang d' ompilasi dalam keadaan {$F + }. Subprogram ini dapat diberikan k va riabel prosedur. Pemberian nil ai prosedur ke dalam va riabel pro · dur berupa pemyataan:

Pad a penugasan varia bel proscd ur, yang tcrlctak di scbc lah kan an oper ator pcnugasa n (: =) hJn yJ bcrupa pcngcn:ll subprog ram saja (pararnL' tcr tidak di scrukan) . Snudah pcnug asan var_Fungsl := Genap;,

pcma ngg ilan tcrluJap pro~cdur C ,·11.1p d:tpat Jibk ubn m c!.1 lui variabc! proscdur VarJr111g.' i. Sebag::~i con toh: ·

l

'l l

1

j

I I

lI

l i

I

WRITELN !Var _Fu ngsi (100));

idcmik dcngan

Pada pen ugasan ter h::~d::~p variabc! proscdur, tipc di kiri dJn di scbelah bn an operator pcnu gasan harmlah mempunyai tipe vang bcrsifJt kompatibel. Misal , pada

II

var _Pros := Tulcar: varia~c!

VarYros rnempunyai tipe

PROCEDURE IVAR X, Y: INTEGER!

yang scrupa dengan bentuk deklarasi prosedur Tukar PROCEDURE Tulcar !VAR A, 8: INTEGERl

baik dalam hal jumlah parameter maupun tipenya . • Dalam penugasan va ri a bel p rosedur , subprogram yang diberikan kc variabcl parameter h arus dikompilasi dalam keadaan {$F+ }, tidJk bolch bcrupa sub program standar (s ubprogram bawaan dalam w1it System), tidak bo leh b erupa subprogram berkalan g (subprogram yang 310

,...

r-

•

gn

7

· ·-=;

*Q

Cara termudah untuk membuat keadaan {$F+} adalah dengan cara menuliskannya di awal prog ram sumber.

Parameter Bertlpe Prosedur Scpcrti tclah dij clasJ.. an Ji de pa n, tipc proscdur juga bisa digun akan s.:bagai tipe ,l:tn p.1ramercr ~uatu subprog ram. Scba gai contoh chp at dilihar p;1Ja Program 16-7. ProgrJm 16- 7 digunakan untuk mcn gh::Js ilkan model tabel scpe rti paJa Program 5-6. Perbcdaannya, proseJur Cet.lk!Tabtl pada Program 16-7 dapa t dipabi urltuk memperok h rahcl pcrkal i:1n atau pcnjum!Jh .m, ya ng diat ur mclalui p.1ramercr Opcrasi . Jika yang dilcwatkan cbia m parameter Opcrasi adalah Kali, maka tahcl pcrkali J nbh yang dicc tak. Sedangkan jika param eter Opaas i dii si dengan j~onlah, tabel penjum lahan ya ng di bentuk. PROGR~

TlpeProsedur2;

<•

WRITELN !Genap (100ll;

Bcbcrapa ketcntuan ya n g bcr k.1itJn dcngan tipc proscd ur:

"

didcklarasikan di dalam subprogram), tidak boleh berupa subprogram inli11e (subp rogram yang mclibatkan bahasa rakitan atau assembly) dan j uga tidak boleh berupa subprogram intem1pt.

_l var_Fungsl := Genap; var _Pros : = Tukar;

...

I J e

t•

. )

..,

{• Con toh program yang 01anggunakan tipa prosedur • J ) (~ sebAg~i p~ramete( liubprogr.am (* ------- - - - --------

USES CRT ; TYPE Funga iMat =FUNCTION (X, Y: INTEGER): INTEGER; {$f+} fUNCTION Jumlah (A, 8 : ItlTEGER).: ItlTEGER; BEGIN Juoolah := A+B END; { akhir fungsi .Jumlah fUNCTIOII Kall (A, B: IIITEGER) : INTEGER; BE Gill l
=

{$F-}

PROCEDURE CetakTabel (Batas : IIITEGER ; Opera!!i : Fung!!iHat): Pada proaadur lnl OPERAS! adalah parameter bertipe pro!!edur

31 1

d(§

YAR JCo 10111, Brs, Haa11 : IIITEGER; BEGIN WRITE (1132 : 4); FOR -Kola. ;: 1 TO Batas DO WRITE (Kolo.:4); { buat

I

PROGRAN Tip•Pros•dur3;

<• --------------------------------------------- •)

(• Contoh ga.baran par~daan aifat tipa prosadur t)

(• dala. auatu ungkapan

<• -------------------- -------------------- ----- •)

~r

TYPE

kola.)

Fun gaiBacain t = FUNCTIOtl : IIITEGEII; VAR

WRITELN; { pindah baria FOR Bra ; : 1 TO Batas DO

N' 1& ~

BEGIN

WRITE (Bra : 4) ; bu~t nooor FOR Kol~ : = 1 TO Bra DO

b~ria

{SF+ I FUNCTION Baciiint: IIITEGER ; VAR

Haail := Fungal (KolOf!l, Bra): WRITE (Hasi 1 :4) HID; WRHELN

Datalnt : INTEGER; BEG HI

END; I

pind~h

baris

END;

BEGIN ( program utama } CLRSCR; WRITELN (' Tabal perkalian: CetakTabel (6, Kali); - WRITEUI; WRITELN (' label penjumlahan: CetakTabal (8, JuMlah ); REAOLN END .

'

WRITE ('~asukkan aebuah bilangan bu1at: '); REAO LN (Dat&Int); Bacaint : : ~a taint HID; ( akhir fungal Bacaint ($F-)

Jt 10):

eEGIN

{ pr·ogr;a!IO UtilJfta l

fungaiBac~

:= Ba c~In t ;

llilai := Bac01lnt;

npe Prosedur dalam Ungkapan Dalam suatu ungkapan, tipe prosedur kadang-kadang memberikan kerancuan. Biasanya, kcgunaan variabel prosed ur dabm ungkapan mu pernyataan adalah untuk mcmanggil subprogram yang tcrsimpan di dalamnya. Namun kadang-kadang memberikan makna ya ng lain. Dal.nn pernyataan pcnugasan misa ln n, jib variabel prosedur bcrada di scbclah kiri operator pcnugasan, nuka Turbo Pascal .1kan men ganggap yang di sebelah kanan operator adalah berupa nilai proscdur U;~d i bukar. memanggil subprogram). Contoh mengenai hal ini ditunjukkan pada Program 16-8.

Penugasan nilai prosedur ka var iabel prosedur ; -1 Penugasan ni l ai keluaran fun gsi

ke variabel bert1pe integer )

J10) ;

Program U-7.

312

IIITEGER;

Fungsi8a c &: FungsiBacalnt;

)

BEGIN

WRITELH

•J

Et/0.

Program 16 - 8.

•

Pada Program 16-8, pcrnyataan pcrtama dalam program utama menyatakan pcnugasan nilai prosedur kc variabel prosedur. Scsudah penugasan, varia bcl FungsiBaca akan bcrisi alam;~t dari fungsi Baca lrzt . jadi pada pcrnyataan ini, tidak ada opcrasi pemanggilan tcrhadap fungsi Bacalnt. Namun pada pernyataan kcdua, karena variabel yang terlct:1k di kiri operator penugasan tidak bcrupa variabel prosedur. pcrnyataan ini bcrarti penugasan nilai kcluaran (hasil) dari fungsi Bnwlnt ke variabcl integer Nilai . Kalau bcr maksud mengakses mcmori yang bcrkaitan clcngan proscd ur var_prosechn, atur:mnya atblah s cb;~gai bcrikut:

\' an;~bcJ

• (!"z··\·ar_prosedur: menyatakan alamat yang distmpan Lblam \".H tabcl prosedur t1 ar-Prosedur. • 0 (alvar_rroseJur: menyatakan alamat dari variabcl Par_prosdrtr. 31J

varia~

Misalnya ingin membuat suatu kondisi untuk memeriksa isi prosedur FungsiBaca berisi alamat fungsi Baca lnt atau tidak, pemyaJa:: yang diperlukan berupa: /

XVII FASILITAS DAlAM UNIT DOS

IF @'FungsiBaca = @Bacalnt THEN WRITELN I'Sama'l

ELSE WRITELN !'Tldak sama'l;

Pcnulisan IF FungsiBaca = sacalnt THEN WRITELN I'Sama'l

LSE WRITELN !'Tidak sama'l:

mempunyai arti yang lai n . Dalam hal ini. bcrarti mcman ggil subprogram yang disimpan dalam variabel prosedur dan juga mcmanggil subprogram Bacalm , b aru!ah h as il keduanya dibandingkan

Unit DOS bcrisi scjumlah fJsilitas vang s:~ng:H bcrmanfaat untuk keperlua n ~' cnJnganJn file dan sisrL·n1 o pera~1 DO S (MS-DOS ), antara Jain umuk · mebkukan mtcrups1 mcngakscs LHlf:g:tl dan Jam Sls rcrn opcras1 mcmpcro lch vcrsi DOS m..:mt1cro leh ukuran byte rcr s1'>a dal:Jm ,lisk menjalankdn suacu program da ri progr;11n bin mcmbu 3t pr og ram yang rin gga l m cncrap da!am mt:mon Unruk bi~a mcmanfa arkarJ fa~il 1 LlS \ .lllg d!scdi J kan sco ra optimal, kiranya perlu bagi pcmb aca t:nruk mc;;cia!am i huku-buku yang mem ba h as mcngenai DOS.

XVII.1 VARIABEL DOSIERROR '· Unit DOS mcngandung scbu .1h nnJbcl . ya ng mcncatat kcbcrhasilan atau kcgag.;,Lm suatu opcras1 dari bcrhagai mtin yang discdiabn dalam unit DOS. Nama variabel terscbu t yaiw DosErrvr. Variahd ini berisi 0 (no!), jika opcrasi berhasil. Nilai yang lain menyatakan terjadinya kesalahan. Bebcrapa kemungkinan nilai kcsalahan adalah sebagai berikut:

2=File nor

J~rmd

Menyatakan file yang dilibatkan d:dam suatu o perasi tidak ada (tidak ditemukan).

3=Path not found Menyatakan path (linrasan ) tidak ditcmukan atau tak berlaku. 5=File access denied Mcnyatakan pcngJksesan rnhadJp tile gJgal (Lihat Subbab XIII.6). 6= hzl'alid _1111, lrm1tl/e Mcnyata kan kcsa!Jhan pcnanganan file. 8= NtJt ei!Oflgh IIII'IIIOry Bnarti m cmori tak cukup .

.\1-1

315

10=lnvalid environment Menyatakan lingkungan tak berlaku. 11 == b walid Jonnat Menyatakar. format tak berlaku.

Tipe DateTime yang DateTime

=

XV11.2 MENGAKScS WAKTU

!" ila i yang bc rlaku unruk masing-masing j ifid:

Dcng~n mem:§:c::Jakan fasiliras dalam DOS, pengakscsan rcrhadap

}·e,;r'

rangg al arau jan pa da sisrcm opcrasi maupun pada file (data tcnrang wakru tcrakhir iii~ diperbaharui atau diciptakan) dapat dilakubn dengan

.\Jcl ! l{!,

Day

1~1Lid :th . }-{

Proscdur yar.~ bcrkcnaan dc nga n pcngakscsan waktu: G e1 Dar.: ( va r Talllm ,Bulan, T::r z~,l.' KodeHari: Word) Prosedur GetDate be rguna un ruk mcmpcrolch rar.ggal pada sisrcm opcrasi. Kawasan nilai untuk masingm J~ in g vanabe i adalah sebagai bcrikut: Talwn 1980 .. 2099, Bulan 1. .1 2, T an_e.i?a! 1.. 31 da r: KodcHari 0 .. 6 (O= minggu, 1 =senin, 2 = sclasa , .. .).

s ~,·

PackTJme !var RecordWT: DateTime; var WT: Longlnt> Prosedur PackT' "' ~ digunakan un tuk memampatkan data waktu yang ada pada param e ter RecordWT (bertipc DateTime), menjadi data wakru dalam ukuran Longlnt. Hasil ditempatkan pada parameter WT.

1981). 21/)') ! mcnyauk.~ rl talJLrn i l.. 1.2 { menn ra ka n bub n } 1.. 31 { lllcn yatabn tan g g,Ji 0 .. 23 I m c nya t :~k a n jam } n.. 59 { rncn~·Jrakan mcnn 0 . . 59 I Inenyarabn dc rik }

unpackTime fWT: LongJnt; var RecordWT: DateTJme> Proscdur ini dipakat unwk mcc g uraikJn data w.1kr u :-·Jng adJ pad& parame ter WT mcnjaJi d ata \vaktu benipc Dart[i,,JI'. 1-!a s il dircmp.1 tbn pad a parameter Rerord li'T.

I

I---

II

i ' Year pon--th

PacKTJ~e

-~

_

'

I~~ I Ml~_frJ _J

Tlpe DateTJrne

~

I

rl ] L

I

I

Tipe Longlnt J

Unpaci<Time

SetTime !Jam,Menlt,Detlk,Seperseratusotk: Word> Prosedur Set Time bermanfaat untuk mengatur jam pada sistem operasi. Kawasar; nil ai U!ltuk penycrelan jam dapat dilihat pada prosedur GetTime. Jib tercapa t nilai yang tak berlaku pada saat pcngaturan, jam pada sistem operasi tidak berubah .

'''"

.\lin

setoate !Tahun.Bulan,Tanggal: word>

Prosed ur ini digunakan untuk memperoleh jam pada sisrem operasi. Kawasan nilai has il adalah Jam 0 .. 23, Menit 0 .. 59, Detik 0.. 59, SeperseratusDtk 0 .. 99.

record Year,Month,Day,Hour,Min,Sec:lnteger; end;

Menyatakan rak ada lagi file yang cocok.

GetTime

dalam unit DOS mcmpunyai benruk :

type

18==No more Ji les

Pro~cdur S.-rD.:: :< digum.ka n untuk men ga tur tan ggal pada sistcm opcrasi . Pada p ·.::Ja nggilan proscdur ini, j ika tcrdapat nilai yang ra k berl aku (di lu :H ~:~\l"!ltua n bwasa n ~·a n g bcrlaku), ranggal pada sistcm operas i tidak bc r..' bah .

disedi::~kan

Gambar 17-1 . Konvusi tipt Da;tTimt -

a

Longlnt data tanggal dan jam

GetFTime Dipakai umuk mcmpcroleh tanggal dan jam dari sua tu file, yang men ya takan saar rcrakhir diciptakannya file . V;~ri abcl file f dapat berupa sebarang ripe file . Syar;~r periggunaan pr0scdur ini, fil e vang bersangku tan harus sudah J ibub. Snclah pcman gg d,J11 proscdur. Jata ranggal dan jarn dit ernpat kan pa d.1 parameter WT. Data tcnr.mg unggal dan pm selanju rnya dapar diu raikan dengan mcnn n ggi l proseJur UnpackTimc. Kesalahan yan g rnungkin rerjJdi saa r pcmanggilan proscdur ini akan dilaporkan da lam variabcl DosFrrM, berupa nilat b (/11r •alid _til.: handle) .

316 317

setFtJme M'tr f; WT: L.onglnt> Prosedur j 111 .li ~ un.tk :m untuk mengubah data tanggal dan jam pada file sesuai dcn~.1 11 nibi p.Hh parameter Waktu. Seperti halnya pada prosedur GttFtimr, nri .tbcl tile ( dapat berupa sebarang tipe file, dan peman ggilan mesti dilotkuk:lll tcr hadap file yang sudah dibuka. Kesalah an yang mungkin tt'r jadi ju!(il sama dengan pada G etFTime.

WRITE ( 'Tahun (!980 .. 2099): SETDATE (Tahun, Bulan, Tgl) ;

END ;

. .

TampflkanTan ggal; REAOUI

)

<•

tanu •J"I

fl'"'"

el•t•" operas i

Tanggal kini : Sela sa - 30/ 5/1989 TANGGAL BARU :

*)

Tanggal (1 . . 3 1 ) : 31 Bulan ( 1.. 12) : 5 Tahun (1 980 . . 2099) : 1989 Tanggal k i ni : Rabu- 31/5 /1989

)

(• USES D(l:t ; PROCEO Uil~ lo,.pllkonTanggal;

VAR ntr . ll u la n, Ts 1 . K cd sH ~ri)

Program 17-1 .

;

{ p oro leh

CASE ~'"Jo lt•r I Of 0 : H • t ' 1 : !I

· •4 1nggu ";

1 : lia r' I : .

· n.ntn' ;

.

2: liar· I

:.

'1\elau • ;

· nat>u' ; 3 : Har I : . : Harl : ~ 'K.,.Ia'; '.l uout' ; 5 : Hart : • 'lla btu'; : . ll•r'l 8: ENO; I e~ h lr CA~f WRITELII ( ' T•nvll• 1 klnl : ' Harl, ' raJ. ·;· . Bulan, ' /', Tahun)

1

ASSIGN Cf, PARAMSTRC1Jl; RESET CfJ;

Sesudah pclaksanaan GetFTimt• file ditutup dt:lfg .m C LOSE. PROGRAN LfhatTanggalfile;

c• -------------------~------- --------- - --- --- -- - - ------------- .,

C• ffle progra.: TGLFILE.EXE

<•

Untuk melfhat data waktu tvrakhlr pada aa•t fila atau dfcfptakan

(* Bentuk P8rlntah: TGLFILf nama - file

PROCEDUill! f}b ehTanll~al;

VAR Tgl , llu l •" • lanun

t~ ng g a l

Prog ra m 17-2 dalam bcnruk . EX E d ig tt rJ. rbn un tuk rn cmpcrolch informasi dari suaru fik. Scbcltllll prost:d ur ( · ··t r: "! :m,· di! ibatkan, fi le yang akan dilihar inform•si waktun ya d ibuk .1 rcr! chih d,1hulu mei alu i pernyataan :

C•

END ;

<• ------ - - - ----~--------- - ---- -- --- - -- -- --- WORD ;

BEGIN WRITELII ( ' TAIIOOA L BARU : ' ) ; WRITE ('(ar~oa l ( 1 .. 31) : '); READLII (Tg1); WRITE r •aulan 11 . . 12) : ' ); REAOUI (Bulan);

318

EIID.

Contoh okaakuei :

(• Con tot' pro\JrA'" untuk memperc l e h o ar. mengubah • )

(*

atur tans'.lal

BE Gill ( • progra,. utua • ) TampflkanTanggal; UbahTanggal ;

Contoh pr• ·~ r.•nl : _Prog r. 1., 11 · 1~· I n• c •ll~' crl i ha tkan co ntoh pcngaksesan tan gg al, berupa p enampi i. 111 1.111K;;.tl .1 .111 pc:ngubah an tanggal pada sistem operasi DOS. PROGRAI-l ''~ "•ul•"u ()•l~ i etem;

'); RfAOUI (hhun );

113Es oos ;

liAR

,

Waktu

FILE ; lONOIIIT;

)

d!re~ajakan

0

•l

. *) )

*)

AecWaktu:

XVII.! MEMPEROLEH STATUS DISK Ada dua buah fungsi dalam unit DOS yang dicujukan unruk memperolch informasi jumlah byte dalam disk, berupa DiskFree dan DiskSize.

DATETII~E;

BEGIN IF PAR~OUHT > 1 THEN BE'GHI

WRITELN ('Terlalu banyak

DISkFree !Ortve: Wortll Fungsi ini dipakai untuk me mperolch informasi jumlah byte yang bebas (bdum dipakai) pada disk yang terletJk p:~d.1 penggerak disk \·;;ng memiiiki kode sesuai dengJn ni la i Dri1•e . Kelu arJn fungsi hertipc Jongint .

par~eter.');

HALT END; IF PARAMCOUIIT : 0 THEN BEGIN WRI TEL N (-' Paramflter tak ada.');

Kodc Drive: 0 ~ penggcrak disk nng ak tif (deja~t!t) 1 -+ pcnggerak disk .A. 2 - penggcrak disk n dan sctcrusnya.

HAL T END; {$1-l

ASSIGN (f, PARAHSTR( 1)}; RESET {f);

parameter 1 sebaga i r..;m;.. f'ile } buka file

Jika Drive bcrupa ni lai vang tak berlaku, fungsi ini akan mmghasilk.111 nilai -1 (minus satu) .

{$1+}

IF IORESULT <> 0 THE~ BEGIN WRITELH ('File tak ada atau t e rdapat

~esalahan

yang l ain . ' );

HALT END; GETFTIHE (f, Wnktu ); UMPACKTIHE (Waktu, RecWaktu};

peroleh data w• • tu pada fi le urai ka n data WAKTU ka RECWAKTU )

•

~

Contoh program yan g mclibatkan DiskSi:u dan DisFrce dap :n disajikan pad a Program 17-3.

WITH RecWaktu DO BEGIN WRITELN ('Data saat file terakhir diremajakan/diciptakan : '); , DAY,'-', f.IOIITH, '-',YEAR); WRITEUI ('Tanggal: : ', HOUR, ': ', Mill, ' : ', SEC); WRITELN ( 'Jano

PROGRAM UkuranDiak; USES CRT, 00!!; BEGIN CLRSCR; WRITELN ('KapaaitAB d isk -· WRITELH ('!!isa disk yang •aaih kosong REAOLN END.

END; CLOSE (f); END.

OISkSize !Drive: WOrd) Fungsi DiskSize digunabn untuk mcn J3 p:nkan informasi ukur;w dari di sk vang terlctak pada penggcrak disk bcrkod c Dril'i'. ,\ lcngcnai ni!Ji Dril'<' sama dcngan pada fungsi DiskFrec. HJsil fungsi bertipe longint, dan menyatakan 11il.ti dalJm sJtuan byte. ScandJ in )'a nilai Dri11e tak bcrlaku, fungsi ;1n i mcm bcribn hasil berup:t - 1 (mi nus satu).

{ tutup file }

-

. DISKSIZE{O) :

7,

-. . DISKFREE {0): 7,

Contoh ek . . kusi: A>TGLFILE LIHATJAM.PAS Data aaat file terakhir dir&Majakan/diciptakan: Tanggal : 10-12-1989 : 10:44 : 18

byte.'); byte . ') ;

Contoh ekaakusi : k&paa itas diak Slaa disk yang aaalh kosong

382498 byte . 125952 byte.

Program 17- J

J2l .£.--

__.._~

·rs WUI'MJ !!!::L . ...........!

XV11.4 PENANGANAN FILE

'*. *'

berarti sem ua file

Untuk keperluan penangana.n file, disediakan suatu ripe bawaan bernam;. SearchRec. Tipe ini berguna untuk pengaksesan direktori. Bentuknya:

'*.PAS'

bcrarti scmua file dengan extension . PAS

Mengcnai atribut (parameter Attr) bisa berupa konstanta bawaan (sc:pcrti ReadOnly, Hidden), atau penjurnlahan dari konstanta-konstanta tcrsebut.

rype searchRec = record Fill: arrayl1 .. 21 1 ot byte; Attr: byte ; ilrne: longint; Size: iongint; Name: strlngl121; end;

Fit'ld Fill dicadangkan bag i DOS. Field Attr berisi atribut file, Tim e terd iri dari data tanggal d an jam dalam bentuk ya ng dima mpatkan (bisa diuraikan den ga n m c mangg il rrmcdur UnpackTimc), Size mcny;Haka r. ukuran file dalam satu:m byt e, dan Nam e bcrisi nama file. Bcrkaitan den gan atribut file, tcrdapat sejuml ah konsran ta bawaan scbagai berikur: const Read Only Hidden svsFile VolumiD Directory Archive AnyFile

S01; $02; = $04; = $08; = $10; = $20; = $3F; = =

Ko nstanta lain yang berhubungan dcngan nama file arau dircktori: comstr PathStr DlrStr Namestr ExtStr

il

= = = =

=

strlngl1271; strlngl791; strtng£671; strlngrBI; strlng£31;

{ string barls perlntah 1 { string path file penuh J { string drive dan dtrektori } { string nama depan file J ( string nama penuasan dart file J

Fasilitas yang "berhubungan dengan penan ganan file:

Atribut digunakan untuk menambahkan beberapa file khusus yang diikut-sertakan pada file normal. Hasil akan ditcmpatkan pada par:1:nctn Rec....s yang bertipe Search Type . Kesalahan yang mun gkin terjadi (dapa t dipc riksa pada va na bcl

Dos Error) bcrupa:

• kodc :2 (File ttot found) , yang bcrarti wtry tak ditcmukan . • kodc 18 (.'Vo more files), yang mcnyatakan tak ada lagi entry cocok .

\ ' Jils

FlndNext tvar Rec_s: searchTypeJ Prosedur ini dipakai untuk mclanjurkan pcncarian wtry yang co.:-u k dengan spesifikasi file dan atribur pad a FindFir~t. Hasil ditem patkan paJa p:1rametc.:r Rec_.s yang bcrtipe S earchType. Kcmungkinan kesal ahan bcrupa nilai 18 (No more files). Bisa dipcnksa pad J \·ariabcl DosError. Contoh program dapat di!ihat pada Program 17-4 . Pada program mi . j ib tidak ada pJramcrcr dalam baris pcrinrah, mab jenis file dispc,: ;t:,;asi dc:ngan '*. *'. yang bcr;:m i scbarang fik (dalam hal nama dcpan maupun cx'ettsion-np ). Jcnis file dapat ditcntuk;w melalui parameter pcnam a dari baris pt:rinr ah LDIR. EXE. Parametc~ kcdua pad a FindFirst (bcrupJ ANYFYLE) menya tabn berlaku unruk scbarang arrib ut (yang mem::nuhi syara t scs uai dengan jcnis file) . Proses pcnampilan isi direktori dilakukan dcngan mula-mula menjalankan FindFirst. Kemudian, selama tidak terjadi kesalahan (ditunjukbn dalam DosError, berupa nilai 0) , langkah yang dilakukan adalah : menampilkan data berupa nama. ukuran dan atribut file rnenjalankan prosedur FindNext. PROGRAM L1h&t01r•ktor1;

<• ----- ----------------------------------- --- •> FlndFirst !SpesFIIe: Strtng; Attr: Byte; var Rec_s: searchrypel Proscdur ini · berg un:~ untuk mcla cak pcrt ama kali suatu mtry di dalam sisrem file MS-DOS , yang scsuai den gan spcsifikasi file SpesFilt. Parameter SpesFile boleh rnengandung karaktcr wild-ca rd (yaitu karakr~ ? atau *) . Sebagai conroh: 32:2

•

(• File progr . . LDIR.EXE

•J (* Untuk eenampllk an nama fll• da l&M direktori •J

<• --------- --- ----------- ---------------- ---- •)

USES CRT , DOS · liAR

323

cetFAttr fvar f; var Attr: Word) Prosedur GetFAttr digunakan untuk memperoleh atribut dari suatu file. · Pada saat pemanggilan prosedur ini, f haruslah bcrupa varia bel file (dengan sebarang tipe file) dan sudah dikaitkan dengan nama file (melalui Assign), tetapi file tak perlu dibuka.

InfoDir•ktori : BEARCHRtC; JenlaFI1e : Dllr.ITR; BfOIM

Cllr.ICJI ;

If PARAHCOUHT > 1 THEW DEOIH WRITELH ("T•r1a1 u HALT

b~nyak

Kemungkinan kesalahan yang terjadi (dapat dipcriksa pada variabd DosError) berupa:

par ... ter.") ;

]. Kod c 2 (Mcnyatakan file tak ditemukan ) ::!. Kode 3 (Mcnyatakan path tak berlaku) 3. Kodc 5 (Mcnyatakan pen ga kscsan tcrhadap file gag a!)

EHO

ELSE IF PARAHCOUHT < 1

l~E H

C o ntoh disaj ik.an pad a Prog ram i 7-5.

JoniaFil• := ·• . • ·

ELSE J.,leFil• :;

PA~I:.><STR(1);

PROGRAM llhat4 t lbut; (.

•) Fila executable : ATRIB1 .EXE a) i• Untuk eellh&t atrlbut auatu file •)

WRIHLH ('Ial Olr•ktorl : ');

(a

WRITELH; FINOFIRST (JenlsFile ,

~YFILE,

IF DOSERROR <> 0 THEN WRlTELH ('f11• t&k

d1~~~an

InfoOirektorl) ; atau terdapat

WHILE DOefRROR ; 0 DO BEGIN WITH Ir>foO I r"ktorl 00 WRITELH (H"""': 12 , Slze : S, ' byte' , ' atribut FIHONEXT (Infodiroktorl);

Cont<>h

attr);

J

i

END; END .

1 ek . .kuel :

fiLE; WORD;

AS3IGN (Var_Fil, PARANSTR(1)); GETFATTR (Var_Fil, Atrib); IF OOSERROR <> 0 THEil I!EGIH

peroleh atribut fila }

CASE OOSERROR Of 2 : WRITELN ('File tak dlt. .ukan');

EIID

Ial Dl,..ktorl :

17-4.

)

3: WRITEUI ('Path tak dit-ukan atau tak barlaku . '); 4 : WRITELH ('Pengakseaan terh&dap file gagal. '); END

A>LDIR a . •

.MAP

.

c• USES DOS; VAR Var_Fil t.tr ib Bf.Giri

kesalahan');

18301 28480 23239 4980 2914

byte byte byte byte byte

atrlbut ; 39 atrlbut = 3t atrlbut 32 atrlbut % 32 atrlbut : 1

=

ELSE BEGIN WRITELN ('Atrlbut file : '); · I IF Atrlb AIID READOIILY <> 0 THEH WRITEUl ( 'F 11e hanya-baca ·) ; If Atrib A/10 HIDDEri <> 0 THEN WRITELN ('File terae.bunyi'); IF Atrlb AIIO SYSfiLE <> 0 THEil WRITELN ('Fila slat .. '}; IF Atrib A/10 VOLUI4EIO <> 0 THEil

J 25

\'

....

WRITELN ( '10 I/o lUll'); IF Atrib AtiO DIRECTORY

<>

.

2. Nama depan file {Hasil disimpan pada parameter Nama) 3. Nama extension file (Basil disimpan pada parameter Ext)

0 THEil

WRITEUI ('Na.ea direktorf'); IF Atrib AUO ARCHIVE

"
Contoh dapat dilihat pada Program 17-7.

<> 0 THEil

WRITELN ('Fila Archive (noraal)'J;

PROGR~

END;

Contoh_FSplit;

USES DOS;

END.

liAR Path

Contoh eksekusi: A>ATRI 81 CQt.lt1AIIu.COO

PATHSTR;

Diraktori

DIRSTR;

Namafil•

NA~ESTR;

N~ma Ex t

EXTSTR;

Atribut f il a : F i l e Arch i ve (norma l ) Progr~m

BEGIN Path :: '.A:

1i - 5.

setFAttr !var f : Attr: word> Prosedur SerF.-lttr berguna untuk mengubah ar ribut dari suatu file. Saar pemanggtlan pros cdur ini, f haruslah berupa \·a riabel file yang sudah dikaitkan dengan nama file dan file tidak dibuka. Kem un gkinan kesalahan ~cperti pada GcrFAtrr. Prog ram 17- 6 rncnunjukkan contoh mcnggunakan SerFAtrr. P ROGrtAH

\PROGRA~t\ATRIB.

P AS ' ;

FSPLIT (Path, Oirektori, llamafi 1,

~t~rAtribut ;

WPITEUI ('Bagian diroktori : WRITf LN ( • ~t;,,.a de pan f i 1 e

WRITELN ('Nama

e xte~ ~ion

llamaExt) .

', Dirilktori); llamaf i la); UamaExt);

READLN ENO. Contoh aksokus i: Bagian direktor i :. A: \ PR OC" A/-1 \

<• --------------- --- ---- --------------------

•J

.

(* Contoh program untuk m&ngubah atribut file •J )

<• USES DOS;

Uua depan file

ATRIB

"""'" extension

. PAS

Program 17-7.

liAR Var_File

FILE;

Atrib

WORD;

BEGIN Atrib : : REAOONLY; ASSIGtl (1/ar_Fne,

( atribut hanya b&ca, tidak biaa dihapus

I

' DIREKTOR.14AP'J: (file yang diatur atributnya barn&aa DIREKTOR.MAP

SETFATTR (Var_Fila, Atrib);

ubah atribut} ,

FExpand !Path: PathStr> Fungsi FExpand mcnghasilkan nam a lengkap dari suatu fik yang berada pada parameter Path . Misalnya, direktori y:mg sedang aktif adalah A:"., maka: FExpand ('ATRID2.PAS') FExpand ('* .PAS')

'A;\ATRIB2.PAS' __. 'A:\*.PAS'

----+

END .

Program 17- 6.

Keluaran fungsi Expa11d untuk huruf sclalu dinyatakan dalam huruf kapital.

FSpllt c Path: Pathstr: var Dlr: DlrStr: var Nama: Namestr: var ext ExtStr) Proscdur FSplit dipakai untuk menguraikan nama file pada parameter Patlr menjadi ttga komponen berupa :

1. Nama direktori (Hasil disimpan pada parameter Dir) 326

Fsearch!Path : PathStr: DaftarDir: string> Fungsi FSearclz digunakan untuk meb cak suatu fik dalam daftar dircktori . File yang akan dilacak ditcm patkan pad a parameter Parh . Parameter DajiarDir berisi daftar dirckturi. Penulisan antarnama direkto- ·

327

-..

----

- - -----

1i'W5w

ri harus dtpisahkan dengan titik koma (seperri penulisan direktori dalam perintah DOS yang bernama PATH). Keluaran fungsi : nerupa string kosong. jtka file tidak diremubn dalam daftar direkrori . Berupa path dari direktori dan nama file, apabila fi k ada pada di rckturi yang sc·dan g aktif .:t tau sa lah satu dircktori yang tclah ditcntukan dalam DatiarDir. Pc rlu dik~ ta hui. pcla cabn/ol.'ncari;m Sl.'b lu d i1nu i:J i pJdJ di~L·ktlJ ri yang SCl~:n g aktif ~ari d i~k dri\;e yang scdang <~ktif. <.. .ontnh progr:t m J is.1ji kan pad a Program 17-- 8. P~OG P. AI-4 CQrlt:or•FSearc h ; uSES DOS ; VIIR

Pat h

: : F1hllorch ('baru.o b f ','PROO PAS ; PROOOB'); IF P~th THEN

= ''

WRITE LN ( 'F lle BARU . OBF tilk 01da ELSE

WAIT ELN ('Pilth:

~~-

. . . . ) .•

XVII.5 MASALAH INTERUPSI Turbo Pascal mcnycdiakan fasilitas yang bcrkaitan den gan imcrupsi secara sojtu•are, berupa fasilitas: un tuk mclakuican interupsi baik yang bcrhubungan dcngan ROM-

BlOS maupun DOS umuk mcrnpcro leh atau mcng ganti alamat da!Jm vckro r imerupsi. Bcrkairan Jengan f.ts ilita s intcrup s i. t cnbpat tipe bawaan y:~ n g dmam:-~ bn R <:·~ WI'ri. Ddin1si t1 r c ini :~ c blah ~ l·b;Jg.ti herii..ut: type Registers

~

record case Integer of 0: !AX.BX.CX.DX,BP,Si, DI.DS ,ES,Flags : word l; 1· tAL,AH,BL.BH .CL.CH .DL.DH : byte);

eno;

Pat hS tr;

BEO Ill

-~&th

i&

! ')

Tampak bahwa tipc Registers bnup:~ ,•,u;·,mt ra,•rd (Lihat X.-t). Pad a ripe ini. /\L rncnyJtakan ni lai byte o rck rcncLh d .tr i AX dan .1\H meru p1bn by te o rde tingg i dari A X (AX. HX . C >-: ri.lll ~c bagainy.! dikcnal sclng:~ ! register).

Path);

REAOUI

END. Cont Oh eksakua i: Pat h= PROG08\baru . dbf

Program 17- 8.

Pada Program 17-16, pemanggilan FSearch ('baru.dbf','PROGPAS;PROGDB 'I menyarakan pencarian fi le 'baru . dbf mula-mula dilakukan pada dirc.-ktori yang akcif._j~ka tak ada , pencarian d ilakukan pada s ubdirektori PROGPAS. KaiJ u tak ada juga , pelacakan dilakukan pada PROGDB . Seandainya pada dirc.-krori yang tcrak hlr. til e ta k ditt"mukan , maka keluuan fungsi berupa string k osong. P~da contoh .:ksekusi pro g ram. tc-rnnta P
lntr!Nmr_lntr: BYTE: var Reg : Registers! Prosedur Jnrrdipakai unruk melakukan intl'fupsi J cngan nom o r inrcru p1 d iberikan pada paramctn 1\i,r_ /nt r. M cngc nai par:unl.'tc r v.1 riabcl Rr·.r: (yang bcnipe Rc,l?iJtt'r.i) rcrganrung_Jari nomor intcrupsi yang di lak sanakan. Umumnya, sebclum pc manggii:ln p rost:dur l11tr, parameter Re.f! dibcri nilai awal terlcbih dahulu, sebag;:i nilai masuka n dari register. Adapun sesudah pelaksanaan intcrupsi. biasanyJ regis ter tertcntu akan bcrisi nilai kd uaran. Untuk menget ahui lcbih lanjut tc:ntatJ g interupsi, perlu kiranya bagi pcrn baca unruk mendalami buku yang mernbahas pcmrog ramJn DOS dan juga buku yang mengupas ROM-BIOS . Contoh mengcnai interupsi mi s~l nya un t uk ntengatur bentuk / ukuran kursor. Hal ini dapat dilakukan dcnga n mcnjalankan in tcrupsi ROMBIOS 10h (h=hek sadesima l). lnisi alis as i 1crhad:1p register yang diperlukan untuk keperluan ini: Register AH diisi dengan nibi I Register CH d ibcri nilai bcrup:t nomor garis dan awal kursor Regis ter CL dibcri nilai bcrup:1 nornor gJris d .tri akhir kursor .

328 329

OH.-

§ ~ sO·

1L 2L

I

!

7tj !a!

__. 1

6 ~! awa l 7 L___ - 3Khir (bl

l ! a ) Penomoran garis benn;t !b) Bentuk kursor norma:

LJ

awal

,, ~ 6

7

PROCEDURE Kuraor_Norm~J; BEGIN B~ n tu k _Kura o r {e , 7 )

!

I

D -

~ursor

I

Gam bar 17-2. !lustra Ji prnom oran gan"s O(~tul. ltwrsor un cuk CGA

Mengenai kemun gkii;an nilai n o m o r f:Jris bcr k isar :111ta r a 0 sa mpai dengan 7 (u ntuk yang menggumb.: •darrcr CGA ). K ursor norm3l mcmpuny a1 nil::~i n o rnor aw
Bentuk_Kursor {0 , 7 )

END ; { £khir proseour Kursor_Besar PP.OCEOURf Kursor_Semouny i BEGIN Be~tuk_K ur sor (32, 0)

END; { akhir prosedur Kursor_Sembunyi PROCEDURE Baca_Enter ; CONST

ENTER = •13; BED IN REPEAT UNTIL READ~fy : EIITER; WRITELN; END; { akhir prosa cur Baca_E nter BEGIN (• progr~ utama t) CLRSCR;

PROORAH Kuraor;

,. ------------------------ ------- ------------ •>

.

,.

I* Contoh progra. untuk . . ngatur bentuk kursor •J -nggunakan proaedur IIHR ) (Barlaku untuk COA) •>

:: ------------------------------------------- •> USES CRT, DOS;

BEGIN

PROCEDURE Kv raor_Bea.r; BEGIN

(C)

- - - - - -- - - · -- - - -- - --

Rags : REGISTERS;

E>IO; ( akh i r proseour Kursor _llorma l

akhlr

!c) Bentuk kursor terbesa r

PROCEDURE Bantuk_Kuraor VAR

1; { Atur tipe kuraor ) Poa_Awal; Poa_Akhtr; Raga);

END; { akhir proaeour Bentuk_Kuraor

~

~

:D

Raga.AH :~ Regs . CH :: Regs.CL :: INTR {110,

(Pos_A~~l .

Pos_Akhir : BYTE);

WRITE ('Perhatikan kursor da1am keadaan normal - Tekan ENTER' J; Baca_Enter ; WRITE ( • Perhat 1kan kuraor berukur .. n beu.r - Tekan EIITER ·) ; kuraor_Beaar; Baca_Entar; WRITE ('Perhat1kan kuraor tidak tampak - Tekan filTER'); Kursor_Se•buny1; Baca_Enter ; WRITE ('Perhatikan ~ursor noraa1 lagi - Tekan ENTER'); Kursor_Noraa 1 ; Baca_Enter; END . CootOh akaekuai :

·--.-..

a

• ·.

J:-------....&:'' .

f

_...,_~,.._

-

........ _

z::

Perhattkan Pert-.at i kiln Perhatikan Perhatfk&l'l

kursor kuraor kursor kursor

dalilll keadaan nonul - Tekan EIITER_ berukuran benr - Tekan EIITER = ttdak taapak - Tekan filTER norsal lagi - Takan EIITER_

c;etlntvecCNmr_rntr: byte; var Alamat: Pointer> Prosedur GetlntVec digunakan untuk memperol ch alam~ t yang disimpan dalam vcktor interupsi yang sesuai dengan nom or interupsi · Nmr_fntr. Vekco r in terupsi scndiri sebcnarnya berisi daftar ala mat dari ta bel ya ng ditunjuk atau subrutin yang dijalankan saar interupsi dilaksanakan. Alamar yang berada da lam vckro r interupsi in i schcnarn ya dapat dipcroleh dcngan mudah mela lui rumusan berikur :

Program 17- 9.

MsDos!var Reg: Registers> Proscdur .\fsDos juga digunakan untuk mclakukan intnupsi . khu susnva inreru psi nomor 21 h, ya ng berkaitan dengan berbagai pelayanan DOS. Jacli rr 0
f

l

Of>et subrutln/ tabel Segmen subrutln!tabel

I

MEMW!O:NmUntr • 41 MEMWIO:NmUntr • 4 t 2J

~--

Conrob. pcnggunaan prosedur .HsDo; info rm as i di'k d rive yang seclang akrif.

yairu

untuk

(•

I

i

)

(• ------------------------ - --- • J

: register AH diisi ISh re gis ter AL

~eluaran :

= A,

1

= B,

2

=C

{

pelayanan untuk info disk drive )

MSOOS (Regs);

OlakOriveAktif : = CHR(ORO('A')+Regs.AL) END; BEOIII 1• prcaru utua •) WRITELN ('Oiek drive aktlf : OiakOrtveAktif); READLH END .

Disk drive aktif: A

Program 17 -- 10.

332

I

/ yang dltunjuk 1 oleh lnrerupsl

4 c

I

r·szm~-l

I

~~

nomor 5

/

!

i1.

1I

~P;inr ~cree_~J

; [

/

,

I

Cambar 17- J. Gumbaran Untang 11rktor i nrnupJi

Regs: REGISTERS; BEGIH

Canton ekuku•l :

----

dst

VAR

Regs . AH := $19 ;

1I

0 1

3

.j

Mer.g
0

Vektor lnterupsl

2

l

USES DOS; FUtiCTIOII Di sk Drt veAkt if : CHAR;

~a~ukan

~i

!

l I

<• Untuk semperoleh in f ormasi •J (• d isk drive yang sedang akttf *J

den9-n

Nom or lnterupsl

j

I

.

PROGRAH l nfoOrtvs;

mcmperolch

Ha sil dari pcmanggilan Cetlm Vee scndiri bcrupa pointer (p:tramcrcr .'-1/amat) yang menunjuk alama·t dari sub rutinltabl'i , a ta u jl'iasnya iJcmik de ngan : Alamat := PTR!Segmen,Ofset>;

Contoh penggunaan Grt!nv misalnya untuk mempcrokh :1lamat rutin yang dipakai untuk melaksanaka1J operasi Print screen (pcncctak&n isi layar), sepeni yang tercantum dalam Program 17-11. PROORAI-l Contoh_O•tlntVec ;

<• ------------------------------------ --------------- -- -<• ~•~P•roleh alamat •ubrut ln dala~ bentuk aegm• n dAn ofaat <• yang dipergunakan oleh no.or interup•i 5 (PRIIIT SCREEIIJ <• ------------------------------------- ------- ----- -------

•) •> •> ., \)_)

-~· ~-"< -;

ic/,~~

00:6:

~._"j ,

p~:;:o;;_~T:l:~

=

J

=:

'i 1P.:

J

Str1nf4: STRIN0{4]; Y~R

l'tr_S. -I;>I'"Utln : POINTER ; FUtiCTION Hoku (141loi:

~OP.D) :

1

Strlng4 ;

"! }

Untuk

c•ngubL~

bllan;an d6slmal M&nj adl

be~tu •

neksada s ;Dal

DlgltHakaa : ARRAY(O .. 15 ) OF CHAR

I l

'01Z3 456789ABCOEF .;

VAR

I

BYTE;

llEGHi FOR I

: : 4 OOWIIT O 1 DO

Heku(I] ;:

Oig itl1ek aa (!l ilid

!

:=

•4

f

(.t

Pr-ogran, untuk

(•

yan~

bh 9 a d!pahat U'lt uk M•n<..et.:ar... i a1

l .J y •r • )

•)

COfi~T

-\

PRltiT _SCREfll SfG>
GETINTVEC (PRIHT_SCREEH, Ptr_Subrutin) ;

OFSET_I RET

WRITELH ('Subrutln Print Screen:');

'l •)

lJSf 9 CRT, DOS;

progra= ut&na +)

WRITELN ('Segeen aubrutiJl :

PRT5COFF.EXE

._~~:at IJ<•n t o:abo l PrtSc

c• ---- -- ------- -- ------ ----· --- -

f

Hi:J; { akh l r funga l h&kBll )

<•

(t F11a prcg rA~ :

f

EtiO ; rlak sa ( 0)

PROGAAH StopPrt~tS~r ~on ; l•

~

AIIO 15];

: = Nil a I sr.R 4

t
Comoh pcngubahan alamat dalam '.·ekto r interupsi dit unjuk kan pada ProgrJ m 17 - 12. Pada program ini. pengu bahan Jimaksudkan agar penebnJn trrhad ap tomhol Shift PrtSc ridak mcnycbabbn isi la y:1r· dicctak. Cara;1y:1 yaitu dmgan m c-:gJ! ihkJn sup.1p yang d i_1 aLlnk.~n hukan bt~i ~~rbrutin ' Cillula i~ an g oc:ada pada alamat FOOu: F:=s.J!' ). mclainkan bc rupa instruksi I !~ ET (insr:-uksi akhir interupsi). Dcngan ~..kmiki;ll1 ri dak :ld:J tindabfl pcr,cc·rakan instruksi IRET senJir i dian t.trJny:~ d~pa t dipcrolch pada alamar FOOOh:FF5.1h, yang Jiker::ll dcngan istibL Dlll!l!ny_Rcturn. Kal.:iu prog ram da !am bentuk. EXE dij.1 lan kan dalan 1 prom pr DOS, akan men yebabkan tom bol Shift PnSc ridak bisa IJgi rligun :1 kan untuk 111<-' !JCc tak i~i layar selamanya (sclama kompurc r aktif).

f

BEGIN

BEGIN

1

f

COIIST

:

setlntVecH•imr_Jntr: bYte; Ala mat: Pointer) Prosedur ini diguna kan untuk mengubah alamat yang disimpan dalam vC"ktor interupsi yang ses uai dengan nomor interupsi Nmr_fntr. Alamac pcngganti dibcrikan pada parameter Alamar sebclum pcmanggi'lan proscdur.

=5· SF OOO; $ff5J ;

VAR

' , Hek s a(SEG( Pt r_Sucrutln"))) ;

Ptr_l ret : PoiNT ER;

WRITELtl ('OfHt aubrutln : ', Hekn(OFS(Ptr_Su.brutln"))); 8ECZH

READLH

r

prognUI U t&~~ta

CLRSCR ;

EIID.

(SEG>4~N_IRET,

Ptr_I ret : : PTR Of!ET_IRETJ ; ( P<>1nter Ptr_Ir•t a gar - n unJul( IllEr ) SETINTVEC (PRltH_SCRHN, Ptr_·Irwt); ( ubah avpoya liiET I WRIT ELN ( 'Tooobo l Shift Pr ~c eudoh dinono~tHkan . • J;

Contoh ekHkual :

WIIITfLN ('Tidal< O..pot lo g !

END.

d 1po~a ;

_,.,Ju~

un tuk - roc•tok lol l oyar . · );

Subrutln Print Sr. .n :

cant.,

Se91MM aubrut1n : FOOO

•k-kuel :

Of-t - r v t l n : FP!•

T-.bol Sht ft PrtSc •udah dtnonakt t fkan . Tidak d•P•t l ag t otp«l\ai vntuk . . nr.etak h d

l •yar .

Program 17- 11 .

t Dari eksekusi Program 17-11 tampak bah wa subrunn

interupsi nomor 5 beralamackan FOOO:FF54h.

yang dipakai old! llrogram 17- IZ.

334 335

,,

)(YU.6 MENANGANI LINCKUNCAN DOS •

.:

l

Ada riga fungsi yang berka.itan dengan lingkungan DOS (DOS

T

Misaln ya: (1) COMSPEC = CCOMMAND.COM (2) PATH=C

PROGP.A~

XVIl.7 MENANCANI SUBPROSES F.1 si litas yang

I f

j

Lingkungan;

FOR I

INTEGER; : = 1 TO EUVCOUIIT 00

WRITELN (1 : 2, ', ', EtiVSTR(l)); READLN END. Contoh eksakuel: 1. PA TH :

2.

COMSPEC:A :\C~AND. COH

bcr~ J i tJn c' c; ,g.ul pcnJnga11an p r•_;g~.l lll va ng mcnc t:l p da !J rn

fvle m bua t ,\ rlcnjala n b n

ll l chp<~ri : ( rc~ idc 11 )

su hpro,cs mcmori

p ~Of!: r:lin lai n d.u i suaru program

M cnuk ar ka n sdu ruh \·c k cor intcrupsi yang disimpan dcng :111 vckt o r inrcrupsi ki ni. M cr:Jpcrolch

~: .. c:k k clu.u Ja ri s uatu subp roscs

Exec(Path. Brs .. perintah : StrlngJ Proscd ur ini bcrgunJ liiH uk mcnjai:Jnk ;l!l s uatu prog ram lain d.;ri suar u p rogrJ m . Sccara ieng b pn~·J , nam .1 program yang akan d ij ai.1nkan dibnik an pada pan rncrcr Path dan ba ri s pcrintahnya dibcribn p1da p.1ra meter BrLpt:n ua!: . Scand ain ya hcnda k m cnj .: i.,nkan p':~i:,tah DO S, Path bcru~)J COM MAND.C O M dan pcrimah DOS d inyarakan d;d am Brs_pennrah llcngan didahului '/C. Se bag.1 i conroh un tuk m cn~1l.mkan pcrintJh DIH / W, pcrnvata:w png dipc rlukan ·

USES DOS;

VAR I BEGIN

"

Execi'COMMAND.COM '. 'IC DIR/Wl;

t

sp:~st

arau:

Execi'COMMAND.COM·. '/CDIR/W);

1.

tanpa spas1

]ilea ingin menunju kc DO S secara scmcntara, Patlz diisi den g an COMMAND. COM cerapi Brs-perimah cukup diberi nilai bcrupa string kosong. Comoh :

Program 17-13.

Execi'COMMAND.COM, l;

CetEnv
rr q-..._ :

variab€1 lin;wngan

i

EnVStrtlndeks: Integer! Fungsi E11vStr digunakan untuk m cmpaolch string dalam ling kun g;:n DOS. Nibi Jn dek.< berkisar antara 1 sampai dengan EnPCoullt. Program 17-13 mcm perl ihatkan contoh untuk mcmperoleh sel uru~ string yang &crada dalam lingkungan DOS . B anyaknya string dikcnda hkan den gan ind cks b ernilai 1 sampai dc ngan ni!ai kcluaran En11Cotm! mclalu i pc rintah FO R .

.t

GetEnvi'COMSPEC'l

envcount Fungsi tanpa parameter ini berguna untuk memperoleh banyaknya string yang terdapat dalam li.ngkungan DOS . Bentuk strin g dalam lingk ungan DOS scndiri berbentuk:

= nilai

- --

kan unrui.. mcn geohu i isi vJriabelli.ngkungan COMSPEC, hal ini dapa• _ ciipcroich melalui pemanggila n fun gsi: ·

environment) berupa EnvCount, EnvStr dan GetEnv.

Vari abcl

-- - - -

CHJ tan: Progra m yang m daJ...ukan EXEC harus mcngatur ukuran S tack, m ini m um d :m mak simum heap (Kalau tidak, akan

336 337

menimbulkan kesalahan berupa 'memoti tak cukup' berup~ DosError bernilai 8). Hal ini dapat dilakukan dengan menggu. nakan pengarah kompiler M. Con toh:

REAOlN (Per1ntah); Perintah := '/C ' + Perintah; SWAPVECTORS ; EXEC

{$M $4000, 0, 0}

L m~k.simum heap L mm1mum heap

~

('C~ANO.COM',

Psrintah);

SWAPVECTORS; IF OOSERROR <> 0 THEN WRITELII ( ' Eksekusi gagal. Kode ke&alanan y•r.g

tsrj~ai

OOS ERROR); REAOLN

ukuran stack

END.

Rincian nilai: ukuran stack berkisar antara 1024 sam pai 65520 minimum heap berkisar antara 0 sampai 655360 r:· ; imum heap berkisar anrara minimum heap dan 655360

Cof"ltoh eksekus i : Masukkan perintah DOS : DIR ANDONG volU88 in drive A ha• no laO.!

swapVectors

Dir.ctory of A:\

Prosedur Swap Vecrors (tidak mcmiliki pa~ameter) digunakan unruk menukarkan seluruh alamat yang dirunjuk oleh variabel pointer dalam unit System yang berbentuk SavelntXX (dengan XX berupa dua digit heksadesim al) dengan alamat yan g merupakan isi dalam vektor interupsi. Prosedur ini bi as:1 dipakai pada prog r:w1 yang melakukan/rnenja!anb.n E.-.:e:, dc;,pn ruju an ag.u vek.ror imcru ps; pad:1 program yang mcnjalankan Exec a r :~u pun y:mg dijalankan tid ak saling terpengaruh. C nntoh program yang melibatkan Sll'ap Vwors dan Exec dapat dilih;;r pad a Program 17-14. Program ini digunakan untuk menjalankan perintah DOS, yang dimasukkan mel alui papan-ketik (dibaca melalui READL''i (Perintah)). Karena pada pr osedur Exec melibatkan COMMAND.COM, maka perlu menambahkan '/C' di depan perintah DOS (Lihar: Perintah := '/C ' + Perintah). Agar vektor interupsi antm program yang menjalankan Exec dengan DOS tidak saling terpengaruh. maka Swap Vectors diberikan sebelum dan sesudah Exec. Perlu diketahui, pada program semacam ini (ada Exec), ukuran stack dan heap perlu diarur dengan pengarah kompiler M . PROGRAM Exec1; {$M 8192, 0,0} USES OOS;

Pro.~ram

17- 14 .

Keep Proscdur Krt'p bergun:-t unwk m c m bl!at pr o gram res1Jcn J cau pr og ram yang tinggal mcnetap daLnn mcnw ri ·; ~el'.<ma kompu ·('r akci f) . Pa
Ha1ihatJam;

VAll

c•

Perintah : DIRSTR ; BEGIH

(• F11a program:

WRITE ( 'Kaeukkan Per1ntaJ\ DOS:

338

File not found

. *) )

LIHATJ~.EXE

(• Ouna mer.buat program rea1dan yang dipakai untuk menampilkan j . . •);

<•

Oapat diaktifkan dangan manekan SHIFT PRTSC kapan aaja

•> •>

339

1 : BYTE; BEGIN

(• --------------------------------------------------------------- t)

FOR 1 : : 0 TO 5 DO BEGIN

1024. o. 0} U!IES CRT. OOS; CONST PRINT_SCREEH : 5; f$14

MEI4L[SB800 : 4*I) :: Lariki-INori[1,I); MEML[SBB00:4ti+180) : : Larik~morii2,1]

;

END; END ; ( akhir proeedu r

PROCEDURE T. . pilJam; INTERRUPT ;

( * manyatakan proaedur untuk (.

pananganan interup si

' )

( • untuk menyimpan atribut semula •J Po9isi)C:.JrsorX, (t untuk menyimoan posisi kolom kursor *l BYTE; (* untuk menylmpan posisi bar I s kursor t ) PoslaiKu rsorY Poalsi JQndelaKiri, : • data koordinat jendela klri at as ) ( . data koordinat j endela kanan bawah PoaleiJendelaKanan, ' )

f

ai•pan posiai kuraor, atribut, jQndela dan pada daarah penamp i1 an j•~

. i

Jam, l-Ie n it, Datlk, Sapare9ratusDet ik StrJa,.,

i

BEGIN ( ba gian pern y ata~n prosedur lampilJam IF NOT (LASHIOOE Ill [2, 3 ] ) TiiEII EXIT; { keluar kal~u bukan mode teks 25 x 80

' )

t

VAR AttrAsl i ,

riORO;

KembalikanMe~riDaarahJam

1

koi~

d~ta

]

l ayar

PoaieiKursorX :: WHfriEX ; PosisiKursorY := WHER c Y; AttrAali : : TEXTATTR ; PoaiaiJendelaKiri :: Wi ii OIHI I ; PosfaiJendelaKBnan := WliiD:.iAX; SimpanMemoriDaerahJa~:

Str~enit,

StrDetik lar i k~!sl:lOr i

: "STRitlG[2J: : AR RAY[1. .2. 0 .. 5] OF LOilGI !lT ;

TEXTATTR : = S7E; WIIIDOW (1,1 , 12 ,2); CLRSCR; GOTOXY (2,2); WRITE ('Tokan ESC.'); REPEAT

PROGEDURE S b >panl-lemor i Dae r&ru.._,. : untuk ~en}i~pan data pada lokas i yang akan dltempatl tulisan jam \IAR I : BYTE ; BEGIN FOR I : : 0 TO 5 DO BEG HI Larikl-le.orl[1 ,I] :: MEML[SB800:4•IJ; larlkl4el>orf[2,I] :: MEML($8800: 180Htl]; END; END; ( akhir prosedur SimpanMemoriOaerahJas PROCEDURE Ke.balfkanMe•oriDaerahJam; ( untuk ••nge•balikan data semula pada daerah yang digunakan untuk . .~pilkan j . .

VAR

[ ponot!1!pi 1an j&ll>

Barfs pertama Barie kedua

'-

GETTIME (J . . ,Menit,Oetik,SeperSeratusOeti k): STR (J . . ,StrJ&M); STR (Henit,StrMenit); STR (Oetik, StrDetlk); IF LENGTH (StrJam) <> 2 THEN StrJ . . : = ·o· + StrJaM; IF LENGTH (Strlolenit) <> 2 THEil StrMenit := '0' + StrHenit; IF LEIIOTH (StrOetik) <> 2 THEN StrOetik := '0' + StrOetik; GOTOXY {3 ,1); WRITE (StrJam, ' : ', StrM8nit,

StrDatlk) ;

UNTIL KEYPRESSED AND (REAOKEY : •27) ; ka•ballkan data kursor, atrfbut, Jendela dan data layar ae•ula J

341

...

~esb~llkanMeMor!Oa erahJam ;

TEXTATTR : : AttrAa ll ; WINDOW (lO( PosiaiJandela Ki rl ) +1 , HI(PoalaiJende1aKtr1)+1, LO(Poals1Jondel~Kanan)+1, HI(PoelaiJendelaKanan)+1); GOTOXY (Poa1at~uraorX, PoaiaiKuraorY); END; { akhlr prosedur T&Mp llJ&a

, ..!

SEGHI i progr&a ut....,a ) SET HfTV EC (PRHIT_SCREEN,

tllllllpilJ&III) ;

)(VII.S LAIN·LAIN

oosverslon fungsi DosVersion mcmpunyai kegunaan untuk m empcrolch vers1 dan DOS . Kel uaran bertipc word. Byte tcrendah berisi versi ma yor dan by te certinggi berisi vcrsi mino r. Concoh, untuk DOS versi 3.30 , byte tercndah bcrisi 3 dan byte tcrtin~gi berisi 30. Penuangan dalan , bcntuk pn ,g ram diwnj uk kan paJa Progran, 17 -· I (;.

l
(CL);

END .

Program 17- 15.

Pada Pr 0 g rarn 17-15, kare n;• rnelib.Hkan tampibn pada lay ar (untuk rn enarnpi ii.: an j:1rn) perlu kirJn y.J terlc hih drthul u menyimpan data pada lokasi t a ~ ? ilan , deng:m cuju .111 ~ c kcluarnya dari program residen . tampilan ::.-:mula tidak beru ha h. H.1l ini di kerjakan oleh prosedur SimpanA!e-:ori Da erahjam. Disarnping itu, da ta semula mengenai posisi kurso r, at:ibut m;~upun jendcla jug.1 pcrlu disimpan. Perlu diketahui, tampilan j-'m dilctakkan padJ p0jok kiri aras mcnempati 2 baris. Dara pada dJe r~ ~ inilah yang pcrlu disimp:lll. Sesudah te.1 mbol ES C ditckan (p<:nampi b .:-: jJrn usai), d ata scn1 ula pa•h iayar harus dikcmbalikan. Hal ini dilaks.;..::.;,.kan okh proscdu ~ Kcm/•,;/ikrm.\JemoriDaerahjam. Selain itu, data pos is: :.S: urso r, atribut m :lllpun jcnd cla harus dikem balikan pula.

DosExltccoe Fungsi tan;::·a parameter ini digunakan untuk mendapatkan kode keluaran da.ri sua ru !":.Jbproses (p rogram yang dijalankan dengan Exec) . Keluaran fungsi ber-.::pe word, dengan rincian sebagai berikut: • B yte :ere~dah berisi kode keluar dari proses (program! yang berhe:::.Jci (Misalnya kode ~ pesi fikasi Halt atau kode keluar pada prose,.:::.u- Keep). • Byte :t:rtinggi berisi : ~.a) 0 =enyata.kan penghenrian secara normal (bj 1 =:1enyatakan berhenti karena Ctrl-C {c) 2 ::nenyata.kan herhenti karena kesalahan perant:i (d) J =.enyat.ak.an berhenti disebabkan okh prosedur Keep ~~-a . <..:>de keluaran basil DosExitCode adalah 768 (300h), berarti b y:~ :~:-t:r,'?~ berisi 3 atau progr am berhen ti ka rena prosedur Keep dan b~ terenc..:.;m berupa 0 yang menyatakan kode kduar dari program · t~ur a~ah 0 (dispesifikas i pada paremeter Keep).

PROGR~

.

LihatVars iOOS :

)

<• --------------- ----

(t Progr&~

untuk Menampilkan vera! dart DOS •J

c• --------------------------- ------------- • > USES DOS;

VAR Vera iOOS : WORD ; BEOIH VeraiDOS : : DOSVERSIOtl; WRITELH ( 'Vers i DOS : READLH END.

Program 17- 16.

LO (V era iOOS) , ' . ' , H I (VersiDOS) ) ;

\

GetCBreakCvar Break: Boolean> Proscdur GetCBreak mempunyai kcgunaan yang sama dcngan pcrintah DOS bernarna BREAK . Nibi True pada para mater Break men yatakan BREAK dalam kcadaan ON. Nil ai False menyatakan keadaan OFF. setcsreak mreak: Boolean> Pada proscdur ini :

a

SetCBreak ( TRUE) identik dengan perimah DOS: BREAK ON arau BREAK = O,V. SetCBreak (FALSE) idcntik dengan perintah DOS: BREAK OFF atau BREAK = O FF. Getvertfylvar verify: Boolean> Prosedur Get Verify mempunyai kcgunaan yang sam a dcngan pcrin oh DOS bernama VERIFY. Nilai True pada paramatcr Verify mcnyatakan VERIF Y dalam keadaan ON. Nil ai F11lse menyatakan keadaan OFF.

343

I.'"'"'!

· ,b~.•Oioml

J 199

!al Resolusi menengan

~

°

J

G 3mbar 18- 1. Sisum ltoorJin at abJolut untuk

0

lbl Resolusl Tinggl

""'"ilt>r

JlJ

raoel18-1. Daftar pengendall graflk

dtnxan aJ~pttr CG.-'\

m ode resolusi rmgg1 , ham·a ada dua kemun gki n.~1 : . Pada kedua mode rcso lusi. s:liah satu kemungkln ~.n warna scsua i Jc nt;:m warna law beiaka ng layar.

Perinrah dasar yang dipabi dalam pcmrog rama n gr,1 fik dcngan Turbo Pa>cal yaitu bcrupa lnilGraplt, CrapltRC.':Iit cl.m CICl.i('( ; r,lph. JnltGraph

Prosedur btilC, aph mcmil ikl uc ntuk dcklJras i: lnitCraph !var KendaiiCrafll<: Integer; var ModeCrafll<: Integer; PathKendall: Str!ngl

Kegunaannya untuk melakukan inisialisasi tcrhadap mode grafll. menyatakan letak dari file pengendali grafik (. BGI) . Jika flit pengcndali grafik berada dalam direktori yang sedang aktif. PathKmdah cukup diisi dengan string kosong. Setelah pcmanggilan prosedur, parameter. KendaliGrafik akan bcrisi kode pengendali g rafik . McngeiUJ. kcmungkinan nilai pada parameter KendaliGrafik dapat dilihat pada T~bd 18-1 . Sebelum pemanggilan, parameter KmdaliGrajik dapat diisi dengan s~bh satu nilai yang ada pada Tabcl 18 - 1. Jika diisi dengan Defect, abn dil akukan pcndeteksian tcrh :1dar hardware ~ccara otonutis. menentub.D jcn i, kcn dali grafik yang akan dimua t (Dalam hal im Kmda/iGraJii 111jlUptm .\JodeGrafik akan dibcri n.ilai dengan sendirinya) . Apabila buhn Detea yang dipilih, pada saat pemanggilan prosedur lr1itGraph. parame-ter .\f,>deGr£ylk harus diisi dengan mode grafik yang diinginlcll'~ Mcn gcna i nilai mode graiik dapat ddihat pada Tabel 18-2. Pa~hKendali

0 1 2 3 4 5 6

-

I ; I i~

10

[_Pcm~

Tabel 18- 2. Tabel mode graflk

- - - -r-·--. - - - - -- - - - · - -- - -··- ·-- -- ---- - -Konstanta

XVIII.::Z PERINTAH DASAR

Nil at

Konstanta Detect CCA MCGA EGA ECA64 EGA Mono IBM8514

CGACO CGAC1 CGAC2 CGAC3 CGAHI MCCACO MCCAC1 MCGAC2 MCCAC3 MCCAMed MCCAHI EGALO EGAHi EGA64Lo EGA64HI EGAMonoHI HercMonoHI Arr400CO ATT400C1 ATT400C2 ATT400C3 ATT400Med Arr400HI VCALo \'GAMed 't'CAHI PC3270HI IMBS14Lo ~8514HI -- ~

Nil aI 0 1 2 3 4 0 1

2 3 4 5 0 1 0 1 3 0 0 1 2 3 4 5 0 1

2 0 0

eterangan

320x200. palet 0: Hl)au cerah, Merah cerar1. Kunlng, 1 halaman 320x200, palet 1: Sian cerah, M2genta cer2h . Putih. 1 halamJn 320x200, palet 2: Hljau, Merat-, Coklat, 1 halaman 320 x200, palet 3: Sian, Magenta, Abu ·atu cerah. 1 halaman 640 x200, 1 halaman 320x200, palet 0: H!jau cerah, Merah cerah. Kunlng, 1 11alaman 320 x200, palet 1: Sian cerah. Magen ta cerah. Putih, 1 halaman 320 x200, paler 2: Hljau, Merah, Coklat, 1 halaman 320 x 200, palet 3: Sian, MagefJta. Abu·abu cerah, 1 hataman 640 x200, 1 halaman 640x480, 1 halaman 640 x200, 16 wama. 4 hataman 640x 350, 4 wama. 2 halaman 640x200, 16 warna, 1 halaman 640x350, 4 wama. 1 halaman 640x3SO 64K pada l<artu. 1 ha!aman· 256K pada l<artu, 2 halaman 720x348, 2 halaman 320 x200, palet 0: Hl)au cerah. Merah cera h. Kunlng, 1 halaman 320x200, palet 1: Sian cerah. Magenta cerah, Putlh, 1 halaman 320x200, palet 2: Hljau, Merah, Col
Kesalahan yang mungkin terjadi sesudah pemanggilan prosedur

JnitGraph dapat diperiksa melalui fungsi GraphResult. '

c• ------------------------------------------- •> c• File : BUKAGRAF.IHC . •> Deriai prosedur Iniaia11sas1Graf1k •> c•

-=..... .. ,,

.

•> c• ------------------------------------------- •> (* Fungsi: Untuk

craphResult F ungsi GraphRemlt (tanpa argum en) dipa kai uncuk memperolch kode

f.lodeGrafik: WTEGER); VA'R KodeKesalahan: HITEGER;

Tabel 18-3. Kode kesalahan keluaran CraphResutr

grOk grNolnltGraph

Nilai

grNoDetected grFIIeNotFound grlnvalldDrlver grNoloadMem grNoScanMem

-5 -6

grNoFioodMem

-7

grFontNotFound grNoFontMem grlnvalidMode grError griOerror grlnvalldFont grlnvalldFontNum grtnvalldDevlceNum

Keterangan

0 -1

-2 -3 -4

-8 -9 - 10 - 11

- 12 -13 -14 · -15

Tak ada kesalahan File .BGI belum dlinstai tGunakan JnltCrapnlcsl Tak ada perangkat keras grafi k yang terdeteksl File kendali graflk tak ditemuka n File kendall gram: tak berlalcu Memorl tak cukup untuk mernuat file pengendaii gram Memori tak cukup saat me laksanakan pemenuhan are< secara scan. Memorl tak cukup saat mela ~sanal
, I

I !

ctosecraph Prosedu r CloseCraph (tanpa parameter) digunakan untuk menutup si~tem grafik . Prosedur ini akan mengcmbalikan ke mode yang akrif ~) bcl um mode grafik diaktifkan . Contoh : Contoh prosedur untuk mcm buka sistcm grafik bcscrta pcngecrkan tcrhadap kcmungkinan kcsalah.1n g rafi k : ubk•h ~ch ~~ ; b r' rilc., •·

siatem grafik

PROCEDURE InisialisasiGrafiK (VAR KendaliGraflk,

kesalaha n terhad ap ope ras1 g rafik. H asil ke ba ran fungsi bertipe integer, dengan kemungkinan ditunjukkan pada T abcl 18-3. Seperti loRrsulr, GrnphResult juga di-reset sa m a dengan no l se t iap kali sesudah fungsi ini d ipanggil.

Konstanta

m~buka

f

'l

1 ,

l

I

I

BEGIN HHTGRAPH (KendaliGrafik, f.1odeGrafik, "); KodeKesalahan :: GRAPHRESULT; IF KodaKesa l ahan <> 0 THEil BEGIN WRITELtl ('Kode kesalahan grafik = Kode Ke sa 1 aha n) : HALT ( 1 ) ; { oerhent i ) END; Etm; { akh i r pro sedur Inisialisasi grafik }

4

Proutlu r 18- 1.

j

Pad.1 p1 oscdu r /nis:'ali.ias iGr.}ik. mula- m ula dil ak ukan proses m embu ka /nir G.r.,aplz. Da b m hal ini jeni!> pengendali grafik dapat diatur melalui parame'tcr dari proscdur irlisialisaJiGrajlk . Jika misalnya Kc11JaliGrafik diisi dcngan nilai Detect, maka proses pemilihan pengendali grafik maupun m ode g rafik akan dilakubn secara otomatis. Misal:

1

SJ~ (l'll l g rafik dcn gan menggunakan

"

KendaiiGraflk := DETECT; lnlslallsasiGraflk tKendaiiGraflk, ModeGraflkl;·

Seandain ya ing in m emilih secara lan gsung ~ u a tu pcn gcn d ali grafik , nub. paramete r KetJdaliCrafik harusb h bc ri si kod c pengend ali g ra fi.k d.m mode grafi k J iisi dcngan mode yang bcrl ak u. Conroh unruk m cmilih pen gcndali grafik adab h CG A dengan m o de grafi k adala h m o de rcsolusi tinggi : Kendai!Graflk := CGA: ModeGraflk := CGAHI; _ lnisi:JII<;;><;I(;r:Jfllr f 11',.,.,,. ,,: ~ --:> ''

·

:•.1 t' \1

!::

(dalam hal ini, fak tor peng~li berupa konstanta FAKTOR..TINGGI) . Grafik dibuat dengan sumbu horizontal (sumbu X) pada koordinat Y hma deugan 100, sehlngga nilai sinus dikal ikan FAKTOR_TINGGI bersifat rclatif terhadap koordinat Y ini . Pada koordinat X, satu pcriode grafik sinus terdiri dari 40 pik sd. Dengan demikian, sctiap satu pikscl pada arah mendatJr mewakili 3.14 I (Periode~2) atau 3.1 4 120 radian .

Setelah prosedur InitGraph dijalankan, GraphResult dipanggi! dengao maksud WlCUk mendetd:si adanya kesalahan . grafik'! arau tidak.. ' Kalau terdapat kesalahan, ek..~k.usi program dihentikarr dengan terlebih dahulu memberikan pesan kesalahan. " Dalam bcn tuk diagram a!i r, langkah dalam pemrograman grafik dengan Turbo Pascal ada!:ili sepcrti yang tertera pada Gam bar .18-l.

.

. - - · - - - - - -·

I 1

Membul
pJI(lGRAH S1n<Jo ;

)

(•

t

(t COntoh ~· k a1ar> P"v1PH El

·

t•

untuk .ce•bu•t gr a' t ...

1l

(•

t)

·1 nua

t)

·----

•)

USES GRAP><, CR T;

i

(t

( SI 8UKAGRAF. INC

l'aan~taa

'-W'ttuk - •b uka aiata• grafH. t)

i

rmenutup slstem graflk dengan

CloseCraph

·~

l 1

Gambar 18 - 1. L.Jngkah ptmrog raman g rafik

j

j

;,

XV1!1.3 MENGAKSES PIKSEL

Fa ., ilicas uncuk mengakscs piksel sccar.1 indi\'idual ada dua buah, berupl rrosedur PutPixel dan fungsi CerPixt'i.

VAR

CONST

PERIOOE

•c :

1 p • r t od•

SATU_PIKSH

3 . 1415~ / (PERIOOE/2);

~tu

1 ~ 0:

~ UWBU~~

~

P051Sl_X_AWAL

FA KTOR_T IHOGI

~

.t

IIHEGO;

PROCEDURE Craf1k5invw ;

,~

'l

~ Gr af 1k:

Kenda110rof1k,

=

poat st

PMI : 20

10 ,

poa t a t bart• aNal dart ai nua

1v .

fa ktor pe n ga l i n11ai sinu•

H ila1

RE AL:

nih\ t inu a d1kaH kan faktor ptmga11 !KAL-_TINGOI

x

WORD;

p,•nc....c.a rl posiai awal -...pat akhtr gr,ftk •inu•

lEG Ill FOR a : c 0 TOe IIEGI" N11a1

Bentuk prosedur PutPixel:

t

Pf~lOOf

00

: • fiUCTOR_TlttGGI •

( buat

e

periode •1nva,

(SIN (a o SATU_PIKSH)) ;

PtTTPIXfl (x+P0515l_J _ AWAL , lll'IIIIU_l - IIOUIIO(Hila 1). 1} : END;

Prosedur ini dipakai untuk membuat ticik (piksel) pada koordinat (x, y) atau baris x, kolom y. Wama piksel tergantung nilai dari parameter Wama . · Contoh penggunaan prosedur ini misalnya untuk membuat gralik sinus, sebagaimana disajikan pada Program 18-1. Pada program ini. pcmilihan pengendali grafik besena mode aktif dibangkitkan sendiri oleh program. Hal ini diperoleh dengan cara melewatkan konstanta Drttct kt \'ariabcl yang nantinya dilewatkan pada (It~isialisasiCrafik) . McngeiUi proses ' pembuatan grafik sinus dllakukan pada prosedur GambarSinUJ. Pada proscdur ini, karena nilai sinus hanya berkisar antara 1 sampai n -1, maka perlu fak tor pengali untuk mem perbesar gambar

•e~ Mk11 1

aUI'Ib u X dart •t nvw

VAR

PutPixel

PutPixellx,v: Integer; Wama: Wordl

a i nua • 40 pikael

ptkael

010; { akh1r proeedUr Graf1kSinus ) lfGIN (0 pro!Jr. . ut . . . ' ) Kenda11Graf1k :• DETfCT ;

In!etal!aa•tOraf ik («•nda l iQraftk, ModeQrafi k); OrafikS!nua ; REPEAT UIITIL KEYI>R£ SSED; CLOSECRAPtt

lNO .

Program 18- 1.

CetPixel

Bentuk fun gs i CetPixcl·

( t1f>9g1 terhacSAp - b u x (

buat plk-1

poslsl

i - ~;

(\

.

{\

{\ I

\

I

I

\j

I

\ 0

I

I

\j

'

f\

(\

. . I

\

v

I

. . I

\

'\

I

\j

i\

I

\

\

I

I

v

semula ox

·;;,;l oy

.

\

1

I

\j

11

I

Fung si ini di gunakan uncuk mcmperolch warna dari pik sel yang ocrada koordinat (x, y). Kclu:uan bcrtipe word .

XVIII.4 MEMINDAH PENUNJUK GAMBAR Pcnunj uk ga mb:u nng fungsin ya semacam pandu / kurso r pad1 mode rL·b ( h ~, , ~y:t sJja ra k tampak) dapat dipindah dcngan mengg una b n prosed u r ;\i,, ,,eTo dan .\1vveRel.

:1

l I l •

j ]

MOVeTO

Bcnruk proscdur .\Jvl'e To: MoveTolx,y: lntegerl

P roscdur ini dipakai untuk memindahkan penunjuk gam bar ke koordinat (x, y). MoveRe!

Bentuk proscdur MoveRe/ : MoveReiiDx.Dy: lntegerl

P rosedur ini bcrguna untuk mcmindahkan pcnunjuk gambar ~rl rcl :ni f kc kan an scbanyak Dx pikscl dan kc bawah sebanyak Dy ptbd tcrhadap posisi pcnunjuk gambar semula. Jika Dx bernilai ncg1cif. pcnunjuk gambar dipidahkan ke kiri . Jika Dy bernilai negatif. pemmjuk g:-~mbar dipindahkan ke atas. ?,') "l

i•

I

'---

klnl IX+DX.Y+DYl

--

Gom bar 18- J. Prmin~J,,Jo,m P"'unjulr _cambar ucara rda t((

~G-a-n-rb_J_r_l_8___l_.-G-r-afi-.k- -Jr-_n_u_!_h_a-Ji_I_P-ro_g_r-am__1_8___1______________________~ -~

p;~da

, '·'' ! poslsl

XVIII.S MEMBUAT GARIS Ada riga bu.1h sub p rogr.ttll y.11 . berkaitan ckn gdn pcmbua ran garis , berupa p f0s nlur Line , LincFo d an Lin eRcl . Fasi!itas iai n yang berpcn g aruh tcrhad .1 p gari s bcrup .1 proscdur SctLin i'Style d:m Sr tWri1eMl'de. !vlcngcnai w .trna g:•ri~ akJn dibicarJk.tn di belakang.

une!X1 ,V1.x2 .y2: Integer! Pr o scd~ r in i .lrpabi tln t uk rllclllbu :lt g.tris dari koordin ar (x l. yl) sampai (x2 . y2). Sif. rr tidak rncn g ub.rh posi si pcnunjuk gamb .1r.

llneTO(X.Yl

Proscdu r in1 d1g unak :rn unruk !llc m bua r ~a ri s d.1ri po -; i.;i pc n unjuk garis s.1mpa i koo rdinat (x . y) . Sc\t Jd ah pcrnbujcan gari s, p er~u njuk g am bar bera da pad.t (x, y) . Contoh progra m ya n g l!lclibarkan pembuatan garis yairu untuk membuat g:-~mbar pcrahu la ya r (dapat dilihat pada Program 18-2). Pernbuatan gambar dilakukan dcngan memanfaatkan perintah :\1o••cTo dan Lim·To. Pada program ini, kcndali grafik bcrupa CGA d an mode grafik berupa mode 320-200 palet 0. PROGRAM Perahulayar;

<• --------------------------------- •> (' Contoh pe111akaian LIIIETO dan I-lOVE •) <• untuk ••mbuat ga111bar perahu layar •>

<• -------- -- --------------- -------- •> USES GRAPH, CRT; {Sl

BUKAGRA~.

!tiC

<•

raallltas untu k membuka slstam graflk

VAR

Kanda liOraflk, ModaOrartk l IIITfOER ;

•>

p~oceOUR!

setunestyte
OambarPerahuL4Yirl

Prosedur ini digunakan untuk mcngatur bentuk dan ketebalan suatu garis. BentukGrs yang m enyatakan bentuk garis dapat diis i dengan konstanta SolidLn, DottedLn , C emerLn, Dash cdL11 atau UserBicLn .

BEGIN { l...,bung } MOVETO (10~. 100}; LIIIETO ( 21 5, 100); LINETO ( 200,

125) ;

UNETO (120,

I 2~);

LI NETO ( 105,

100):

Tabel 18- 4. Tabel bentuk dan keteba!an garis Konstanta

( laya r } MOVETO ( 1 ao,

100):

LINETO ( 180,

40 ):

L HIETO ( 140,

90);

LWETO (180,

90):

I

t

EIW; { &khl r proaedur G..,.barPera hulayar BEGIN (O prograrn uta~• O) KendaliGraflk : = CGA: ( men ggunakan CGA } ~oaeGr&fik := CGACO: ( ~oda grafik re &olue i menengah, palet 0}

Inlolalla~~ i G ra flk {Ke nda liGra fi k, ModoGrafik); GambarPerahuLa yar: REPEAT UN TIL KEYPRE33EO; END.

Progra m 18-2.

UneReHDx.Dy: lntegerl Prosedur ini dipabi untuk membuat ga ris mul::li posisi pcnunjuk gambar sampai lokasi dengan jarak Dx pik sel ke kanan dan Dy piksel ke bawah. Sesudah penggambaran, penunjuk gam bar ditempatkaan pada lokasi akhir garis. ( 160 , 40).

Nilai

0

solldln oottedLn centerLn oashedln userBitLn NormWidth ThickWidth

1 2 3 4

0 3

Jika Bem11kGrs diis i dcngan c_,c•H1rL •J , p:~ramc t cr p,,Ja pcrlu dibe ri nilai yang menyat:~bn pola g ar i~ ~ ang diddlni sibn t't' mrog ram. Contoh pada ga ri s bu:~ t an. ya itt1 polJ d u1pn nila i AAAAh atau dalam bcntuk 4 bincr hcru pa

J "'lf

CLOSE GRAPH

[

1010101010]()1010 (16 bit) Sct iap bit bcrnibi I mcn y :~t ak.on i' i;: sc l ,iig.l!n b.tr dan /1 tid:~ k .i :gamlJJr. Paramc:tcr K rrchalarl dapa t d1 is1 ,1c n ~.H~ i'\lNm lFidth atau T hrd:Widt!J, ya ng menyataka n k c r c b:~la n g.m s Benruk ga ri s dan kcrebalan dan keempat bcntuk g ar i~ ba " ·aa n dan scbuah garis den gan pola bu :HaiJ (bc rnilai AAAAh) dapar dilihat pada Gambar 18-4. Cataran: Disampin g prosedur in i b;: rpcngaruh terhada p Line, Line To maupun LineRd, juga bc rpengaruh terhadap DrawPo ly , Arc dan sebagain ya .

SetwrtteMode<ModeTulls: lntegerJ Prosedur ini digunakan untu k m en~ atur mode pada pcmbuar:m gans. ModeTulis dapat diisi den gan kom t:m ta C opy Put atau .\ O R1'111 . Tabel 18- 5. Tabet mOde penullsan untuk setwmeMode

(1 4::1,90) (21~.100)

(105,100)

I

<1 ao.1oo>

/

~---------------J (200 ,1 2 5 )

(120.12 5 )

Gambar 18-•. Gambar pcrahN hasil Program 18 - Z

Konstanta CopyPut XORPut

I Nllai

Keterangan Garis dibuat tanca memperhatll
Catatan : Proscdur 111i bcrpe ngaruh tcrh .1 •bp L.i• 11·. I, ... Rr·rrm;,,l,· l • · · f '

..-r..

I ;, .., o ·1

---~

!:

-· -~-- ------

I

NorMUidth

ThickUidth >

I

I:

I I

I

I:

I

I

f

I

I

:

II.

'

I I

·1 ; I

I

I I

I

I I i 'I I

:.

't

I

:

:

:I

I;

I: I

: .

:

II

•:

I

'

0 12 J 4

I

I

: ,, :

I .

I

J

:

I

I

I

.. .lj··· \

lfl

If

11

I I

I

:

•

•' •'

.•'

,•

,t'

I

:i : I

}

!.. ...............................,,

I

·~

I

·1

:,,-I

l

2~

J

0 1

II

,•'

. ,t"'"ll\

'·

....... ................ ..... ................................. 1...... ........... ....

-

i

•, .I\"" ., -I

1

--

...--......

'•,

! ....

1

I I

I II

...

·. '•

·'f

I

I

I

1

..,

I

J

I

I

I

•

I I

I

I I

I

!_.... :..................... SdtAkhi r

I

:................ . . .. . . . . . . . . . . . . . SdtAwa 1 '

l

:. . . . . . .. ,.. . . . .. . . . . . . . . . .. .. ... . . (X I 'y)

:.......... ...... · .... ··· · . ·· ·Radius

Gilmbar 18-J. B trbJ_eai hwtuk rian kntbJ/an ga riJ

- -18~6. - -Paramnu - - -d.1/am - -.·lrc' - - -- - - - - - - - -

G<Jmhar

! j

XVIII.6 MEMBUAT ELEMEN BANCUN

'

DrawPolyCJumrltlk: Word; var HlmoTitlkJ

Berbagai bemuk bangun dapat dibuar dengan mcnggunakan fasiJir;u yang disediakan dalam unit Graph. Arc

<x.v:

Pco,cducyang ini terrutup: becm,n(.,, untuk mcmbu" poligon. Cm " "mb,, poligon

Integer; SdtAwar. SdtAkhlr. Radius: WordJ

Prosedur Arc berguna untuk membikin busur lingkaran yang bcrpus•t pad a (x, y) dengan jari-jari Radius, dimul ai d ari sudur SdtA wnl sampJi sud ur SdrAkh ir. Sudut dinyarakan dalam dcrajat . Arah putaran suduc herl :l\n11an dcnga n p utaran j arum jam . Posisi jam 3 menyarakan suduc 0°, posi si jam 12 mcnyarakan s udut 90°.

• }umTirik • Himp Tirik

d;;,; deng•njumbh titik pojuk poligun dit,nb,h dcng"'

1.

bcrupo doro •duruh koocdnut ti•ik pujnk polignn scban yak }um Tirik, dcngan ketenruan : HimpTitik[1J == HimpTirikUumTitik + lJ

Clrcrecx. v: Integer; Radius: Word) Prosedur Circll' dip.1kai untuk membuat lingka rJ n yang berpusat koordinJt (x. y) dcngan ja ri-jari scbcsar Radi11s.

pad~ Gam bar sepnci ra ch G1mh.,,. · Q

~. I

I I

_

.____~

.. _ _ _ _

-·,

•

""·~ . . , . ...

mz

9

ncr n•n

.~ ,. ,~ ·"'

I"

,,

. :-~ ..,·. ~ .; ....-

BfOIII (• progr~ ut...._ •)

~Oa.Graftk

------

RF.PEA T UNTIL

.........--- - - - - - - - /

......__

"\..

-

--.__ ·-._

EIIO •

.-:;~:~·;:60' 110) \ l

KE 'fP~ESS EO;

CLOSEGRAPH

.........

~---

\

( ~$nggur.akan CGA } : : CGACO; { moda grafik raao1us1 tlnggt, oalat 0) l nl aialtsaaiGraflk (Kendal!Graflk, UodaGrilffk) ; BuatPoligon;

_,....,-----:7"" _,....· (100,100)

\

kendal1Gra1ik :: CGA;

. (225,70)

Program 18-J.

Elllpse<x,y: Integer; SdtAwal, SdtAk:hlr: Word: Radlusx. RadJusY: word>

\.

\

.......--...._\ ..,..__

....-.. ,·,

i

•

--.:4,

f

j

( 190,150)

1

j Gambar 18-7. Gombar haJi/ Program JS -J

Prosedur in i dipaka j unruk mcrnbuar busur dips yang b-: rpu sar pada koordinar rx .y). Jcn gari ja r i-jari pada sumbu mendar.1r adal ah R adiusX ch n jari-j an pa d a sum bu regak scbes.1r Radills Y Busur eli ps di bcmuk d:n i su dut S dr.1!l'al sam pa1 S drAkhir. Sifat sudut seperti pad.1 proscdur ."ire flips pcn:Jh dapar d ipcrolch dc11gan membcrik.an nilai Sdr.4wai == (J da n S dt A khir == 36c)

I I

l

PROGRAM Pollgon;

<•

~ --- - - --

·J

.

( ' Contoh pemilkaian DRAHPCt.Y untuk membuilt ooligon • )

<• -------------------

)

USES GRAPH, CRT;

{SI

BUKAGRAF.It~

' J

(• fasilitas untuk membuka sist a~ graflk •1

VAR kandal!Graflk, ModeOrafik : 1NTE9ER; PROCEDURE BuatPo11gon; COtiST JtMTTk DataPollgon

=

5; { 4 tltlk pollgon + 1 ) ARRAY[1 . . JUMTTK] OF RECORD X, Y:

~/ORO

EIIO ((X:100;Y:100), (X : 1110; Y: 110) ,

(X : 225;Y:70), ( X : 190 ; Y : 150) ,

BEGIN ORAWPOLV (JU!UTK, OataPollgonJ ; EtiO ;

r

~kh__ir

n ,.."' .. ... .... ,_ ~

( X : 100; Y : 100)) ;

I

L_. . _····-f·---w (X, Y)

~... :. .____ Rad iusX

:·---.. .. . . .-......... . ...._. __ Radius Y

L_

tl

SdtAwal 0 SdtAkhir - J~O

~

}

--yJ

~

·1

Rectangle<X1 .Y1.X2. Y2l Untuk membuat persegi panjang yang memiliki koordinar pojok ki riatas (xl,yl) dan koordinat pojok kanan-atas (x2.y2) .

~:1 ~1

XV111.7 MENCATUR WARNA, POLA, MENGARSIR, DAN MEMBLOK setColor
Contoh:

SetBkColor(1); mc rupakan perintah un tu k memilih warna Jatar belakang sama den g an ! ata u wa rna biru ru2 . Pcngu b :~ha n I.
setFiiiPattemly, F/,,,,.Jfi li . Fii/£1/ipse. Bc1r , Har3D dan PieS/ice .

parameter KodeWanw ) yang dipakai u n(llk mcngg alll b,n . Warm y a n~· chguna kan untuk m cn g g am har ditcntukan j ug J ok h pakt. Pada adapter CGA, khususnya unt u k mod e rcso lu si mcn engah cc rdapat 4 palr t. Warn:~ ,·:mg sesu ai dt:ng J n p alt:t d,1pa t c1i!ihat pada T abcl JH-6 atau Tabcl 18-l.

I

l I

,--2---,--3---·

Warna

j 1

~ --rl·

1

! - - - ·

I, T1 I

1

- - - - - --- - ---.

Paiet

2 3

i-:: ~ rcr ang:: n :

I LBLB l LB LB

nI J. , I I· ri-m-;-~, .·,.I '

Tabel 18- 6. Dattar warna palet

I Hijau cerah

I Sian ceran 1 Hijau _Lsian

I. Merah cerah Magenta cerah j'

Merah l,lagenta

I

I

I

l

'

I

I 4 Jo

I

i.

!

I

I

I

SetColor(2); mcru pJ kan in struksi untuk memilih wa rna n o rnor 2 p:t!ct yang scdang ak ti f.

v a t ~g: sc s u~i

~~

I

6

I • I •

I

I

I

I •

c .. mbar

~ ~.~!

18-9.

I

~

24h

1101 1011

~

DBh

0010 0100

= 24h

-,

i

..

I

i

l .

7

Bj•j•!

dcngan

SetBkColonKodeWarnal Prosn lur SctBkColor dipak a i untuk m cncntuk an w a rr. .1 l.lc,u bcl ab ng g.unbar. Nilai unt u k J..:o ./,·ll',muz bcrki sar Jnta ra 0 sam pat 15 . Ko J c w arm untuk latar bdakang gamb.tr sama den gan ko d.: w .~r m ;:'.Jd.t mo,k eeL (Li h .1t T .1l, -! 11 -1 .1,-

~

i

1

I 0010 0100

I I O

·I I I·; I •I•!

"~

1

·

24h

1101 1011 = DBh

I

I

·l'

4

i

'

I

!

LB = wam .1 b r;; r bd J k an g

'

I

!1 i ' 1' 1

~

I

I ' l I I.! i . :J I I'

3I

I

-~~_u__ j

Contoh :

0010 0100

I

,-- 1- l

Putih coklat

P ad a mode resolusi tingg i (CGA), kode warna berk isa r antara 0 sampai 1. K o de warna 0 menyatakan w arna yang sesuai dcn g:m latar belakan g dan kode warna 1 m erupakan warna aktif.

~

2 li · tl ·m ~ . ~ . ----t~ ,·I~

j Kun ing 1

I

1

I •

I·

1101 1011 = DBh

j

j

~~ ·llJ

0010 0100 = 24h

1101 1011 = DSh

M nunrwlr~" pol~

~-1cn genai t1p<" d:tri p.uamc.:tt:r Pt>la yJi tu f-i ll P
------ - - - ·- - - -...~

Tampak. Pola berupa array yang terdiri dari 8 elemen ber~ie~ byte. Setiap elemen ini menyatakan pola 8 piksel. Nilai 1 pada masing..:irtasing bit a.b.'l menyebabkan pipe! digambar. Contoh mengisi pola secara lengkap ditunjukkan pada Gambar 18-9. Kesalahan yang mungkin terjadi sctebh pemanggilan proscdur ini dapat dilihat dengan memeriksa Graph Result, berupa nilai - 11 (grError). Kesalahan iru disebabkan adan ya ma sukan pada proscdur SetFil/Parten1 yang tak berlaku.

setFIIIstyle Prosedur ini uncuk menentukan pola dan warna ars iran yang nantinya digunakan oleh Fii/Pvly, FloodFi!!, FiliEi!ipse, Bar, BarJD dan PieS/ice. Bedanya dengan SetFil!Pattem, pada proscdur SetFi!!Style discdiakan berbagai pilihan pola . Pola dapat dipilih dcngan membcrikan nilai vang tertera pada Tabel 18-7 ke dalam parameter Pola. Apabila Pola di-;si dengan UserFi/1, pola aktif yang digunakan sesuai dengan po la yang didefinisikan pada SetFi!IPa uem. Kesalahan yang mungkin terjadi disebabbn o!eh adanya masukan pada proscdur yang tak berlaku. Ke sabh an dapat dipc riksa p ad .1 CraphResu!t berupa nila i -11 (g1Error ).

·

··- ~

-

~ -....-.-:....__.-

-

1

s-

~

Tabel 18-7. Pola plllhan untuk SetFI/IStyte

t

----,...-- -- - Konstanta

NHal

~

Err.pryFill SOI!dFill UneFill LtSiashFIII

0

\ _.A :i

1 ~

j

Ij J

I I /,·

2 3

s~shFm

SkSiashFill LtSkS!ashFIII HatchFIII lnterleaveFiil WideDotFIII CloseootFill UserFIII

4 5 6 7

a 9 10 11

I

BartX1,}'1,x2,y2: tntegerl

Proscdur ir.i b cr~l'r ' " lllll lJ k rnnn huJ t scbu.1h hatang yang mcmpun ya i koo rd inar pojok ki rr -..r .1 ' (x!. y l ) dan f' ojok kanan-ba wah (x2 , y2). :\rsir;J n pada b.1t. :••~· ,n r.• w arn JY!\ -,1 chpar diatur mcblui SetFil!I'atrcm at:Ju

SrrFi!!St ylc.

1 1

01~1 0

1

2

-3

IIII ' ' ' I"" ' " ' Ill 4

5

6- 7 .... .' .. ........... .......... '... . ........ ....... ....'... .............. ...········· ....... ............ . . . . . ........ ...... 0

•

8

9

0

I

0

I

•

•

10

f

c•

<•

... .. ......

t •·

t ;"\

------

•)

( (SI 8UKAORAF.ING )

<•

f••11it~• untuk m~mbuka eiste~ graf1k

VAR KendaliGraftk, Moo.Grartk :

ItiTEGER;

PROCEDURE Dtagra•Bat&r.<J ; CClfl!IT SELAHG_P IKSE L o 5 ; LfBAR_BATAilG

•

4 •

SfLAtlG_PIK!lEL;

JUHLAA_IIATAHO •

e;

Data_eatang

AR U.< "f( 1 .. JUHLAI1_BAHIIGJ OF BYTE

• (8 , 1 4 , tO, II, 9, II); Jenla_ Pola

........ .

11

•)

USES GRAPH, CRT ;

ARPoH ( 1. . JU14lAA_8ATAtiG) OF BYTE

=

(10,

2,

' · !, 3, 1);

AQP~ t [ 1 .. J~LAA _ 8ATA110 )

Warna ~ \';\Q

1

----- -

(• Contoh P4tlnl!kata n f}AR untuk tr:i'~buat d lio. gr.a,. b•tang t)

OOOOOH"

..... . .' ........ ........ .. •

PROORAI< Gatan9:

{ 1 . 1'

:t.

1'

2. 3) ;

OF BYTE

•>

;t

~:·~

•

8EOIN X :: 70 ; Y :: 1&0;

:i

FOR I"
I

LE.BAR_BAT~IG);

Et :D;

HID;

l

rkhir prosedur Q;.agru.B•tang

BEGIN (* progra~ ut~a *) KendaltGr•ftk := CGA; { aenggunakan CGA I {mode graftk resclus l tlnggt, D•let 0) ModeGrartk : = CGACO;

Contoh gam bar diagram batang :I dimens i Jdalah scpcrri pada G:1mbar 18-10. Gamb ,lr in i dipcro kh Jcng an mcngubJh perinrah BAR pada Program IR-3 menjadi: BAR30 IX, Y, X •U:BAR _BATANG. Y·Data_Barang Unceksl • SE LANG_PiKSEL, LEBA~LBATANG DIV 2, TOPONJ

SeLl in itu, pro,cdur i?. c.-:.111,1!./c juga ticbk dipcrluk.ln. sc hingga kbih baik dibuan 6 ~:1_p

Inisiall s .as iG raf1k (J(endaliGr•f\k, P-4ooeGraf lk);

Oiagra•8at&ng ;

REP!AT UNTIL GLOSEORAPH

Seperti hal nya prosedur Bar, prcsedu r Bar3D jugJ bisa menghasilkan hatang riga dimcns i yang diusir. Da hm hal ini, arsiran bcserta warnanya dapat diat ur mchlui Sc:tFii/Parten! maurun SerFii/Style. Acbpun garis luar d::~ ri b~t ang rig:~ dim ensi bi,.l diacur d c ng:~n SctL :>:,· Srr!c cbn SnCoiM

KEYP~!SS!O;

EHO. Pt\".~ ram

18 -- ~.

I I

j

4

i

J.;;

Gamb.~r

18 -1 1. Diagram batang hast/ Program 1) - 4

Bar3DOc1.Yl.x2.V2: Integer; Kedlm: Word; Puncak: Boolean> Prosedur BarJD digunakan untuk m<:'rnbuat batang riga dimensi, yar':! mempuny.1 i koordinat pojok kiri-a f.15 (xl,yl) dan pojok bnan-aw (x2;y2). Parameter Kedlm menyatakan banyaknya piksel yang dipabi untuk mengatur kedalamaQ batang (pembencuk dimensi keriga) . Parameter Prm
Gombar 18-12. Contoh gtJmbor batang titu dimm•i

FloodFIIHx.v: Integer; Pembatas: word> Proscdur Fl<>odFil! dipakai untuk memenuhi/mernbanjiri tbcrah yang dibatasi dcn gan warna Pembatas dengan suaru pob. Pola yang digunaka n untuk kcpcrltiin ini dapa t didefinisibn dcngan SctFillP.7ttarJ atau ScthiiSty/,,. i\pabib (x .y) terlcrak dJlam daerah yang tertnrup, maka dacrah rertutnr terseb ut van g akan d1penuhi/dibanjiri dengan pola. Ad ~1pun jiLl (x. y) tcrkrak di luu dacrah ya ng rcrrurup, ba~iJn luar daer,lh tL·r~e hut yang dipenuhi dengan po la . P.1d.1 s.nr peiJksanaan pcmbanjir.1n rcrh ;ldap su,Hu Lbcrah, Jda kc'Illt.ngkin,ln rcrj .1di kcs~iah.n1. ~>Cfli!'·l ml.!i -7 (.; 1.\'oF/o,>d.\!c•n) y:mg dilusdk.111 <.' ld1 Cr,1phN,·cu/ r. (·,~, 1 r.~l~

., .. ,.,~ ...

,i,,., , .......... ..

=~ ·

CIRCLl l160.100,60l; CIRCLE 1160,100,20l;

SETFILLSTYLE lSOUOlN, 2l; FLOODFIU 1160, 40, 3l;

~

Pad a penggal.m program di atas, mula-mula digambar dua lingkaran dengan pusat (160, 100). Lingkaran kedua berada dalam lingkaran yang pertama . Insrruksi berikutnya merupakan pemilihan pola dengan bemuk SOLIDLN dan warna un tuk pemenuhan adalah warna 2. Selanjutnya adanya perintah FLO O · ~ ILL menyebakan daerah tertutup yang diwakili dcn gan ti tik (l bu, 40) berada di dalamnya (dengan warna penut u p area adalah 3), dibanji ri dengan pola SOLIDLN bcrwarna 2. In i bcrarti bah wa da erah antara dua lingkaran akan diarsir/dibanjiri dengan w arna 2.

FIIIPolyOumntfk: word:

FIIIEIIIpselx,y: Integer; Radlusx.RadlusY: Word> Digunakan untuk membuat dips yang berpusat pada (x, y), dengan jarijari pada sumbu mendatar sebesar RadiusX danjari-jari pada sumbu tegak sebesar RadiusX, yang diarsir dengan pola dan wa.rna yang ditcntukan melalui SetFil/Pattem atau SetFil/Style. Warna dan bentuk garis luar ellips dapat diatur dengan SetColor dan SetLineJtyle.

Sifat sudut seperri pada prosedur Arc. Kesalahan yang mungkin tcrj ad i berupa nil a1 - 6(f!r.\loScarJ.\1em). C o ncoh gambar diagram lingkaran dapat dil ihat p,tcl;l Ga 111 bar 18-1.3, v.mg dihasilkan olch Progra m 18- 5.

~~

i

~

P~OO~~

Dlatr. . Ltntkaran;

('

- - - - ---------- ' I

(. ~

1

Dipakai untuk membuat potongan diagram lingkaran yang mempunyai koordinat pusat (x. y), mulai sudut SdtA wal sampai SdtAkhir, bcrjari-jJri sebesar Radius. Arsiran beserta warnanya dapat diatur dengan SetFil/Pat· t tern atau SetFillStyle. Warna dan benruk garis luar dapar diatur melalui SetColor dan SetLineStyle. Diagram lingkaran penuh dapat diperoleh dengan mcmbcrikan nilai:

• Sdr4 11 :1l = n

me ~b uat

d i agr a~

•) •)

lr.l£3 GRAPH , CRT; {$1 BUKAGRAf . INC

(• f•v41 i taa un t u k

aemovk~

at~ t G~

gr~r ~ ~

•}

YAR Kendal1Qraf1k, NooeOraf1k : IIITEGE R; ?PCC EDURE a uat Otagr••Li ng karan : CON 5T X

:

1&0; 100;

~A O ilr.l

.~

:

4 0;

8 EG!" SE TFILLSTYl£ (SOLI OFILL, 3) ; PIESLICE ( X, Y, 0, 90 , RAOIU3); SETFilLSTYl£ (INTEALEAYEFILL, 3); PIESLICE (X, Y, 90, 21~. RAD I US);

1

SEffiLLSTYLE (LTBKSLASHFILL, 3); PifSLICE (X, Y, 215, 300, RAOilJ!l ); EtJO ; ( akhl r pro. .dur Dl agra10L l ngkaran BfGI ~

(t

progr . . uta. .

K•n ~11Gr~f1k

t)

:: CGA;

( ••nggunakan

CO~

)

: • COACO ; (.ode graflk r eeoluel tlnggl, pal•t 0 ) In1• i alleael0raflk ( Kenda110raf1k, ModeO raflk} ;

~oGraf l k

PleSIIcelx.v: Integer; SdtAwal. SdtAkhlr, Radius: Word>

); n qka r ~ n

~- - --- - - ---- - - -- -- ---- -- -- -- -

( • Contoh p . . . ka1an PIESL! CE un t uk

var HlmpTitlk>

Keg uman prosedur ini sa ma de ngan DrawPoly yaitu untuk membuat poligon. H anya s:tja pol ignn yang dih :~silkan olch prosedur Fil/Poly dapat di arsi r. 1\rsirar. beserra w arnanva tergantung oleh pola yang didefinisikan dcn gan SerFii/ P,.rtcm :lt.J.u SecFillSr yle. Garis luar po ligon akan digam bar dengan bcnt uk g.!ris d l n wJrn,l yang ditcmubn melalui Set Lin eStyle dan Sc rColor. Kes alahan yang mungkin re rjadi dapat diperiksa dengan mcmanggil GruphReslllt beml2P nilai -6 {g rNoScm1.'1.1em) .

~ ~""

BvatGiagra•Lingkaran : REPEAT UNTIL KfYP Rf SS fO ; CLOSEO~APM

EtlO .

-

.,o

. . :: :=:: ? :.~

f-....

: .. ..

~

.................-' ::=

-

Gombar 18-13. Diagram lin_..;karan h.Hil Program 18 - 4

Sector <X. Y: Integer; SdtAwal. SdtAkhlr, RadX. RadY: Wordl Proscdur ini dipakai unruk mcmbu:!t sc;,;ror nng : ~ =pusar pad.t (X.Y) dcnganjari-jari p:~da arah mcnoatar d:~ n ,·cnib! aJ_:2h RadX dan Rad'(. dengan busur dirnuiai dari sudw Srli.-l.u:,;/ dan c·~· .khir pada sudur SdtAkhir. Arsiran dapat rli:mn mdalui ~·crFi!Wz:· · · Jt au ScrFii!Srj'i<. Sedangkan ga ris luar dapa: diarur dcngan ScrC,•I, · d .1n St'tLineSry!,•. Contoh penggJlan prngram bc rikut : SETFILLSTYLE IUNEFILL, 31: SECTOR 1122, 70, 30, 145, 50, 301; SETFILLSTYLE ONTERLEAVEFILL, 21; SECTOR 1172, 70, 0, 90, 50, 30!; SETFILLSTYLE fBKSLASHFILL, 1l; SECTOR (160, 110, 45, 315, 60, 301;

GambJr 18-14 . Cont(lh X·""h"r Y"" .l: Jipero/,·h

.! . .. ~ ·"'

St•cto r

X'/111.8 FASI!.ITAS TEKS DALAM MODE f;IIAFII< Bcrbagai fasiliras y.mg bcrbitJn l kn ~. m ;. · ' 'ilpii.m rcbjug3 discdiakatt dalam Tmbo Pascal. Snacu tcks cbp.H '· "npilk.m Jcngan bcrbJg:Ji benruk tulisan lll:ll!J.~un ukur,mn y.1. -,, r d.tp:lt dirampilkan dcng:1n mudah dengan arah vc nikal araupun h 0 nr•. •Ltl. Kcscmua fasili tas scpcrti ini akan dibahas pacb sub bab ini. Pcrlu dikctahui, pcngertian tcks di sini i:· '' 'J'·l string saja. Bcrdasarkan hal ini, scandainya akan mcnampil kan •'" 1 angka , haruslah terlcbih dahulu dikonversi mcnjadi string.

akan menghasilkan keluaran seperti pad a Gambar l :3 -14.

SetGraphButslzeiUkuranBuf: word) Dipakai untuk mcngubah ukuran penampung (lw ;:,-r ~ ang digunabn untuk proses pemenuhan sccara horizontai (scan ' HJu pembanjiran (flood). Ukuran pcnampung b:nvaan scbcsar 4 K. Jib Jiinginkan untuk mengubah ukuran penampung, maka parameter L'lrurJnBu( perlu dibcri nilai yang menyarakan ukuran penampun g y:~ng baru Biasa nya. ukura n penampung diperbcsar dt·ngan nuksud unruk rn e:-:gh indari kcjadian t>t •c~flow pada pcnampung sn r pelaksana:~n prose~ .-:.:'! maupun .flood. !'">rr' · t'(_...f s ,_

'

,r .. , .. I

Q .. . \

~

1.

OutText (leks: String> Proscdur ini berfungsi untuk men:unp :l t pcnunjuk gambar scclang bcrJJa . F,· •; ' pcngaturan arah pcrum pilan ruli~an d.lp .tt Stylt- dan SetTextjwt~fy (:~kan ,iitr:n ng~

.•

I L k~ kc layar pada postsi

j l·nis culisan, ukuran. • 11 d.Ji ikan dengan SetTcxt,..l.l bngan). Ill

Cataran: Prosedur ini tidak mcmpcn gJ·. '' pos1S1 pcnujuk g:unb:u scsud.1h te L ditalllpilbn.

OutTextXY !X.Y: lntE'rJer: Tel< s Str! r. n 1

£

Catafan:

~~0D.u1k mengatu~ ~~rna tulisan, S~.tCo/g,r_dapat-diperguna­ •

Prosedur SetTextStyle pad~ keadaan bawaan akan menyebabbn data karakter pada file yang bersangkutan dengan nilai pada parameter Font akan dimuat dari disk ke d~l~m memori (RAM). C~ra seperti ini kadangkadang tak dikehendaki, sebab akan memperlambat proses, terutama kalau font yang dipakai sering digan ti. Untu k menghindarinya sebena rnya dapat menggunakan f~silitas yang disediakan dala m Tur bo Pa sc;d. Mengena i hal ini akan direra ngkan di bclakan g .

kan. Hal ""ini .. berla!Cu untuk OUtTextXY rriaup~ Out Text • • ... - 1 ... v-· --- .... ~ .·~ ... ' rrienempatbii. -penunjuk gam bar sesudah akhir teks. ;·. ·" · • ,. • ...

Proseduf~. ini

?·

••

~

- ···· - -

setrextStyle
1 J 1

!Constanta DefaultFont TriplexFont SmaiiFont sansserltFont GothlcFont

f . Nii;Ji

I .

0 1 2 3 4

t Fiie yang ctiperluk:an

I tak

ada

I TRJP.CHR

ILITT.CHR

1 SANS.CHR

J

GOTH.CHR

Default Font

Triplex Font Small Font

SansSerif· Font

{lnllfir Nnnf

Arah tampilan teks dapar dia tur dcngan mcle warkan nilai (kon stanra ) pada parameter Arah, berupa:

• H orizDir atau nilai 0 (Arah rcks dari kiri kc kana n) VertDir arau n ilai 1 (.Arah teks dari bawah ke atas)

II

Parameter UkuranKar digunakan untuk m enemukan u kuran brak tl' r (Nil ai berki sar anrara 1 sam pai dcngan 10) . Scmakin bcsar nil ainya, ukur.m karaktcr kian besar pula. Kemu ngk inan kesalahan yang dapat terjadi (dapa t dipcriksa dc ng.m Gr.JphResulr):

• •n • • •

-8 (tl k font tidak ditemukan) -· 9 (m emori tak cukup saar data file full! dimua r} - 11 (kesalahan grafik) -12 (kcsala han I/0 grafik) - 13 (ti le font tak berbku) -1-1 (nomor font tak bdaku)

PASCAL

<{

P.ASCAL

(/)

PASCAL

_J

0

<{ Q

PASCAL Gambllr 18- 16. B ubagai ulturart urt.J .zrah

tu/ ; ••

......_

-------- ~·--~--~~ -

-~

setusercha~Jze

<Mx.ox,My,Dy:· Word>

,~

SETTEXTJUSTIFY IRICTHTEXT, ? l; OUTTEXTXY 1160, 110, Teksl;

Prosedur ini memungkinkan untuk mengubah ukuran yang tak bisa · diatur melalui SetTextStyle. Pada prosedur ini: • II

akan menghasilkan tampilan scperti yang ditunjukkan pa da Gambar fB-17: Pada penggalan program di atas , tanda? menyatakan nilai untuk parameter Vert sebarang (0 .. 2) . Parameter Vert dapat diisi dengan:

Mx : Dx merupakan faktor untuk mengalikan terhadap u:bar normal dari font yang sedang aktif. M y : Dy merupakan faktor untuk mengalikan terhadap tinggi normal dari font yang sedang akti[___ ·

• BortomText atau nilai 0 • C e11terText atau nil ai 1 • T op T ext atau nilai 2

Dengan demikian, pemrogram bisa mcngatur Iebar maupun tin ggi font scsuai dengan kei·nginan·.

' M isalnya koorJ i ·t untuk tck s aJalah (X, Y ), BMt0111Fcxt nl cny.lt.tka n Y , ;cbagai batas bawah dari tck s, Cm raTt•xt m cnvat.tkan Y scbag.1i baris . rcng:t h dari tcks dan Tap T t·xt 11l L'Il Ya taka n Y scbJgai batas atas da ri tcks. Co m oh:

Contoh : SETIEXTSTYLE 11,HORIZDIR, 1); SETUSERCHARSIZE 13,4,1,1); OUTIEXT l"ABCDE'l;

akan menampilkan tulisan 'ABCDE' dengan Iebar 3/4 dari Iebar norm al.

X := 40;

Ca tatan : • Nilai ukuran normal untuk default font adalah 1, scdan g kan lainnva adal ah 4. Pcm anggilan prosedur SetUserCharSize harus dilakukan sesudah SetTt'xtStylc, supaya ukuran karakter yang akrif buk:mbh yang berasal dari S etTextStyle.

SETTEXTSTYLE IO,HorlzDir,1l; FOR 1:: 0 TO 2 DO BEGIN SETEXTJUSTIFYILEffiEXT,Il; OUTIEXTXY IX,100, 'TURBO')· X := X + TEXTWIDTHI'TURBO'I + 5 { jarak antar teks sebesar 5 plkse l ) END;

l

' aka n m cnghas ilkan tampilan ~cperti yang d it unJu k kan pa J a Garnhar 18- 18. Pada pcnggalan program di a cas tcrd:~pa t fun gsi T ex rWidth .

1

SetTextJustlfY

Proscdur ini digunakan untuk mengatur tampilan teks terhadap posi si ~ Fung>i mi bugun' untuk mend'p"bn lebu du i >u' "' tcb. ho rizontal dan vertikal · dari posisi koordinat teks. Untuk posisi horizontal, nilai yang dilewatkan pada parameter Horis dapat berupa: • LeftText atau nilai 0 • C enterText atau nilai 1 • R iglztText atau nilai 2

·{

ASC.t\L

·'·~

Mi salnya koordinat untuk teks adalah (X, Y), Left Right menyatakan X adalah awal dari teks, C enterText menyatakan X adalah kolom tengah • dari teks dan RightText menyatakan batas terkanan dari teks . Contoh:

P~CAL PASCAL

,. .,,

Telcs : ~ 'PASCAL'; SffiEXTJUSTIFY ILEffiEXT, ? l; oliTltxrxv 1160, 90, Teksl: SffiEXTJUSTIFY ICENTERTEXT, ? l; OUTTEXTXY 1160, 100, Telcsl;

160 '"' Ga mb<Jr 18 - 17. Ejdt pt'ng.:~turan tuliJan p••da are1h horizontal urltult ltoordinat X ya ng • .sam a

1

372

. tt

"Nn£'

5 t

-

~-

F-~·=""···· ~·

-L.-.

Parameter dalam fungsi ini yaitu Font {bertipe pointer) akan menunjuk lokasi memori yang berisi data font. Keluaran fungsi (bertipe integer) berupa 0 jika tak terjadi kesalahan. Kalau terjadi kesalahan, baik RegisterBCIFont maupun CraphResult menghasilkan nilai :

"

10U_ TURBO T l:JRBQ

• -11 • -13

n.JRBU

(Tabel font untuk mencatat font sudah penuh) (File font tak berlaku) (Nomor font tak berlaku)

• -14

1

1

PFOOII'AJ.4 'ont_BCl; ('

., ' l

( • Canton pro-gr . . untuk -.ngatur

( • agar dat• ...ua font diM.~at d1 ••• ' ek";.."-•1 pro9raa •)

Gambar 18-18.

Ej~k

prngaturan

po~da

posisi vutikal trrhadap koordinat Y yang sam•

(t

deng.n . . ng~kan proMINr : REGIS TfRIGifOUT

(.

-- ___ .;.- ---- -------- ------ ------------------ ------ ---

•)

USES GRAPH , CRT;

rextHeigth !Teks: String> Fungsi T extH eight menghas ilkan keluaran bcrripe word yang menyatakan tinggi dari teks (dalam satuan piksel). Tinggi dari suatu teks tergantung oleh ukuran karakter yang didefinisikan dcngan SetTextStyltataupun SetUserCiwrSize . Contoh pemanggilan:

...

Ul IUKAOAAF . IttC )

K•~H0raf1k,

PJIOClOORE·

c• , •• nu ••

~t""' -..oyka

.,

•ht . . graf'tk • )

Moc)e.Craftk : INTfGU ;

NuatS.~'ont ;

COttST

N-a-"1•

TextHeight !'A')

ARRAY(1. . 4) OF 5TRl ft0{1l ) c

•••

( • TltiP. ~A'

• ' LITT . CHR', ' SAt" : CHR' • ' OOTH. CHR ' );

,.tlefo., t : Fill ;

akan menghasilkan tinggi dari tcks 'A'.

Ptrfont

ARRAY(1. . 4 J OF POINTER ;

! ~kt

TextWidth !Teks: String> Fung5; TextWidth menghasilkan keluaran bertipe word yang menyatakan Iebar dari teks (dalam satuan piksel). Lebar dari sua tu teks tergantung oleh ukuran karakter yang didefinisikan dengan SetTextStyle ataupun SetUserCharSize. Contoh pemanggilan:

...

:

IHT£0£R;

Sf GIN

{ 110•t eel u rUil data font ke aeeor t J

j

FOR ln<)eke : z 1 TO .C 00 -w

SEOitl ~SIGH

i;··

('llefont, N. . ._flle[l~"!
R!:SH (I" t lefont. 1);

( buk• ft l a Oen gan utouran r-.cord -.be . . ,. ••tu byt e

(~rfont[Indeka),

GETHf:N

fllESIZI (ffla,ont}) ;

llOCitltfAO (fi leFont, "-rfont(lndlok•J-, fiLfSilf (f11•'ont)) ;

TextWidth ('PASCAL')

{ " . . , ruan11 dal . . heoap

{ o.ca ._.....

de ta • dan

( dan ta-pat ~ an da lM heap

Ir RfOIITERBQlfOHT (l'tr,ont( lndiiii!,• J) < 0 TH£N HALT ( 1); [UO ;

akan menghasilkan Iebar · dari teks 'PASCAL'.

END;

f

cek pendaftaral\ data f'ont

t akhi r pro. .ctt.w ...,.t,__font )

PROCEDURE Tu.pt lk~ lfont:

ReglsterBCIFont (Font: POinter) Fungsi RegisterBCIFont memungkinkan suatu file font tidak dimuat lagi dari disk ke dalam memori saat adanya pemanggilan SetTextStylt. Dcngan menggunakan fungsi ini, suatu file font dibaca dari disk sebli saja (dan selanjutnya disimpan dalam memori). Sesudah itu, setiap adJ pemanggilan SetTextStyle yang melibatkan file font tersebut, file tida.k dibaca lagi , melainkan mengambil langsung data yang ada dalw memon.

374

~:·

I

""""

Str_,ont : ARitAY{O .. 4} M •

...,.-

•••

•'.

lEO IN

~

STRIHQ

('O.rault Font• ,

'S..ll font' ,

' Trtp l elli 'orot' ,

'S&naSerU 'ant',

' Gothtc 'ont') ;

I, X, Y, Ukuran: ~ :

X : z lO ; Y : z .CO : FOA I

: • 0 TO 4 DO

ftf:OIN

If I

=2

THEH

Ukuran :• 4

!LSI

375

.. 7

7

J

•

a

Ukuran :• 1:

.

SfTTEXTSTYlt (I • HORilDIIt,

~-t .-

m

tW

'7

•

sn

..

:r! ; •.......u..T"'

Ukt~ran):

.

F

3

I

7.

>I

ns; in

1

n &

Apabila ada masukan yang tak berlaku, GraphResu/t menghasilbn nilai - 11 (grError) dan jcndela yang sedang aktif tidak diubah .

_( tentukan bent""'- tu11....,

oununv ex. v. strJont!Ill: Y : 11 Y • TlXTHIIOHT ('A •) + S

• . .

( Jr..,.,.ik&ft ber-..r'kan t\n,g1

tl.•ltun dtt...o..tt 5

Contoh:

f:NO;

ltECTAUGl( (10. 20. 170. 150) lfUD;

( akhtr prONodUr TUtOtlk.....sa.p.l,ont )

SETVIEWPORT 10,0, 159, 99, CliPONl; LINE 10,0,319.1991;

ISfOIH ( • progr . . ut.,... •)

XendaHCraftk :z. COA ;

( . .ntgvnakan COA }

~raftk

( .ode gr•ftk resolu•t tlllenengah. p•let 0 )

;ll:

CCACO ;

Disebabkan pemotongan di luar jendela sudah diaktifkan, sckali r u n tcrdapat instruksi untuk membuat garis dari koordinat (0, 0) sampi dcngan (319,199), han ya bagian garis yang terlctak di dalam jcndcl:t nng digambar.

lntataliua iG raftk lkand.lltQrarn,, lo6od.cr•rtlt.) ; Ta-ct

lka nS~lfortt ;

R£P£AT

~Til

ICEYPRE&&EO :

Cl08fQ.UH (NO.

Program 18-6.

ClearvlewPort Pros.:dur ini be .una untuk mcnghapus isi jcndcla yang aktif dcngJn warna latar bclakJng . Sesudah pcnghapusan. pcnunjuk gambar d itcn:patkan pada posisi (0,0) .

lnstaiiUserFont IFIIeFont: String> Fungsi ini dipakai unruk mcnginstal fonr b:uu yang tak disediakan dabm sistem grafik. Fonr baru didefinisikan oleh pcmrogram dan disimpa n dalam file bernama sesuai dengan yang dilewatkan pada parameter FileFonr. Setelah pemanggilan fungsi ini , hasil keluaran (bcrtipe integer) bcrupa nomor idemitas dari font baru . Nomor identitas inilah yang selanjutnya dapat dilewatkan pada SetTextS tyle. Seandainya tabel fo m sud ah pcnuh, nila i keluaran akan berupa 0 .

Detectcraph !var KendaiiGraflk, ModeGraflk: Integer> Proscdur Dl'fcrtGraph dipabi untuk mcmcriksa perangkat kcra s grati k dan menenrukan pcngendali grafik bcscrta mode grafik ya ng digunab n. Jika tak ada pe rangkat kcras g rafik y;mg rcrdcteksi , KendaliCrafik d.1n CraphRtsult mcnghasilkan nilai -1 (grNotDeterted). Mengcnai pcngcnd.1i i g rafik dan ~Ttodc g rafik dapat dilihat pada Tabel 18-1 dan 18 -· 2.

XVIII.9 FASILITAS CRAFIK LANJUTAN

Bcrbagai fasilitas lanjutan seperti untuk membiki1,1 jendela gambar, menghapus layar akan diterangkan pada subbab ini.

Clearoevlce Prosedur ini digunakan u~tuk menghapus layar dengan warna latar bclakang yang aktif. Sesudah penghapusan, penunjuk gambar akan ditempatkan pada koordinat (0,0) . setvlewPort OC1,Y1.X2,Y2: Integer; Potong: Boolean) Set ViewPort merupakan prosedur yang digunakan untuk membuar jmdcla gam bar dengan koordinat pojok kiri-atas yaitu (X1, Y1) dan koordinat pojok kanan-bawah berupa (X2, Y2). Parameter Potong dipakai untuk menentukan penggambaran dipotong a tau tidak jika berada di luar jcndela gambar. Parameter ini bisa diisi dengan konstanta ClipOn atJu ClipO.ff.

r

• ClipOn = True • ClipOff "" False

376

.

{ dipotong } { tidak dipotong

.j I

J.,

.j

Ca tatan : Ni!Ji keluaran p:tda KendaliGrafik dan :\-fodcCrafik bisa dik \\ atkan ke lnirGraph. Contoh pendctcksian pcrangkat keras grafik:

PROORAM Oetekei; (f =========::::::::::::::;:~;x~a•••~~~-~~

•)

.

<• Vntuk mendeteke1 perangkat keru vr·a,1k •) <• Keluaran: - kocte pengendali grafik ) - mode grafik <• •> <• --------------------------------------- •> USES GRAPH; VAR kG, MG: INTEGER; BEGIN OETECTORAPH (KO, MO); WRITELN ('Kode pengendali grafik: ',KG);

3T7 ·."'\, "

i

---~· - ~-·-·-

.

.• .

-~

-

.

,

·,

., .

a -

RZ1fta

.. -

.:_

WRITELN ('Kode mode grafik READLN END.

{$1 BUKAGRAF:IIlC

~?__~

(• fasilitas untuk aeebuka slat•• grafik

•>

VAR KendaltGrafi k, UodeOrafl k: IIITEGER;

Program 18-7.

.SetAspectRatlo !Xasp, vasp: word> Prosedu r SetspectRatio berfungsi untuk mcngubah aspect ratio bawaan. Set.·l..;peaRatio bcrguna misalnya untuk mengatur agar lingkaran yang

PROCEDURE Ubvv~eTeksGrafik; BEG I'I - - OUTTEXT ('Mode graf'ik sedans ;oktif. Tekan EIITER l '); REPEAT UNTIL READKEY : 113 ;

di rampilbn pada l::lyar tidak mcnycrupai clips. Pada masalah scpe rti ini,

aspc'ct ratio cl iarur rerlcbih dahulu sebelum pcmbuatan lingkaran .

RESTORECRTHOOE;

GraphDefault

WRITE ('Kini mode teks y;ong REPEAT UNTIL REAOKEY : .13 ;

Proscdur ini digun:tbn untuk mcngcmb:tlikan ke se mua nilai bawaan grafik (scpcrti pada kcadaan setclah JnitGrap h). Dian taranya mcngembalibn pcnunjuk gamba r ke lokasi (0,0), mengatur jcndela sebesar layar pcnuh dan sebagainya . :vtcngcnai n ila i bawaan dapat dililut pada Program 18-9.

SETGRAPHHOOE

(GETGRAP H~IQO[ J ,

{ ke node .. belUM iniaialieaai graflk 1 ~ktif.

{

Tekan ENTER l ');

aktifkan sesu.1i dengan mode. grafik sebeluronya )

OUTTEXT ( 'Kembali ke mode grafik. Tekan EttTER I '); REPEAT UtHIL READ KEY : 113; EIID ; ( ;okh i r proaedur Ubahl~odeTe~sGr·afik

RestoreCrtMode Prosedur RestoreCrtMode akan mengembalikan mode layar ke mode keadaan a wal scbcl urn sistem grafik dibuka . Prosedur ini dapat dipakai unruk peng:llih an <.:bri grafik ke tcks.

setcraphMode !Mode: Integer> Proscd ur SetGrnph.'.1ode dipakai untuk mengaktifkan suatu mode grafik. Efeknya menghapus layar dan mengembalikan ke semua nilai bawaan grafik . Mode yang dipilih haruslah berupa nilai yang berlaku bagi pengendali grafik yang bersangkutan (Lihat Tabel 18- 2). Prosedur ini biasa dipakai berkaitan dengan RestoreCrtMode, yaitu untuk pcngalihan dari mode teks ke. mode grafik. Kesalahan yang mungkin terjadi berupa -10 (_~rlnvalidMode), yaitu disebabkan adanya nilai masukan yang tak berlaku (dapat dicek dengan

GraphResult). · Contoh pcmakaian SetGraphMode dan RestoreCrtMode dapat dilihat pada Program 18-8. PROGRAM Grafik_Teks;

(• --------------------- ------------------------------- •> (• Contoh pemakaian proaedur (• SETGRAPHMOOE, RESTORECRTI-IODE dan fungsi

•l GETGRAPHI~ODE

•)

(~ ---------------------------------------------------USES GRAPH , CRT;

•>

378

3EGitl ( • prograQ utaO>il • ) { mensgunakan CGA ) KendaliGrafik := CGA; ModeGrafik :: CGACO; ( mode grafik r esolusl tinggi, palet 0 1 InislalisaeiGr;ofik (KendaliGrafik, HodeGrafik) ; Uba~odeTeksGrilfik;

CLOSEGRAPH EIIO .

Program 18-8.

XVIII.10 MEMPEROLEH INFORMASI GRAFIK Turbo Pascal menyediakan sejumlah fasilitas untuk mempcroleh informasi grafik.

GetArccoords !var KoordBusur: ArccoordType> Prosedur ini berguna untu k mcmpcroleh informasi mcngcnai koordinat dari pcrintah Arc atau Ellipse ya ng terakhir kali dijalankan . Kelu aran akan ditempatkan pada KoordBumr yang bertipe A rcCoordType. Tipe ini sendiri m erupaka n ripe bawaan d.:~la m unit Graplt dcngan definisinya sebagai berikut.:

type ArccoordType

=

record 379

X, Y: Integer;

GetFIIIPattem (var Pola: FIIIPattemrvpel Prosedur ini dipakai untuk memperoleh in formasi tentang pola yang sedang aktif hasil pengaturan SetFillPattern. Tipe pola berupa Fil!Pattert1Type ya ng mem pu nyai bentuk :

' -:

XStart, YStart integer: XEnd, VEnd: Int eger; end:

pada K oo rdBttSll r berupa:

type FIII PatternTYpe

rnen yataka n pusa r busur YSra rt mcnpukan posisi J wal busur }'£11d menyatakan posisi akhi r busur

type Fii!SettlnsType sur DO YStart, XEnd. YEndl;

ini dipakai untuk mcndaparbn aspccr ratio . Kcluar:m dite mparXa sp dan /'a sp. Aspelf rari,, sangat berguna misainya agar ditam pilkan ridak mcnycrupai cllips. pcn gg:1lan progr ~ m bcrikut mcnunjukb.n pcng,lruh penga turratio dalam rnen~bu:lt li nf':karan .

record Pattern: word; Color : word : end ;

• Pa rrenz bcr isi kodc pola. • Co lM be ris i kode w arn a un tuk pola .

~

1

ghasilkan nama da ri rcngcndali gambar yang tengah sistcm grafik. Keluaran bcrtipc string.

~

InformJsi dalarn Info:

J

dengan keluara n ber tipe w o r d berguna untuk mempcrhasil pcngaturan dcngan SetColor.

array 11 .. 81 of bvte:

cetFIIISettlng Proscd ur un tuk m empcro leh pola dan warna yang dia rur dcng:ln SetFi/ISty le. Kduaran d ircmpatkan pada l11jo yang bc rr ipc Fi /IScrtin,~Tnh· yang hcrbcn tuk :

ggab n prog ram bcr iku t, akan mcnghubungkan titik awa! ak hir d:ui busur (\·a ng dihcntuk dcngan Arc) ckngan sebuah

o!or m enghasil ka n kodc warna Jatar belakang. Keluaran

~

cetcraphMode Fu ngsi GerGrapltAJode bcrguna unruk mcmpcr• >lch kodc dari mode grafik yang scdang ak tif. Ni lai kduara n (bcrripc inuscr) bcrk isar antara 0 sampai dengan 5, tcrga ntun g da ri pengcndali gr:~fik p ng d igunakan (Lihat T abel 18-2).

oetunesettlngs
Field pa d a parameter • LineStyle

l~tfoCrs mcngandung infornns1 sebagai berikut:

mc:nya takan hentuk garis (Lilut Tabcl 18-4).

~~~~====~~~----- ~

-------------------- - - -'+.-•-.. ,~.::.~~' -"-~;,::, • Pattern • Thickness

~"'

··c

•·

~:c'!:J -

.,

'r /

menyatakan pola yang didefmisi'kan o leh pemrogram (Lihat Subbab XVIII-5 pada uraian SetLineStyle). menyatakan ketebalan garis (Lihat Tabel 18-4). 0: Normal 3 : Tebal

aetTextSettlngs (Var lnfoTeks: TextSettlngsType> Untuk memperoleh informasi font, arah , ukuran dan pcngatur:m campilan tcks yang diatur melalui S etTextStyle dan SetTextjustify. !{eluaran InfoTeks mempunyai ripe sebagai berikut:

.I

c;etMaxColor fungsi ini menghasilkan nilai ~·ang menyatakan nilJ i wa rna teninggi .-ang dapat dilewarkan pada SetColor. Tipe kcluaran fungsi berupa integer. Pada CGA , untuk mode resolusi mcncngah GetMaxColor menghasilkan nilai J dan pada mode reso lu si tin ggi bcrupa nilai 1.

type TextSettingsrype

I 1

c;etMaxMode Fungsi dengan keluaran be n ipc "'•' Ord ini bcrfun gsi unruk mcmperoleh niiai maksimal dari modc ' grafik unruk pengendali grat1 k ya ng sedang 1 kri f. Pada CGA , fungsi ini m cn g hasilkan nil ai 4 (Lih at T abel 18-2).

=

record Font: word: Direction: word : Charsize: word: Horiz: word: vert: word: end:

i

..j,. •j l i·

n .1

lnformasi field pada Info Tcks: 1

Font

berisi kode font (Lihat Tabcl 18-H). berisi kode arah yang digun aka n untuk mcn am pi lbn tcks (0 = horizontal, 1 = \'crtikal ). berisi ukuran font . menyatakan pcngaturan tck s pad a arah hurizonral (Lihat prosedur S etTcxrjusrijy). mcnyatakan pcngaturan tcks pa cb arah vcrtib l (Lilut prosedur S etTextjustify) .

1 1 Dirario11

GetMaxx

GerJ1axX (dengan keluaran bcrtipe integer) m crupakan fun gsi untuk memperoleh koordinat X terkanan dari mode graiik da n pcngendali rafik yang sedang aktif. Pada CGA mode 320x200 (rcsolusi mcnengah) ,;er.VlaxX menghasilkan ni!ai J 19 dan pad a m ode 6~0x200 (resolusi . nggi) berupa 639.

I

ClzarSize Horiz:

I

Vert

I

l

j

~etMaxv

. j

ngsi ini (dengan keluaran bertipe integer) digunak an unruk mempertil koordinat Y terbawah dari mode grafik dan pcngendali grafik yang tif. Pada CGA untuk mode J20x200 maupun 640:>200, GetMaxY 1enghasilkan ·nilai 199.

J Getvlewsettlngs

:;j GerViewSettings merupakan prosedur untuk mempcroleh in to rmasi ~~

tentang jendela yang akrif (Hasil pengaturan dcngan Se rVitwPort).

~ Informasi ditempatkan pada Infojendela yang bcrtipe seba ga i berik ut :

odeName
ModeName

me~upakan

fungsi untuk memperoleh nama dari mode afik yang sesuai dengan nomor mode NmrA1odl'. Ke!uaran bertipe "ng.

odeRange(KendaiiCraflk: Integer: var ModeR. Moder: rntegerl sedur ini berguna untuk mendapatkan nilai tertinggi dan terendah e g rafik untuk suatu pengendali grafik . Hasil : lod,R : berisi nilai m ode grafik terendah lvdeT : beri~ nila1 mode grafik tertinggi a pcngendali grafik tak berlaku, ,\-fadeR dan Mode T bcrisi nilai -1.

type ViewPortrvpe

= record x1, v1. X2, Y2: integer: Clip: boolean: end:

lnformasi pada InfojetJdela: • x1, y1

• x2, y2 • Clip

koordinat pojok kiri-atas jendel.1 : koordinat pojok ka nan-atas jendcla : Menyacakan proses pemoto ng;m atau cidak ccrhadap gam bar yang tcrlctak di luar jcndcla (Lihat Set I 'rewPo rt . Subbab XVIIL8) 4f ·~"

~

.~

· dengan keluaran bertipe integer ini berfungsi untuk memperoleh nat x d ari penunjuk g am bar. Hasil bcrsifat rclatif terhadap jendela aktif. Mis al:

REPEAT Jawaban :~ UPCAS! (READKEY); UHTll Jawaban lH ['H','T'];

WRITELH (Jawaban); WRITELH ('10, 'Tunggu

I');

KendaliOraflk : : CGA;

sET'JIEWPORT lO,O.GETMAXX. GETMAXY, CLIPONl; X:" GETX:

I. · Jawaban : 'T' THE~ HodeOraflk : : CGAHI

1ETVIEWPORT . (20,20, 120. 100, CLIPONl ; GETX :

ELSE HodeGraf ik : : CGACO; EIID; ( a kt1lr p ro s e dur Pll ih ;o nl-4odeGr;of ik

X "

kcdua pc rn :mggibn Get.\ . .\ abn h:rnilai 0 sck.llipun pcnunj u~ unwk kcduJ jcndcla hcr.1d:1 pada koordin.H Jbso lut \·a n?

P~OCEDUPE

COIIST Info

InfoGraf i k; ARRIIY(BOOLEAII] OF S T ~lt1G(5) ( ' TlDAK', 'VA ' ) ;

mcmpL'rolc h ~~oordimt Y dari pcnunjuk ga m b:u . Sifat s.1mJ " (;,.;S.

TYPE Str5

ST RitiG(5} ;

VAR Str!lllal

rrorMsg !KodeKesalahan Integer> si ini digu nJbn untu k mcnghasi lbn pcsa n mcngcna i kcsa lah .1n k yang scstui dcng .m Ko cicKes,1iah ,:~t. Pcsan dim·3t.> bn daJ.am b.1hasJ beriku t .tbn mcn:pe~lo .1.1t ka n p:.·mal~ian SCJUmbh fJsdita~ ruk mcmpcroich inforn us i gr:11ik \·an~ tciah ditcr.1ngkan di dcpJn.

STRIIIG(3]; l!ITEGER; VIEIIPORTTYPE ;

Hode, I lnfoJandela

FILLPATTERIITYPE; IntoPola lnfoPo1a~luna : FILLSETTHIGSTYPE; LIIIESETTIIIG!!TYPE : InfoGrB TEXTSETTHIGSTYPE ;

lnfoTek•

FUtlCTION AngkaKeStr (X : WORD) : Str5 ; pQOGR~

Info;

,. ----------- -------- ---- -- ---------- -------

VAR •)

(• Untu k mempe r oleh berbag• ; i nfor~• si g r a fi k •)

StrAngka : 8trl;

<• ---- --- --------- -------- -- ---- ---------- -- •)

BEOIN STR (X, StrAngka) ;

USES GRAPH , CRT;

AngkaKeStr

( SI BUKAGRAF. IIIC

(• faailltaa untuk . . .buka aiatem graflk •l

VAR KendaliGraflk, HodeGraflk : ItiTEGER; PROCEDURE P ilihanHod.Oraflk (VAR KendaliGraflk, H<>deOraflk : ItiTEGER) ; VAR Jawaban : CHAR ; 8EOIH CLRSCR ; WRITELN ( 'HEtiAI~PlL K AI I ItiFORHASl ORAFIK ' ,flO) ; WRI TE ('Re so lu ~l Ti ngg l atau Henengah ( T/ H) r ' );

: 2 StrAngka

!NO; ( akhlr fungal AngkaKeStr

BEGIN ( awal pro..dur InfoGraflk OUTTEXTXY (10 , 10, 'H-• kendall graf l k OUTTEXTXY ( 10, 20, ' Mode graflk terbeaar

-

:=

GETDRIVERHAME ) ; (GETHAXHOOE) ) ;

t

+ Angka K eS~r

GETGRAPIIIOC~f;

DUTTEXTXY ( 10 , DUTTEXTXY ( 10 ,

~tJ. ~o.

' Kode .ode graf l k aktif : 'H. .• eode graflk aktlf :

OUTTEXHY t 10 . DUTTEXTXY ( 10 ,

70,

'Nilai kolOM, tarkan&n

80,

' Hi lai baria t• rkanan

AngkaKeStr (Mode )); t

t

t

GETHOOEH~E

(Mode ) ) ;

AngkaKeStr (G ETMAXX )l : AngkaKeStr (GETHAXY));

385

SO, 'Total

ke$ungk~nan

warna :

100. 'Warna latar b•lakan9 110, ·warna sa-bar aktif

+ AngkaiCeStr (GEiliAXCOLOR)); + Angk.aKeStr · (GETBKCOLCR)) ; + Angk.alleStr (GETCOLOR));

BEGIN OUTTEXTXY OUTTEXTXY OUTTEXTXY OUTTEXTXY OUTTEXTXY

l

'Tekan RETURN untuk celanjutkan I ' ) ;

gff11IEWSETTI~ ( InfoJende 1&);

OIJTTEXTXY (10,

10, 'lnformasi Jendela aktif: ');

-!TH InfoJendela DO BEGIN . OUTTEXTXY (10, 30, ' Koordinat jenoela : ' + ~ ng>aKeStr(X1) • ·. + AngkaKv3tr(Y1) + ·, • + AngkaKa3tr(X2) • • AngkaKeStr(Y2)); OUTTEXTXY (10, 40, ·p.,motongan g&m t>ar : ' + Jnfo[CUP)); END;

,

""' (10, 90, (10,100, (10,110, (10,120, (10,130,

+ AngkaKaStr (FOIIT)); + AngkaKeStr (OIRECTIOH) f: 'Koda arah taka + AngkakaStr (CHARSIZE)); 'Ukuran taka + AngkaKaStr (HORIZ)); 'Pengaturan tek• horisontal: + AngkaKeStr (VERT)); 'Pengaturan teka vertlkal

'Kode font

EHD; OUTTEXTXY (10, 190, 'Tekan RETURII I'); REPE.H U!ITIL IIEADKEY = 113; END; ( akhir proseaur l nfoGr~ fik

.I

BEG HI ( • prog ram utama •) Pllltua~eOraf ik (~end~ l •Graflk. ~ocl&Gr · af,k):

Inl sl aliaaaiGr aflk (KencoliGrafik, ~odeGrafik) ; InfoGrafik; CLOSEGRAPH WD.

GETFILLP~TTERN (InfoPola); ouTTEXTXY (10, 60 , 'l'lformasd Get Fill P;otte rn : ·);

:: 1 TO· 8 DO QUTTEXTXY (10 + TEXT\'I!OTH('Jnf'>rl'l;osi GatfillPattern : ') + 10, 50+ I • 10 , f<nskaKe5tr ( l) + • • • • Angk .. KeStr(lnfcPola[I)) );

FOR I

Progra111 18- 9. Has(

1

ek,..k.u8l:

~EtiA)o!PlLKAH

IrtfORI>IASI GR
GETFILLSETTIHC3 ( InfoPolaWarna); QUTTE XTXY ( 10, HO, 'Info rmas i GatF i llSntt i ngs · · ) ;

Reeolus l Tinggi atau ~enengah (T/1-1)? T

WITH InfoPolaWarna DO

llama l<encla 11 gr&fik Mode grafik terbssar

BE Gill OUTTEXTXY ( 10. 150, 'Y.ocle pola : OUTTEXTXY (10, 170, 'Kode >oarna :

+

+

An;; kaKe5tr(FATTfRH)) ; AngkaKeStr( COlOR));

END; OUTTEXTXY (10, 190, ' Tekan RETURil untuk melanjutl
Kode •od• grafik aktif : tlUIA •od• grAf(k aktif : e•o x ZOO CGA e39 Hllai koloor terkanan 199 Hilai barie terkanan Total k. .ungkinan .. arna: 0 Warna latar belakang Warna ga&bar aktif

CLEAROEVICE; GETLINESETTltiGS (InfoGre); OUTTEXTXY (10, 10, 'lnformaei g&ria : '); Willi InfoGre 00 BEGIH OUTTEXTXY (10, 30, 'Kode bentuk garie : OUTTEXTXY (10, 40, 'Kode pola garie OUTTEXTXY (10, 50, 'Kode ketebalen

CGA

Tekan RETURN untuk eelanjutkan + AngkaKeStr(LIHESTYLE)) ;

Infor•••l jendela aktif:

+ AngkaKeStr(PATTERU)); + AngkaKeStr (THICI(NESS));

Koordinat jendela : 0 , 0, 639, 199 P..otongan gasbar : YA

EHD ; GETTEXTSETTIUGS (InfoTeks): OUTTEXT)(Y (1 0, 70, 'Informasl peng aturan teks : '); WITH Infotaka DO

0.

Inforsael G•tfillPattern : 1. 255 2. 255 3. 255

387

a ·-_... _ _ ~-

•• 255 5. 255 8; !_55 7. 255 8. 255 Jnforaaal GetFillSettinga : ~ode

pola

~ode

warne :

Tekan RETUIUI untuk melanjutkan I Infor~a•;

garis :

Koae bentuk ~00.

gari~ :

pola garia

Puttmage <X.Y,: Integer; var DaftarBit; OperasiBit: Wordl Prosedur ini dipakai untuk mcncmp:nk .1n datJ ya ng :1da pJ (ia DnjiarlJit kc lokasi layar bc rbcntuk pcrsegi panjang \·ang mcmpunyai koordinat kiriatas (X, Y ' ~>.uamctcr Opaasiilir (dapat bcrupa nibi (konstanta) scperti ;nng dica :. .n kan pad a T:~bel 18- t.J) mcnyatakan opera,, sccara binary amara bit ~.1 mbar dalan1 pen:1111pung dc ng .m hit ga mbar yang sudah ada pada layar.

0 0

KOOe ketebalan Infor•aal pengaturan teks: Kode font

0

Kooe arah teks

0

Vkuran teKs Pengaturan teks horizontal: 0 Pengaturan teks vertikal

GetJmage OC1,Y1,X2,Y2: Integer; var oaftarBJt) Prosedur ini memungkinkan untuk menyimpan bagian layar berbentuk persegi panjang ke dalam suatu penampung (memori). XI, Y1,X2, Y2 mcnyatakan dacrah persegi panjang. (X1,Y1) merupakan koordinat pojok kiri-atas dan (X2 , Y2) bcrupa koordinat pojok kanan-bawah dari daerah persegi panjang. D,~fiarBit dapat berupa scbai-ang variabel, digunakan sebagai penampun g (untuk mcnyimpan/mcmcgang data gambar). Pada variabcl ini, dua word v:mg pcrtama digunakan umuk mcnyimpan Iebar dan tinggi cl.lri dacrah g:unbar yang disimpan . Ukuran memori yang digunabn scb.1g.1i penampung (ukuran D.ljiraBir) tidak bolch melcbihi 64 K.

Tabel 18 - 9. Operas! bit pada Put/mage

2

Konstanta Tekan RETURtl !

F

Ga-m:Ja r da!am penampung

i

xorPut Or~ut

L'muk mode resolusi mencngah, perbedaannya: • Kode mode grafik aktif tergantung dari palet (un tuk Program 18-9 berupa 0). 320 X 200 CGA • Nama mode grafik aktif • Nilai Kolom terkanan 319 • Total kemungkinan warna 3 • Warna gambar aktif 1 (Bcrkaitan dengan SetCvlor) • Koordinat jcndela: 0, 0 , 319, 199 • Kodc \varna (berkaitan dcngan SetFillStylc) berupa 3 XVII.11 ANIMASI GAMBAR

Unit GRAPH menycdiakan tiga fasilitas yang sangat bcrguna uncuk mcmbuat animasi, misalnya berupa mobil atau hclikopter yang scJang bergcrak. Ketiga fasilitas tersebut adalah sebagai bcrikur :

388

t--Ke-te-ra~ga-n

CopyPut

And Put NotPut

l

. I 1

j dl tumpukkan terhadap gambar pada layar

1 2 3 4

IOperas! XOR Operas! OR 1

Operas! AND Operas! ~or________

lmageSize <X1.Y1,X2,Y2: Integer!

lmageSize mcrupakan fungsi untuk mcmperoleh ukuran penampung ya ng diperlukan untuk menyimpan gamba r pada daerah pcrsegi panjang yang dibatasi dcngan X I, Yl.X2, Y2. Contoh program: Contoh prog ram tcntang :lllimasi dapat dilihat pada Program 18-1 0. Prog ram ini mempcrlih.ukan c:lrJ mcmbua t animasi helikoptcr yang scdang bngcrak di atas gunung. Untuk hperluan ini, fasi litas Get/mage, Putlmage dan lma~l!r'Si.::c S.lngat memb:mtu J:dam melll~'crmudah pembuatan anim.1si . Prinsip kcrja :lllim.1~i yakni dcngan cara mula-mula

389

JJleogga~?n r h\"h~l)llt('r dan bentuk gunung. Kemudian gambar heli~opter dtS\Oll'•ll\ \11\liltn lleap yang ditunjuk oleh pointer PtrGbr, dengan

n"'' '"'a.£r

JJlenggunak11n (Ukuran memori dari penampung yang ditempatk~n dabm ''~I' ,f;~~'ilt dihitung dengan memakai lmagcSize). Langkah sela~Jutn Y:l •h ltll,ih 11\cmbuat gerakan helikopter dari bag ian kiri ke bag1an kanan It~ Y•ll , l>ro$cs gerakan ini dilakukan dengan cara menempatkan d~ta RltllhM t.bbm penampun g kc layar (melalui Putlmage), 11 kemudlan . '''111-\~·l ltr h.1r bentuk balin g-baling . Serclah ditund a sesaat, baling-bahn g t lih,,llll ~. scdan gka n gambar helik op tcr dihap us dengan mode o p crasi bit sccara XorPur. Pcnggunaan men gg un al....l!' l'tll P~rtlmage 111 ••d t• tl ! ll · r. 1 ~; bit XorPut d irna ksudka n agar gambar latar belakang ttd .tb lu•rq lta h (tctap seperti scbclu m ada gambar hclikoptcr) pada saar g~ ,.,h ,,, hl'likoptcr dih apu s. .1\dapun gerabn helikopter dipcrokh ckJIU
''"''.t.:r.

pJ!OGRAH Hell ;

,. ---------· P••·t-. ,.<• ----------

')

(. C<>ntoh

t IU ') ,, ' 'i 01 1141\{lf, IMAGESI ZE dan PUTIHAGf un t u k ........., . . . . ,, 1• •• t •~ 1t koptar y.iln g be rg era k d t a t•a gunv"9 • ) ·

USES

GRAPH,

' )

~~1 ,

I

($I SUKAGRAF . loll,

! ~

'••ilitas untvk ~embuka aiGte• graf lk • )

VAR ........!, •"~ I

Kenda ltOrat ••'

PROCEDURE au.~;.,,,, u "H ' CONST JUNTTk • 11 , Dataounune

••

II , f o llt'IJ, (X : 120;Y : 100}, (X : 150 ; Y: 105), (X: 190;Y : a5),

t l . ~i~ ,l • fti,( X : 2SO;Y : 38},(X:280;Y : 43),(X : 300;T : 40), { l. . tfll , l *'IJ , (X : 430;Y : 80),(X : 839 ; Y: 95)) '

BEGIN

,.,1'

RECTAIIQL(
390

4;

VAll

langkah terak&n helikopter ( ketlnt~glan nonoal ltntaaan hellkoptar ~ .·

PtrGbr

POINTER; x. y WORD· Jnelaling : BYTE; BEGIN I Gaabar hellkooter LINE (48,41 ,49,4 1); LINE (37,42,59,42); LINE (38,43,80,43); LIIIE (53,H,~1,H); LINE (54,45,82,45); LIIIE (55,48,83,48). liNE (82,47,59,50); LitlE (58,51,40,51); LitlE (40,51,34 , 4~): LINE ( 39,44,35,44); liHE (38, 45,5,45); LINE (38,48,15,48); l iHE (5,44,5,40) ; PUTPlXEl (48,52,3); PUTPiliEl (52,52,3); LitlE (30,53,0 4, 53); LINE (0. , 53,08,51); ( a i apan ga.bar dan haPus ka•ba11 ~~$b&r pada layar ) GfTNEk (PtrGbr , IHAOESIZ£ (5,40 ," >,56)) ; pes.41n ruang dal~ he&.p GETIN~GE (5,40,86,50,PtrGbr"); al•pan data g . .bar ke heap PUTlNAGE (5 , 40,PtrGbr",XORPUT); hapua ~bar

{ proae. helikopter bergarak SIETWRITEHOOE ( XORPUT} ; X :: 5; Jnakling :: 0;

JIJffTK) OF

lift! (lA

:

= 50 :

Gaabarounung;

~ . y , IO',j!l)

~

LAIIOKAH y.)IOfiMAl

REPEAT

~"IIH I

.,~,~,.11

INTEGER ;

PR()Cf1)Uit[ Alll-ait1ell ; . CONST

IOOde XOR uni:UI< garla PO&I&I awal hellkopter jenla b&llng-ballns awal

RfPEAT

( . .nantukan tlnggl llntaaan hellkopter II' (ll>:100) AHD (X<:230) Tt1Etl ( ltntaaan hellkoptar Ntik Y : = Y_HORNAL - ROUND (45 • (X - 100)/(230- 100)} ELSE If (X>230) AIID (X<:410) THEil

buat · bingk~l ~bar g. .bar gunvng ••warnai langit

( llntaaan hellkopter turun I Y : : Y_NORMAl- ROUND (45 o (410 - X! I (410 - 230)) ELSE Y : a Y_HORMAL;

( llntaaan noraal 1

391

P\ITIMioQf (X, Y ,ptrGbr~ ,llOIIP\IT);

taJopllkan he 11 ~apter pada POa18i ban,

CASE 0: 1: 2: EJIO•

llellbuat ba 11 nll ba 11 n11 }

Jna&a ling Of'

LIN! (X+21,Y,X+57,Y); LINE (X+35,Y,X+51,Y) ; LINE (X+43,Y,X+44,Y};

DELAY (50); CASE JnaBa 1 i ng Of 0 : LINE {X+Z9,Y,X•5 7 ,Y) ; 1: LINE (X+35 ,Y,X+51,Y); Z: LINE (X+43 ,Y,X+4•,Y);

jenie

t

pe..- I

jenie k-.a

jen1e ket1ga

1

tunda -b
•I

hapus ba11ng-balin9 untuk jeni • pert&ma

untuk jenia

~ •dU&

untuk jenie Met1ga

END;

PUTIHAGE (X,Y,PtrGnr ' ,XORPUT); INC (X, LANGKAH) ; JnsBa1 ing : = (Jnabaling+l) HOC 3; UNTIL (X > 580) 0~ KEYPRESSED ;

hapua

ke~bali

n.l tkopt er

poa isi baru dari jen is

n.l~kop~er

b~ling-bal\ng

y~g

barv G.un/o~r

UNTIL KEYPRESSEO

18 - 19. Gamb.ar anim.ui hdiltoplrr

EMD; { akhir proaedur ani . . ai hell (.

t•

BEGIN (* pr09r. . utaaa •1 { .-nggunakan CGA ) Kenda1 iG rafik : : CGA ; ( .ade grafik r •ao1uai tinggi Node
GAIIBAR.ItiC

)

(~ B•ri•i fA9i1it•s untuk ~enytmp~n I

c•

ke itau

d~ri

membac~ da ta gamb~r •)

d 15ket

)

i*

•)

Ani . .siHali ;

CLOSEGRAP!1 END.

18- 10.

PROC!.OUQE Su'!panG.i.:ilb.tr (t4••aFi le

~

J

12 MENYIMPAN DAN MEMBACA GAMBAR Menyimpart data gambar secara permancn dapat dilakukan dengan cara ·· mcmblca .data yang ada p:~da memori gambar dan kemudian menyimpannya ke dalam disket. Untuk keperluan ini kiranyJ perlu mengetahui lokasi tempat data gambar disimpan dalam memori (RAM). Memon gambar baik untuk resolusi mcnengah maupun rcsolusi tinggi berukuran 16 KB. Narmm tepatnya hanya 16000 byte ymg-dipakai untuk menyimpan gambar. Alamat awal memori gamba r adalah B800:0000h. Untuk mcnyimpan g:~m bar ke diskct (untuk rnudahnya) yang pcrlu dilakukan ad:1lah dcngan mcnyalin scluruh isi mcmori gambar (16 KB) ~e disket . Penyimpanan dcngan cara ini dapat dilihat paJa prosc:dur SimpanGambar berikut: • · 392

i ·j

'i

j

1

.. . ----- ----)

fila

STRltiG) ;

t•

Proseour ini oer fungst untuk Menyimp.an g~mbar

(•

P~d• aode re aolus~ ~•nengah c~upun resolusi t lnggi

t) t)

{•------------ --- . COIIST 1118K8 : 16384 ; VAR Fi 1otG""'b"r

{ 16 kilo byte)

FILE ;

BufferGaao•r : ARRAY [O .. U16KB- I} OF BYTE ABSOLUTE $8800 : $0000 ; BEOltl

ASSIGII (fil eG&lllb"r, Na•aF11e) ; QEWRITE ( fi1eGa~b"r, HISKB) ; !LOCKWRITE (fil eGamb•r, 8ufferGa.bar, I) ; CLOSE {Fi1eGa•bar) END ; PROCEDURE BacaGa•bar (NaaaFile

buk• fi 1• dengan ukuran record 18 KB b,aca 1 r•cord tutup file

STRING);

-- --- • ) C•

c• (t

Proa•dUr ini berfungat 3ntuk ••~baca data g&mbar

•>

pa~ .ade r •soluat . . nengah ••vpun reaolu•i ttnggi •) yang di•iMpan dengan SiapanG~•bar

•)

(•-----------------------------------------------------•) _N3

c .

eotiST MI6KB s t&llll4;

OUTTEXTXY (20, 160, 'Ga.bar sudah dislapan . ') ; OUTTEXTXY (20, 190, ' Twkan ENTER I');

te kilo byte

FILE ; Fi leQ.uobar !IUffor
[0 •• HidKB -

t] OF BYTE ABSOLII"TE $8!00:$0000;

bu >a f

ASSIGN ( FI1 e G3JOO&r, II;>.Ma flle) RESET (fi 1.0a"bar, ~18KB);

;

l le

uk uran record tl KB bac a 1 record } •

-~l

BL OCKRE AO ( F ; ·! .,GaJ:Ib&r , Butf erG U! O&r , 1 ): CLOSE ( F l"leGarob ar) EHD :

{

a ~ h\ r

l

pro9-adtJr SscaG.l.!rtOar }

P rou dur 18 - 2.

,1d.1 pJda d isket dikirimb'l ke

i\d apu n ap.tbib data gJ.mb.H abn segcra Jirampilka n pa da la ya:. me m o ri ga m bar. m ak a .Jip::laja ri pad.1 rroscdu r Baca C.u11bar . Mcngcnai ha l ini dapa t

Contoh p rogram unt uk

( * Contoh

<•

mc nyimpan dan . mcmbao g.1mba r:

O a taGa~ba r;

(.

BacaGamba r ( 'TES. G8R'); CUTT EXT XV ( 20, 190, 'Tekan EtHER ! ') ; REP EAT UNTIL REAOKEV

= J13 :

CLOSE. GRAPH : EHO. Pr•\C '~ "' 18 - 11.

g1r:1 b:n yang

PROGRAM

hapust layar

OUTTEXT ('SeG&ng mambaca data gambar . ');

~

cSensan

= f13;

- CUARDE\IICE;

·j

J ual ahOi bac• : WORD ; BEGIN

REPEAT UNTIL READKEY

~...

:· ~··

VAR

.'-1u!J-mu \a gJ m bar lingkar:m da n bujur s:~ n gbr di tl m pil bn pa d a la\'3r . Sc\anj utny:.l g.1mb.tr d isi mpan ke dala m dis kct (d en gan S impa11 Ga mbor) . Cnwk mc li h .!t p roses pcmu:n an gam b ar d:ni d iskcr.. ma ka gJ. mh ar s•:mula pad,1 : 1r dihap us tn icbi h dahulu , bJ ru kc m ud iJn d ihk ub n rcmb.Ka ,m d .1:·, diskc t (dcn gan me n gg unakan BawGam lwr).

q

..

ps ny i~ panan data gaffi ba r k& di s ke t • >

dan pemoac aa~ da t a ga~b «r d~r; dis k9 t

)

\

(.

USES GRAPH , C!·. f : ( $1 BUK AGR Af . ItiC } ( $1 GAHB >
(4 f;>.si1 i ta9 untuk membuka sistem grafi k • l (t fasil i ta9 unt uk membac a dan meny i mpan *) (t

data gambar ke I dar i disket

•)

liAR Kenda l iG raf i k, ~o~<>daGraf i k : ItiTEGER; BEGIN (• progr~ ut~a •> 'Kendal i Graflk : = CGA; ModeGrafik : = CGACO; Inillial i aasiGraf i k (Ke ndal i Grafl k , •· ' .je Graf i k) ; { buat g.-bar lingkaran dan kotak l SE TASPEC TRATlO (1,1); { atur aspect rat i o} CIRCL E ( 180 , 100, 40) ; I buat llngkaran .) buat kotak RECTANGLE (120 , 80,200 , 140 ) ; { ei ~pan ganbar ke f ila TES . GB R S impanO&Mbar ( 'TES. GBR') ;

394

395

~ - - -- -

.,

"'-~r; {.;

?--:-

PEMROGRAMAN MODULAR DENGAN UNIT

Suatu unit diaw:~li dengan kata-tercadang U11it kemudian diikuti dengan nama unit. Sdanjutnya terdapat tiga bagian berupa : • Bagian interfau • Bagian implerJ1ewion • Bagian inisialisasi

saglan Interface FC nl fl'g ranJ J!~ '< •_".!; j I~ Jn ct u:.l~ ( ~'~Ogr atn d.1\ :un h t'nt llk bebcrapa v:m g sanga t m c· r...~i k Jqx rk cn.1ikan d .lla 101 1 u> i->o P a~ ol mu lJ: 1 -L O. M odul s q'c ~r : ;ni di kci u! dc ngan nam a unic. Den gan m bn un it. ~t:.Hu m od ui b.1gi.1n dar i prog ram d ."\ pa t dik ompilasi tcrp isah tc r h:;,~.l !' ;' rog ram . H JI ini sangat mengu ntungkan_ sa naa n korn p ibs1 tc·ri ~ a dap pro pa m akan m cnj Jdi lc bih ccpat, ab ka n fas il ita s d.11Jr.1 unit tid .1 k ikut diko m pilasi. Sclai r. itu . sebuah dJpat dipabi r-:_.:1 ::>c:l'>e rapa pr og ram lain . 1 p3 da ln mpir sc m u .• r~osr,lm p:~d :1 bJb-ba b d i dcpan mdib arbn unit. nit yan g di p:1 k:1 1 l L~ > c+u mc ru pakan j cn is unit st anda r ( ba\~· :, a n ) yang ·di akJn bc rsam a ~.<:m T mbo Paso !. Dia nrarany a ad ab h uni t CRT. d:lll GR/\ PH . ::--- ,J·;·_ rnL· Iih.nk.l!1 u nit b.nn.m, sebcna rny a prognm b SJ !l1 C11 f'f; L1 ;· . ; .• !1 "lll( \-.1:~;' dih k"' \CI1 (1i ri o kh r c m~ogra m !l'Cf'

B ag ia n lliterfaie mcrupJbn- bagian unit yan g Ji :nvali dcn gan btarcr c:~Ja n g lnrerfl:r dan bcr.1k hir dcng an adany:t bta-tcrca darig i111plcmc11:.Hion. B3gia n ini bcmi dc k!Jn si/ ddin is i kom tJn ta , tipe , va ri.1 bcl, proscd ur a t:t 1!_{~mg;l y.11: s bn siiar umum (pu bhk j. tbl.1 m art ian da p.H j ipakai okh pro::; ram 3U tl unit la in . Jib p:Jda bagi.1n in t~ rja ce n:cnga :1 d un g k bu s a ll_<es: maka k o~sr a nt a a ta u tipe yan f! didckbras ibn pad a bag ian ini dJ pat 1ne nggu nakan dek la r:t~i Y,m g t c ~ _;.1p .1t pJ d.l hagi.m :"rlfc' rf;1<<' dari unit y.in g d ilib.ttkan . Disampin g 1ru. J ck l:t ns i \"J :lg tcr,i ap.tt p.1d 1 un it y.lli g d ig un:1k (dabm usrs). dap :H dipa kai C: Ji am b.;gian ;mplenw :!.Jiivu. Con ro h dcki ar.J si p.dJ b .1~~i:1n i11rcr:f
\·········· ·4··· ··· ············ ············ ······ ···········>

INTERfACE

( ' awa l bog1 a n interfac e • l

<••···················~········· ·, ····· · ~···· · ······ · ······· >

XIX.1 STRUKTUR UNIT USES

Suatu unit dapat ber:, i dckb rasi /defill JS J Konstanta, tipc, variahel ataupun uaw subp rog ram (p oscdur/ fu ngsi). J ad i pad a dasarnva sama den gan 1 1(bu :ll1 prog ra m. Srruktur unit ada lah seb;;gai berikut: UNIT nama_unic; INTERFACE USES daftar_nama_unit; \ optional } { berisl del
CRT ;

{ unit yang digunakan ol eh unit contoh

VAR Huruf : CHAR;

var i a bel g loba l

PROCE DU RE BacaHuruf (VAR KarHu ru f : CHAR);

pro s edur global

FUNCTION 8aca0ig1t : CHAR;

fungs 1 global

Unit 19- 1.

Pada pcnggala n un it di .n Js . nama unit ad ab h Co11rolt. Klausa USES CRT mrnya taka n un it C RT dil iba tk an dJia m un it Co11roh. Bagian interface mcnga ndung dckbrasi (yang nantin ya d ap at dipergun abn o lch

IMPLEMENTATION { oerlsl del
prog ram Jta u unit l.1 in):

BEGIN { pernyataan lnlsiallsasl END.

1. V:lriJbcl H11mf yang be rripe char. 2. Proscdur Baw l-i 1m~( den gan param eter bcrr ipe char . .l Fu ngsi HacaD(!;!it (t:m p;J param ete r), dengan kdu aran bertipe char.

:wn

397

END; ( akhlr prosedur BacaHuruf

)al11 bagian unit iP~terface. deklarasi prosedur atau fungsi hanya berupa f:pala prosedur atau fungsi (Tidak mengandung bagian pemyataan). ~

i

FUNCTION BacaDiglt: CHAR;

~

pgtan - '~p lem_entatlon _

.r

.

.

.

f3agian 1n1 b~ns1 deklaras1 yang berslt at pnbad1 atau lokal, dabm art1an idJk bisa d1gunakan olch program atau un it lam. j1ka p adJ bagian :"wfiw· m enga ndung kepala proscdur atau fungsi. mab paJJ b:~gian jl•lf'/elllt:/I(Q (j!)ll beriSI dekf:uasi yang lengk.Jp dari proscdur atd U fungs i. Dalam pcndekla~asian pJda ba~im in! , scmua dckbr;Jsi ya ng ~'~J p2da bag 1an interfaie dapat dipcrgunabn lnm.,inyJ untuk mrnd efin;,;:-;,1;; upc \·ang be rsi fat lokal) . !fb dekl arasi mclibatkan fasilitas dalam unit lain. maka kl;;us.l Jlii's J;oat d iscrtakan pada bagian ir.i. Scanda inya kla usJ 11scs bescrra u;; it su:bi1 ada pada b:1gian inrcofarr, kiJu sa 11 .
l

Pada bagiJn implemt·n tar'''" n;-i-:-· terJap.1t bcbcr.lj.JJ dcki:lrasi / Jdlnisi y:111!,; bcrsifat lobi, bcrupa : I . T ipc Tipcl-limpKar 2. KonstantJ I-Iin:pHun~( Lhn F-l itnpDigir 3. Pro~cdur na<"a K.1rakta

I .... ......... .. .... ,. ....... .. , ..... , ..... . .. , ... ,. . .. .. .. . .. . ......... :ii ..... ,. . . ..... . . ..... "' """''"·····"•'* •••• • .. J I· awal bag1an im plementJtion ·l 11-/.PLEMENTA.TION \

. . . . . ...........

~ ,. ....

., ...... . . . . . . . . . . . . . . .

.. . .... . . . . _.. .._ .. :a-,. . . . . . . . . .

~

. . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . ... .. ...... . . . . . . . .

TYPE TipeHimpKar = SET OF CHAR· CONST HimpHuruf = !'A' .."Z'. 'a'..'z'l : HimpOigit = !'0' ..'9"1: PROCEDURE BacaKaratcter IVAR Karatcter CH.AR ; HimpKaratcter: TioeH!mpKJrl ; { Prosedur Jnl bersifat lokal. } BEGIN REPEAT Karatcter := READKEY; UNTIL Karalcter IN HlmpKaratcter END: { aktllr prosedur BacaKaratcter }

{ Jmplementasi fungsl BacaDIQit } VAR KarDigit: CHAR; BEGiN BacaKaratcter IKarDigit. HlmoDig!tl ; BacaDiglt := KarDigit END: ( ak:hir fungsi BacaDlgit }

~. 1

t:pe lo~al ·

: kvr.sta r:ta lokal

..

Tipc, konstan t;; d,m p ro sc dur tcrsc!'llt han;·.! d.lp:lt dipcrg unJkan p;;d,J bagian itnplmit"llf,Jiit>rl. Ot"klarasi lainn\"J mcrupah.;n i nt plcmc nta ~ i dari proscdur da n fungsi vang didckbrasibn pada b:.gian inierj(Jcc. Pcrlu di k cr:~hui. jika uni t bcrisi fa~ ilir:~~ prnscdur .1tJU fung~1 nJJb kl·pala proscdu r atJu fungs i pad.l h.1gi :l!l imp lnn, tlftlfioll haru sl:!h SJ !ll ,1 dcng~n pa d:t bJgiJll ilitl'~lc:r . Kcti Llak~:Jf!! ,Uil rada kt·p.tLl program :~bn mcnyebabkan unir tak LhpJt dik omrila ,i. Na inu n, unruk mcnyinghr pcnulisan, b:~gian pa rameter proscdur ,HJu fung si dalam bag i.m illlpltm !·,,_ ltlfil111 botch tidak di tuli skan (disenakan). Mis :~l uncuk conwh di dcp.tn. kcpala prosed ur pada bagian implemen tation dapat bcrupa: PROCEDURE BacaKaralcter;

Baglan lnlslallsasl Bagian inisialisasi minima! mcn gand un g kata tcrc;tdang END diikuti dengan tand a titilc, yakni kalau tidak ada inisiaiisasi ya ng diperl ubn dalam unit. Scbagai comoh t e nt :~ng un ir ya ng lcngka p:

PROCEDURE BacaHuruf IVAR KarHuruf: CHARI; UNIT Contoh;

{ lmplemenffil prosedur BacaHuruf. Keluaran berupa huruf kapltal.

!••···············*·······································••> ( t awal bagtan tntarface t) c•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••>

INTERFACE

BEGIN BacaKarakter IKarHuruf, HlmpHurufl; IF NOT !KarHuruf IN !'A' ..'Z'Il THEN KarHurut: = UPCASE IKarHlirufl; _\(}))

U3ES CRT ;

{ unit yang dlgunakan oleh unit contoh )

399

... ..-

aacaOlglt : = KarOiglt END; ( a kh l r fungal a&c.Olglt

~

~

.,...r ';'lb7\ g1 c t>#l

11;::;:. )lu:"\:f: : Hr.R;

~t,.'CC:::::'.JR'o: o(P:t:";!.-:11

s a=Huruf (\/Ail .-arHurd: CH.:Ifl); { proS
:_a.;~ig\t:

C>!M:

fungal global

(

,..• ~~··-··~···'··~······$························••*·······> :H\f'l ~~nrrAi!0/1 <• awal bagle.n i iiiPl-•n-tatlon *l

(• '••••·~~••••••••••••••••••••••••••••••••~••••••• s••••••••*l

~

<·························································••> { Baglan lnlsla11saal. Tl dak Mangandung inlsl&llaasl

n

..:!:

'I .!

1

'

\ I

tiP" l olo. a l

"[ '(PE

[lperiimpKar : SET Of CHAR; COI1ST HiepH uruf HIIOpOiglt

=

['A' ..

·z·.

I

kons~anta

<········· ························~· · ······················•) ( • akhlr uni t •)

uw . Unir 19 - 2.

K~lau

mis.1ln\' .. Un1t !<,- 2 dt tull< dcn,::1n i1J lll.l fik ,1d.tl .th C UNTUH . \'A5 . m.1k.t l'J:-. il \.• 'nii'd.!'' hcru pa tik C(l!'nt)\ I. TPU. Pr~)gr.~m y.u.~. n.•:lol,~t'o n u'''t (_',,.J r,·l; di ,,ii k .tn l'·'d:1 Program \ li-1.

loka 1 ) PR<XJRDJ.4 TesUni t Contoh

·a· .. ·z');

{ ·o· .. ·g ' l: USES

PROCEDURE SacaXaraKtor (VAR

Kar~kt~r :

}

C~T.

Co"toh :

CH AR;

HilrP~'"'"kter : Tip
8£G H I

CLRSCR; "RilEL " ( ' Masukkan s• ~u ah hu ruf.

( Prosedur ln i be rsi ht 1c~ al .

' J;

Bac~~ ur uf

BEGIN

"p]T[ L ~

REPrAT Kar;okter :: PEAOKEY: UNTIL Kar;okter IN H lmoKar;.kt ~ r ENO: ( akhir prose du r s~caKarakt &r PROCEDURE Sac aHuruf (V AR

~a rH uruf·

tHuru fl : (Hurur):

AE AD~N

(t;Q .

Pro.~r.un 19 · I.

CHAQ);

Ieple~entasl proeedur BacaHuruf . Keluaran berupa huruf kapi~al .

BEGlH BacaKan:.k ter ( KarHuruf, Hi11pHuruf) : lf NOT (KarHuruf IN ['A' .. ' l ' J) THEil KarHuruf : = UPGASE (KarHu~uf); END ; { akhir prosedur SacaHuruf

fUUCTlOH sacaOiglt: CHAR; { Iap) ...ntasi fung~l Sac aOiglt

V;1riabcl i-{;1'·11( p3(lJ Prog ram \!J- \ mcrupakan variabcl cbbll1 un1 t C,Hzr,,/z ~·;li1~ l!t nJ.lnia.HkJn o lch pro~ram. 5chin f!: ga ti Lhk pcrlu ada dckL1ra'i tnh.l(hpnya. Hcgitu halnya proscdur fltlcaHun~( Jika dimgtnkan agar data dalam unit dilakubn suatu inisiJlisasi tcrhad ,l p unit (dapat bcrupa scjumlah tindabn dabm bcntuk bcbcr apa pcrny:ltnn ). maka inisi:~lisasi bcrbcntuk : BEGIN ; Pernvataan END.

Comoh dJpJt Jipc ro kh d.:nga n me m odifibsi

Coll l<'l' nH·njJ.di:

b.1 ~ian misi ahsasi dari unit

·

BEGIN VAR KarOiglt : CHAR; BEGIN SacaKarakta r (KarOigit, H\mpOigi~ ):

CLRSCR ;

•

400

-.---~~~7:!.~~~.:'0.-:i'. ~-:y""~:;..;~i:~'; .::. ~~:~J~~(~r{$'ti~~~~~~

401

------ ·~ -

(atau unit lain)

•' i ~ Scbaga1 comoh: PROGRAM TESX: USE KARAKTER : CONTOH . CRT;

:su

program . M isal: Tesinlsialiaas\Un\t;

l't:lf!S ·d J;; ?rogra 1n di J!.lS tncnyJ: .d,dn. progrJrn mcngg uf'l akan Ju .1 bu.th unit t'c rupa CONTO I ! J.m ern . Kllll'u' <..~nwk u nit C." '''"

USES Cootoh;

,bimpai.

BEGIN WRITELN (Huruf); Huruf : = 'C';

WRITELN (Huruf}; READLN END . Cooton Ekaekusl : !nisl al l sasi terhadap hu ruf su d ah d i l ak u kan.

T

c

.. .;

Dari ha sil eksckusi terlihat bahwa pcrn yataan WRITELN l'lnlslallsasl temadap HURUF sudah dllakukan.'l:

yang terletak dalam bagian inisialisasi unit Contoh dijalankan terlebih dahulu sebelum pemyataan-pemyataan y ang ada pada program. Sudah tentu pern yataan Huruf := 'T' :

juga dieksckusi sebelumnya.

XIX.2 KAITAN NAMA UNIT DAN NAMA FILE Antara nama uni t dan nama file sebenarn va tidaklah harus sama. Bisa sajl misalnya nama unit adalah Co iiC<'h .t.: tapi nama file unit adalah KARAKTER .TP U. Hal seperti ini dipcrkcnankan asalkan pada program 402

pengaJh

USES {SU NamaFile) NamaUnlt;

dan kemudian unit perlu dikompilasi kembali. Dengan adanya bagian inisialisasi pada unit Contoh , rnaka variabel Hunif diberi nilai awal 'T' . Sudah tentu nilai varia bel ini bisa diu bah ol eh

Program /9 -1.

mempergunakannya menyertakan

kompiler {SU } dcngan bcntuk :

Huruf :• 'T' : WRITELN l'lnlslalisasl tert\adap HURUF sudah dllakukan.'l; END. (• akhlr unit •l

PROG~AM

yang

-~<-'ngan nam a tile K.-\H/\KTEH.TPU.

kesalah an sewaktu program

d ~jalanbn berupa:

'Numeric co-p rocessor req u ired'. (proscsor pcncbm pin g numerik diperiuka n)

XX PROGRAM TAMBAHAN

Progr::.m vang mcl ib .1 rkan ripe single, double, extended atau comp han\"J bis ;1 dik o mp1llsi kalau pro scsor

• {$N -}

rcndampin g 81)87 :1da .

c~\!1[1 ,h r rOf!. i" :ll1l Ih b ini berisi program yang mt·mbcribn contoh c.ua melakukan emu lasi pengo!ahan numerik, pcmcribaan tcrh:~dap .1da ridaknya nib i u:dc ks di luar kawasan array, membu at jcndcla bcrrumpuk (sistcm pulidt•lllll ) d,m juga cara mcmbikin menu pilihan dcngan si stem gescr.

Ka dang-kadang dipcrlukan untuk mcngolah nilai ndmcrik (bilangan' yang sangat besar :1tau memerlukan kctdirian tingg1 Sulusiny;,_ dapat m enggu nakan tipe-tipc bilangan yang discdiabn da L1 m Turbo PasC1l b ~rupa single, d o ubl e, ex t e n ded dan co m p (Lih at TJ.bel 2--l). Kccmpat ripe ini scbena rny::t discdiak :m untuk komputcr y :m[e m cmi lik i :'fl •St:SOr pcndam ring 8087 - N ,l111Uil kahu pun proscsor terse-bu t '-' ~ rcrsccha . ad:1 ca ra yang mcmungkinbn kccmpat ripe rnscbut teL;? J ar-1: oig un:tkan yai tu dcngan ca ra cmulasi. Emub si dap:lt Jila k sanaka n dcngan mcnycnabn pt·ngarah kompikr {SN} dan {SE}. K o m pil cr {SE } digunak.an untuk m cngiz inkan em ula~1 atJu tidak seandain ya proscso r pendamping 8087 ridak ada. Keadaan {SE+ } menya takan emulasi dapat dilakukan. Sedangbn {SE-} bcrarri t'm ulasi tidak diizinkan . Pcngarah kom pilcr {$N } bcrka itan dengan bcntuk pemrosesan n u merik. Keadaan {$N+} mcnyatakan pcmrosesan numerik real dijalankan dengan menggunakan proscsor 8087. Keadaan {SN- } be rarti bahwa pemrosesan bilangan numerik real dilaksanakan sccara software (dcngan ukuran bilangan adalah 6 by te I ripe r eal). Sifar pcngarah kornpiler {$N } dan {SE} adalah scbagai berikut: • {SN+,E+} Jika prosesor 8087 ada maka proscso r ini dipakai untuk m elah.1kan pcrhitung1n numcrik real. Apabila tak ada, ca ra emulasi yang dipergunabn. • {SN + ,E-} Pcrhtrun gan numerik ya n g mclibJtbli ri pe single, double, e.x tended atJu comp ham·,1 .bpat dilakukan dengan menggunakan prosesor i)l)87. Kcmungkinan

-Hl4

L"niiil bi t'"'r~i rung.m

!1t111lt'l"l ''

rc.1l: PROGR~

.

Emu lasi1;

)

<• ------ ------ ------ ---

.

(• Go n ton program yang msmungklnkan •mul~~ l • J )

perhi:ung~n bilangan numer i~

(.

XX: I EMULASI PENGOLAHAN NUMERI K

\ ":J il t' !!1 C ll1\ 111 S kil1Ll11

~a 1 su proseaor pen~amo\ng 80o7 tak od a

(•

•)

<• --- ---------- --- ------- ---- ----- ------- - ' ) ( t momung kinkan &mu l ae1

{ Sff+ I!: ... )

+}

COtlST F A ~T OR_P E !
1.55E+06;

VI\R • N i 1~ \ :

L 0'1G IN T ,

BEGIH Nila\

: = 1-!AXL OtlGitiT;

{ tJ \la n 9•.n ;JOSit\f teroesa• d
I-IRITELN ('Is\ tH LAI I-IRITEUI ('Has\1 kal\:

l-.on s t.ar.~a ~.- ... ...
un1t SVSTE}-4 }

N\ l a i);

FAKTOR_PEtiGALI •

tl il ~ · ; :

RE ADLN END. Prog r~m

Z0-1.

Kalau Program :20 - 1 t1ij alanka n maka h:tsilnn .;dJlah: ls i Niiai Hasil bli

2147483647

3.328599652RS()(){ IE + 0( li :;

ncrbn{< halm·a kalau pcngarah kompikr { S ~- . E t- } tidJk di scrtakan. Dal:tm hal ini hasilnya adalah: ls1 Nil.\i i Lt ~d \...al i

21·l7 48364 7

.3 ..Y~SSq9652SE -+- IS

4U5

(• pengecekan nilai dl luar kawasan aktlf •l (SR+}

Terlihat bahw-a ketdirian hasil perkalian dengan cara emulasi (atau yang

VAR 1

menggunakan prosesor 8087) lebih tinggi. Contoh bin pcnggunaan emulasi yaitu dimungkinkannya penggunaan tipe comp walaupun prosesor 8087 tidak ada.

BEGIN

.. . .

PROGRAM E•ulas\2;

BYTE;

tHlaHes : ARRAY[\..5} Of BYTE:

FOR l

: = 1 TO

N i la iT ee [ l]

00

: = RAII00!-4 I 1 01 ) ;

)

<• __ :~---------­

EtlO .

)

(• Contoh perhitungan numerik tipe COI-IP

)

(* dengan cara emu l asi (• untuk komouter ya ng tak mamiliki pr oseso r 8087 • )

ProgrJill ZO -

(•

nrnri;rrc

.1.

!1\CJ1\·cn«k.1I~

~.LH

( sn. r'·l'l.i i L·crn1L1i 6 Jk an nll l1 \·cb.1r\-:. ,\L ,·an >C: m en Y3t .ik:,n n ih1 tt:r,cbu t tll \u ,lf \.:..1 'vasan a r D\. ·.y acb progr .Hn n ilai ind cb eLm .\.i/.i:T<"' c. Lbbh ')). Kesalahan ra\..:.- akan dibporka n scanda in,· a 1Si~-} ri,t ,k ,idx rik an dab m program .

l)engan

)

( * m9mungkinkan emulasi • J

($1H,E+}

e

tcrhcs.<~

c tT tl r .

USES CRT;

)0(.3 FASI LITAS LA VAR Fasi\itas Llya r .1k:1 :.

Y.H~S

VA R tlilai 1. tli 1ai2 ,tli 1ai3: COI~ P ;

BEGIN CLRSCR ; Nil a\1

: = fi~XLO! ; GitiT ;

p .. J.:

l'~S1Jll

in1 mcliputi ma sa\.; h:

rcn~n g anan kur so r

pcn g:1 k se, J n da r~ b ':":. ,<_,;1 pcm b uat .m JL'IJc' ·: L1 b·: : '. '.l lli\ ' uL ,p,il-:\•!1 11 ).

bilangan posi t if terbesar

pada t i pe LOti GitlT }

WP.ITt:LN (tli1ai 1) ;

Nilai2

.:i~.1h>

K. csc:hnt:h.ln ;-.t:;i\ n .l >

;:~.-·nns

,L \;1:1 ·,

=c'l lu .th unit yan g d ib cri n:nn:l

: = 1-l!I XLOnG!tlT;

VID EO.

WRITEUI (tli1ai 2); tli 1 a i 3 : = IIi 1 a i 1 • IIi 1 a i 2.

WRITEUI (tlilai3);

Fasllltas Kursor Bcrkai t an dengan L1 sili:.1 S m cnsl' na i kursu r 3da bcberap .. ri pe

REAOUI END.

4 j

Program ZO-l.

n ya adalah sebagai b criku t:

l

XX.2 MEMERIKSA NILAI INDEKS 01 LUAR KAWASAN ARRAY

:4

Dalam caraf pembuatan program ya ng melibarkan arra y J.dakalanya (karena kcsalah an pemrog raman) mcnycbabkan pengaksesan array dcngan indcks di luar kawasan array. Untuk m engetahui hal ini, pada p rogram pe rlu dise rtakan pcngarah k om piler berupa {$R +} . Sebagai

'

conroh :

m""'·'"k"' luh"'
,·wg

~

J

dcfinis i:

~

-~

PROG RAH CekKawasan; (• •) (• Hellha t pengaruh penga rah kompi ler R * )

------------------------------------

(t untuk memerikea kawasan array

*)

<• ------------------------------ ------

•l

406

T\peKursor = lNORMAL. BESAR . SEMBUNYil:

~

.......

yat~g

kiranya pcrlu untu k ,1ibaha5. Pcn ;tnl
TipeOataKursor

RECOiW XKursor. YKursor. A\\ a·Kursor. Al
-!-CI7

I

oataLayar = ARRAY!1..TOTALMEM DIV 21 OF WORD; ptfOatatavar = ·Datatavar:

Tipe m1 mengandung field:

• XKtmor

berisi data posisi kolom tempat kursor sedang berada TipeDataLayar berupa array dcngan ukur.1n TOT AU·1Elv\ byte, atJu ~ scbanyak TOTALMEM DIV 2 word . Sedangbn PtrDar.1L.ayill bcrup:1 (relatif terhadap jendela yang aktif). berisi data posisi baris tempat kursor sedang berada ripe pointer yang mcnunjuk ke :uray da ta layar . (relatif terhadap jendela yang aktif). l Prosedur yang bcrkaitan dcn gan masabh pL'ng .1 kses:~ n J.lta L1yar nomor baris a•\·al dari bentuk kursor_ nonwr baris akhir dari bentuk kursor_ 1 adalah:

1

• ) 'Kursor • Awa/Kursvr a AkhirKr-trsvr

Proscdur un ruk pcngaturan kursor: 1. A turKu rsor

l

I . Simp a nDat:~Layar

!3cntuk : PROCEDURE SimpanOataLayar

!X1,Y1,X2,Y:l BYTE:

VAR Ptrlayar :

lkilluk : PROCEDURE AturKursor (AwaiKursor. AKhlrKursor: BYTE)

Digunakan untuk menyimpan data p.1cl1 dan .1h \.1\T' ,._ln)-!, I!il't11iliki koordinat poj ok kiri-atas (X l,Yl ) cb n poj ok b~ ·.an-b.l\\.1 h (X 2.Y2J. H asil abn ditcmpatkan d;Ilalll ]Xll·1mpun g \' .11> ~ clltUllJUk ole h

Digunabn untuk mengatur bentuk kursor. Nilai untuk masingrnasi ng parame ter dapat berupa 0 sarnpai d· 11gan 7 untuk mode teks CGA. dan 0 sampai dcngan 13 untuk l11 l •c\C teks monochrome_ 'l

p:uamctcr pointer PtrLayM.

ModeKursor

,.,

-Bcntuk: PROCEDURE ModeKursor (MOde: TipeKursorl

KcmbalibnDataLaya r Ben tuk: PROCEDURE Kemballl
Dipakai untuk mcmilih model kursor. Par:1r11.:tcr dapar diisi:

Bcrfungsi unruk mcngcmb ;!lik:m ,bt.J \· ,1r:g .hi; ;· .,l1J t-'C ! l:linp <~n:!­

umuk b1rsor normaL NORMAL unruk kursor den gan . ukuran bcsJL EESAR : jika diinginkan agar kursor ridak tcrlihat. SEMBUNYJ

\·ang ditunju k oleh PtrLaya r k.: l.l'."Jl.

Fasllltas Jendela Bertumpuk Untuk kepcrluan implemenrasi fasiliras jL'ndcb hcrrumpuk , tcrdap .H bcbcrapa deklarasi variabd, tipc dan k ons t :mt~. dl, .li ilpin~ ~ ljumbh

J_ lnfuKurso r Bentuk

Ptr::Ja~Jt.a 1ar•

PROCEDURE lnfoKursor !VAR DataKursor: TlpeDataKurson

prosedur. Konstanta yang ada berupa MAKSJEND y:111g mcrwJtakJn banyak nya jcndela yang dapat dibuat bertumpuk sccar:1 >crcntak. I:Janyakny:1 jendcla yang dibuat akan diingat oleh variabcl 1'\'mr)
Berguna untuk memperoleh informasi mengenai posisi kursor relarif tcrhadap layar dan bentuk kursor.

dickfinisikan sebagai berikut:

Fasllltas Pengaksesan Data Layar Fasilitas pengaksesan data layar meliputi penyimpanan data layar ke dalam suatu pcnampung dan pemuatan kemb;1li data pada penampung ke layar. Unruk keperluan ini dideklarasikan tipe TOT ALMEM yang hcrn ila i 4004 . Nilai ini mclipu ti maksimal data layar sebesa r 4000 byte (u nruk mode tcks 80 X 25) ditambah dengan 2 word (4 by te) untuk kcpcrlu.u1 mcnyimpan koordinat data layar. Sc.::lanjurnya terdap;J.t dua · ripe bcrupa :

408

TlpeDataJendela = RECORD ptrlsUendela : PtrDataLavar: RecDataKursor : TipeDataKUrsor: AtrlbAktlf : BYTE: PosJendelaMin. PosJendelaMal< : WORD: END;

l

;~

'
-Tipe ini mengandung sejumlah field dengan rincian sebagai berikut:

• PtrlsUendela • RecDataKursor • AtributAktiJ • Posjendelai\.Jin • Posjmdela.Hax

digunakan untuk mcnentukan atribut \varna bingka i jcndcla dan atribut warna dari jendcla (dalam bingkai). Proscdur inilah yang dipakai untuk membuat jcndda bcrtumpuk. -

: unruk mengingat isi layar (Lihat keterangan PtrDataLayar) . untuk mengingat data kursor (Lihat keterangan TipeDaraKursor). untuk mengingat atrib ut warna yang sedang aktif. berisi data koordinat polok kiri-atas dari jendela layar yang sedang aktif. berisi data koordin:lt pojok kanan- bawah dari jcnckla layu yang scd:l!lg .lktif.

Sclanjumya tcrdapat \·;: riabci hcrn:una scbagai bcrikut:

Vara)en.ft>lo~ ,

3. Hapusjendela

1 l

Bentuk : PROCEDURE HapusJendela

'{

Dipakai untuk mcn g hapu~ jcndcb v ;lll f: aktif. Dc.:ngan riihapusnya suatu jcndeb. jcndc!a y:111g alia ,Ji 1->awahnva abn mcnjacl i jcndcl a yang ak tif.

dcnga n dcklarasi

lmplementasl Unlt Video Implcmcntasi unit VIDEO Jdalah ~ch .'t' " l bc rikut:

DataJendela : ARRAYIO .. MAKSJEND·11 OF TipeDataJendela;

UNIT VIDEO;

<•

Vari:1bd ini· digun:1ka n unt uk mcngi;Jga t <;clu~ uh data jcndc; Prosedur yang bcr ka itan dcn~Jn impkmc;H,lsi j cndcla bc rrumpuk vaitu:

c•

<•

--- ----------- •> berisi sejurnla h fasi l itas • ) untu k rnemanipul a si l ayar •)

c• ---------- -------- -- ----- •>

1. Bingkai

(••••••••t••··············································••' )

INTERFACE

I3entuk: Bingkai

(~••• •• +++•+•+•tt•+$••••t+t+•+•t+t+++•+ttftc•ttt+++•+++t$ \ ~•~)

STRING; X1 ,Y1.X2,Y2.Pilihan : BYTE; Karal
Digunakan umuk rn emhuat bmgkai p.1da dacrah (Xl, Y!.X2, Y2). Bagian atas dari bingka i .:Ia pat dibcri kctcr:~n g. 1n mclalui jt,dul. Jenis bingkai dapat diatur rnelalu i Piiihan. Bing b i berupa nilai dari parameter Karak ter. kabu Pili han bcrnibi i 1 /\ tribut \varna dari bingkai dapat diatur me!Jlu i Atribt
2. Bikinjendela Bcntuk: PROCEDURE BlklnJendela Uudul : STRING; . X1 ,Y1 .X2,Y2, PIIihan : BYTE; i<arakter : CHAR; AtrtbBlngkal . .AtrlbJeno: BYTEI f Digunakan untuk membuat jcndela pad ,1 daerah layar (XI, Yl, X2, Y2). Judu l untuk m cncntuLn tulis.m pada jendela bagian atas. Karakter untuk m<::n<.:ntukan braktcr ya ng d ig unakan untuk mcmbuat bingkai , blau Pililw11 hc.:rnilai 0. AtribHiH.f!kai dan Atribjend

-110

4)

USES 005, CRT; CONST TOTALMEM : 410 0; 1-tAKSJEND : 10; TYPE DAtalayar PtrOatalaya r T1peKursor = T1peOataKursor

1

~

•K

t

4 byte~

untuk meny~rnp~n o ata 1ayar }

jumlah maksimal dari jendela ARRAY[1 . . TOTALM EM OIV 2] OF WORD; ·Datalayar ;

(NORI.IAL, BESAR, SEI-IBU!IYI) ; RECORD XKursor, YKursor , AwalKuraor, AkhirKursor : BYTE ; EtiO:

TipeDataJa noela

RECORD PtrlsiJendela RecDataKursor AtribAktlf PoaJendel01Min, PosJend~laMak

PtrDatalayar; Tipe 0a taKur'5or; BYTE; : WORD;

EtiD; ~ 11

. VAR HftlrJendela DataJende la PROCEDURE

Seg.'len : = SBOOO ELSE Segnen : : SB800 ;

BYTE; ARRAY[O •• MAKSJEHD-1) OF TipeOataJendala;

Si ~ pa nDat alayar

{ Sl mpan data da l a. array Ptrlayar• [ 1) : : SWAP (Yl) + Xl; Ptrla ya r "[2 ) :: SWAP (Y2} + X2;

(Xl ,Y1 ,X2,Y2 : BYTE ; VAR Ptrlayar : PtrData Layar) ;

Indeka : = 3 ; FOR I : : Y1 TO Y2 DO

PROCEDURE Kem balikanDa ta layar (VAR Pt rlayar : PtrDataLayar) :

BEGIN PROCED URf Atu r Kur sor ( AwalKursor . AkhirKursor : BYTE);

or ... t := (I -1) • 160

+ 2 • (X1-1J;

F0R J := X1 TO X2 DO PROC EDURE HooeKurs or (f.lode : Tl peKursor);

I:IEGW

Ptrlayar"[Indeks] : = PROCE DURE

~nfo K~r sor

(V AR DataKursor : Tipe Da taKurso r) ;

HE~W[Segmen : Ofset};

HIC (Indeks); I IIC (Ofaat, 2) ;

PROCEDURE 8 i nsk a i ( J udu 1 : STRIIIG ; XI , Y1 ,X 2,Y2,P iliha n : BYTE; Karakter : CH AR; Atrlbut : BYTE );

'liD ; Er;r,

( akhir prosedur SlmpanDa ta La ya r I

E~O ;

PROCEDURE Bik ir.Jendel a (Judul : STRING ; X1,Y1,X2,Y2,Pilihan : BYTE ; Karakter : CHAR; Atr l bBingkai, Atrl bJend : BYTE) ;

PROCED UkE KembalikanDataLayar (VAR Ptrla yar: PtrDat a l a yar);

..

----- ---- -- •>

(•

Proae dur lni berfungsi untuk mengembalikan da ta layar •) yang ditunjuk oleh PTR LAYAR ke layar • j

(

(.

.

-

PROCE DURE Hapu sJ endela ;

(• ------------ -VA R I , :, lnd ~ks, Segmen , Ofs a t , X1 , X2, Yl, Y2

c•• •••••• ••~ ••••••••••••••••••••••••••••••••••••••••••••••• ••>

B,..GlH

niPLEHENTATION

)

WORD;

= 1.10110 THEil Segme n : = $BOOO

If LASTHC'O E

<• •··· · ·· ~ ···················································>

ELSE

PROCE DUR E

Si~panDataLayar

(X1,Y1 ,X2,Y2 : BYTE; VAR Ptrlayar : PtrDataLayar);

Se gmen : : SBBOO ;

c• ---------------------------------------------- •> (*

c• (• (.

u (.

Proaedur inl berfungai un·cuk manyimpan data aebagian a tau aeluruh layar yang memlllki koordinat pojok kirl ataa X1,Y1 dan koordinat pojok kanan bawah X2,Y2 ke dal . . ruang dalam heap yang ditunjuk oleh PTRLAYAR

X1 := LO (Pt r layar - [1]) ; Yl : =HI (Ptrlayar'[l)); X2 := LO (Ptrlayar'[2)); Y2 : = HI (PtrLayar " [2));

*l *l •J

. *)

Inde kli : = 3; FOR I := Yl TO Y2 DO

*) )

BEGIN orset : = (I-1 1 • 1!!0 + 2 • (X1-1) ; FOR J : : X1 TO X2 DO

c• ---- -- ------ -- ---------------------- ---------- •> VAR I, J, Indeka , Segmen , O.fsoet : WORD/ BE GIN ( Ten tuka n &e gmen te ks I IF LASTMODE

BEG Itt

HEMW[Segman : Ofset) : = Ptrlay ar " [ Inc1ek s) ; INC ( Indek a ); HIC (Ofll8t, 2);

MmiO THEil

~u

~12

.4 ...,-,~--=-"'; _9·~~ . ..

'"

..

-

·.... ,~·

.~l"iifIC

l§le.

%1¥~<¥:¥~ ' - ..,.:··•· ~V·~ ."1-~~·-...;; c--~· ~,-..'~'·· .•.. c~

..,., ~-... . ' : " A - , ; - -

·

·-

E

(* untuk . .MParoleh lntonaaai kursor ••ngenal EHD

(• (*

EIID END; { akhi r pros~odur Kallt>A H kanOiltillayar

- ukur.an kurao_r - poaisl kuraor (re1atlf terha dap jande1a)

COtiST Ha 1 aun = 0;

(* ---------------------------- •> (* untuk mangatur bsntuk kursor *)

VAR

.

Rega : REGISTERS;

VAR Re gs : RE GISTE RS; 1;

{

nomor pe1aya nan u n tuk pang atu r an ku r so r

WITH OataKursor DO

Regs.CH : = Awa1Kursor; Regs.CL : = AkhirKursor; IliTR ($10, Regs); { interupsi ROI·I_BIOS, nomor 10h }

BEGlll AwalKurso r := Regs.CH; ~ " h i rKursor : = Regs.CL;

£1lD ; { a kt' i r prosedur AturKursor }

X ~ ~r ~or := WHEREX; YJ<.c; rso r : = r/HEREY;

PROCEDUfi E HcoeKursor (1-loda: Tip~tKursor);

(•

----------------------- •> ukuran r.on'l\a 1, besar a tau ters.embuny i

(•

----------- --

COHST Da t a Ku r so r

EtlO;

•l

(• untu k memi1 ih bentuk kurso r bcrupa (•

. •)

({Aw al : 12; Akhir : 13), (Awa1: o· AKhir : 13},

I besar, •ono se~bunyi,

•one

Atur Kursor (Awa1Kursor , AkhirKuraor), EIIO ; { akhir p r osedur ModeKuraor ) PROCEDURE lnfoKur~r (VAR OataKuraor : TipeOataKuraor); ----- •J

c i pa~ai unt u~

Set sama d~ngan ·• jika Judul

ti dak diperlu kan Posisl pojok kiri ataa bingkai Posisi pojok kanan bawah bingkai

(. :

1

;:! .;.';

:~~~

~

<•

X 1, Y 1

(•

X2, Y2 0 •• 8 Pil \han Karakt er : lsi deng.an karakter yang anda lnginkan , bi1a Pilihan diset

(. (.

(•

i',:J !~

<•

,.);I.J

(•

-~1 .~.

~

·~1 ~:J

--l

€,..1 i~

s.aJIIa dengan 0

(•

Atribut

(.

0 . . 255

Untuk manentuka n warna bingkai dan latar belakang bingkal

<• -

COt<ST Oatil

t)

msmbuat s uatu bingka i •l •) ) Tu1 isan pa cta tsngah atas oingka'

(•

.~;i .r:.;;.ti

BYTE;

J v du1

(.

1

BOOLEAN;

---- - - - ------- - - - -- ---- - -- - - -- - -- - ---- -- - ---- ---

( • Prose dur i ni i.

( norma 1 , CGA { besar, CGA I sembunyl, CGA ( norma 1 , 1100no

BEGIN Vi deoMono : = (LAS TlolODE : 1-10110} ; AwalKursor : = OataKursor[VideoMono,Hode].A>~a1; Al
4 14

BYTE: , Pilihan B" lE) ; CHAR ; ~ tribut

OF (•

(Awal :32; Akh ir : 32) )) ; I

<•

snntiG;

Karakte r

TipeKur sor]

END ( ( (Awa 1 : 6' Ak hir: 7), (Awal : 0 ; AKhir : 7) ' (Awa1 : 32; Akhir : 32}),

I

9\ r. gv.ai (Judul

X1,V1 , X~ .~2

RECORD Awa1, Akhir : B'fTE

VAR VideoMono Awa1Kursor, AkhirKursor

END; [ ;ok!l>ir oros.,dur Infol\u r s o r }

P ROC EDu RE

)

~?.q AY[BOOLEAN,

~

8EGIH -fungsi p@ l ayanan i nfo kursor } R&gs . AH : : 3· Regs . BH : = HAL.A~1All, l tHR ($10 , Regs); { i n terups i ROI~-BI OS , nomor 10h

)

BEG I N Regs . AH : =

o I

(• ----------------------------------------------- •>

PROC EDURE AturKursor (AwalKursor, AkhirKursor: BYTE) ;

<•

.,.,

•l

.

.. . ')

) )

.. )

)

.. . )

)

)

)

. • .I. )

---------------- - - --- ----- - - - - - -- -- I)

ARRAY [0 .. 8,0 .. 7) OF CH AR ((IOOO .• OOO,IOOO,.OOO,I OOO, . OOO, ~O OO, , OOO) , (J218 •• 191 '11192 ,1217 , J17 9. J119 ' 119 6 ' " 95 ). (1213,1184,f212,1190,1179,1179 , 1205,t205).

~

~

41 5

'

WRITE (Oata[Pilihan,3));

C•Z14,J183,,211 ,1189,1188,1188,1198,1196), <•201,1187,0200,1188,.186,1186,1205,1205), (#220, 1220,1223 , 1223,1221,1222,1220,1223), <•17&,J176,117e,,17&,117a.•17&,•17a,l1761, (J1 77 , 1177,1177,1177,1177,f177,1177,1177) ,

EtiD; Tul h Judul I IF LENGTH(Judul) > (X2-X1+1) THEH Judul :: COPY (Judul,1.X 2-X1+1 ); GOTOXY (Xl+ (X2-X1+1-lE!lGTH(Judul)) <:' ' ' ~.Y~ ) ;

(1178,1178,.178,1178,1178,1178,1178,1178j); VAR I, Segmen : WORD; BEGIN If

< (Y1 <

(X 1

( ( X2 -

OR (X 2 > 80 i OR OR (Y 2 > 25) OR X 1 ) < 1 ) OR ( ( Y 2 -

WRITE (Judul); END; { akhir pros~dur Bingkat

1)

1)

Y 1l

<

1I

T/1 F. II

PROCEDURE BikinJendala (Ju dul

STR !IIG BYTE.

X, ''( 1 'X 2. '( 2 p; 1 .j \ ""''' I

EXIT; If (Pil ihan <

Kar«kte r C:HA P AtribBingka i, AI 0)

OR (Pil1han >

8)

Pll i han : = 1 : If Pilihan: 0 THEH FOR I : : C TO 7 DO Diltd [0,1) := Karakter;

TE XTAT TR := Atribut; { Memouat oi ngkal dan judu l ) GOTOXY (X1 ,Y1 ); WRIT£ (Cat a [Pi1il'\a '1, 0)) ; : = X1+ 1 T C X2- 1 DO

FOR I

nRZ TE (Da ta[Pilin an,8)); GOTOXY (X Z, Y1 ); WRITE (D ata[ ?ilinan,l} ); fOR I : : Y1+1 TO Y2 -1 00 8EG1 tl GOTDXY (X1,!); WRITE (Oata[P i lihan,o]); GOTOXY (X2,I); WRITE (Oata{P ilihan,S]) EtlO; GOTOXY (X1,Y2); WRITE (Oata(Pi1ihan,2]); fOR I : = X1+1 TO X2-1 DO WRITE (0ata[Pilihan,7]); If (X2 = 80) AND (Y2 = 2 5) ThEH BEOitl If LASH40DE = HOllO THEil Segmen : = $8000

--------

· :-J IOI'O :

BY TE ) ;

rrl EII

,. ---- --- ----------------- - --------- - •J (• untuk membuat auat u jendela•yang n,. ~ ; . » a da;>at dihapus •J

(•

dan dengan t i dak menguban ; 9 ; 1 ,. , ..

sebelUtOnya

1• AtribBingkai

untuk menentuka.n

at rd -· t

0 '-.. .J "ai

(• AtribJend

wntuk ~e ne~tu~ an at r,~·t

; e ~del&

.. •)

)

)

<• BEGIN If llmrJendela >

(~AKSJEI ID-1)

THEil

EXIT; IF (X1 < 1} OR (X2 > BOi OR (Y1 < 1) OR (Y2 > 2 5 J OR ( (X 2 - X 1 ) < 3) OR ( ( y 2 - ·{ 1 ) < , •

f ~ E!l

EXIT; WITH DataJendela[llmrJa na ela) DO BEGIN If ~AXAVAIL >= TOTALHft.t THEil NEW (PtrlsiJandala ) ELSE BEGIN WRITELII ('~amort ta k cukup . 1; HALT (1) EIID ;

Silllp an0atalayar (X1.Y1,X2 ,Y 2, PI • ~~iJ e n dela );

IIEH{Segmen:3998) : : ORO (Data[Pilihan,3 ]) ;

InfoKursor (RecDataKursor );

HEH{Segaoen: 3999) :: TEXTATTR

AtrlbAktlf :: TEXTATTR ; PosJendelaJ.Iin :: W!IIDHIII :

ELSE BEG III GOTOXY (X2,Y2) ;

•) )

<•

ELSE Segmen : : $B800 ;

EIIO

.

1

PosJenda laJ.Iak : = WHI[)I.IAX . WINDOW (1. 1 ,80 , 25) ;

417 416

Bingkal (Judul, XI ,YI ,X2,Y2,Plllhan,

1• dengan ••nggunakan fasilitas pada UIIIT VIDEO •J

Karak ter, AtrlbBlngkAl); WIIlOOW ( .H +1,Y1+1 ,X2-1,YZ-1); TEXTATTR : : Atr i bJend;

,. -------------------------------------------- •> USES CRT, VIdeo ; VAR

CLRSCR;

JnaBtngkat

END;

we

{tliOrJende l a);

BEG HI CLRSCR; llodeKursor (SEI~BUIIYI); f OR JnaBi ng kai :: 0 TO 6 DO

END; ( a khir prosedur PROC EDURE

Hap •~sJenda 1a;

----------- -- ---------- --

I• (t

u ntuk men5h3pu g jande1a yany

(.

--

a ~t1f

--- ---- -- ---

.

BEG HI STR {Jns6 in gkai, Str JnsBingkai ); Bing kai (' Bing~ai jenis ke-· + StrJnsBing~ ai + •3 2 ,

)

•}

•)

BEGIN IF llmr J endela

=0

1, 1. 80, 25, Jn s aingkai, .1 3; REPEAT UIITI L READKEY

THEil

EXH; DataJendel~[NmrJenoala],

·••• 7 );

EIID;

..,

DEC (llmrJen dela); WITH

BYTE ;

!!trJnBBlngkal : STRIIIG( 1] ;

llodeKursor· (tJORI1AL); END_

RecData Ku rsor DO

!lEG Hi

Kemba l ika nD atalay~r (Ptrisi~ e ndala);

Program 10 - 4.

lfiiiOOW (LC(PosJenoe1al~in)+ 1 ,HI(PosJende1allin)+1 ,

LO (PosJe ndelaMak)+ 1 ,HI (PosJende1al-4ak)+1) ; TEX TATT R := Atrib Akti f; Atu,·Kursor

(A~alK~r·so r,

or~ pcnptu: .1 n

tl1dlkl

A ~hir~u r sor);

GCTOXY (.XKur s o r , "~ ur:>cr ); DI SP09E(Ptr! si J e nd c la ); END; END ; ( akhir pr osadur

Prog ram di at :~s juga sck3ligus mL·mpcrlihatkan kursor. Pcrnyat3an ModeKur~or

ISEMBUNYil;

bc rart i mcng .Hur kursor agar tidak tcrlihat.

Scd.1n ~k :u:

Hap u sJend el~

ModeKursor INORMAU;

<••··························································>

( ba9ian inisialisas i

pcrinta h untuk mc nam pilkan

kur ~ or

ci.ll.lr.l bcniuk

'. u 1~

<••··························································>

BEGIN

NMr Jendela := 0; END. (• akhtr un i t • )

Unit 20- 1.

Contoh bcriku~ bcrisi program ya n g m emanfaatkan fasilitas da!am umt VIDEO , yakn i un tu k menampilkan scmuajenis bingkai . Selain umt - -\L.112EO . unit st.JIJ(br C RT juga dilibar kan. PROGRA~

Tes8ingkai ;

<• --- --- ----------------- -- -- -- -- <• man~ptlkan sal u r uh jeni~ bingkai 418

.. )

)

Contoh program ya ng lain d apat dilihat pada P rog ram 20-5. Progr:trn ini mempe rlihatkan contoh pcngg un;un jendcla berrum puk . Jcndel.t pertama bera da pada daerah (:~ 0. 1 ,60. 1) dengan jcnis b ingbi adalah 1. atribut bingkai dan jcndela ada b h I Eh (tuli san kun ing dc ngan lat.u bclakang biru). Pada jendeb ini akan tcnampil sejuml.lh tulisan 'TURBO PAS C AL - TURBO PASC AL'. Kalau tom bol ENTER ditekan , akan muncul jendcla ked ua yang bcraLla p:Hh dan .1h (30, 5,50,24). bcrisi scjumlah ruli s:m 'BOHLA.NIJ'. (Ga mtu r 20- 2). Sclanjutnya ka lau tombo l ENTEH ditckan, JCndda ini .1ka11 dihilangbn danjcndcla pcrtam a akan tam pil kcmbali. Kcad .t.tll scmacam ini!Jh y.tn~ dinamakan sebagai jcndela benumpuk. 4 l9

**

Bingkai

**

k e-0

Bingkai ke-1

** *• * * * * ********************

r

9>ng' . ,

ke - 3

_

8 ing~. ai

_ ___,\!

Bingl<. ai ke-2

\)

L

J 81ngfco1

PROGRAM TesJendela;

<• --------------------------------------------- •)

.

l

(t contoh penggunaan pellbuatan jendela bert1.111puk •)

l

) c• dengan ••-k•1 fas1l1tas pada \JIIIT VIDEO c• ---------------------------------------- --- -- •>

USES CRT,eVIOEO ; VAR I : BYTE ; BEG HI TEXTATTR : : 7; CLRSCR; BikinJende1a (' Jendela

ke-4 i l

)l ) _

j I )

l·r

IL'

l

fe-7

.r iUl

!l!

..... ~

•.:J •

~~

~

;

20,1,6 0 ,20 ,

L

.,

, $1 E'. S! E l;

WRITELH; TO 14 DO FOR I : = BEGIN GOTOXY (8,WHEREY); WR!TELH ('TURBO PASCAL- TURBO PASCAL') .

Eoin g \, ai > E- S 1!-..-'i

~

1

«l

~

~ .,.

:l·'

END ;

>~HiJlMf.Jtilli!U!Mil!lrt!l!i!t~t~ ~~lf!~l~'~:i'!:!'"' -'·l ~:t:!l<.~

i.tii!Elli4-••::!li.tl1!w'Wmiltu.: :mfl::.n.:.:

HodeKursor (BESAR); WRITEUI; GOTOXY (15,WHEREV); WRITE('Tekan EIITER. ');

r; ,,,J,ar 10 - 1. Brrba.~o i jrr~i' hitt,~ ka i YJ".~ Jili .,,i /k ,: , t>l t il rroseJ ur B !SGf.:A J

· -, j ;_ ; :· : ·l i i i · l i !ii~ill~w~.:~illi~llim~~~[~~~)·:~~~ill~L . . · ·:: :·

REPEAT UNTIL READKEY = 113; BikinJendala (' Jendela 2

,<: ::::~ ! · : >: · .-~'!:!F,l_f31il.: P;~~Ef:lliL :.-::;ormR~o -PA~CAL : ·.· . _. ~ J en de 1 a 2 SIJAL • •' • • .,

,.,· ··•·;,, ,;;;.,.;y;w

i l : i ; : ,:.:::i{:.i:,::~~r-

! .n.;: i:iii li i: ;~~;.:. ff:~ i .n.;::;;;•;p;.:,;:.;mlii : .·.::.·::··;!:-:!! ;:_: ·:..

:r:::::::::c::.,;:::::::! 11

BORLAND BORLAND

WIUTELN ; TO 13 DO FOR I : = BEGIN GOTOXY (7,WHEREY); WRITELIH 'BORLAIIO. ');

l~~:~·;: :·:;:~": :

BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND BORLAND Tekan ENTER.

IsrAthi;;i,l':·j:ii 5ITAL::g;!::i:=.::p ;'II-! ·.:z::J.::· :=

•

END;

J 1

j

i

1 1'

IW::::" ·::•;•y;:•!C'

HodeKursor (NORMAL); WRITELN ; GOTOXY (5,WHEREY); WRITE( 'Tekan f:tiTER. '); REPEAT UIITIL READKEY =113; HapusJendela; REPEAT UNTIL REAOKEY :113; HapusJendela ; END .

(;.JmbJr !0 -- l . Btntuk jtndtla btrrumpuk 12 ( 1

30,5,50,2~.

3.

·• ·

S 5 S , $7 0).

-- --

.

-- -~-----T )

)(){.4 IMPa.EMENTASI PILIHAN PROSES DENCAN SISTEM GESER

TEXTATTR :: $IF; END; { akhir VideoNoraal

Program yahg melibatkan sejumlah pilihan, biasanya ditangani secara kon vcnsional berupa pertanyaan misalnya:

PROCEDURE VideoTerbalik;

Masukkan pilihan anda [1..5]:

BEGIN TEXTATTR : = S71; END; { akh lr prcseaur

'*

Bentuk pilihan proses yang kini populer tidak lagi mcnggunakan cara seperti itu, melaink an men gg un akan sistcm gcser (Misal Gam bar 20- 3). Pada m odel si stem geser, suat u pilihan dapat dilakukan den ean m enggescr blok (m cnggunakan tombol p.111:d; at~s a ta u panah ba w ahJ kc pii iha n yang dik ehendaki, kemudian dukhiri dcngan ENTER. 1-lJ! scmacam inilah yang akan diimplcmentasik.1n p ::~da Program 20- 6. N amun pada prog r am ini, d isam pi ng mcnggun.lk:tn tombol panah dan ENTER . suatu pi lihan ju g a d ap:1t dilakubn dcng:n1 mcnckan tombo! kodc piii han (J . . 5) secara hngsung t:tnt'd diak h iri dcngarl EN TER.

l ·!

~lodeKu rso r

Y.o1 omAwal

Seloaai : =

{$~

(

$)

CRT, 003, VIDEO;

PROCEDURE

~)

VAR Koda : WORD; Salaaai : BOOLEAN; I, BreAwal , Ko1~Awal, Pi1 ihan8aru. Pi lihanlama PROCEDURE Vi deoHorlla 1 ; BEGIN

422

daftar pilihan

,Kol~~Awal+l-1 );

Pemi 1ihan prose s PilihanBaru : = I;

EIITER = 13; JlMPILIHAH = 5; lnfoPili han : ARRAY { 1. . JIJI.IPI LIHAII J OF STRIIIG {35} : (' (1} ~ecasukkan Data Pegawai (2} ~emperbaharui Data Pe gawai (3} ~angha pus Data Pegawai {4} ~onaapilka n Data Pegawai

~

~enampil k a n

EHD;

CONST PANAH_ATA3 = 256+72; PANAH_BAWAH :: 256+80 ;

.-"---~

FA LSE;

WRITE (lnfoPil ih•n[IJ)

~enuPiliha n;

{5] Ke•bali ka DOS

B

: = 2;

BEGIN GOTOXY (6rsAw a1 (* ukuran stack a a n heao

2048, 0, 8200)

S IF, S 1 F) ;

( SE!!BUIIYI ) ;

VideoTarbali k; GOTOX Y (BrsA~ al, Kolom.Awal); WRITE (!nfoPilihan{1) ); Vi daotlorma 1 ; fOR I ; : 2 TO JUHP illHAH DO

(* Contoh program dengan men u sist om go~a r· • ) --- ---- - - - -- --- -

...

BrsAwa l : = 2;

<• ------------- -------- -- ---------- ---- -- ' ) (.

}

bag ian perny at aan p r osedur ~enuPili han BEGiti CLRSCR; 22, 5,5 7.13. 4 , Bik inJende1a ( · fiE IIU PI LIHAil

PROGRA~ ~enuOataPe gaw ai ;

USES

VideoTerb~ lik

,i

REPEAT { baca te>nlbo 1 REPEAT Kode :::ORO (READKEY);

IF Kode = 0 THEH Kode : :: 256 +ORO (READKEY); UNTIL ( Kode = ENTER) OR (Koda :: PAUAH_ATAS) OR (Koc!e : PAHAH_BAWAH) OR (K oda Ill {49 . • 53]);

') ;

PilihanLama : = PilihanBaru; BYTE;

CASE Kode OF PAHAH_ATAS _,_,

~·

;~

:~

:~ ;I

IF Pi1ihanBaru = 1 THEN Pi1ihan8ar u : :: JUMPILIH AII

ELSE DEC (Pili hanBaru) ; PAHAH_B AwAH: IF Pi 1 ihan6aru : J UI-tPILlHAfl THEtl

423

:c;.:·,

~ .\!'a

..._

--~l

l"iHhanl!aru :• 1 £l5E INC (Pilihan!aru);

n . . 53

~~

~ ...,.. #~

•

Pillhanl!aru :• Kode - 41;

~~;,

'fllll;

~

IF PIHhanlaaa

;

<>

Pilihanearu THEil

~

BEGIN

GOTOXY (BraAwal, KolooaA..a l+PI HhanUo..a-1);

WRITElH (InfoPillhAn[Pillhanlasa});

r- ·

~

MENU PILIHAN

::'PJ J

·• M2.fha 58!·lt41\HP~rt:~:Uf~$~~~f:\:T'Hn:!

I j

[ 2] Memperbaharui Data Pegawai [3] Mengh a pus Data Pegawai [4) ~enamp~lk an Data Pegawai

II/(_

[5 )

>.embal> ke DOS

II

VldaoTerballk; GOTOXV (BrsAwal,

WRITELH

Kcla.Awal+PI lihar.B ar u-1);

c;,, ,h.lf !li J. /Jrlllllk pili hon dengJ n sisrem srsrr

(InfoPilihon[Pilih~n8aru});

ViCeo/lor.,.a 1;

i' , ~11 1 dik..·: .• :wt. Pro_sr.tn l 2!) -r, lilclib:Hk .m ~ t-dc· bn .-\~ i~X E. C .AN T!. EXE. HAP U~. EX E. TAMP! L.L/'T i_;n !u k l.:q'c·rl;un 1111 prn~r.1m-prog ram conroh p ~cb l'bb XIII chp:lt ciq'ngun.lk.Hl !.iJ n ,~ i kotnpilJ ~i schingg:~ m cnpdi .EXE J. Progr:1111 contoh y:1 ng

EIIO; IF ((PilihanSaru: 5) AIIO (Ko<Je: EIITERl) OR (Kode :

53 ) THEil

Sel••• ;

: : T;:?lJE

.11ill .t k"~ud

ELSE IF t40T ( ( Kooe

=

?•
(~ode

= PAII41i_ 8Arl<•H ))

BEGitl Bi klnJendela (",

1,1 , 80,25, 0, ft32 , 7, 7);

HodeKursor (IIORHAl); ( ' Tungg u .• . ');

WRITE

CASE

Pll ~ hanSaru

OF

1 : EXEC ( 'SIHPAII. EXE' , ' '); 2 : EXEC ('GAIITI.EXE' , " ) ;

3 : EXE C ('HAPU9 . EXE',

c : DEC ( ' T~P!l.

J\ !Jl.:h:

',;f tl

");

EXE', " ) ;

h,-v.r.m1 l'r')t!ram 11 rnt!ra rn l'rugrant

1.3 - 3

->

SIMPAN . EXE

Ll-~ --.

TAivlPIL.EXE Gt\NTI. EXE HAPUS .EX E

U-S

->

U-6-+

Khmt! ' nya u:Huk Progr:1m 13 -.\ brcna sc mul.t hJnya dikhu su>k.m ll!: tu k n:c·:J.1IIlbhk:m data kc fik y.mg sudah ::IL'b (dici ptak.ln). maka pcrlucht:h.dJ :- upaY.l prusnm jp~:.1 bi-;.1 mcncipr .1k.m fi le. k::d.1 u tik bL·Iulll

.. d.t. Ukh

k .ii'L' IJ.1 Htl ,

JK'fll\'J[;1.lll:

EtlO ;

IF OOSERROR () 0 THEN

ASSIGN :File _Pegawai, 'PEGAWt : DTA' :: RE SET (File _Pegawail:

BEGIN

ClRSCR; WRITEUI ('Ad& ~ es&l.,h•n . Subproses (pi lihAn) tidak b i,... dijohnkO/\. 'l; WRITE

( 'Tekan EIITER t ');

REPEAT UNTIL REAOKEV : 113 ; EtiD ; H~pusJendel&;

' EtiD ;

UNTil Selesal ; H~pusJendela:

EtiD; BEGIN

pcrlu J i moditika~1 mcnjad i:

;$1-: ASSIGN !File _Pegawai, 'PEGAWAI.DTA'}; RESET !File _Pegawall , : Sl+: IF IORESULT <,.'> 0 THEN REWRITE !File _Pegawail ;

( akhlr prosedur MenuPI 1 ih&n ('t pr ogra• ut.a11a •)

ScdnL·r.m pcrnv.ltaan yang haru ini mcny.1takan b.lll'.\'a jiL1 file c1k .1cb p.1d .1 ~.w di-RESET , mab file dic iptabn (!<.EWIUTE).

.,.enuPi l i n.an : EtiO .

Program Z0 - 6.

424

-CS

ASCII

Biner tUllllOI !Hllll!O !Jj1~i

LAMP IRAN A

.31 .32 .3.3

i

·'

~

DAFTAR ASCII

'1

01}(1~111

2~

i • l \(~l}Ul

I 'I

2.;

~

."2!1

_1,1)

27

L (! t,:

!I

1(1

mxXXX'.i) O)HXXll

NUL

..w

_ \. .

SOH ST.\

4)

21> 2E

.j

().j

l

u d

ti

mxmm ff(k) l}l)\

'E .F

:\ CK

I

1)7

((X )'X) }}

1

·c

BEL

'1

HT

8

Ill;

():fK)J(X"()

\¥)

()')() )1 (X)j {((XlJI) )()

UA 0!3


VT FF

u

OD

OE OF

(X'X.X'lllll

·o

10

OCO!!:XXXl

·p

o:xm tw

16 17 18 19

11 12

13

OOOHXHO tHliOOlt

~

14

00')10100

21

IS

fXXlJO!Ol !n)J{)IJO

16

OCOHXXH

1'I

lnl!O lll

"'tl

1!)

P".m HH)

y _)

!9

fn11100l

2tJ

1.'\

IIXlllOIO

~7

IU lC

OOliiOll <1'W)IJJm

28\

.Q6

LF

14

23

I

'j

oc

\

\

•')

.;::) .J'J

ns

"K 'L

]~

:?.J

•

.H

..

ETX

(l)..'('()lj()

t)

.Jh

EC>T ENQ

OS

II

il

·o

06

,., -

~I

l('fOXl li

·n ·c

::>

,)

J

!).'0)()110

"A

(,

1-

2:\

ASCll

J

\I • 11

' w ,l

')<)

Biner

0:2 0.3

-')

2>-!

Heksa 0!

'M CR

.N

·q

so SI

DLE

DC! DC2 ·s DCJ 'T DC4 ·u NAK ·v SYN ·w ETB ·x CAN ·y EMN .R

·z suu '[

ESC

;

..... -,

~,:1

I

j

~.

;i _\_ '

~2

'...;

::: _-;

·~

- I )-,

y-..

::).)

'7 .1

36

.'I'

57 58 59

J<J '!JA .111

61)

JC

61 62

_\])

63

J l-11 1

65

'

2F .>'

:1 1

t1'

. !•l .

)''

-'~

64

-.... -!

2Jj

:111

;.1

h6

us (SPt\SI J

() )j(X))J()

y,

-\il .J l -12 -t ~)

-

sr

GS RS

Otl(X)))l

::_;

.

0

l J lH~Y'fl)

,,

1' .•)

Dcsimal

!Hllllll

21

34

1. Daftar ASCII Standar

IF .)I

.I

3E

.Jl 42

A7

.lJ

68

-+4

hl)

l}\)1!11\ ld\1 11\\ 1) lll}!!llll Ill} I Jli0.) 11 1\ll!n 11 ,))\tllillll )llji\Jtll i 111\tll\f)! II ']I l]}t)j ill] i 1\\1 1' tllJtlllll

I I

I I)\~~~)())

t•l\11 o'l,)j I ~ I] \! ~ ~ 1II n 11ll• i11 I !1\\ 11\1 jl '.ol]\ 111 1il i'lllllllli l . mJnJll mlllt l ll ('I)] \!tAll c.lllltl!O (l111101 1 ( l) llllf'k) IX lll l Ill 1 ())! 11110 0\ 111111 ()}IHO)l

()JIXH'A\1 OltOX) 11l tiliO~ lll

s n,:~

,,

+

(I

,

;

..1

5 A 7

:-, <)

< > ((,

A

B

c

(llt U)\i)l

D

·I ;

(\JI Hl \11 1

E

711

.j{,

il }IHI!lil

71

..1/

i\ \!Hl\)1

F

c

Desimal

Heksa

BiDer

ASCU

T2

48

H

73

49 4A 4B 4C 4D 4E 4F

OlOOlfXX) 01001001 01001010

•J

()1()')1011

K

OJ(X)1100 01001101 010:11110 01())1111 !l101!Hlc.) 0\fJIIHJJ 0101WIO ()11110011 ll 101()]()'l IJI01010 1 OltliO! lll fl 10 10 111 0 101\CXX) 0101 UXll

L

74 75 76 77

78 (C.i

to I 81

50

,_; ')

:J_

>< '

0-1

53 54

~)

55

v

so 57 58 S<J SA 513

L-

(_,.,)

'-'"7 ~

'"I ·~ .

-')

1)1()1 J()JO

\I N ~~

' ;

p

Q R

s

... .

i

NU L SO H STX

!

f(YT

z

05

01 WHO!

l'

l

(:1,

011 ()'1110 Ol HXllll 0 I 10 H'f() llllllHX11 01 !01010 ()J 101011 Olltll\00 01101 101 !) I I!) Ill 0 Il l Ill I Ill

f g h t

I ·J : J

sc

'-J-

5!'1 5F.

J:'

SF

.... ,

(,1)

l r,-!

ol r.2

(f.)

63

~-

11~ It~~

11•

Ill !I:: 113 IH

\

67

68 69 6A

on 6C 6D hE 6F 7() 71 72

7') 7A 7B 7C 7D /!: 7F

u

,.

\\'

X I

y

DEL

Kctcr ~H1!! ..ill:

X y

64

<]::

.,_;

n 78

01110011 01110100 01 11lll01 0 11 \0 11 0 0 !110111 0!11Hnl 0 1\11\:()1 0 1!11il1 0 IJ\ JJj l)l1 : :1 1I I If ~ ) 0 111 11 1)] () 111 l 11 () u1l.llll r

\'

'X'

In 1 1•12 \I)_'\ lt l..l !tiS 11 r l 1t l7

!

/.l

74 75 76

ASCII

Biner

- - - -- -- ---- ------- - ------- ---- - - - - --- -------------

~

11 y l

I

- -- -

-.~

115 116 117 118 119 Dl !21 122 12..) 124 125 12o 127

·~

T

Heksa

Desimal

·¢~

0101 Ill 11 O!lli111Xl I) It l I ! Ill I tl lll \1 I 111 ll It J! I I II :l l! tXWXl Il l \(~~)'11 Olll'Oll!l f1 lltnl! I (11 ]())\()')

~

-CR

51

J.

-

ETX

!IEL l3S HT LiVT FF CR so SI OLE DC NAK SYN ETI3 C AN [.\1

Ef':l~

.-\ C K J l1 (

d

. j

..

.l

k I JJl

'

'

n

ll lll t·x~X l

p

'1

Ollll~lltl

r

j

,j • l

,,

011 11 X\11

~

J

~

i

~

(1

-·

J

'1

1

':~

~

-Null - Start - S r~rt - End - Enci

sun E~C

FS

ui

JkJdi n ~

of T ex t uf Text , ,( r rJn:-.m .ssio•.

F.nqu1r~

-\ckno" kd)!l' lkll Bacbpau.: Hori zomJl T abula ti t~n Line Fccd Vertical Tabular-inn Form Feed Carriage Return Shift Out Shift In Data Link E~ capc Device Control Negative Ad~o\\· lcclge Synchronous ldk E;1d of Transi.;siott Block C3tKd End t'f \1cdiuttt - \ub,tin:re - L ·ulJ't' - Ftk SepaJatt>r

429

.,

I GS RS

-

l:fS

-

SP DEL

-

~·.,~

Group Separator Record Separator Unit Separator Space Ddcte

~

-~

'

II. Oaftar Karakter IBM PC

..

~ -.

0

0

O!C1MA V~lUI

O!CIMAL

16

32

48

64

80

96 112

0

I

2

3

4

5

6

.

9

,Q @ p g --411 I 1 A Q l . 2 @) t 2 B R 3 v II # 3 c s 4 1T $ 4 D T 5 5 E u +-- § o/o 6,. ~F A •1& 6 v 7 • 1 - ' 7 G'W 8 HX 8 }ti_L ( 9 0 l ) 9 I y

10

A

[@]

II

8

cJ

12

c

9

13

D

}

+----4

14

£

~

A

15

F

-0

y

I

2 3 4 5·-

6 7

8

'~\

IilJA

VAlU I

0

It ... ,...

IJIU\ ll

llA~K

I'll-

1$1 a((

;

~

-

• I

I

*

--+

~

L

'

. I

.. 1

z

7

' pa q b r c s d t e u f v g \V h X . y 1

.

J z [ k { ' K 1 I < L - M ] m } > N 1\ n _rv ? 0 0 6 . .

"'

Oltt ..\A l Vl\Ul

128 144 !60 176

• Hlll

•

..· ..

·

l) ·

8

Ot t11o41t. l VAl U(

£

0

0

I

I

2

2

3

3

4

-t

B

A

, a,

22-t

~~0

D

E

F

[I

r:x_

T

f3 +

19~ ~0~

c

...

<:= .. u i- 1 , eA, LE ~ o A l ,

~ ~ ~ ~;

~

·>>

r~

.H

i

a o .\ u

-

I"' > ll -1-+f--JI tt rr < ,

6

ar6i-n .='-·: -ri=; -z:[ CI 1 -~N{}f~vU 5 ~~~-~ + t 6 .

7

7

8

8

5

~I~~ ~ bLfrF ~~ ~~ e v ;,A k~9' 0

e 1Q1r-8tjJEP--e ~ e ~[~ 4 J1_ · .\I ~ 1 \ C Y2 .""- c -4 -F'" n111. f -£ VI . -- .

JD\T

.. I

l

II

B

12

c

13

0

I¥

14

E

An

15

F

I

I

I='

0

A r

i OI

«bd~ >>

l

1

-:,

q,ll

E

•1

->----1

n

'.'.·~

I

(Su mbcr : IH:\f Pcrson .1l

c ,,,p11ta

TNhlii
4Jl

TURB03.TPU Berupa unit yang mcmun g kinkan fas ilita s khusus (no ngrafik) d ala m Turbo Pas c ·t! 3.0 dap:lt dija lankan pada vcrs1 5.0.

LAMPIRAN B

GRAPH3.TPU

PETUNJUK PENGOPERASIAN TURBO PASCAL

Bcrupa un it untuk me nga tur agar fas ilitas grafik dalam Tur bo Pascal ,·crs i J.O dap:H dijahnkan pa dJ vcrsi 5. 0.

GRAPH.TPU Berup a unit ~· .mg b erisi f.1si liras grafik untu k Tur bo P.!',L.ll vcrsi 5 .!1.

Turbo Pascal 5.3 tcrdi~i Jari -+ diskct, bnupa: lN ST ALL/CO t\1 PILEI< TOUR / ONLINE HEL P OO J>/ DEMO S/BGiiDO C UTILITI E S/ MIS C Mengcnai in form;:;si dar i ma;ing- mas1ng diskn J apat diliha t pJd:l fi k RE / \DME yang ada pad a diskct lNST J\.LL/COM PILER. dengar1 can memberikan perintah ( p :~da DOS ).

• *.CHR m cny aDkan file dat a font Ucni s br.1ktcr ) y:mg ...iigu n:~bn untuk p:td:t m ode grail k. • *. BGI

mcnvatab n fik pcngend ali gr.1fik pn g ciigun:tbn p:tdJ gr ;d)k .

IIH!lk

Jik a pcmrogram lllL'mc rlukan bantuan (beru p.1 kcrc rang .m dari ~~~tcr:1 Turbo Pascal), file TURBO.HLP perlu d iscrtakan. File program mcmpunyai nan1J ex ten sion . P.'\S .

README ._ :IL.l U

TYPE RE .'\D M E ..-

D:~ri kee mpat d iskc t yang discd iakan ,h.ln\·a bcbcrapJ file SJj.l ,·ang mcrupakan kchar usan um uk J i,.,:unakan dabrn implernentasi prog ram. Fik yang harus ada:

.,

I

1. TURBO.EXE (Sistem Tu r bo Pascal dengan lingkungan terpadu, tcrmasuk di d::damnya bcrupa editor, kornpilcr dan debugger atau f.1 s iliras untuk melacak kesal:l han dalam program) atau TPC.EXE (kompilcr dengan mod el baris-perintah, yang dapat dijalankan secara langsung d ah m DOS). D alam buku in i, scluruh penjclasan dilakukan un ruk TURBO .EXE . , TURBO. TPL, meru pabn pustaka prog ram, yang bcrisi bcbcrapa unit srandar (Unit Sy.;rc•H, Crr, D os, 0 11erlay dan Printer). Fi k lain yang mu ng ki n dilib.n bn dalarn prog ram mcmiliki ex ten sion :

\

mcnprakau fil e unit Turbo Pas cal , ya ng bcrisi fa silitastda h dikompil asi sccara tcrpisah dcnga n prog ram . Bcberap.l diant:~ranyJ telah d1scdiakan dalam di skct Tu rbo Pascal. \"l!Cu:

>T PU fasilitas yang

Langkah Awal Pengoperaslan P crs iapan yang di rnlukan ad :~ lah dc· ng:~n mt·n,·IJpk.In d
kL·tc·r.lll !',.111 11 l c'l1~L'll.II ,-cr~I Tur bo llt.l !l!.l (t ;.1n! h.11· I • - I). rc·k.111l.Jh tc)mho l SPAS!. Dcn g.1n Il!llllCl dn ya menu i111 . ~'Lil !-!t'dH.IIl Jll .lUf'lln pcn g k<1n!pdJsian ch pat ,lil.lk,,mak.ln !'~ seal. Unru k mcnuju kc

l!lllll L" \11

11 1\.'Tlll

-e----

Mengatur Dlrektorl . . .i h

,It

Linr 1

i!trWf#•tillJ!!t.!lififl'l.tM$B!G81Will.'l:u'mli 1 ~I 1 Insert Indent Onindrnt C:HOIII~t. PAS

meng:~ktit'K

1 .L

pcmbu:.~tan

Scbcium melakukan program , scre\ah ma suk kc Turbo Pascal, biasanya pcrlu mengatur dircktori tcrleb ih ,-\ah ulu (kc kalau konfigurasi yang diinginkan sudah scsuai). Cnmk dircktori B misalnya ditcmpuh dcngan mcmilih ril i\l:u1 File diik dcngan Change dir . kcmudi:1n kctikkan 13: d 1ikuti dcngan EN TER Konfigurasi dirckrori yan g lcbih lcngkap dapat cbrm dcngan mcng nabn pilihan Option d an diikuti dcng:an Directori es (G:1mbar B -2) .

8

~

•

::HNiri~t.P ~S

Line 1

Col 1

CJmhJr B - 1. Menu Urama

Sduruh menu (b:1ik menu utama lll:lUpun sublllC11ll · mc· n:;_.;,m~bn sisrcm ptt/1-d,>wn. Su:Hu pilih an dap:1t dibkuk:w dcns:m m,·n~gl'Scr pcnunjuk pilihan mcm akai wmbol p:lllah. Oi sampin::: mcn:,:'-!un.lbn s i~t C!ll gcscr, riJihan dJ}'·ll dilakuk:m dt:'ll):;:lll illl'!1Ck.ll: tJi1;bol :::lll:,: S·..'>\1,]1 lkngan huruf tCf:11l?, dabm pilihJn. Miqln\' .1 r:,J.i me ~.! \'!.1: 11.1. unruk mcmilih Edit, dap.1t di!J k ukJn dcng:m IllCll,·kJil t•·mh,, E. Untuk m cm pcrccpat pclak s.wa:m pilih :m . dari ;;d1.11.11~b '~~~'111L'nu mcnuju sub menu dari pilihan dalam menu urama dJr.n ,\ t!.lks.:r;abn dcn gan mcnckan rombol Alt dan huruf dcpan cbr i pii in.1 n ,ccar.1 sc rcnt ak . Tomb ol :\LT-C misalnya abn mc nYCh Jbbn pilihan Compi le ditampi lkan .

;·

Proses Dalam Pemrograman

' H

Proses dalam implemcntasi prog ram Turbo Pascal dapat dinnngkan

!'

dalam bcnruk algoritm a scbagai bcrikut:

1------------- \latch - - - - ----- - ------1 .m~~otii'Simllf»Jll, C.unb .JY l3

!. Sub lllt't!U 11Jllitn l / Jirrcror)'

Pililun yang :-tlh:

,

• Turbo directory

mcn ya takan dirckcori tc!1l~'·lt t : ._· ,._.,, figurasi (TUl"tBO .TP) d.:m ti'-: h.11H'. an (TURBO.HLP). TGRBO.l !' isi data konftgurasi sisr c111 Tu :hl (,1\.

l Mcnulis at au mcngcdit program. 2 M cnyimpan program kc dalam diskct. .i. Mcbkukan kompilasi kc mcmori (RAM) . -L Jika ada kcsa lahan sccara sintak sis (kaid:Jh), .n l.lka mc·nunju !Jn~bh h·-1 . l\·1l·nguji ~'rogram ha~il kumpdasi. ( Jib acb kcsabh:111 sccara log1ka, 111.1ka m cn uju bngbh kc-1. Mcngkompilasi pro~r:1111 kc daiJm diskct, sl·hingf:!a bt>.t di_j.l!.u1k.ut 1·.

• EX£ &: TPU directory

mcn\'.H.1k .1:1 ,lir,·krnri • i nclude dirccrcnie s

~

.

ill

sccar.1 lanpung dalam lingkung;m DOS .

I

~

fi ;:

. I

-+3-t

m cn\·.1t.1k.1n dircktori te nT-H ku m ril.l.,i ~'r~)~:r.llll .H.1\l \lll \t.

~

1 1

l

_j

Un it directories

tCT1lt' ·l!

t/1 (. 111Cll \.,1(.1 K.111 .T PU

dir;.:ktu ri tctllt'·lt iik

• Object directories

menyatakan direktori tcmpat file ob-ject (rutin bahasa rakitan/asscmbler) .

• Pick file nama

mcnyatakan nama file yang sctiap kclua-r dari sistem Turbo Pascal akan bcrisi 8 atau kurang data nama file tcrakhi r yang pernah dimuat _ dahm ediwr. Jib dibcri nama TURBO. PCK , mab isinya akan dimuat sa Jt m.1suk ke sistL' In Turbo Pascal d~111 file van g tcrak11ir dicdit abn dimuar

Pad :~ .Gambar

kc ed ito r. B-2 . scluruh tile scbin TUHBO.HLP dan TURBO .TP

bcrad:~ dahm ciirekwri abr B:\.

Koniigur:~si h :lsi l pcn gatur:~n dirckrori scbnjutnva dapat d isimpn dalam file . .Jika konfigurasi tcrscbut dipcrlukan di suatu sa:~t. m ab tid~k pcrlu dilakukan pcngatur:m bgi mclainkan cukup memanggil nama tik konfigurasi. Bib konfigurasi disctel sccara otomatis seti ap masuk kc sis tcm Turbo Pascal. mak:1 nama file pcnyimpan konfi gu rasi hJn b bcrupa A:TUHBO.TP. Pcrimah yang digunakan untuk m cn\·imp ,~ !l dat:t konflgurasi sistcm Turbo Pascal bcrupa pilihan Option/ Savt' options. Nanwn pcrintah ini tid:;k akan mcn,·i m pan Lb ta pcnt?-gc' r:Jk \·:tng aktif pacb s:t:tt pnint ah tcrsebut dibc ri kan. Kar cm itu . minim,:] scbclum mclakukan proses pemrograman, perintah File/ Change dir/B: harus d ibcrikan. agar program n antiny a Jisimpan pad.1 d iskct kcrja vang bcrada pada penggcrak disk n. Pcmanggilan tile konfigurasi dapat dil:tkubn jug:t kc tika bnad:t dabm sistcm Turbo P;:scal dcngan mcnggunakan pil i han Option/ Retrieve options . diikuti dengan pcmasukan n ama file konfiguras i.

Menylmpan Program

Program yang tclah ditulis perlu disimpan dalam disket deng .ll1 ma memungkinkan untuk mengcdit di saat lain. Langbh awal menyim prog ram adalah dengan menunju ke submenu File (T o mbol Alt-F, ji scmula sedang berada dalam editor). Selanjutm·a bisa mcblui pilih an • Save (F2)

untuk mcn,·i mpan program dcng3n na ma file sc p cr

a \Vrite to

yang ada FJ,h edi tor. untuk men vi!ll~':tll prog~:1 m LbLun

l',~aor

clcngan n.1ma

file vant?- lam. Mengkompllasl Program

Program pcriu dikompila si .1g:tr bisa dijabnk.111. Ko n~;:-1lasi scndiri hany.1 hcrh.1
s~tl '

k cs.1l.1. n pun sccar a sinu~: sis (kaidJh ~ . J-L\ :-;t ko mpi \:lsi d apat ~i tcmp:itk.lll c!J\.un 111 •-': 1 ' _, ri ,ltJ\1 kc d:t ·l ;n diskct. Komrilasi kc mem cri \HA!'vi ) mcmr·uw.-.1' ;~c.J ntung:m . rebk sa naanny ;; bcrj:dan san g ar ccF.lt, k.Hl'il.l ti,i .lk , ,L ~-;o,;e~ pc'nu\is :m k d:d.llll diskc t. Kcrugian. t':v,:ram lLm\ J bi~:J di_i ..l.l ti'-' Jn clJri lint:kun~:l Turbo Pascal. Kompil:t, . l;__- di~kct !llL'nlp u:·:,·.,;· kc unt u ng:an. !•asi komf'ilasi (b crtipc .EXE ,; lpt dij ,,l.mbn scor.l !Jn~sun~ d,liam J"K)S Kcru::;1an. p: oscs kompi\ :; , . ~'c'1j.1:.1n L:nb.1t. F.r.u,:: ' ..J lltuk kom r i:.bi k dl, ~_ ('t:

I! II

utttuk pro,_:r:tm, iu,,: :: ·.- . nll'up.1 tiil· bcni r : .E\.E untuk unlt . hJ,ihl\J ·: ·.·"tF.l file l'crr ipL· .1 Pl_' !lll!!l!!llnnlll!!ll' Lin~

1

~I'll. PAS

Col 1

Menulls Program Prog ram dapat ditulis dcngan menggunakan editor. va n g Jiscdiakan Turbo Pascal. Editor ini mcmiliki kcmiripan dcngan pcngobh bt J Wordstar, dari scgi pcrintah-pcrintah yang dig unakan. Untuk masuk kc editor, pcrintah yang digunakan d:tpat bcrupa: • E • Alt-E

jika scdang berada dalam menu utama . ji k .1 scdang berada dal:tm posisi submenu manJ pun.

Sclanju mya, program dapat ditulis atau dicclit. Pada kcada:~n awal, mm a tik a,Llla h NONAMES , tetap i namJ ini nantinva cl:tpar d iganri clcn~an muclah . Untuk keluar dari edi tor, pcrintah yang digunakan bcrup.1 tombol FlO (mcnuju kc menu utama) .

4V·

r---------- - c~mb~r

B - J. Submrn u

lhtch

-------------1

Awal kompibsi dilakukan dengan menggunakan tombol C atau A1tC. Suhmmu Compile ditunjukkan pada Gambar-B-3. Pengaturan kompibsi ke di skct d:1par dilakukan melalui pilihan Destination. Jib p:1da submenu Compi le terdapat keterangan: Destination Memory

iii

• Destination Disk

Comoh Femakaian misalnya untuk menguji Program 16-3 yang dijalankan dari lingkung:m Turbo Pascal.

I

ber;mi kompilasi nantinya dilakukan ke memon . heruri kompilasi nan tin ya dilakubn kr di s kct.

1 I l

CacHJn : P.hh semua submenu , untuk kembali dari suatu submenu ke menu .Hau submenu indukny:1 d:1pat dilakukan dengan mcnckan ESC.

PeldkS.li Jaa n k01npih s t dii.J;.;uLtn d L·n ga n mcmilih Compile Alt-FY ITo mho l Alt-F9 atau C).

Menjalank<m Program fJro g r.u n d:~p . 1t ,~iytlanbn d.u i Jingkungan Turbo Pasc1l deng an mcm ilif: pili h3n Run p;Hh menu utama (Alt-R dari sebarang submenu ~. Su b m enu ~ong. mun cul ~cperri tcrlihat pada Gambar B-4 . Pilih ~r: seL1 nj u tn v:1 bL· ru pJ Run. Pada saar mcnjalankan program, k:~bu progr 2r:~ bd:t m dikomp i la~i abn dikompibsi terkbih dahulu. I Li n~

Unindrnt

C:~l!t.PAS

Watch

-------------l

=.:;:JJ~~1'itG:JaRUfMMfiiDWS!;J';'I~ CAP~ l;a&~

CJ'" "J'

B - 5 . f> i lih .:r• O pri,>n/ P.uJmrtus

-~ I

I

I

I

ESC

Submrnu

akt!f

1------------llitch

ESC_/

------------1 (;,w ri>J r B - 6 . ESC untult

G.unbar B-4.

S-ubm~nu

)

kort~ali

ltr mrnu

(su~rnrnu)

irrdult

Penjelasan Menu File Load Umuk mcmuat program d.1L1m diskct kc nl1tnr. (Perinuh ini dapa t dibksJn:tkJn juga dcngan ni cnck.lll tomhol FJ). Scsud.1h pL·rint.lh ini dihcrikJn. l'urbu P ;~ scal :1bn mcn.myakan tile y ;m~ ,Ibn dimu .lt I ),d:l!ll h:~l ini. ruma file d.1pat , lihcrik.m '> L'C.lf:l bn~ ' 111).! ~Litl d.Ip3t JUga mcngandung r.m,iJ ll'rldutrd [)(iS 1- ,i.tll • ).

Run

Kalau pr og r.1m melibatkan argumcn bari s-perintah, maka arg~men ini bi sa dim:J~ukkan mclalu i pil ihan Option/Parameters (Gamb.u B-5). P.1 Lb contoh , arg umen h1ris-perintah berupa: AND O NG KFRETA DOKAR

4JH

4Y! ~·~

---··--··~--·-..~.~~c--~

"' )( ,.;

*13 -ZX44:4£ +lf&f!..·~~Yi£§#.>}flfj@f§:~~~

an pada posisi kursor. Pilih an Jika tl'ildcard dilibatkan, seluruh file yang bersesuaian .. den g an spesifikasi tanda t~rsebut akan ditamp_ilkan pada ~ . Trace mto Jayar, dan sclanJUtnya pthhan terhadap file btsa dilakukan den gan mcnunjuk kc nama file diikuti den gan 1 ENTER. Untuk m cmuat (ke dalam editor) salah satu di antara 8 program te rak hir y:mg pcrnah di edir. Pcrintah ini juga dapat dil::tks:mabn dcnga n mcnggunabn tornbol li. I: -

S!

·'l

Pick

F3.

Step over

New

Mcngoso n gbn cd1 tor N,nna fi k '>Ctcla h pcngo~ o n ~ .. n adalah NONAMES .

Save

Untuk mcnvimpan progra m pada ed it or .ke dalam di sket (D J pat di laku k:m dcngan rnencbn F2).

\\'r ite w

Directory

1m

dapat dilakukan

dcngan mcnckan F-t. Memungkinbn eksekusi dijalankan per pernyataan. Unruk rn cbnju tkan ck seku si. maka pi lih :~n ini pcrlu dilakukan bgi (untuk mud ahr. n dapat mcnggLU1akan tombol F7) . Kalau tcrchp at r,· rn y a r :~an proscdur atau pcman gg ilan fungsi. p..:rny .H.1.il1 \·ang ada lblam prmcdur arau fu n gsi -juga .1k:t11 d i_u!.t r:k:111 saru per sa tu . Kc·g un .un s.1r11.1 d cng.1n f'd :J;:.• t Trace into . lkd,m\·.1.

.c;~I.Hll l'ros..:dur .H.HI fu : 1~~ ' .1 -.. ;1: ,l 1 ,m~gap seh:~g .1 i s:~nt ke~:Hu.1n (5elu ruh pc'rtl\ ,1: ...... \ .• n~ ,lll-1 ch ,bi.1mrw.1 d ija l.m k .1 11 scr J ra !.111 pun,: . .: .d 1 buk.ut s.Hll per ~:I ttl \. Tomb o i F8 ,i.Jp.tt Ji~un .1br, •.:n t•lk mel.tk uka n pilih:.1n 1111.

Untuk m cny1mpan progr.nn y:lllf: Jda pada cdit<.>r dcnga11 n.l!llJ lain.

User screen

Fungsi unr uk mcn:11~1pi lkan .isi d irck ror i. Tctapi d:tf'.H

:1 g dip .1k.1 i ,cb.•g~i \,i :· Disun.1k.1:1 untuk m,·\i li.H ,'d ~ ks .m.1k.m ,kns.m t,"111f.'-1t kclu.tr .111 l'~"''~r.llll . i' ,:,.1: 1!1 CI1l'K:ln rom bol r\ L T- f; .

diop~-ra s 1 kan UIHUk 111<:muar progra n1 kc edi tor .

Chang e dir

OS shell

compile Pen)elasan Menu Untuk J11 Cl1j:J I.lnk .n: f'I"Ll,c> -.,' !l .,'li.ht. !'tt'·H d ibku\...111

Digun ak:ln unru k rm: n ga ktifkan suaru dirckto ri atJu !'cngger:1k disk.

Compile

l.Jnruk mcn UJ ll kc DO S scca r;! scrn cr1t ar.1. Un tu k kcmb:1li kc Tmbo Pa sca l. pcrlu dibcrikan pcrinr:~h:

Make

Un tuk kcl ua r d ar i ~i~tcm Turb o Pas cal scca ra mcnctar . K o ntrol akan dikcm ba li kan k e DO S.

PenJelasan Menu RUN Run

Untuk mcnjahnk:111 prog ram d cng:m parameter b ~ris perintah yang tcrdap:u pada Option / Parameter. Pcrintah ini Japat pula dcn gan menekan CTRL-F9 sc:ca ra langsung.

Program reset K egun aan unruk n1en ga khir1 proses tft•lnt~e_e ins (pcncJrian kesalahan). P ilihan ini akan m cny ebJbka n se mu J iilc yang tc rb uk a ditutup ,bn mcn em patkan pointer (pcnunjuk) pada pcrn~·ara ..1n p..:rtanu dala rn program. Pilih ,111 ini dap:n dibkukan d c ngJn mcnekan C: TRL-F~ . Goto cursor

ll lL'ill"k .lll .\l.T-F' ·. o' .llc'll lt'·lt.tl: h.b il kulllf'll.lsi kc· cll'K :lt.lll !11L"llllH I 1 I L\.\~ .: .:J.l;t::· li!Ci.llt: i pii ih.l n

Destinati o n .

EX IT ..._; p:~ci:1 pro mpt DOS . .

Quit (Ait-X)

dl· n~~.111

j1k.1 pil ih .111 ]11/Ji/ ,11 )" r/1,: ,: .'1 ,',·1 ;.t il .;t·~tll 11.1111.1 tile pro~r,111 1. mJk.t !'1.''!2~" ·1 111 1·:d .. h \.1:1~ .t\....111 di\...clrnpil.l~i P''rt:l ll l:l k.1li. \\·.ll.1lli'tll • • •'·:,, r >cr1' 1 t~k ,u rn bn y.•ns bin. h. :~bu ko <;ong. nuk 1 , .•l lt~'ll.l> l dti.1k.uk.1n tc·rh,lli.lp yan s Jd.l p.1d.1c·ciir or. h. .1lx.. ,-1ic j' rtllllT mclib:ttk.n1ul1tt, un it ,1k:1n dipc· r iks .l okh 1 .-:· b,, P.1sc.tl d.tn ,llb kcmun g ki n.1n ,1k.1 11 ,!Jk,,ntpi\.1-.i L ::: b.1h P c mniks:t,m di!akuk.m bc·r,l.l s.u k :lll \\·.1kw d .Ht :i:: ,u!l1bl' r d.111 lusil kompil.t si (.-r Pl :). h. Ll l1lf'il.1>i \...c·IJJ 1'. i1 Jil.lk ubn jib file sulll bn kbd1 b.1ru dib.ttlllin~\.; .J•: :·k un 1t. l'l·mcriksJ .m ~,·n q'.J hnl.1k u un tuk tik ,,b_j,·\... :\...,: :r11.1l (ru rin h,,,i! b.1h.1 ,,1 r:~ kiun) n t.tll!'tl ll.i;!.- ~~'·'""' \', ·int .th ini ,i.lp.H ,\il.1kuk .1 11

~l'C.\Ll \.l n~...:un:-'- ~..1L 11~ .l;) Build

Digunakan untuk m c lakukan cksckusi sa mpai pcrny ata-

~L' Ill.ll .1!11 J\1ak l". h.I JI \ .I'··

.1k .111 dil.;nllll'li

· 'i

i\'!lll"'')l F9 . l

,,!uruh untt un~ dilib.Hk.tn

u\.11H:

-! -I I

44!1

.:1

Destination

· Untuk mcngarur h asil kompilasi nantinya ditcmpatkan kc rn c:m o ri at
Find error

Untuk mcnda p atkan po sisi pe rnyataan yang mengalami kc:saiahan sc waktu cksckusi (nmtime error). Misalnya tcrjaj i kcsal:l ha n bcrupa:

mcngcnal bentuk pcmrograman baru yang mulai dipcrkcnalkan pada vcrsi 5.5, yaitu pcmrograman yang bcroricntasi pada objck, buku Turb<' Pascal 5. 5 0/Uect-Orimted Programmi11g n'icrupabn buku pcdomannya.

Runtime error 106 at 0000:001F Pcsan ini bcr arti :

a Kodc L ·;a lah .J n ad.·l.t h 11 1!, II

Kcsaiah ,m tc· rlct ak ~'.lcb

d i! d1 ,1t ''''' " ': ' ''·i F.

(1) .1 p.H

Ji.1111.H

p :~ th

RtFr(ll£t' C uidt•).

K :li.au pr s:1n ini m u n cd ,L1Lm1 !i ngL111g.1 n DOS, nuka mul.l- mu!J pcrlu m c n uj u kc ~ i,tcm T ur L' v P.1-;cai tkn f:.lll c·di wr bc risi program sut1\bcr dan bcri b n pc· r in t,1 h Compile / Find err o r . l.tlu kctikbn , 11}1)( ':'

!Ill

r

m Jka J. , k:b: kL·,,tl, ;h.u, ,,h,,,,, dJtulljt: k okh k ursor. K:~ Ll\1 prog ram dij :ll ank.1 n d.1ri !it ,~ Kllt:\.: .. ll 1 u: '''1 1' ,1 S,·:-t l. ILJ b >i kcsa la han :~bn d itunjukk :m scc:1r:1
Prima ry fil e

Un~uk ::.c·:;enrukJn l~lk 01~~~':!.~:-.;

k.dJ u

~' r omaris aka n FJsli !rJ s ini sangat

iik l'r i:1:er ,·an g snua

.h.:.J r1:d~..t :1 ~ " ! n pi l ::l':>i .

1H: r !l1Jn~- i ..t{ llll[':k r~()~!",ltn '

,!

~:_ : 1 H:'Tlggu n ~lk J n riJe ~ li JllbCr

~ ..i n~ ha : 1\ · .1~.. i i ct~ih ~. Llri ~. i ~u \

G c· t info

l .: nr u•: rnc·mpc r<>id1 int·:,r rn,; ,J mc ngc nai fi le ~ umber ad a p;1da c,~i ro r. !n t'o r ma s i mdipuu : N.111ra di rck to:i N:1 m J file Sllmbcr Uku ran fi le M cmo ri EM S Jum lah baris va ng di ko mpilasi U kura n kodc p rogr:1 m U kura n d:~ t a pro gram Uku ran ;tack M .tks irnu m da n m in imut n heap.

,·,ms

lnformasi Bagl Pemrogram l:hgi y.m s in g in rn cngc tahu i sc luk-bcl uk 1 ur b o Pa scal sccara lcbih 111 l'!ldcril. pc nu Ji, .mjurk .1n unt uk rn c mhao buk u m anual . T u rh o Pascal ver s t :i .ll: Hcti·rcfl" Cu te!,· d.m ( '•cr (~utd,· . Adapun ba g i \'a n g ingm 4-i ~

:~1

""~·~ 1"J.

il

.tR ~ ~

f~ ~

LAMPIRAN C

t

DAFTAR PERINTAH EDITOR TURBO PASCAL

saris Status pada Jend ela Edit Bar is s tatu s pad a jcnd cb Ed it 'bhm kca t.b :\11 b:twa .m bcru pa: _;.

Line n Co l n Insert Inden t Tab Fi ll U ni ndent X:f\:AMA. E XT Li n e n

Po sis1 i-. u r,ur b c-rJ da patb ban., fi k 1·ang ke- n

Co l n

Po sisi k:n ~ or b crad a p:tcLl ko io:n ke- n.

Insert

pt' m· isipan k ar::t kr ;.· r cbp.lt dih k u k .o~• pada r~)sis; k u bo r, tan pa m cng h:tp us braktn scmu!J l" :lll ~ bcr.1d a mu l.t i po si,; i ku r>n r.

Inde nt

1\: aLw m u nc u!. 111L'llllln g killk .t n f' <'l1 <"1! 1p.l un h;~­ ~<> r ll! L'ng;k ut i k o lom d.H i k J r.IL tL' I J'L rr.t :n,

['vkll i"J t.l k .lll

fb uk .tn - ~p .b l ) 1· ;;n~ tcrk r ..~k d : t' :~ri , sw .tp ru m boi F ;"-.;TEH d1 tc bn .

Kala u mun cul. mc n yJ tak an bah 11·,; r ·: n l·;s;pan tab dJpat dilaks .l!laka n .

Fill

Ka lau muncul da n Tab jug a ;nu ncul. Jl 1.1 k.l abn rncngusahakan schi ngga bar i ~ mcn g an d un g b ra k tcr sc ~ cd i ki t mu ngk in (Ha l 1111 bcrb iran dcn g an indent).

U nind e nt

Kalau muncul , pcngh apu san dc ng an Back space tcrha tbp k.i raktc r (hu ka-spa si) tcrkiri a bn diratakan dcng an p o sisi ka rakt cr b u kan-spas i tcrkin ya ng rcrlctak pada baris d i .H a~np.

-H-l

Menggerakkan Kursor Ctrl-S I P anah-k iri C rri- D I Panah-kanan Cr rl-A I Ctrl-Panah- kiri C trl- F I Ctrl-Panah- ka nan C trl-E I P anah- aras C trl- X I P:mah- bJ.\v :th C rrl-W C tri-Z C ui- R C trl-C C tri-Q C trl- Q Ctrl- Q C trl - Q Ctrl-Q C trl-Q C u l- Q C rrl-Q C rrl-Q C tri-Q

I H ome I End I Ctrl-Hom e I Ctrl-End R I C trl-PgUp C I Ctrl- PgD n B K

S D E X

P \V

.: Lb ~: urso r.

Ta b

X :NAMA .EXT

~ l

oaftar Pertntah

X m t·nyanbn ko dc pcn ggc·r.1k d1 ~ k. N r\M :\ m cn1-.H.ik.1n n.l :nJ dc p.tn fi k ,l.tn EX 'T llll'fUpJkan Tl.l lll .l pL·r luJS.ll1.

Penylslpan/ Penghapusan C ui - V I INS

~

---...-;:----.

Kursor ke ki ri satu ka ra krcr Kursor ke kanan satu karakter Kurso r k e kiri satu kata Kursor k e kana n sa tu k ata Kursor ke at as Kurso r kc b:1wa h Mcn ggcsc r laya r ke Jt .<s sa tu b an s Men ggescr !Jva r kc baii'J h sa ru h:;ns M en g gulu ng kc atas sat u !J vJr Men gg ul un g kc h aw ah >J tu ia nr Kurso r kc J ,,·al b:l ris Kurso r k e .1khir b ari s K u rso r ke at.lS lay Jr Kursor ke akhi r lay ar Kurso r ke J. wa l file Kurso r kc ak h ir file Kurso r ke awal hl o k Kursor kc akh ir blok K u rso r kc posisi kurso r scbcl u mnya Kursor kc posisi ha ris 1· .ms m cn s .•b :n i kcsala h an sn,·ab u d .. scku si

C trl-H I B ackspace C trl- G I D el C trl- T

M cn on akriikan / m cn ga kt ifbn mode pen pslpan M enyisipk :m bari s k osong M engh apus bari s M en gha pus seluruh karakter d i pos1S1 kanan kurso r M en gh apus karaktcr di k iri kurso r M enghapus ka rakter pada posis i kursor M en ghapus sa tu bt J.

Perlntah Blolc C trl-K B I F7 C trl-K K I F8 C trl-K T

M cnandai aw al blok M cn .m d ;u .1k h ir blok Mnn bl ok ,,1t u ka t.1

Ctri-N C trl- Y C trl-Q Y

445

Ctrl-K Ctrl-K Ctrl-K Ctrl-K Ctrl-'-K Ctri-K Ctrl-K Ctrl-K Ctri-K

P C

Y V H R W I U

Perlntah Lanjutan Crrl-U Ctrl-0 I I Ctrl-Q I

Ctrl-P

Ctrl-K Ctrl-K Ctri-Q Ctrl-Q Ctrl-Q

D I Ctr l-K Q S I F2 F A n

Crrl-K n Ctrl-0 0 FlO Ctrl-F1 F3 Ctrl-0 F Ctrl-Q [ I Ctrl-Q ]

Ctrl-L Crrl-Q L

~

ke

Ctrl-l I TAB Ctrl-0 T I Ctrl-Q T Crr-0 U

I i

- ";~·:.... 1'1 Mencetak isi blok printer Meny;ilin isi~ blok -: Menghapus isi blok Memindahkan isi blok Menyembunyikanlmenampilkan blok Menyisipkan isi file bin Menyi mpan isi blok ke file lain Menggeser isi blok ke kanan satu kolom Menggeser isi blok ke kiri satu kolom

~';1

I> .

l 5

.\\ :mi..,,HJik.m opcusi/pcrint:~h ,\ .knonak ti fk an l mengakrifkan in dent yang Jilakukan sec.Ha oro mari s Menyisipkan karakrer konrrol. Selanjurnn di ikuti denga n penckanan karakter k or.rrol (Tanda kontrol tid ak bcrpcngaruh rerhJdap program) Kc lu.F da ri editor. unpa m cnyim pan M enyimpan ke fil e U n~uk menemu bn pos isi sua ru tek s Unruk m engganri suatu teks :_;muk mcnunj u kc suaru posisi ya;1g d ·:.-.'1dai dengan nilai n l!nrui( menandai suatu lokasi dengan nildi n •n berkisar an tara 0 .. 3) M enyisipkan seluruh pengarah kompilcr tvknunju ke menu utama M ima bantuan (Mengakses TURBO.HLP) Memuat suatu file Menonaktifkan atau mcngaktifkan pcngoprimalan jumlah karakter dalam baris M enempatkan kursor ke karakrcr yang berpasangan, yaitu (,), [,], (*, *), {, }, ' dan ··. Caranya tempatkan pada lokasi m1salnya yang berisi (, maka kursor akan ditem patkan pada pasangannya yaitu (. Mengulang Ctrl-Q A atau Ctrl-Q F Mcngcmbalikan baris yang dihapus denga;l C trl-Y '·

!C

446

H

j ~

~

. -·

· :~

..

.-.,....,,.""" _.,....oz;:::puaz;t\L%U$4.£KW @I . -. ,. ,,_

~; _ .

Uk . J.

. ·.'

----·~

'.

.,._.

\. 'j'

l . . i-'t;: :j:':

' !--' -

-

~

.

,_...

.,,

.

'..! 0-·~

-.,

oAFtA~;:PUsTAK)C'~ .! ~

· r·

1. C. Edward, Charles, Ad,.mzced Techniques in Turbo PQSCil/, Sybex lnc. , USA, 1987. 2 Leesona, Sanford dan Nyhoff, Larry, PASCAL Programming mzJ Problem Solz•i11g. Macmillm Publishing Company, New York, Collier Maanillan Publis~rs,

-.~~ i

London, 1984. 3. IBM Procnal Computer Technical Rcfererzce Mamwl. 4. K.adir, Abdul, Ptnzrograma~z Dasar Turbo Pascal, Andi Offset, Yogyakarta, 1987. 5. K. Obrien, Stephen, Turbo Pascal Adz•mu~ Progranmzer's Guide, Borland-Osboml McGraw-Hill, I.JSA, 1988. 6. Turbo Pascal 5.5 Object-Oriemed Programming Guide, Borland lntemational, USA , 7. 8. 9. 10.

!989. Turbo Pa.
$d:1 ~ fi •i:tlC ~, -~--1 ,;. l\.' 1 ,' I('"( 7l "'~ (1... v Ol·. '1'-
~ •

,. 448

.!J s

I