|
알고리즘
입실론 찾기
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(
|
|
|
: 412 Number of extensions: 0
Size of local data area(s): 236 Number of warnings: 0
Size of global data area: 40 Number of errors: 0
Object/Dynamic bytes free: 371752/46568 Statements Executed: 182 없음
|
|
|
28 Number of extensions: 0
Size of local data area(s): 236 Number of warnings: 0
Size of global data area: 39204 Number of errors: 0
Object/Dynamic bytes free: 332140/46568 Statements Executed: 358 없음
|
|
|
: 460 Number of extensions: 0
Size of local data area(s): 174 Number of warnings: 0
Size of global data area: 16 Number of errors: 0
Object/Dynamic bytes free: 371824/46570 Statements Executed: 343 없음
|
|
|
열
ex)
do j=1,3
do i=1,4
write(1,10) a(i,j)
end do
end do
ex)
do j=1,3
write(1,10) a(1,j), a(2,j), a(3,j)
end do
ex)
write(1,10) ((a(i,j), i=1,4), j=1,3)
ex)
write(1,10) (a(1,j), a(2,j), a(3,j), j=1,3)
* 3차원, 4차원 등 n차원 배열로도 확장하여 해석할 수 있다.
배열요소의 위치
a(m,n)
loc=m*
|
|
메뉴펼치기
