Download
1 / 14

Sub Program pada FORTRAN Pertemuan 8 - PowerPoint PPT Presentation


  • 327 Views
  • Uploaded on

Sub Program pada FORTRAN Pertemuan 8. Matakuliah : S0683/Algoritma dan Pemrograman Tahun : 2007. Sub Program.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' Sub Program pada FORTRAN Pertemuan 8' - kurt


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Sub program pada fortran pertemuan 8

Sub Program pada FORTRANPertemuan 8

Matakuliah : S0683/Algoritma dan Pemrograman

Tahun : 2007


Sub program
Sub Program

Salah satu metode perancangan program yang baik adalah menggunakan konsep modular (pemrograman modular) dimana suatu masalah dipecah menjadi beberapa masalah yang lebih kecil (ke dalam modul-modul/sub program),sehingga program dapat lebih mudah disusun dan dipahami.

Dalam FORTRAN, modul direalisasi dengan function dan subroutine.

3


Keuntungan menggunakan modul
Keuntungan menggunakan modul

  • Rancangan top-down, program besar dibagi menjadi modul-modul yang lebih kecil

  • Dapat dikerjakan oleh beberapa orang dengan koordinasi yang relatif mudah

  • Mencari kesalahan relatif mudah karena alur logika lebih jelas dan kesalahan sudah teralokasi

  • Modifikasi dapat dilakukan tanpa mengganggu program secara keseluruhan

  • Mempermudah dokumentasi


Function
Function

Function terdiri dari 3 macam, yaitu:

  • Statement Function (Fungsi Statement)

    Suatu fungsi yang didefinisikan dalam bentuk sebuah statement yang ada dalam program utama

  • External Function (Fungsi Eksternal)

    Fungsi yang berupa unit program tersendiri, terpisah dari program utama

  • Intrinsic Function (Fungsi Intrinsik)

    Fungsi yang telah disediakan oleh FORTRAN

5


Fungsi statement
Fungsi Statement

Bentuk umum: <fname> (<farg>) = <expr>

<fname> adalah nama fungsi statement yang didefinisikan

<farg> adalah nama formal argumen fungsi yang berupa

data yang diberikan kepada fungsi tersebut

<expr> adalah suatu ungkapan fungsi statement yang

didefinisikan

Fungsi statement harus diletakkan sebelum suatu executable statement, sedangkan fungsi statement itu sendiri tidak termasuk sebagai executable statement, karena tidak dieksekusi untuk menghasilkan sesuatu, tetapi hanya didefinisikan saja. Executable statement yang menggunakan fungsi ini yang akan dieksekusi

6


Contoh fungsi statement
Contoh Fungsi Statement

FAH(C) = 1.8 * C + 32

Write(*,*) ‘CELCIUS FAHRENHEIT’

Write(*,*) ‘---------------------’

Celcius = 0.0

5 WRITE(*,’(1X,F7.2,4X,F10.2)’) Celcius,FAH(Celcius)

IF (Celcius .LT. 10.0) THEN

Celcius = Celcius + 0.5

GOTO 5

END IF

END

Fungsi Statement

7


Fungsi eksternal
Fungsi Eksternal

Bentuk umum: <type> FUNCTION <fname> (<farg>)

<type> adalah tipe dari fungsi eksternal, dapat berupa:

INTEGER,REAL, DOUBLE PRECISION, LOGICAL

<fname> adalah nama fungsi eksternal yang didefinisikan

<farg> adalah nama formal argumen fungsi yang berupa

data yang diberikan kepada fungsi tersebut

Nama dari fungsi eksternal harus digunakan sebagai suatu variabel di dalam unit program fungsi eksternal tersebut, yang menampung hasil akhir dari fungsi eksternal

8


Contoh fungsi eksternal
Contoh Fungsi Eksternal

Write(*,*) ‘CELCIUS FAHRENHEIT’

Write(*,*) ‘---------------------’

Celcius = 0.0

5 WRITE(*,’(1X,F7.2,4X,F10.2)’) Celcius,FAH(Celcius)

IF (Celcius .LT. 10.0) THEN

Celcius = Celcius + 0.5

GOTO 5

END IF

END

C Fungsi eksternal menghitung konversi Celcius ke Farenheit

REAL FUNCTION FAH(C)

FAH = 1.8 * C + 32

END

9


Fungsi intrinsik
Fungsi Intrinsik

  • Beberapa fungsi instrinsik yang sering digunakan:

  • MOD(I,J) -> fungsi untuk mendapatkan sisa pembagian

  • Sisa = MOD(13,3) -> isi dari variabel Sisa = 1

  • SQRT(X) -> fungsi untuk menghitung akar dari suatu nilai real

  • Akar = SQRT(9.0) -> isi dari variabel Akar =3.0

  • MAX0(I,J,...) -> fungsi untuk memilih nilai yang paling besar

  • Besar = MAX0(30,25,13,27,41) -> isi dari variabel Besar = 41

  • MIN0(I,J,...) -> fungsi untuk memilih nilai yang paling kecil

  • Kecil = MIN0(30,25,13,27,41) -> isi dari variabel Kecil = 13

10


Fungsi intrinsik lanj
Fungsi Intrinsik Lanj.

  • EXP(X) -> fungsi untuk menghitung eksponen dari suatu nilai real

  • Y = EXP(12.75) -> isi dari variabel Y = 344551.9

  • SIN(X) -> fungsi untuk menghitung nilai sinus dari suatu nilai real

  • Y = SIN(60.00) -> isi dari variabel Y = 0.86603

  • COS(X) -> fungsi untuk menghitung nilai cosinus dari suatu nilai real

  • Y = COS(60.00) -> isi dari variabel Y = 0.5

  • TAN(X) -> fungsi untuk menghitung nilai tangen dari suatu nilai real

  • Y = TAN(60.00) -> isi dari variabel Y = 1.73

11


Perbedaan function dan subroutine
Perbedaan FUNCTION dan SUBROUTINE

  • Function didesain untuk mengembalikan sebuah nilai. Subroutine dapat mengembalikan lebih dari sebuah nilai atau tidak mengembalikan nilai apapun

  • Function mengembalikan nilai melalui nama fungsi, subroutine mengembalikan nilai melalui argumen

  • Function dipanggil dengan menggunakan namanya, subroutine dipanggil dengan menggunakan CALL statement


Subroutine
Subroutine

Bentuk umum: SUBROUTINE <subroutine-name> (<farg>)

<subroutine-name> adalah nama dari subroutine

<farg> adalah nama formal argumen yang berupa data yang diberikan

atau dikirimkan kepada atau dari subroutine

13


Contoh subroutine
Contoh Subroutine

Write(*,*) ‘CELCIUS FAHRENHEIT’

Write(*,*) ‘---------------------’

Celcius = 0.0

5 WRITE(*,’(1X,F7.2,4X,F10.2)’) Celcius, CALL FAH(Celcius,Fahrenheit)

IF (Celcius .LT. 10.0) THEN

Celcius = Celcius + 0.5

GOTO 5

END IF

END

C Subroutine menghitung konversi Celcius ke Farenheit

SUBROUTINE FAH(C,F)

F = 1.8 * C + 32

END

14


ad