Pengaturcaraan Fortran

1
Pengaturcaraan Fortran

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

2
Pengaturcaraan Fortran
Tatasusunan
3
Pengaturcaraan Fortran

• Tatasusunan Satu Dimensi
• Jika menggunakan kaedah pengistiharan biasa,
  setiap pembolehubah yang diistiharkan akan
  mewakili satu sel (ruang) ingatan.
• Tatasusunan digunakan untuk menyimpan dan
  memanipulasikan sekumpulan data
• Kenapa Menggunakan Tatasusunan ?
• Jika terdapat data markah 100 orang pelajar yang
  di key-in melalui papan kekunci, hanya data
  terakhir akan dipegang oleh pembolehubah yang
  diistiharkan dengan kaedah biasa.
• Namun, jika menggunakan Tatasusunan, kesemua data
  markah 100 orang pelajar akan dipegang dan
  disimpan di dalam ingatan komputer.

4
Pengaturcaraan Fortran

• Sintaks
• DIMENSION nama_tatasusunan (b1 a1)
• b1 nilai had bawah
• a1 nilai had atas
• Sekiranya had bawah tidak dinyatakan, ia akan
  dianggap sbg 1.
• DIMENSION KUIZ (10)
• Saiz tatasusunan (a1-b1)1

5
Pengaturcaraan Fortran

• CONTOH
• DIMENSION MARKAH (510)
• Saiz (10-5)1
• 6

Ingatan
MARKAH (5)
MARKAH (6)
MARKAH (7)
MARKAH (8)
MARKAH (9)
MARKAH (10)
6
Pengaturcaraan Fortran

• Pelbagai Cara Pengistiharan Tatasusunan
• INTEGER LIMIT
• PARAMETER (LIMIT100)
• INTEGER KIRA (LIMIT) -gt Tatasusunan berjenis
  integer
• 2. DIMENSION ADA(-18), ACR(10)
• DIMENSION ABU(150), BCR(2 15)
• CHARACTER 10 POLIGON
• REAL LUAS
• DIMENSION POLIGON (10), LUAS (110)

7
Pengaturcaraan Fortran

• INTEGER X
• DIMENSION X (36)
• TIDAK DIBENARKAN
• INTEGER XXRAY (36)
• DIMENSION XXRAY (36)
• DIMENSION XXRAY (3,6) - gt Bukan Tatasusunan 1
  Dimensi
• M5
• N3
• DIMENSION XXRAY(M,N)

8
Pengaturcaraan Fortran

• Memberi Nilai kepada Unsur-unsur Dalam
  Tatasusunan
• 1) REAL JFW (1100)
• DO 20 J1, 100
• JFW (J)10.0
• 20 CONTINUE
• 2) REAL JFW (100)
• INTEGER JHE(50)
• DATA JFW, JHE /10010.0, 5012/

9
Pengaturcaraan Fortran

• Membaca dan Mencetak Nilai Tatasusunan
• Terdapat 3 Cara
• Menggunakan Gelung (Looping) DO
• Menggunakan Nama Tatasusunan
• Menggunakan Gelung Tersirat

10
Pengaturcaraan Fortran

• MENGGUNAKAN GELUNG DO
• INTEGER LIMIT
• PARAMETER (LIMIT100)
• CHARACTER 7 KERETA (LIMIT) /BACA/
• DO 10 J1, LIMIT
• READ , KERETA (J)
• 10 CONTINUE
• CHARACTER 7 KERETA (100)
• DO 20 K1, 100 /CETAK/
• PRINT , KERETA (K)
• 20 CONTINUE

11
Pengaturcaraan Fortran

• MENGGUNAKAN NAMA TATASUSUNAN
• INTEGER LIMIT
• PARAMETER (LIMIT100)
  / BACA /
• CHARACTER 7 KERETA1 (LIMIT),
  KERETA2(LIMIT)
• READ , KERETA1, KERETA2
• STOP
• END
• Aturcara ini adalah bersamaan dengan
• READ , KERETA1(1), KERETA1(2),KERETA1(3)KERETA
  1 (N)
• READ , KERETA2(1), KERETA2(2),KERETA2(3)KERETA
  2 (N)

12
Pengaturcaraan Fortran

