Buku Ajar Bahasa Pemograman.doc

I. PENDAHULUAN 1.1. Bahasa Pemograman

Dalam dunia aplikasi komputer dikenal istilah hardware (mesin komputer) dan software (program komputer). oftware oftware di!uat dengan menggunakan menggunakan !ahasa (!ahasa pemograman) "ang !isa dimengerti oleh mesin komputer komputer (!ahasa mesin). #ahasa$!ahasa pemograman di!uat dengan tu%uan !er!agai ma&am aplikasi tertentu. #ahasa terse!ut antara lain ' #L (ommon riented #ussines Language)* PAAL* #AI* dll. +,-,AN +,-,AN (singkatan dari +ormula -ranslation) diperkenalkan oleh ohn #a&kus. #ahasa +ortran ditu%ukan untuk aplikasi di!idang sains dan teknik. Dengan !antuan /PILE,* !ahasa +ortran diter%emahkan ke !ahasa mesin* sehingga perintah !isa di eksekusi Pro&essor. Proses ini dise!ut /PILA-IN. /PILA-IN. Ada tiga langkah ker%a komputer "aitu ' /PILA-IN /PILA-IN 0 LIN1 0 E2EU-IN. Proses Link* dengan !atuan program LIN1E,* adalah untuk melengkapi program !ahasa mesin hasil &ompile dengan !e!erapa komponen lain sehingga sehingga program !ahasa mesin !isa dieksekusi. Pada !ahasa 3ersi +ortran Powerstation 4.5* proses link dilakukan dengan memilih perintah #UILD. 1.2. Bagan Alir (Flow Chart)

#agan alir adalah diagram "ang disusun untuk men"ederhanakan arus logika suatu program* khususn"a untuk untuk program$program "ang rumit* dengan menggunakan menggunakan sim!ol$sim!ol "ang sudah standard* antara lain ' SIMBOL

PENELASAN Arah LAN61AH HI-UN6AN

#AA DA-A atau -ULI DA-A7HAIL

Proses PE,HI-UN6AN

PEN6EE1AN (I1A)

-anda /ULAI atau A1HI, P,E

-ANDA A/#UN6 (didalam lingkaran di!eri huruf A* #* * D* D* dst.) Buku Ajar - Bahasa Pemograman - by Ir. Arody Tanga

8

ontoh ' #uat !agan alir untuk menghitung luas persegi pan%ang. awa! ' Luas persegi pan%ang A 9 P : L ika diperoleh A ; 5* maka ada salah memasukkan data pan%ang (P) atau le!ar (L). +low &hart '

Buku Ajar - Bahasa Pemograman - by Ir. Arody Tanga

<

II. A-U,AN /ENULI P,6,A/ DALA/ #AHAA +,-,AN 2.1. At!ran Men!lis Pa"a #or$sheet

Lem!ar ker%a (worksheet) pada !ahasa +ortran terdiri dari !aris dan kolom. =ang digunakan dalam penulisan program han"a dari kolom 8 s7d kolom ><* sele!ihn"a tidak akan ter!a&a oleh komputer. Aturan penulisan adalah se!agai !erikut ' 8. 1olom > s7d kolom >< ' -empat /ENULI -A-E/EN. <. 1olom ? ' -empat -ANDA A/#UN6. Apa!ila statemen le!ih dari kolom >< maka sam!ungan statemen ditulis pada !aris di!awahn"a dan di!eri tanda sam!ung pada kolom ?. -anda sam!ung menggunakan karakter ' 8 * < * @ *  * B *  * a * A *  * dll. C. 1olom 8 s7d kolom  ' -empat N/, ALA/A- -A-E/EN. 4. 1olom >C keatas ' -idak akan diproses oleh komputer. . Apa!ila kolom 8 di!eri huruf    maka tulisan "ang ada kolom <* C* dst tidak akan diproses oleh komputer. 8

C

<

C

4



?

>

F

C

O

N

T

O

H

A B

= =

85

88

8<

8C

84

8

A

T

U

R

A

N

1 10 5

0 * *

. A *

5 + 3

A

*

*

3

+

...

-

W F

R O

I R

T M

E A

