|
program List
dimension name(15)
dimension phone(15)
Readfile(name, phone)
Insert(name, phone)
PrintList(name, phone)
stop
end
**********************************
subroutine Readfile(name,phone)
name(1)='Aker'
name(2)='Cl
|
|
|
232 Number of extensions: 0
Size of local data area(s): 131 Number of warnings: 0
Size of global data area: 0 Number of errors: 0
Object/Dynamic bytes free: 372304/46570 Statements Executed: 10000005 I.면적을 이용한 파이구하기
II.DOUBLE PRECISION을 이용한 파이구하기
|
|
|
|
REAL XL, XU, EX, XR, TEST, ES, EA,ET
INTEGER I
F(X) = -25+82*X-90*X**2+44*X**3-8*X**4+0.7*X**5
XROLD=0
XL=0.
XU=0.8
I=0
ES=1.0E-6
|
|
|
|
REAL XL,XU, XR, TEST, EA, ES, ET
INTEGER I
F(X) = -25+82*X-90*X**2+44*X**3-8*X**4+0.7*X**5
XROLD=0
XL=0
XU=0.8
I=0
ES=1.0E-6
|
|
|
de: 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
|
|
메뉴펼치기
