|
2 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을 이용한 파이구하기
|
|
|
알고리즘
입실론 찾기
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(
|
|
|
double precision과 마찬가지로 기억장소의 크기가 변수 하나당 2배의 크기가 요구된다.
ex) complex a
a=(1,0, 2.0)
write(*,*) a
이는 a=1.0+2.0i를 의미하며 화면에는 (1.0, 2.0)이 출력된다.
ex) complex a
data a/1.0, 2.0/
ex) 다음의 수학식들을 complex를 이용한 FORTRAN
|
|
|
#include<iostream>
#include "mathlibF.h"
#include<math.h>
#define PI 3.14159265
using namespace std;
double main(void)
{
cout.precision(15);
cout << "*********** TEST (setting PI == 3.14159265) **********************"<<endl;
cout << "*********************
|
|
|
double avg=0;
for(int i=0;i<=2;i++){
for(int j=0;j<=2;j++){
sum=sum+a[i][j];
}
}
avg=sum/9.0;
printf("sum = %d",sum);
printf("\navg = %lf\n",avg);
}
* 참고문헌
검색사이트(네이버, 구글)
문호석, 손명호, 『 C로 시작하는 컴퓨터 프로그래밍 』, 한빛미디어, 2006
오임걸 외 4
|
|
메뉴펼치기
