Sub program pada fortran pertemuan 8
This presentation is the property of its rightful owner.
Sponsored Links
1 / 14

Sub Program pada FORTRAN Pertemuan 8 PowerPoint PPT Presentation


  • 273 Views
  • Uploaded on
  • Presentation posted in: General

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

Download Presentation

Sub Program pada FORTRAN Pertemuan 8

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


  • Login