Pengaturcaraan Fortran

1
Pengaturcaraan Fortran

• Abdullah Bade
• Department of Computer Graphics and Multimedia,
• FSKSM, Universiti Teknologi Malaysia

2
Pengaturcaraan Fortran
Pernyataan Berformat
3
Pengaturcaraan Fortran

• Digunakan mencetak dan membaca data dalam susunan
  tertentu.
• Spt dalam bentuk jadual, alignment tertentu.
• Output
• PRINT
• FORMAT
• WRITE
• INPUT
• READ
• MEMBACA FAIL LUAR
• OPEN
• CLOSE

4
Pengaturcaraan Fortran
Spesifikasi Kawalan Berformat (Output)
n merujuk kpd sebarang nilai Integer positif
5
Pengaturcaraan Fortran

• Pernyataan FORMAT
• Digunakan untuk mengawal proses input/output data
  dengan menggantikan pernyataan yang terdapat
  pada pernyataan READ dan PRINT
• Sintaks
• ID FORMAT ( senarai spesifikasi)
• Cth
• READ 10, MEAN, INC
• 10 FORMAT (I4,I4)

6
Pengaturcaraan Fortran

• Pernyataan PRINT Berformat
• Digunakan untuk mencetak dan memaparkan data
  mengikut susunan,lajur,baris dan mukasurat
  tertentu pada skrin komputer.
• Sintaks
• PRINT ID, senarai ungkapan
• Cth
• PRINT 3, K
• 3 FORMAT (1X,I4)
• Cth OUTPUT
• J15
• K709 bbbbbbbbbbbb15b709
• PRINT 10 J, K
• 10 FORMAT (10X,I4,I4)

7
Pengaturcaraan Fortran

• Pernyataan WRITE
• Digunakan untuk mencetak data pada skrin sama
  seperti PRINT
• Juga digunakan untuk mencetak data pada fail.
• Sintaks
• WRITE (u,n) senarai_ungkapan
• u adalah nombor bulat yang mewakili unit peranti
  I/O
• n ID
• WRITE (, n) senarai_ungkapan
• Cth ( cetakan pada fail luar)
• J15
• K709 bbbbbbbbbbbb15b709
• WRITE (6,10) J, K
• 10 FORMAT (10X,I4,I4)

8
Pengaturcaraan Fortran
Cth (cetak pada skrin) J15 K709 bbbbbbbbbb
bb15b709 WRITE (,10) J, K 10 FORMAT (10X,I4,I4)
9
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi In
• Digunakan utk cetak nombor integer
• n merujuk kpd jumlah ruang utk cetak nombor
  integer
• Cth
• K45
• PRINT 4, K
• 4 FORMAT (5X, I4) bbbbbbb45

10
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi Fn.d
• Digunakan utk cetak nombor Sahih
• n merujuk kpd jumlah ruang utk cetak nombor
  sahih termasuk titik perpuluhan
• d merujuk kpd bilangan titik perpuluhan
• Cth
• A45.987
• PRINT 4, A
• 4 FORMAT (3X, F8.2) bbbbbb45.99

11
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi En.d
• Digunakan utk cetak nombor sahih dengan eksponen
• n merujuk kpd jumlah ruang utk cetak nombor
  nombor sahih dengan eksponen termasuk titik
  perpuluhan
• d merujuk bilangan digit yang akan dicetak di
  sebelah kanan titik perpuluhan.
• Cth
• A45.1456123
• PRINT 4, A
• 4 FORMAT (2X, E12.4)
  bbbb0.4515E02

12
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi An
• Digunakan utk cetak rentetan harafiah (string)
• n merujuk kpd jumlah ruang utk cetak rentetan
  harafiah (string)
• Cth
• CHARACTER NAMA 10, FAKULTI 4
• NAMAABDULLAH
• FAKULTIFSKSM
• PRINT 4, NAMA, ALAMAT
• 4 FORMAT (5X, A12,A4)
• bbbbbbbbbABDULLAHFSKSM

13
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi Xn
• Digunakan utk menyediakan ruang kosong di antara
  aksara
• n merujuk kpd jumlah ruang
• Cth
• K45
• PRINT 4, K
• 4 FORMAT (5X, I4) bbbbbbb45

14
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi Tn
• Digunakan utk menyediakan Tab pada paparan.
• n merujuk kpd jumlah ruang
• Cth
• PRINT 20
• 20 FORMAT (1X,Nama, T15,Abdullah)
• bNamabbbbbbbbAbdullah

15
Pengaturcaraan Fortran

• Perincian SPESIFIKASI KAWALAN BERFORMAT
• Spesifikasi /
• Digunakan utk menyediakan langkau satu baris
• Cth
• PRINT 20
• 20 FORMAT (1X,Nama, ///,T15,Abdullah)
• bNamabbbbbbbb
• Langkau
• 3 baris Abdullah

16
Pengaturcaraan Fortran

• Pernyataan READ Berformat
• Digunakan untuk membaca data mengikut
  susunan,lajur,baris dan mukasurat tertentu pada
  skrin komputer.
• Sintaks
• READ ID, senarai pembolehubah
• Cth
• READ 3, K,A
• 3 FORMAT (I4,5X,F7.3)
• Cth
• INPUT
• bbbbbbb3.1bbbbb3456
• PRINT 10 A, K
• 10 FORMAT (5X,F5.1,5X,I4)

17
Pengaturcaraan Fortran
FAIL INPUT/OUTPUT
18
Pengaturcaraan Fortran

• FAIL DATA
• Sebagai alternatif kepada proses input melalui
  keyboard
• Sebagai alternatif kepada proses output melalui
  skrin komputer.
• Perlu diwujudkan satu fail luar dalam format spt
  .txt, .dat dan .data
• Terbahagi kpd 2
• MEMBUKA FAIL
• MENUTUP FAIL

19
Pengaturcaraan Fortran

• MEMBUKA FAIL
• Sintaks
• S
• OPEN (UNITID peranti I/O, FILEnama_fail,
  STATUSjeni_fail)
• Cth
• OPEN (UNIT13,FILEHasil.txt, STATUSOLD)
• OPEN (UNIT13,FILEData.dat, STATUSNEW)
  Fail belum dibina

Fail telah dibina
20
Pengaturcaraan Fortran

• MENUTUP FAIL
• SINTAKS
• CLOSE (ID Peranti I/O)
• Cth
• CLOSE (12)
• CLOSE (13)

21
Pengaturcaraan Fortran

• OPERASI TERHADAP FAIL
• Terbahagi kpd 2
• READ
• WRITE
• Baca data dari Fail
• READ ( ID peranti I/O, ,ENDstatus) pembolehubah
• Cth
• OPEN(UNIT10,FILEData.dat,STATUSOLD)
• READ (10,) D1,D2

22
Pengaturcaraan Fortran

• OPERASI TERHADAP FAIL
• Cetak data pada Fail
• READ ( ID peranti I/O, ,ENDstatus) pembolehubah
• Cth
• OPEN(UNIT14,FILEData.dat,STATUSNEW)
• WRITE (14,) Nama Pelajar, Nama