فۆرتران: جیاوازیی نێوان پێداچوونەوەکان

ناوەڕۆکی سڕاو ناوەڕۆکی زیادکراو
No edit summary
No edit summary
ھێڵی ١:
== پێشه‌کی ==
[[Image:Fortran.png|left|thumb|242px|وێنه‌یه‌ک]]
ناوی [[FORTRAN]] لە FORmula TRANslationــەوە هاتووە ئەم زمانە سەرەتا لە ساڵی [[١٩٥٠]] دروست کرا لە لایەن کۆمپانیای [[IBM]]ـەوە بۆ مەبەستی [[زانستی]] و داوانامەی [[ئەندازیاری]] وە بوواری [[ماتماتیکی]] . کە ئێستا یەکێکە لەو زمانانەی کە زۆرترتین بەکارهێنەری هەیە لە جیهاندا [[FORTRAN]] یەکەم زمانی پرۆگرامکردنی ئاست بەرز بوو کە دەرکەوت لە کاتی خۆیدا یەکەم وەشانی لە ساڵی [[١٩٥٤]] دەرکەوت هەر لەلایەن کۆمپانیای [[IBM]]ـەوە وە چەند وەشانی دیکەی بە دووای خۆیدا دەرکرد کە بریتی بوون لە [[FORTRAN 54]] , [[FORTRAN 66]] , [[FORTRAN 77]] , [[FORTRAN 90]],[[FORTRAN 95]] , [[FORTRAN 2003]] ئەم زمانە بەکاردەهێنرێت لە زۆر زانکۆدا بە تایبەتی لە [[کۆلێژی زانست]]+زانستەکان وە [[کۆلێژی ئەندازیاری]] ئەم پرۆگرامە یارمەتیت دەدات لە دروست کردنی پرۆگرامێک بۆ دۆزینەوەی ڕووبەر یان شیکارکردنی [[نەخشەی ماتماتیکی]] .
وە کاتێک کاتێک ئەو خوێندکارانەی ئەم پرۆگرامە دەخوێنن پێویستیان بە بەرنامەی [http://www.google.com/search?q=fotran+power+station&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a fortran power station]ــە بۆ جێ بەجێ کردنی داوانامەکان .
=== نموونه‌یه‌ک له‌ به‌کارهێنانی Fortran ===
 
<pre>
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
</pre>
ده‌توانی ئه‌م کۆدانه‌ له‌ به‌رنامه‌ی جێبه‌جێکردنه‌که‌ی دایبنێی و ئه‌نجامه‌که‌ی ببینی.
 
=== به‌ سود وه‌رگرتن له‌ ===
[http://en.wikipedia.org/wiki/Fortran ویکی ئینگلیزی]