포트란 숙제하는데 도저히 못하겟어요 ㅜㅜㅜ 제발좀!! 도와주세요 ㅜㅜ

1/1

북한이 오물풍선 날려주면 개이득인 이유 야옹이는 야옹해 작성자 : 포항의봄

포트란 숙제하는데 도저히 못하겟어요 ㅜㅜㅜ 제발좀!! 도와주세요 ㅜㅜ

무돌이(121.167) 2010.10.21 14:18:02

조회 287 추천 0 댓글 12

program MachineProblem3

!!!!!!!!!!!!!!!!!!varialbes!!!!!!!!!!!!!!!!!!

integer :: N

integer :: ang = 360

!real :: result_fact = 1

real :: rad

real :: trunc = 0

real :: sum_trun = 0

real :: sum_cos

real :: average

!integer :: num

real, allocatable, dimension (:) :: fact

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

write (*,*) \'input the N number\'

read (*,*) N

!call truncated(N, sum_trun)

do k=1, 2*N

fact(2) = fact(1) * k

end do

do i=1, ang

do j=1, N

! do k=1, 2*N

! result_fact = result_fact*k

! k = k+1

! end do

trunc = trunc + ((-1)**j)*(i**(2*i))/fact(2*j)

! j = j+1

end do

! result_fact = 1

sum_trun = sum_trun + trunc

! i = i+1

end do

!call cosine(sum_cos)

do i=0, ang

rad = i*3.1417/180

sum_cos = sum_cos+cos(rad)

! i = i+1

end do

average = (sum_cos - sum_trun) / 360

if(average < 1.0E-7) then

write (*,*) \'The difference is less than 10**-6\'

else

write (*,*) \'big\'

end if

end program MachineProblem3

!!!!!!!!!!!!!!!!!!truncated function!!!!!!!!!!!!!!!!!!

!subroutine truncated(input, output_trun)

!implicit none

!integer :: cnt = 0

!integer :: n

!real :: factorial = 1

!real :: result_fact = 1

!real :: trunc

!integer, intent(in) :: input

!real, intent(out) :: output_trun

!n = input

!do while (cnt>360)

! do while (n<0)

! do while(factorial>(2*input))

! result_fact = result_fact * factorial

! factorial = factorial +1

! end do

! trunc = trunc + ((-1)**n) * (cnt**(2*n)) / result_fact

! n = n - 1

! end do

! output_trun = output_trun + trunc

! cnt = cnt + 1

!end do

!end subroutine truncated

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!cosine function!!!!!!!!!!!!!!!!!!

!subroutine cosine(output_cos)

!implicit none

!integer :: degree = 0

!integer :: cnt = 0

!real :: rad

!real, intent(out) :: output_cos

!do while(cnt>360)

! rad = degree * 3.1417 / 180

! output_cos = output_cos + cos(rad)

! cnt = cnt - 1

!end do

!end subroutine cosine

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

포트란 숙제인데 런타임 에러가 납니다!!! 제발좀 ㅜㅜ 하루꼬박걸려서한건데

배열에서 에러가 나는듯? ㅜㅜ 도와주세요

고정닉 0

전체 댓글 0개

등록순

본문 보기

