مقدمه

در مسیر یادگیری برنامه‌نویسی، تمرین حل سؤالهای عملی نقش کلیدی دارد. برای زبان برنامه‌نویسی فرترن نیز مجموعه‌ای از نمونه سوالات برنامه تهیه شده است که با ارائهٔ پاسخ‌های دقیق، به دانشجویان و توسعه‌دهندگان کمک می‌کند تا مفاهیم را بهتر درک کنند و مهارت‌های خود را ارتقاء دهند.

چرا حل سؤالهای فرترن مهم است؟

تقویت درک الگوریتمی و منطق برنامه‌نویسی.
آشنایی با ویژگی‌های خاص زبان فرترن مانند توابع ریاضی، آرایه‌ها و مدیریت حافظه.
آمادگی برای امتحانات دانشگاهی و مصاحبه‌های شغلی.

دسته‌بندی اصلی سؤالهای فرترن

سؤالها بر اساس سطح دشواری و موضوع به دسته‌های زیر تقسیم می‌شوند:

سؤالهای مبتدی – شامل عملیات پایه‌ای ورودی/خروجی، متغیرها و حلقه‌ها.
سؤالهای متوسط – شامل توابع ریاضی پیشرفته، آرایه‌های چندبعدی و ماژولاریتی.
سؤالهای پیشرفته – شامل بهینه‌سازی الگوریتم، پردازش فایل و برنامه‌نویسی موازی.

نمونه سؤالهای برنامه نویسی فرترن با جواب

شماره سؤال متن سؤال کد پاسخ

شماره سؤال	متن سؤال	کد پاسخ
۱	محاسبه مجموع اعداد از ۱ تا n با استفاده از حلقهٔ `DO WHILE`.	`program SumNumbers implicit none integer :: n, i, sum print , 'Enter n:' read , n sum = 0 i = 1 do while (i <= n) sum = sum + i i = i + 1 end do print *, 'Sum =', sum end program SumNumbers`
۲	محاسبه فاکتوریل یک عدد صحیح مثبت با استفاده از تابع بازگشتی.	`function fact(k) result(res) integer, intent(in) :: k integer :: res if (k <= 1) then res = 1 else res = k * fact(k-1) end if end function fact program TestFact implicit none integer :: n, f print , 'Enter a positive integer:' read , n f = fact(n) print *, 'Factorial =', f end program TestFact`
۳	خواندن اعداد صحیح از یک فایل متنی، مرتب‌سازی آن‌ها به صورت صعودی و نوشتن نتایج در فایل خروجی.	program SortFile implicit none integer, parameter :: maxlen = 1000 integer :: i, n integer :: data(maxlen) open(unit=10, file='input.txt', status='old') i = 0 do read(10, , iostat=n) data(i+1) if (n /= 0) exit i = i + 1 end do close(10) call quicksort(data, 1, i) open(unit=20, file='output.txt', status='replace') do n = 1, i write(20,) data(n) end do close(20) contains recursive subroutine quicksort(a, left, right) integer, intent(inout) :: a(:) integer, intent(in) :: left, right integer :: i, j, pivot, temp i = left j = right pivot = a((left+right)/2) do while (i <= j) do while (a(i) < pivot) i = i + 1 end do do while (a(j) > pivot) j = j - 1 end do if (i <= j) then temp = a(i) a(i) = a(j) a(j) = temp i = i + 1 j = j - 1 end if end do if (left < j) call quicksort(a, left, j) if (i < right) call quicksort(a, i, right) end subroutine quicksort end program SortFile

محاسبه مجموع اعداد از ۱ تا n با استفاده از حلقهٔ DO WHILE.

program SumNumbers
   implicit none
   integer :: n, i, sum
   print *, 'Enter n:'
   read *, n
   sum = 0
   i = 1
   do while (i <= n)
      sum = sum + i
      i = i + 1
   end do
   print *, 'Sum =', sum
end program SumNumbers

محاسبه فاکتوریل یک عدد صحیح مثبت با استفاده از تابع بازگشتی.

function fact(k) result(res)
   integer, intent(in) :: k
   integer :: res
   if (k <= 1) then
      res = 1
   else
      res = k * fact(k-1)
   end if
end function fact

program TestFact
   implicit none
   integer :: n, f
   print *, 'Enter a positive integer:'
   read *, n
   f = fact(n)
   print *, 'Factorial =', f
end program TestFact

خواندن اعداد صحیح از یک فایل متنی، مرتب‌سازی آن‌ها به صورت صعودی و نوشتن نتایج در فایل خروجی.

program SortFile
   implicit none
   integer, parameter :: maxlen = 1000
   integer :: i, n
   integer :: data(maxlen)
   open(unit=10, file='input.txt', status='old')
   i = 0
   do
      read(10, *, iostat=n) data(i+1)
      if (n /= 0) exit
      i = i + 1
   end do
   close(10)

   call quicksort(data, 1, i)

   open(unit=20, file='output.txt', status='replace')
   do n = 1, i
      write(20,*) data(n)
   end do
   close(20)

contains
   recursive subroutine quicksort(a, left, right)
      integer, intent(inout) :: a(:)
      integer, intent(in) :: left, right
      integer :: i, j, pivot, temp
      i = left
      j = right
      pivot = a((left+right)/2)
      do while (i <= j)
         do while (a(i) < pivot)
            i = i + 1
         end do
         do while (a(j) > pivot)
            j = j - 1
         end do
         if (i <= j) then
            temp = a(i)
            a(i) = a(j)
            a(j) = temp
            i = i + 1
            j = j - 1
         end if
      end do
      if (left < j) call quicksort(a, left, j)
      if (i < right) call quicksort(a, i, right)
   end subroutine quicksort
end program SortFile

نکات کلیدی برای حل سؤالهای فرترن

همیشه implicit none را در ابتدای برنامه بنویسید تا از اعلان ناخواسته متغیرها جلوگیری شود.
از توابع کتابخانه‌ای استاندارد مانند SQRT، SIN و LOG بهینه استفاده کنید.
در برنامه‌های بزرگ، کد را به ماژول‌ها و توابع جداگانه تقسیم کنید تا نگهداری آسان‌تر شود.
قبل از ارسال پاسخ نهایی، برنامه را با مقادیر مرزی (مانند صفر، منفی و مقادیر بزرگ) تست کنید.

منابع پیشنهادی برای تمرین بیشتر

برای دسترسی به مجموعهٔ کامل‌تری از نمونه سوالات برنامه و دریافت راهنمایی‌های تخصصی، می‌توانید از وب‌سایت‌های زیر بازدید کنید:

وب‌سایت دانشگاه‌های فنی ایران – بخش تمرینات فرترن.
پلتفرم‌های آموزشی آنلاین مانند Coursera و Udemy که دوره‌های پیشرفتهٔ فرترن ارائه می‌دهند.
گروه‌های تلگرام و انجمن‌های برنامه‌نویسان ایرانی که به‌صورت مستمر سؤالهای جدید به اشتراک می‌گذارند.

نتیجه‌گیری

با استفاده از نمونه سوالات برنامه مخصوص فرترن و تمرین مستمر، می‌توانید به یک برنامه‌نویس قوی تبدیل شوید. مهم است که نه تنها به حل سؤالها تمرکز کنید، بلکه به بهبود ساختار کد، مستندسازی و بهینه‌سازی نیز توجه داشته باشید. این رویکرد همه‌جانبه، شما را برای مواجهه با چالش‌های واقعی در پروژه‌های صنعتی یا تحقیقاتی کاملاً آماده می‌سازد.

نمونه سوالات برنامه نویسی فرترن با جواب