( T

* (

, F

5 5

) .

B 2

)

S E

T N

O D

P

&

5

G

1

>8

><

0

+

>C

2.2. At!ran Men!lis Statemen A. %onstanta

1onstanta ada < ma&am* "aitu konstanta IN-E6E, dan konstanta ,EAL. 1onstanta integer adalah konstanta "ang tidak mengandung titik desimal sedangkan konstanta real adalah se!alikn"a. %ON&AN&A IN&E'E 5 85 $ 855

%ONS&AN&A EAL 5. 85. $ 855.

B. aria*el

aria!el ada < ma&am* "aitu 3aria!el IN-E6E, dan 3aria!el ,EAL. aria!el integer' untuk men"impan konstanta integer dan huruf pertaman"a adalah huruf ' I* * 1* L* /* N. edangkan 3aria!el real' untuk men"impan konstanta real dan huruf pertaman"a adalah huruf ' A s7d  ke&uali I 0 N. Buku Ajar - Bahasa Pemograman - by Ir. Arody Tanga

C

Untuk meru!ah nilai dari integer ke real digunakan fungsi +LA- (3aria!el integer). edangkan untuk meru!ah nilai real ke integer digunakan fungsi I+I2 (3aria!el real). aria!el dapat di!eri nama sekehendak kita* asal memenuhi aturan ' 8. /aksimum ? karakter dan minimum 8 karakter. <. Huruf pertama harus alpha!etis. C. -idak !oleh menggunakan karakter khusus seperti ' $ * J * K *  *  * dll. 4. -idak !oleh ada tanda !lank (spasi) di tengah$tengah 3aria!el. . -idak !oleh menggunakan kata standard "ang !iasa dipakai oleh &ompiler seperti ,EAD* M,I-E* +,/A-* END* dll. C. O+erator Aritmeti$a

Dalam !ahasa +ortran dikenal operator$operator se!agai !erikut '

1. 2. . 0. .

Penam!ahan

'

Pengurangan

'

Pem!agian

'

Perkalian

'

Perpangkatan

'

, /  

3. At!ran &am*ahan

8.

Hal perpangkatan ' a. aria!el integer dipangkatkan 3aria!el integer ' DIPE,#LEH1AN. ontoh ' 1 9 N@@< (!enar) !. aria!el integer dipangkatkan 3aria!el real ' -IDA1 DIPE,#LEH1AN ontoh ' 1 9 N@@<. (salah) &. aria!el real dipangkatkan 3aria!el integer ' DIPE,#LEH1AN. ontoh ' A 9 F.@@< (!enar) d. aria!el real dipangkatkan 3aria!el real ' DIPE,#LEH1AN* asal harga 3aria!el real tidak negatif. ontoh ' A 9 F.@@<. (!enar) A 9 $F.@@< (salah)

<.

Dua operator tak !oleh ditulis !erderet. Untuk mengatasi hal ini dipakai tanda kurung. ontoh ' A 9 C. @ $ 85. (salah) A 9 C. @ ($ 85.) (!enar)

C.

Hasil !agi < 3aria!el !ulat adalah !ilangan !ulat pula. ontoh ' I 9 8574 maka hasiln"a harga I 9 <

4.

/i:ed /ode se!aikn"a dihindarkan. ontoh ' A 9 # J  J I (dihindarkan) /aka harus di!uat ' A 9 # J  J +LA- (I)


4

2.. Proses E$se$!si Program Fortran Powerstation 0.4

Program "ang telah di!uat pada lem!ar ker%a disimpan (AE) dengan nama sem!arang dan harus di!eri nama tam!ahan (e:tension name) adalah O .+, O. ontoh ' ,UN6E1U-.+,. elan%utn"a pilih /PILE* #UILD dan E2EU-E. Pada saat proses ompile* komputer akan mem!eri informasi !ila terdapat kesalahan dalam penulisan program. Informasi ini dapat di!a&a pada tampilan la"ar !awah "ang mun&ul pada saat proses ompiling. Informasi ini memperlihatkan nomor !aris letak kesalahan dan %enis kesalahan. ontoh tampilan kesalahan adalah s!! '

