질문하시는 분은 적어도 성의가 있어야 한다고 생각합니다.
아무것도 해보시지 않고 그냥 질문만 올리시는듯한 느낌이 듭니다.
적어도 작성하신데 까지는 올려주셔야 어떤부분을 이해못하시고 계시는지 파악이 가능하며,
성의가 있어 보이니깐요..
이곳은 숙제를 대신 해주는 곳이 아니라는 것을 말씀드립니다.
암튼 1~100 까지 짝수중 4로 나누어지지 않는 수들의 합을 구하는 프로그램은 다음과 같습니다.
*************************************************************
SUM=0
DO I=1,100
IF(MOD(I,2).EQ.0 .AND. MOD(I,4).NE.0) SUM=SUM+FLOAT(I)
ENDDO
*************************************************************
일단 DO LOOP를 이용해서 1~100까지의 수를 계산대상에 올려놓습니다.
여기서 MOD(A1,A2)라는 함수를 이용해서 합산에 포함 여부를 결정합니다.
MOD함수는 A1/A2를 해서 남는 나머지입니다.
예를들어 MOD(4,2)=0, MOD(4,4)=0, MOD(4,3)=1 이 됩니다.
MOD(I,2).EQ.0 ==> 2로 나누었을때 나머지가 0 이면 오케이
MOD(I,4).NE.0 ==> 4로 나누었을때 나머지가 0 이 아니면 오케이
위 두 조건을 동시에 만족시키면 합산에 포함을 하면 됩니다.
이해가 되시는지요?
아~~ 프로그램에서 FLOAT(I)는 정수형 변수를 실수형 변수로 바꾸어주는 것입니다.
정수형, 실수형 변수에 대해서는 이해를 득하고 계시겠죠?
암튼...다음부터는 질문을 올리실때 적어도 작성하신 부분은 올려주시기 바랍니다.
아무것도 해보시지 않고 그냥 질문만 올리시는듯한 느낌이 듭니다.
적어도 작성하신데 까지는 올려주셔야 어떤부분을 이해못하시고 계시는지 파악이 가능하며,
성의가 있어 보이니깐요..
이곳은 숙제를 대신 해주는 곳이 아니라는 것을 말씀드립니다.
암튼 1~100 까지 짝수중 4로 나누어지지 않는 수들의 합을 구하는 프로그램은 다음과 같습니다.
*************************************************************
SUM=0
DO I=1,100
IF(MOD(I,2).EQ.0 .AND. MOD(I,4).NE.0) SUM=SUM+FLOAT(I)
ENDDO
*************************************************************
일단 DO LOOP를 이용해서 1~100까지의 수를 계산대상에 올려놓습니다.
여기서 MOD(A1,A2)라는 함수를 이용해서 합산에 포함 여부를 결정합니다.
MOD함수는 A1/A2를 해서 남는 나머지입니다.
예를들어 MOD(4,2)=0, MOD(4,4)=0, MOD(4,3)=1 이 됩니다.
MOD(I,2).EQ.0 ==> 2로 나누었을때 나머지가 0 이면 오케이
MOD(I,4).NE.0 ==> 4로 나누었을때 나머지가 0 이 아니면 오케이
위 두 조건을 동시에 만족시키면 합산에 포함을 하면 됩니다.
이해가 되시는지요?
아~~ 프로그램에서 FLOAT(I)는 정수형 변수를 실수형 변수로 바꾸어주는 것입니다.
정수형, 실수형 변수에 대해서는 이해를 득하고 계시겠죠?
암튼...다음부터는 질문을 올리실때 적어도 작성하신 부분은 올려주시기 바랍니다.
다음검색