포트란 소스파일

소개글

포트란 소스파일에 대한 보고서 자료입니다.

본문내용

PRINT *, 'Enter a stone''s weight (in crarts):'
READ *, CARATWT
MILLIWT = CARATWT * 200
PRINT *, '', MILLIWT
GRAMWT =MILLIWT * 1000
PRINT *, '', MILLIWT
OUNCEWT = GRAMWT / 28.35
PRINT *, '', OUNCEWT
STOP
END
DIMENSION L(5)
K=0
READ(5,10) (L(I), I=1,5)
10 FORMAT(5(I2,/))
DO 100 I=1,5
K=K+L(I)
100 CONTINUE
WRITE(6,20) K
20 FORMAT(I3)
STOP
END
DIMENSION L(5)
K=O
INTEGER ADD
READ(*,10) (L(I), I=1,5)
DO 10 I=1,5
ADD=K+J(I)
10 CONTINUE
WRITE(*,20) (L(I), I=1,5,1)
20 FORMAT(I1,2X)
STOP
END
JOD=0
JEV=0
DO 100 I=1,100,2
JOD=JOD+I
K=I+1
JEV=JEV+K
100 CONTINUE
WRITE(*,200) JEV,JOD
200 FORMAT(I5)
STOP
END

키워드

포트란,   소스,   컴파일러,   에러,   소스파일