$$$$$$$$$$$$$$$$$$$$onfiguration' ,UN6E1U- $ MinC< De!ug$$$$$$$$$$$$$$$$$$$$ ompiling +ortran... D'/" Do&uments#ahan 1uliah,UN6E1U-.+, D'/" Do&uments#ahan 1uliah,UN6E1U-.+,(8C)' error +,CF<' s"nta: error D'/" Do&uments#ahan 1uliah,UN6E1U-.+,(<8)' error +,C?' missing la!el on +,/AD'/" Do&uments#ahan 1uliah,UN6E1U-.+,(4G)' error +,CF<' s"nta: error dete&ted !etween 6 and ) D'/" Do&uments#ahan 1uliah,UN6E1U-.+,(8



III. -A-E/EN INPU-7U-PUInput dan utput (I7) !iasan"a menggunakan < statemen "aitu ' I7 tatemen dan +ormat tatemen. .1. I/O Statemen

#entuk umum input #entuk umum output

' ,EAD (i*8) 3ar8* 3ar<* ... ' M,I-E (i*8) 3ar8* 3ar<* ...

Pen%elasan ' i ' nomor alat input atau output 8 ' nomor alamat +,/A- statemen 3ar8* 3ar<* dst ' nama 3aria!el ontoh ' 85

<5

,EAD (F*85) A*# +,/A- (<+85.<) 9A@# M,I-E (F*<5)  +,/A- (+85.<)

#ila O i O diganti dengan tanda O @ Q* !erarti data di input ataupun di output melalui la"ar monitor komputer. #ila O 8 O diganti dengan tanda O @ O* maka format penulisan !isa !e!as menggunakan integer ataupun real tergantung dari ma&am 3aria!el. ontoh '

85

,EAD (@*@) A ,EAD (@*85) # +,/A- (+85.<) 9A@# M,I-E (@*@)  R R

.2. Format Statemen A. Format I

+ungsi #entuk umum

' dipakai untuk mem!a&a atau menulis data IN-E6E,. ' +,/A- (nIw)

Pen%elasan ' n ' %umlah data format I w ' !an"ak kolom "ang dipakai oleh data


?

ontoh ' R R

85 <5

