|
알고리즘
입실론 찾기
DOUBLE PRECISION E !or REAL
E=1
50 IF(1+E.EQ.1) THEN
WRITE(*,*) EX
STOP
ELSE
EX=E
E=EX*0.1
GOTO 50
END IF
END
포트란 허용 최소값, 최대값 찾기
REAL E !or DOUBLE PRECISION
E=3.40 !or 1.14 and so on
50 READ(*,*) A
IF(A.EQ.1) THEN
E=E*10 !Change 10 to 0.1 in the MIN value
WRITE(
|
|
|
I. 포트란의 예제를 수행해보고 포트란의 문법이나 기타 사항을 살펴 본다. 그리고 다른 프로그램 3개를 작성하여 포트란을 익혀 본다.
II. 예제 수행 및 결과
1. 다음의 프로그램을 실행시키고, 그 결과를 적어라.
PROGRAM P7
A=1776.0
B
|
|
|
포트란으로 이분법 프로그램 소스입니다. 초보자용으로 교수님이 질문했을경우 답변하기 쉽게
코멘트 넣었구요. 누구나 쉽게 이해할수 있도록 do문 function 없습니다.
고급기술없이 쉽게 만들어서 A+맞은 소스입니다.
참고 하실분은 참
|
|
|
e, small_size, X, Y, Z
print *, "주조물의 수량을 입력하여 최소의 컨테이너 수를 구해보자"
print *, "주조물의 수량을 입력하자"
read *, n
extra_large = n / 50
X = n - (50 * extra_large)
large = X / 20
Y = X - (20 * large)
medium_size = Y / 5
Z = Y - (5 * medium_size)
small_size = Z / 1
|
|
|
3 .9881422E+01 .2470356E+01 .4940711E+01
!!! reaction !!!
node reaction
1 -.4051E+01
2 -.5402E+01
3 -.5949E+01
4 .7931E+01
5 .1000E+02
6 -.5000E+01
7 .0000E+00
8 .2470E+01
!!! have a nice day !!!
|
|
메뉴펼치기
