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

프로그래밍 갤러리

1/1

비나이다 비나이다 한게 효과가 있었나봐요 ㅋㅋ ☆단비☆
제가 nimfsoft 운영자인데.. 제가 주작기 돌릴 이유가 없어요. ☆단비☆
러스트 커뮤니티 가보면 느끼는 점. ☆단비☆
러스트 악성분자가 나 음해하려고 주작기 돌려 자작극 펼치나보지 ☆단비☆
아마 이번에 주문하는 케이스가 마지막 케이스가 되지 않을까 싶네요 ☆단비☆

러스트 극성분자가 또 납션나 보군요 왜 저러실까..욕지랄에..하여간오픈소스, 리눅스, 러스트 쪽에는 이상한 사람들이 겁나 많다니까.일반 사회/회사들보다 오픈소스/리눅스/러스트 쪽에 이상한 사람 비중이 10배는 높은거 같음.본문에는 컴퓨터 케이스를 얘기하고 있는데댓글로 쌍욕하는거 보세요. 작성자 : ☆단비☆

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

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

조회 288 추천 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/10	-	-
이슈	[디시人터뷰] 웃는 모습이 예쁜 누나, 아나운서 김나정	운영자	24/06/11	-	-
225925	님들아 어디로 도망가면 무사할까염? [2]	스몰마인드(121.182)	10.12.20	91	0
225923	Assist 좀 도와줘 [3]	ㅇㅅ(110.15)	10.12.20	57	0
225922	랜덤함수를 사용못하면?? [12]	asfdafdsafsd(121.65)	10.12.20	165	0
225921	마소의 노예가 된 이유? [2]	훗쇼	10.12.20	159	0
225920	시펄 그래 결정했어! [19]	치타후치타	10.12.20	274	0
225919	덕후 까지 마라... [4]	SebasT	10.12.20	147	0
225918	[이지스원] 군특기병(병역특례) 정보보안교육과정 [5]	이지스원교육부	10.12.20	163	0
225917	대학가면 유초중고딩때부터 컴터하더놈 얼마나있어? [27]	치타후치타	10.12.20	235	0
225916	2주일째 똑같은짓 반복중 [2]	SebasT	10.12.20	67	0
225914	왠지 프로그래밍하면 졸라 멋있어보임 [7]	치타후치타	10.12.20	160	0
225913	해일리는 또 봅니다. [6]	iljeomobolt	10.12.20	110	0
225912	해일리는 봅니다. [6]	iljeomobolt	10.12.20	162	0
225910	string 입력과 예외처리 질문좀 [3]	전설의기타리스트	10.12.20	87	0
225909	북한 개객기들.. [3]	꿀레	10.12.20	103	0
225908	안드로이드 좀 이상해.. [7]	sdf(119.193)	10.12.20	114	0
225907	곧 연평도사격훈련할듯... [2]	꿀레	10.12.20	77	0
225906	[이지스원] 해킹보안실무교육, 이지스원교육센터 찾아오시는길 [8]	이지스원교육부	10.12.20	155	0
225903	지들이 뭘 원하는지도 모르면서 [5]	해일리	10.12.20	109	0
225902	프로그래밍 오늘부터 대학에서 배우는데 [7]	고데레	10.12.20	147	0
225900	근데 형들아 컴공 돈 진짜 잘벌어. [15]	Minryu	10.12.20	503	0
225899	ifstream은 파일 입력, ofstream은 파일 출력에 사용되어야함 [2]	화택씨	10.12.20	88	0
225898	아침엔 배가아프긔	꿀레	10.12.20	37	0
225896	아침이야	prismatic	10.12.20	43	0
225895	너네 이런거나 좀 만들어봐라.... [4]	VL	10.12.20	193	0
225894	세브횽 [5]	prismatic	10.12.20	66	0
225893	시팔 대한민국은 썩었어 [4]	치타후치타	10.12.20	195	0
225892	근데 프갤러들은 졸라 욕먹는 프로그래머를 전공으로 선택한 이유가 뭐야? [21]	치타후치타	10.12.20	277	0
225890	고대 기계공학 선택해서 똥줄타기 vs 고대 컴공 선택해서 우선선발 [8]	치타후치타	10.12.20	234	0
225886	M$의 돈 자랑이 싫어 우분투로 왔습니다. [2]	권혁진(58.233)	10.12.20	135	0
225885	사람좀 찾아주세여 ㅜ.ㅠ [3]	희모(110.35)	10.12.20	85	0
225884	오늘도 밤새네 [2]	미클	10.12.20	136	0
225882	quatus는 나의 적 quatus를 죽입시다 [1]	차가운핫쵸코	10.12.20	105	0
225880	빡치는 윈7 [5]	ㄱㄱ(112.214)	10.12.20	142	0
225879	근데.. 자는 사람 손? [4]	캐늅늅(112.169)	10.12.20	79	0
225878	씹어먹을 vhdl	차가운핫쵸코	10.12.20	114	0
225877	안드로이드 질문좀.. [6]	안드로이드(58.145)	10.12.20	169	0
225875	if else 문 ambiguous [3]	[성대아싸]	10.12.20	154	0
225873	흉들 c++ 소스좀 봐줘염.. [5]	좆망할기세(118.35)	10.12.20	125	0
225872	팀장이 송년회준비하라고 30만원 줬는데 ... [4]	임베디드(112.150)	10.12.20	135	0
225871	급질문; 형들 java에서 말야~; [1]	혁련	10.12.20	75	0
225869	2시간동안 열공을 했으니 게임을 할 자격을 얻었다. [4]	홍어(218.51)	10.12.20	110	0
225866	공모전 준비하는데 너무 힘들다. [3]	한마음택배	10.12.20	112	0
225865	아 횽들 밑에 내 글 좀 도와줘.. 숙제 아니야..ㅡㅡ [2]	캐늅늅(112.169)	10.12.20	62	0
225864	성님들 이런거 잘 안봐주겠지?	뇽뇽이긔	10.12.20	50	0
225863	횽님들의 의견으로 다시 프로그램했는데.... [4]	1223(114.206)	10.12.20	121	0
225862	아이폰보다 안드로이드가 전망이 더 좋지 않아요? [2]	jsp신입(121.140)	10.12.20	216	0
225861	자바 초고수들 쥰내급해..ㅠㅠ	캐늅늅(112.169)	10.12.20	83	0
225860	모니터 사서 세로로 옆에 세워놓고 쓰고싶다.. [3]	홍어(218.51)	10.12.20	152	0
225859	화려한 아이패드, 아이폰 UI 개발 환경. [4]	흠(175.120)	10.12.20	190	0
225858	뉴비 인사와 동시에 자바 질문 [1]	어른병	10.12.20	53	0