M,I-E (@*85) I +,/A- (I) M,I-E (@*<5) * 1* L +,/A- (I4*
B. Format F

+ungsi #entuk umum

' dipakai untuk mem!a&a atau menulis data ,EAL. ' +,/A- (n+w.d)

Pen%elasan ' n ' %umlah data format + w ' !an"ak kolom "ang dipakai oleh data d ' !an"ak digit di!elakang titik desimal ontoh ' R R

<5

M,I-E (@*<5) #* * D +,/A- (+>.C* <+85.4) R R

C. Format 5

+ungsi #entuk umum

' mem!eritahu !an"akn"a spasi antara data "ang di!a&a 7 ditulis. ' +,/A- (n2)

Pen%elasan ' n ' %umlah spasi antara data ontoh ' R R

<5

M,I-E (@*<5) A* # +,/A- (8:* +>.C* <:* +85.4) R R


>

3. Format literal

+ungsi #entuk umum

' menulis pern"ataan pada format pem!a&aan7penulisan. ' +,/A- (Oaaa...Q)

Pen%elasan ' O O ' tanda format literal aaa... ' pern"ataan "ang ditulis ontoh ' R R

C5

M,I-E (@*C5) ALUA +,/A- (OLuas persegi pan%ang R R

9 O* +.<)

E. Format A

+ungsi #entuk umum

' dipakai untuk mem!a&a data alphanumeris ' +,/A- (nAw)

Pen%elasan ' n ' %umlah data format A w ' !an"ak kolom "ang dipakai oleh data Pemakaian format A harus didahului dengan tatemen HA,A-E, "ang diletakkan pada awal listing program. tatemen HA,A-E, ini !erfungsi untuk men"atakan !ahwa suatu 3aria!el han"a dapat di!eri data alphanumeris. #entuk umum atau

' HA,A-E, @n 3ar8* 3ar<* ... ' HA,A-E, 3ar8@n8* 3ar<@n<* ...

Pen%elasan ' n ' !an"ak kolom "ang dipakai oleh data 3ar8* 3ar<* dst ' nama 3aria!el ontoh '

C5

HA,A-E, @<5 NA/A* DIA1 ,EAD (@*C5) NA/A* DIA1 +,/A- (
atau

C5

HA,A-E, NA/A@<5* DIA1@85 ,EAD (@*C5) NA/A* DIA1 +,/A- (A<5*A85)


F

E. Carriage Control 6/7 "an 687

+ungsi #entuk umum

' mengatur %arak$%arak !aris penulisan. ' 8. -anda  7  artin"a satu tanda  7  !erarti turun 8 !aris. <. -anda    artin"a format "ang telah ada mem!utuhkan data input selan%utn"a.

ontoh ' R R

85

C5

M,I-E (@*85) +,/A- (OPan%ang persegi pan%ang 9 O* ) ,EAD (@*@) P M,I-E (@*C5) ALUA +,/A- (777*OLuas persegi pan%ang 9 O* +.<*77) R R


G

I. -A-E/EN -P DAN END +ungsi #entuk umum

' $ -P dipakai untuk menghentikan operasi program. $ END dipakai untuk men"atakan !atas akhir listing program ' -P END

ontoh ' R R I+ (A.L-.5.5) -P R R -P END


85

. -A-E/EN N-,L .1. Statemen 'O&O

+ungsi #entuk umum

' memerintahkan proses untuk melon&at langsung ke instruksi dengan la!el "ang ditun%uk ' 6- n

Pen%elasan ' n ' nomor alamat (la!el) instruksi "ang selan%utn"a harus diker%akan. ontoh '  85

,EAD (@*@) A*# 9A@# R I+ (.L-.5.5) 6-  R 6- 85 R -P END

.2. Statemen IF

+ungsi

#entuk umum

' untuk mem!andingkan dua atau le!ih 3aria!el se&ara nalar. 1alau per!andingan nalar hasiln"a =A* maka instruksi disamping I+ akan dilakukan* tetapi apa!ila -IDA1 maka program terus menger%akan pada statemen di!awah I+. ' I+ (ekspresi nalar) instruksi

perator$operator nalar "ang dipakai ' SIMBOL .ES. .NE. .L-. .6-. .LE. .6E. .,. .AND. .N-.

NO&ASI MA&EMA&I%A 9   

T 


A&I

sama dengan tidak sama dengan le!ih ke&il dari le!ih !esar dari le!ih ke&il atau sama dengan le!ih !esar atau sama dengan Atau Dan #ukan

88

ontoh ' 

,EAD (@*@) A*# 9A@# R I+ (.L-.5.5) 6-  D9A$# R -P END

.. Statemen 3O - CON&IN9E

+ungsi #entuk umum

' untuk melakukan perintah !erulang$ulang dengan &ara tertentu* dimulai dengan statemen D dan diakhiri statemen N-INUE ' D n 3ar 9 m 8* m<* mC n N-INUE

Pen%elasan ' n ' nomor alamat (la!el) "ang merupakan !atas akhir proses !erulang 3ar ' 3aria!el integer atau real "ang hargan"a akan !eru!ah$u!ah dari suatu harga awal m8 ke harga akhir m< dengan langkah mC. m8 ' konstanta integer atau real "ang men"atakan harga awal 3aria!el 3ar. m< ' konstanta integer atau real "ang men"atakan harga akhir 3aria!el 3ar. mC ' konstanta integer atau real "ang men"atakan !esar langkah. ontoh 8 ' R

85

D 85 I 9 8*855*< 9IJ8 N-INUE R -P END

ontoh < ' R

85

D 85 I 9 855*8*$< 9IJ8 N-INUE R -P END


8<

At!ran &am*ahan 3O - CON&IN9E

8.

1alau mC nilain"a 9 8* !oleh tak usah ditulis. ontoh ' R

85

D 85 I 9 8*855 9IJ8 N-INUE R -P END

<.

ONested D loopQ di!olehkan dengan s"arat 3aria!el "ang !eru!ah tidak sama. ontoh ' R

<5 85

D 85 I 9 8*855 9IJ8 D <5 1 9 8* L91J8 N-INUE N-INUE R -P END

C.

-idak !oleh ter%adi o3erlap ontoh ' R

85 <5

D 85 I 9 8*855 9IJ8 D <5 1 9 8* L91J8 N-INUE N-INUE R -P END


H ) H - A N L ) A  (

8C

4.

-idak !oleh ada transfer dari luar ke dalam kalang D$N-INUE ontoh ' R



<5 85

D 85 I 9 8*855 9IJ8 D <5 1 9 8* L91J8 N-INUE N-INUE 6-  R

H ) H - A N L ) A  (

-P END .

#oleh ada transfer keluar dari kalang D$N-INUE ontoh ' R

<5 85



D 85 I 9 8*855 9IJ8 I+ (.6-.5) 6-  D <5 1 9 8* L91J8 N-INUE N-INUE R -P END


84

I. A,IA#EL #E,INDE2

Notasi matri: adalah &ontoh 3aria!el "ang !erinde:. /isaln"a matri: A<:< maka elemen$elemenn"a adalah ai% ' a88

a8<

a<8

a<<

i 9 nomor !aris % 9 nomor kolom i dan % dise!ut inde: dan karena ada dua inde: maka 3aria!el A dise!ut 3aria!el dua dimensi. Di dalam !ahasa +,-,AN 3aria!el !erinde: ditulis dengan &ara ' A(I*) ' I dan  adalah inde:.

:.1. Statemen 3IMENSION

+ungsi #entuk umum

' untuk men"atakan !ahwa suatu 3aria!el adalah 3aria!el !erinde: tatemen dimension ditulis diawal listing program. ' DI/ENIN 3ar 8(i8* i<* ... * i m)* 3ar <(%8* %<* ... * % m)

Pen%elasan ' 3ar 8* 3ar < ' nama 3aria!el "ang din"atakan se!agai 3aria!el !er$inde:. i8 ' adalah harga maksimum inde: ke 8 dari 3ar 8 i< ' adalah harga maksimum inde: ke < dari 3ar 8 im ' adalah harga maksimum inde: ke m dari 3ar 8 demikian %uga %8* %<* %m untuk 3aria!el 3ar <.

ontoh ' DI/ENIN A(<*<)

<5 85

D 85 I 9 8*< D <5  9 8*< ,EAD (@*@) A(I*) M,I-E (@*@) A(I*) N-INUE N-INUE -P END


8

At!ran &am*ahan 3IMENSION

8.

a&ah dimensi maksimum adalah >. ontoh ' DI/ENIN A(<*<*<*<*<*<*<) R R -P END

<.

Nilai inde: tidak !oleh !erharga nol maupun negatif. ontoh ' DI/ENIN A(<*<) I95  9 $8 M,I-E (@*@) A(I*) R R

H ) H - A N L ) A  (

-P END

C.

Inde: tidak !oleh mele!ihi nilai maksimum "ang sudah din"atakan dalam tatemen DI/ENIN. ontoh ' DI/ENIN A(<*<) I9 9< M,I-E (@*@) A(I*) R R

H ) H - A N L ) A  (

-P END


8?

:.2. Statemen 3O 6IMPLIE37

+ungsi

' untuk mempermudah proses mem!a&a maupun menulis. (Implied D loop han"a dipakai dalam proses I7 sa%a).

#entuk umum input #entuk umum output

' ,EAD (n*8) (3ar(i)* i 9 m8* m<* mC) ' M,I-E (n*8) (3ar(i)* i 9 m 8* m<* mC)

Pen%elasan ' n ' nomor alat input atau output 8 ' nomor alamat +,/A- statemen 3ar ' nama 3aria!el i ' inde: "ang akan !er%alan m8 ' harga awal implied D loop* !erupa konstanta integer maupun 3aria!el integer. m< ' harga akhir implied D loop* !erupa konstanta integer maupun 3aria!el integer. mC ' !an"akn"a langkah implied D loop* !erupa konstanta integer maupun 3aria!el integer.

ontoh 8. '

a. 3engan 3O-CON&IN9E

DI/ENIN A(4)

85

D 85 I 9 8*4 ,EAD (@*@) A(I) M,I-E (@*@) A(I) N-INUE -P END

*. 3engan Im+lie" 3O loo+

DI/ENIN A(4) ,EAD (@*@) (A(I)* I98*4) M,I-E (@*@) (A(I)* I98*4) -P END Buku Ajar - Bahasa Pemograman - by Ir. Arody Tanga

8>

ontoh <. '

a. 3engan 3O-CON&IN9E

DI/ENIN A(<*4)

<5 85

D 85 I 9 8*< D <5  9 8*4 ,EAD (@*@) A(I*) M,I-E (@*@) A(I*) N-INUE N-INUE -P END

*. 3engan Im+lie" 3O loo+

DI/ENIN A(<*4) ,EAD (@*@) ((A(I*)* 98*4)* I98*<) M,I-E (@*@) ((A(I*)* 98*4)* I98*<) -P END

Atau dengan &ara ' DI/ENIN A(<*4)

85

D 85 I 9 8*< ,EAD (@*@) (A(I*)* 98*4) M,I-E (@*@) (A(I*)* 98*4) N-INUE -P END


8F

CON&O; PO'AM 9N&9% 3IA3I%AN LA&I;AN PA3A PA%&I%9M MA;ASIS#A C PROGRAM MENYELESAIKAN PERSAMAAN ALJABAR LINEAR DENGAN GAUSS-SEIDEL C STUDI KASUS ANALISA GAYA BATANG DAN GAYA LUAR PADA RANGKA STATIS C DIBUAT OLEH ARODY TANGA DIMENSION A(7,7),B(7),X(7) CHARACTER*20 DAT,HAS WRITE (*,2) 2 ORMAT (!X," MASUKKAN READ (*,"(A20)") DAT WRITE (*,!) ! ORMAT (!X," MASUKKAN READ (*,"(A20)") HAS WRITE (*,&) & ORMAT (!X," MASUKKAN READ (*,*) ITER WRITE (*,7) 7 ORMAT (!X," MASUKKAN READ (*,*) TOL

NAMA ILE DATA

(#) $ ",%)

NAMA ILE HASIL

(#) $ ",%)

JUMLAH ITERASI MAKSIMUM (#) $ ",%)

TOLERASI KESALAHAN I'IN (#) $ ",%)

OPEN (,ILE  DAT) OPEN (,ILE  HAS) C ----- MASUKKAN JUMLAH +ARIABEL YANG DICARI ----READ (,*) READ (,*) N NI  N C ----- MASUKKAN KOEISIEN +ARIABEL ----READ (,*) DO . I,N READ (,*) (A(I,J), J,NI) B(I)  A(I,NI) . CONTINUE C ----- MASUKKAN TEBAKAN NILAI AWAL ----READ (,*) READ (,*) (X(I), I,N) C ----- MEMERIKSA KON+ERGENSI ----ITR  0  ITR  ITR WRITE (*,/) ITR WRITE (,/) ITR / ORMAT (2X," ITERASI KE  ",I) RES  0 DO  I,N XA  X(I) SUM  B(I)A(I,I)*X(I) DO . J,N SUM  SUM-A(I,J)*X(J) . CONTINUE X(I) SUMA(I,I) C ----- PERIKSA KESALAHAN ---- BEDA  ABS(X(I)-XA) I (RES1LE1BEDA) RES  BEDA C ----- TULIS HASIL HITUNGAN ---- WRITE (*,!0) X(I) WRITE (,!0) X(I) !0 ORMAT (!X,/1!)  CONTINUE WRITE (*,20) RES WRITE (,20) RES 20 ORMAT (2X," KESALAHAN

 ",01,)

I (RES1LT1TOL1OR1ITR1E1ITER) GOTO 22 GOTO  22 CLOSE () CLOSE () END


8G

3AF&A P9S&A%A

8. Ir. E1 NU6,H  Ir. +. EIAN-* #&.E.* “BELAJAR SENDIRI BAHASA FORTRAN * ANDI ++E-* =6=A1A,-A* 8GF4. <. /I,+-* ”FORTRAN POWERSTATION 4.0 REFERENCE MANUAL”* /I,+-


<5

Buku Ajar Bahasa Pemograman.doc

Recommend Documents