Çözüldü Asal ve Tam Sayılar - Programlama

Bilgisayar programlama (kodlama) ile ilgilenen öğrenciler için Fortran çözümü:

https://i.ibb.co/ds2GYKzR/ab-Fortran.png

Program:

Kod:

! a asal sayı ve b tam sayıdır. a = (5b + 6) / b ise b kaç faklı değer alabilir?
! https://stackoverflow.com/questions/64973328/fortran-do-while-with-function-checking-the-prime-number
! adresindeki programın probleme göre modifiye edilmiş versiyonudur.
module prime_function

  implicit none
  private
  public isprime

  contains

     function isPrime(inp_num) result(res)
        integer res
        integer, intent(in) :: inp_num
        integer i, temp1
        i = 1
        temp1 = 0
        do while (i < inp_num)
           i = i + 1
           if (mod(inp_num, i) == 0) exit
        end do
        res = 0
        if (inp_num == i) res = 1
     end function
end module

program fortran_q

  use prime_function

  implicit none
  integer :: a, b

  do a = 2, 100
     do b = -100, 100
        if (isPrime(a) /= 1) cycle
        if ( (a*b - 5*b)==6 ) write(6, 10)"b = ",b, ", a = ",a
     end do
  enddo  

10 format (2(a,i2))

end program