포트란너무어려워요ㅠㅠ
32
2017-10-12 23:32:46.0
1
156

포트란 최대공약수, 최소공배수 구하는 건데 sublutine 이랑 call 문 에 common 문은 어떻게 넣어야할까요??


 c homework4-3
      program WONJUN
      integer a,b, gcm,gcm1,gcm2
      write(*,*)'정수 두개 쓰세요.'
      read(*,*)a,b
      gcm=1
      i=1

5     gcm=i*gcm
      do 10 i=2,a
      if(mod(a,i).eq.0.and.mod(b,i).eq.0)then
      a=a/i
      b=b/i
      go to 5
      end if
10    continue

      call sub(a,b,gcm1)
      call sub(b,a,gcm2)

      lcm=gcm*a*b*gcm1*gcm2
      write(*,*) '두 수의 최대공약수=',gcm
      write(*,*) '두 수의 최소공배수=',lcm
      end
   
      subroutine sub(a,b,gcm)
      common a,b,gcm
      integer a,b,gcm       
      gcm=1
      i=1
5     gcm=i*gcm
      do 10 i=2,a
      if(mod(a,i).eq.0.and.mod(b,i).eq.0)then
      a=a/i
      b=b/i
      go to 5
      endif

10    continue

      end

 

 

 포트란 최대공약수, 최소공배수 구하는 건데 sublutine 이랑 call 문 에

common 문은 어디에 어떻게 넣어야할까요??

 

양해부탁드립니다!! 

 

 

0
0