• MENGGUNAKAN NAMA TATASUSUNAN
• / CETAK /
• CHARACTER 7 KERETA1 (100),
  KERETA2(100)
• PRINT , KERETA1, KERETA2
• STOP
• END
• Aturcara ini adalah bersamaan dengan
• PRINT , KERETA1(1), KERETA1(2),KERETA1(3)KERET
  A 1 (N)
• PRINT , KERETA2(1), KERETA2(2),KERETA2(3)KERET
  A 2 (N)

13
Pengaturcaraan Fortran

• MENGGUNAKAN GELUNG TERSIRAT
• Masih menggunakan gelung DO, tetapi mempunyai
  bentuk yang unik.
• Unik Menggabungkan pernyataan Input dan
  output dalam satu baris arahan.
• SINTAKS
• nama1 (pembolehubah), pembolehubahn1,n2,n3

Nilai kawalan gelung
Nama tatasusunan
P.U Kawalan Gelung
14
Pengaturcaraan Fortran

• CTH
• INTEGER LIMIT
• PARAMETER (LIMIT100)
• CHARACTER 7 KERETA (LIMIT)
• READ , (KERETA(J),J1,100)
• PRINT, (KERETA(K),K1,LIMIT)
• Adalah Sama dgn
• READ, KERETA(1),KERETA(2),KERETA(100)
• PRINT, KERETA(1),KERETA(2),.KERETA(LIMIT)

15
Pengaturcaraan Fortran
Tatasusunan 2 DIMENSI
16
Pengaturcaraan Fortran

• SINTAKS
• DIMENSION nama1(dim1), nama2(dim2)naman(dimn)
• Bilangan unsur dlm tatasusunan Bilangan Baris
  x Bilangan Lajur

Nama tatasusunan
Saiz tatasusunan, yang terdiri dari had atas dan
had bawah
Setiap matra dipisahkan oleh ,
17
Pengaturcaraan Fortran

• CTH
• DIMENSION JADUAL (14 , 13)
• SAIZ (4-1) 1 x (3-1)1 12
• CHARACTER 7 CAR (-30,4)
• SAIZ (03) 1 x (4-1)1 16
• REAL XXRAY (1,02)
• SAIZ (1-1) 1 x (2-0)1 3

18
Pengaturcaraan Fortran

• RUANG INGATAN UNTUK TATASUSUNAN 2 DIMENSI
• DIMENSION JADUAL (14,13)

19
Pengaturcaraan Fortran

• KONSEP TATASUSUNAN DLM PERWAKILAN MATRIKS
• CTH Matriks 3 x 2
• DIMENSION MATRIKS (3,2)

20
Pengaturcaraan Fortran

• Jika setiap unsur tatasusunan memegang satu
  nilai.
• DIMENSION MATRIKS (3,2)
• REAL MATRIKS
• MATRIKS(1,1)1.0 INGATAN KOMPUTER
• MATRIKS(2,1)2.0
• MATRIKS(3,1)3.0
• MATRIKS(1,2)4.0
• MATRIKS(2,2)5.0
• MATRIKS(3,2)6.0

21
Pengaturcaraan Fortran

• Membaca dan Mencetak Nilai Tatasusunan 2 DIMENSI
• Terdapat 3 Cara
• Menggunakan Gelung (Looping) DO
• Menggunakan Nama Tatasusunan
• Menggunakan Gelung Tersirat

22
Pengaturcaraan Fortran

• MENGGUNAKAN GELUNG DO
• REAL MATRIKS(3,2)
• DO 20 J1,3
• DO 10 K1,2
• READ ,MATRIKS(J,K)
• 10 CONTINUE
• 20 CONTINUE

23
Pengaturcaraan Fortran

• Perlaksanaan Aturcara
• / BACA /

24
Pengaturcaraan Fortran

• MENGGUNAKAN NAMA TATASUSUNAN
• REAL MATRIKS (3,2)
• READ , MATRIKS
• PRINT , MATRIKS

25
Pengaturcaraan Fortran

• MENGGUNAKAN GELUNG DO TERSIRAT
• REAL MATRIKS (3,2)
• READ , MATRIKS
• WRITE (,10) (MATRIKS(J,K) J1,3), K1,2)
• 10 FORMAT (2X,F5.2)