타인의 권리를 침해하거나 명예를 훼손하는 댓글은 운영원칙 및 관련 법률에 제재를 받을 수 있습니다.
Shift+Enter 키를 동시에 누르면 줄바꿈이 됩니다.

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	비난 여론에도 뻔뻔하게 잘 살 것 같은 스타는?	운영자	24/06/03	-	-
224935	일베 컴공과 1학년 실력글 보다가 생각나서 짜본 * 트리 [4]	ㅁㄴㅇㄹ(58.122)	10.12.15	187	0
224934	형님들 아이락스 키보드 괜찬음? [13]	동적할당	10.12.15	113	0
224933	내일부터 출근할생각을 하니깜깜하다... [2]	꿀레	10.12.15	118	0
224931	이것 어떻게 뚫을수 있는 방법이 없을까요?? [2]	Pr	10.12.15	100	0
224930	vs2010 프로젝트 안열려 ㅠ [1]	김늅늅(175.198)	10.12.15	91	0
224929	뭐하러 컴공때문에 고밍했는지ㅋㅋ 한심하다 [4]	Heimdal(121.185)	10.12.15	265	0
224928	튀근하고 샤워하니까 12시네 -_-;; [4]	DMW(125.138)	10.12.15	138	0
224927	김늅늅님은 보십니다. [1]	캐늅늅늅(121.169)	10.12.15	66	0
224926	님들아 WPF에서 DB랑 TextBlock랑 바인딩 할라는디 왜 안댐? [39]	떱피엡신(220.68)	10.12.15	204	0
224925	갤러리 순회에 프갤에 뜨던데 런타임 오류인가요?	[성대아싸]	10.12.14	58	0
224923	자바 실력자 횽들 좀 도와주세요 ㅜㅜ 학교에서 날 새게 생겼으메 [15]	-0-(61.245)	10.12.14	161	0
224921	여자를 때리면 안되지 개새끼들아 [1]	개쉛기	10.12.14	122	0
224920	횽들~ 형들이 느끼는 리눅스의 재미는 뭐야?? [8]	C언어란?(116.32)	10.12.14	153	0
224919	알고리즘 능력같은걸 키워보려면 어떻게 해야하나요 [4]	ㅇㅇ(112.162)	10.12.14	118	0
224917	어제 호텔방에 마사지 룸서비스 받겠냐고 전화가 와서 섹스를 했는데 [3]	물속의다이아	10.12.14	296	0
224916	프갤 짬뽕 벙개	prismatic	10.12.14	92	0
224911	시험도 끝났으니 게임이나 하러 가야지 [3]	Rei@디씨	10.12.14	104	0
224909	언더바가 싫다니 무슨말이야?!!! [8]	키사노바	10.12.14	112	0
224908	프갤에 하츠네 미쿠 팬 있냐? [1]	아주아슬	10.12.14	88	0
224907	요즘들어 부쩍 인터넷이 느려진 느낌... [5]	Rei@디씨	10.12.14	103	0
224905	요즘은 마법진같은 것을 도로에 그려서... [4]	ㅁㄴㅇㄹ(175.199)	10.12.14	137	0
224903	안드로이드플밍질문 [7]	하기히(210.119)	10.12.14	88	0
224902	변수에 언더바 넣어본지 조난 오래됬는데 [7]	동적할당	10.12.14	146	0
224901	유튜브 오류는 보기 힘든데 [2]	Rei@디씨	10.12.14	112	0
224900	횽들..누킹 피해복구 어떻게 하나요 ㅠ.ㅠ [1]	ㅇ(220.85)	10.12.14	78	0
224899	난 콘솔프로그래밍도 좆도못하는 뉴비인데 재밌네?? [2]	SSY(113.59)	10.12.14	122	0
224898	왜 프겔에 글이 안써지지..;; [5]	Rei@디씨	10.12.14	47	0
224897	아 리플에서 본건데 ㅋㅋㅋㅋ [8]	천상	10.12.14	119	0
224896	여기 재미있네	지잡(121.169)	10.12.14	38	0
224895	형들 프로그래밍 공부하면 진짜 닭튀겨?? [5]	SSY(113.59)	10.12.14	143	0
224893	형들 궁금한게 있는데 컴공 졸업하면??취업말이야 [4]	뉴규(113.59)	10.12.14	207	0
224892	변수명에 언더바 넣는거 좃나싫어 [5]	김블덕(61.254)	10.12.14	147	0
224890	횽들중 오픈지엘3딩 소스좀 있는님 있어? [4]	오픈지엘(121.169)	10.12.14	82	0
224889	같은 네트워크 안에 있지 않은 PC에다가 파일 업로드를 할려고 하는데.. [4]	클라리네이	10.12.14	68	0
224888	근데 16bit 시스템에서는 [7]	Rei@디씨	10.12.14	136	0
224887	횽들.. 요번에 컴공가려고하는 늅늅이야.. [12]	체프★	10.12.14	220	0
224886	이런 씌벌 ... 진짜 진지하게 물어본다. ( 짤방 ) [1]	임베디드(112.150)	10.12.14	118	0
224885	네이버 검색은 믿을 수가 없어 .. [1]	근질근질(163.180)	10.12.14	65	0
224883	알고리즘 과젠데..이거 혹시 풀 수 있는 횽 있어? [4]	ㅎㄹㅇㅎ(211.194)	10.12.14	444	0
224882	와우를 내 하드에서 지웠음... [2]	꿀레	10.12.14	101	0
224881	안녕 얘들아또왔어. 하나만 더물어볼게 ㅎㅎ [2]	Java늅늅E(218.154)	10.12.14	67	0
224880	횽들 요즘 컴공과 어떻습니까 [2]	ㅇㅇ(118.221)	10.12.14	119	0
224879	대학가고싶어 [1]	졷뉴비(211.172)	10.12.14	74	0
224878	C언어 입문하려는 뉴비인데 [5]	ㅇ(118.38)	10.12.14	186	0
224876	ㅇㅇㅇ	ㅇ(76.168)	10.12.14	28	0
224875	근데왜 프로그래밍언어 입문은 c로 하는거냐 [9]	영비(183.101)	10.12.14	270	0
224873	김늅늅횽 계시나용 [2]	캐늅늅늅(121.169)	10.12.14	43	0
224872	2012년까지 연간근로시간 1950시간으로 줄인다.	컴돌이(58.77)	10.12.14	121	0
224871	윈도우8? [1]	이모군(1.225)	10.12.14	89	0
224870	릴리즈 파일만 가지고 디버깅하는게 가능한가요??? [7]	컴돌이(58.77)	10.12.14	107	0