فورتران

فورتران (بالإنجليزية: Fortran)‏ هي لغة برمجة متعددة الاستخدامات واختصار لحدثتين في الإنجليزية (FORmula TRANslation) معناها ترجمة المعادلات (FORmula TRANslation).

الانشاء

في عام 1954 خرج جون باكوس مع مجموعة من شركة آي بي إم بلغة الفورتران وكانت أولى لغات البرمجة ذوات المستوى العالي وتستخدم أساسا في التحليلات العددية وفي الحوسبة الفهمية.

مميزاتها

وتتميز هذه اللغة بالبساطة والإيجاز والمقدرة على التفاعل الحسابي حتى ان شعارها هوشعار الدالة. والاستدامة بالتطوير إذ أنها من أبرز اللغات التي بقيت حية لأكثر من نصف قرن.

إصداراتها

لقد ظهرت الكثير من إصدارات تلك اللغة كان اخرها فورتران 2008. تحتوي آخر إصدارات لغة الفورتران على مجموعة من الأوامر التي تفسر نفسها بنفسها مثل اقرأ READ واخط WRITE و'إمضى إلي GO TO وتوقف STOP وتنفذ برامج الفورتران تبعا لتسلسل الجمل بها. ولكن تكمن صعوبتها في تحديد الخطأ عند حدوثه حيث من يستوجب أحيانا تتبع الكود من أوله مما يزيد الامر صعوبة.

التعليم

لا زالت تدرس في اغلب الكليات الفهمية والهندسية كمثال يتم حاليا تدريسها في جميع كليات الهندسة في العراق.

أمثلة برمجية

البرنامج التالي يحسب قيمة المتوسط للبيانات التي تمت إدخالها:

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

  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

انظر أيضاً

قائمة لغات البرمجة

مراجع

^ "FORTRAN". American Heritage Dictionary of the English Language (الطبعة 5). The Free Dictionary. 2011. مؤرشف من الأصل في 11 مايو2019. اطلع عليه بتاريخ 08 فبراير 2016.
^ John Backus. "The history of FORTRAN I, II and III" (PDF). Softwarepreservation.org. مؤرشف من الأصل (PDF) فيعشرة أبريل 2016. اطلع عليه بتاريخ 19 نوفمبر 2014.

وصلات خارجية

ISO/IEC JTC1/SC22/WG5 – the official home of Fortran standards
Fortran Standards Documents – GFortran standards
History of FORTRAN and Fortran II – متحف تاريخ الحاسوب
FORTRAN Compilerator – an online FORTRAN F compiler for small experiments and tinkering
Valmer Norrod, et al:"A self-study course in FORTRAN programing - Volume I - textbook", Computer Science Corporation El Segundo, California, (April,1970). NASA(N70-25287).
Valmer Norrod, Sheldom Blecher, and Martha Horton: "A self-study course in FORTRAN programing - Volume II - workbook", NASA CR-1478, Vol.II (April,1970), NASA(N70-25288).

في كومنز صور وملفات عن: فورتران