فۆرتران

پێشەکی

وێنەیەک

ناوی FORTRAN لە FORmula TRANslationــەوە ھاتووە ئەم زمانە سەرەتا لە ساڵی ١٩٥٠ دروست کرا لە لایەن کۆمپانیای IBMـەوە بۆ مەبەستی زانستی و داوانامەی ئەندازیاری وە بوواری ماتماتیکی . کە ئێستا یەکێکە لەو زمانانەی کە زۆرترتین بەکارھێنەری ھەیە لە جیھاندا FORTRAN یەکەم زمانی پرۆگرامکردنی ئاست بەرز بوو کە دەرکەوت لە کاتی خۆیدا یەکەم وەشانی لە ساڵی ١٩٥٤ دەرکەوت ھەر لەلایەن کۆمپانیای IBMـەوە وە چەند وەشانی دیکەی بە دووای خۆیدا دەرکرد کە بریتی بوون لە FORTRAN ٥٤ ، FORTRAN ٦٦ ، FORTRAN ٧٧ ، FORTRAN ٩٠، FORTRAN ٩٥ ، FORTRAN ٢٠٠٣ ئەم زمانە بەکاردەھێنرێت لە زۆر زانکۆدا بە تایبەتی لە کۆلێژی زانست+زانستەکان وە کۆلێژی ئەندازیاری ئەم پرۆگرامە یارمەتیت دەدات لە دروست کردنی پرۆگرامێک بۆ دۆزینەوەی ڕووبەر یان شیکارکردنی fortran power stationــە بۆ جێ بەجێ کردنی داوانامەکان .

چۆنیەتی execute کردنی کۆدەکان

پرۆگرامەکەت کۆتای ھات دووای ئەوە لە بەرنامەی MICROSOFT DEVELOPER STUDIO دەچیتە سەر MENUBARــی بەرنامە:

BUILD > COMPILE 

دووای ئەوە لە بەشی خوارەوە ئەگەر ERRORـی دا چاکی کە ئەگەر نەبوو باشتر. ئینجا بە ھەمان کاری پێشوو ئەمجارە بچۆ سەر :

BUILD PHYSICS_DEPT

دووای ئەمە بچۆ جێبەجیکردنی کارەکەت ئەویش بە چوونە سەر :

EXECUTE PHYSICS_DEPT

نموونەیەک لە بەکارھێنانی Fortran

program average

! Read in some numbers and take the average
! As written, if there are no data points, an average of zero is returned
! While this may not be desired behavior, it keeps this example simple

  implicit none
  integer :: number_of_points
  real, dimension(:), allocatable :: 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) positive_average = sum(points, points > 0.) &
        /count(points > 0.)
  if (count(points < 0.) > 0) negative_average = sum(points, points < 0.) &
        /count(points < 0.)

  deallocate (points)

! Print result to terminal
  write (*,'(''Average = '', 1g12.4)') average_points
  write (*,'(''Average of positive points = '', 1g12.4)') positive_average
  write (*,'(''Average of negative points = '', 1g12.4)') negative_average

end program average

دەتوانی ئەم کۆدانە لە بەرنامەی جێبەجێکردنەکەی دایبنێی و ئەنجامەکەی ببینی. یان ئەم نموونە سادەیە :

!FORTRAN

!THIS PROGRAM TO CALCULATE C OR FYSAR

PROGRAM PHYSICS_DEPT

READ*, w,y,z
c=w*y*z
print*,c

END PROGRAM PHYSICS_DEPT
Other Languages
kurdî: Fortran
العربية: فورتران
asturianu: Fortran
azərbaycanca: Fortran
беларуская: Fortran
български: FORTRAN
বাংলা: ফোরট্রান
bosanski: FORTRAN
català: Fortran
čeština: Fortran
Чӑвашла: Фортран
dansk: Fortran
Deutsch: Fortran
Ελληνικά: Fortran
English: Fortran
español: Fortran
eesti: Fortran
euskara: FORTRAN
فارسی: فورترن
suomi: Fortran
français: Fortran
Gaeilge: FORTRAN
עברית: Fortran
हिन्दी: फ़ोरट्रान
hrvatski: Fortran
magyar: Fortran
interlingua: FORTRAN
Bahasa Indonesia: Fortran
italiano: Fortran
日本語: FORTRAN
Taqbaylit: Fortran
қазақша: Фортран
한국어: 포트란
Latina: FORTRAN
lietuvių: Fortran
latviešu: Fortran
മലയാളം: ഫോർട്രാൻ
монгол: Фортран
Bahasa Melayu: Fortran
Mirandés: FORTRAN
မြန်မာဘာသာ: Fortran
Nederlands: Fortran
norsk nynorsk: Fortran
norsk: Fortran
occitan: Fortran
polski: Fortran
português: Fortran
română: Fortran
русский: Фортран
саха тыла: Fortran
Scots: Fortran
srpskohrvatski / српскохрватски: Fortran
Simple English: Fortran
slovenčina: Fortran
slovenščina: Fortran
shqip: Fortran
српски / srpski: Фортран
svenska: Fortran
తెలుగు: ఫోర్ట్రాన్
тоҷикӣ: Фортран
Türkçe: Fortran
українська: Фортран
Tiếng Việt: Fortran
中文: Fortran