|
[[Berkas:Fortran acs cover.jpeg|jmpl|''The Fortran Automatic Coding System for the IBM 704'' pada tanggal 15 Oktober 1956, sebagai buku panduan pemrogram pertama untuk Fortran.]]
'''Fortran''' (atau '''FORTRAN''') adalah sebuah [[bahasa pemrograman]]. Pertama kali dikembangkan pada tahun [[1956]] oleh [[John Backus]] di [[IBM]]. Digunakan dalam bidang sains selama 50 tahun kemudian. Ditujukan untuk mempermudah pembuatan aplikasi matematika, ilmu pengetahuan, dan tehnikteknik. Pertama kali bernama FORTRAN yang merupakan singkatan dari '''''Formula Translator/Translation''''', tetapi penggunaan huruf besar kemudian ditiadakan sejak versi Fortran 90. Merupakan bahasa pemrograman tingkat tinggi pertama dan prosedural, akan tetapi versi-versi terbaru dari Fortran kemudian dikembangkan dengan memasukkan kemampuan ''[[object-oriented programming]]''. Unggul pada dukungan dalam menangani bentuk perhitungaperhitungan, termasuk bilangan kompleks. Kelemahannya pada operasi input/output yang lalu. Kode sumbernya juga sulit dipahami dibanding bahasa pemrograman tingkat tinggi lainnya.
{{Daftar bahasa pemrograman}} ▼==Contoh kode==
{{details|Wikibooks:Fortran/Fortran examples}}
{{Authority control}}
<source lang="fortran">
program average
[[Kategori:Bahasa pemrograman]] ▼ ! Read in some numbers and take the average
[[Kategori:Bahasa pemrograman prosedural]] ▼ ! As written, if there are no data points, an average of zero is returned
[[Kategori:Bahasa pemrograman berorientasi objek]] ▼ ! While this may not be desired behavior, it keeps this example simple
implicit none
real, dimension(:), allocatable :: points
integer :: number_of_points
real :: average_points=0., positive_average=0., negative_average=0.
write (*,*) "Input number of points to average:"
read (*,*) number_of_points
allocate (points(number_of_points))
write (*,*) "Enter the points to average:"
read (*,*) points
! Take the average by summing points and dividing by number_of_points
if (number_of_points > 0) average_points = sum(points) / number_of_points
! Now form average over positive and negative points only
if (count(points > 0.) > 0) then
positive_average = sum(points, points > 0.) / count(points > 0.)
end if
if (count(points < 0.) > 0) then
negative_average = sum(points, points < 0.) / count(points < 0.)
end if
deallocate (points)
! Print result to terminal
write (*,'(a,g12.4)') 'Average = ', average_points
write (*,'(a,g12.4)') 'Average of positive points = ', positive_average
write (*,'(a,g12.4)') 'Average of negative points = ', negative_average
end program average
</source>
==Referensi==
{{reflist}}
{{Wikibooks|Fortran}}
{{Wikiquote|Fortran}}
* [http://www.nag.co.uk/sc22wg5/ ISO/IEC JTC1/SC22/WG5] - the official home of Fortran Standards
* [http://gcc.gnu.org/wiki/GFortranStandards Fortran Standards Documents] - GFortran Standards
* [http://www.softwarepreservation.org/projects/FORTRAN/ History of FORTRAN and Fortran II] - [[Computer History Museum]]
* [http://www.vintagebigblue.org/Compilerator/FORTRAN/dosvsFORTFCompile.php FORTRAN Compilerator] - an online FORTRAN F compiler for small experiments
*http://blog.ub.ac.id/gohakku/2013/03/03/pengenalan-fortran/
*http://www.chem.ox.ac.uk/fortran/
*http://www.egr.unlv.edu/~ed/fortran
*http://www2.ph.ed.ac.uk/~playfer/f77_tut.html
*http://www.ucs.cam.ac.uk/docs/course-notes/unix-courses/Fortran
*http://blog.ub.ac.id/gohakku/2013/03/03/pengenalan-fortran/
*http://dzulkifli-xtkj-1.blogspot.com/2012/09/definisi-fortran-bahasa-fortran-yang.html
*http://zweimesserschmitt.blogspot.com/2012/07/pengenalan-bahasa-fortran-95.html
▲{{Daftar bahasa pemrograman}}
{{bahasa-komputer-stub}}
▲[[Kategori:Bahasa pemrograman]]
▲[[Kategori:Bahasa pemrograman prosedural]]
▲[[Kategori:Bahasa pemrograman berorientasi objek]]
| 