Fortran

Decision (keputusan)

Program yang dibuat untuk menguji suatu kondisi menggunakan perintah IF. Pengujian suatu kondisi menggunakan operator logika. Operator logika pada bahasa Fortran, adalah sebagai berikut :

Operator	Fungsi
==	Sama dengan
/=	Tidak sama dengan
<	Kurang dari
<=	Kurang dari/sama dengan
>	Lebih dari
>=	Lebih dari/sama dengan

Cobalah program sederhana berikut ini :

program ujinol
! program menguji bilangan nol
     integer :: a
     print *, "masukan bilangan a "
     read *, a
   if (a == 0) then
print *, "a adalah nol"
     end if
end program ujinol

Jika program dijalankan, maka jika nilai yang dimasukkan untuk variabel a adalah angka 0, maka program akan mencetak "a adalah nol", jika nilai yang dimasukkan untuk variabel a bukan angka 0, maka program akan selesai.

Program diatas dapat ditambah pengujian untuk angka yang bukan nol. Ada 2 macam cara yang dapat dilakukan, yaitu : dengan menambahkan perintah IF atau dengan menggunakan perintah Else.

program ujinol
! program menguji bilangan nol
     integer :: a
     print *, "masukan bilangan a "
     read *, a
   if (a == 0) then
print *, "a adalah nol"
     end if
   if (a /= 0) then
print *, "a adalah bukan nol"
     end if

end program ujinol
atau

program ujinol
! program menguji bilangan nol
     integer :: a
     print *, "masukan bilangan a "
     read *, a
   if (a == 0) then
print *, "a adalah nol"
   else
    print *, "a adalah bukan nol"
     end if
end program ujinol

Loop (perulangan)

Perintah perulangan, digunakan untuk mengulang perintah lain yang ada di dalamnya. Perintah perulangan yang akan dipelajari disini adalah Do. Cara penulisannya :

Do x=1,10,2
     read *, b
     jumlah = jumlah + b
End Do

Program perulangan diatas dibaca sebagai berikut :
Lakukan dari nilai x = 1 hingga nilai x = 10 dengan pertambahan 2 :
       masukan nilai b
       tambahkan nilai b ke dalam variabel jumlah
Hentikan pengulangan jika nilai x mencapai angka >= 10

Jalannya program perulangan diatas, yaitu :
Pada saat x = 1
     masukkan nilai b
     jumlah = jumlah + b
Pertambahan 2
Pada saat x = 3 (nilai x ditambah 2)
     masukkan nilai b
     jumlah = jumlah + b
Pertambahan 2
Pada saat x = 5 (nilai x ditambah 2)
     masukkan nilai b
     jumlah = jumlah + b
Pertambahan 2
Pada saat x = 7 (nilai x ditambah 2)
     masukkan nilai b
     jumlah = jumlah + b
Pertambahan 2
Pada saat x = 9 (nilai x ditambah 2)
     masukkan nilai b
     jumlah = jumlah + b
Pertambahan 2
Pada saat x = 11 (nilai x ditambah 2)
   End Do (karena nilai x >=10)

Jumlah perulangan yang dilakukan pada program diatas adalah 5 kali.
Bagaimana jika perulangan hendak dilakukan sebanyak 10 kali dengan nilai pertambahan 1 ?
Penulisan perintah perulangan menjadi :

Do y=1,10,1
     read *, b
     jumlah=jumlah+b
End Do

Atau dapat juga dituliskan seperti dibawah ini:

Do y=1,10
   read *, b
   jumlah=jumlah+b
End Do