대학교 1학년 때 (88년) 파스칼 문법에 실수승의 제곱근 기능이 없어서

무척 고생했는데 도움이 될까해서 소스를 올립니다.



그때 만든 거라서 다소 지저분하지만,

제가 먹고사는데 바뻐서 정리안된 상태로 그대로 올려요 죄송!!



요점은 Log(X**Y) = Y*Log(X)라는 수학공식으로 제곱승 계산을

곱셈으로 변경하고 다시 Exp()함수로 복구하는 것입니다.



꿈꾸는 바보 류..



----------------



Function CReal(x:Real):Boolean;

var Logic:real;

begin

Logic:=x-round(x);

if Logic=0 then CReal:=False

else CReal:=True

end;



Function XY(x,y:Real):Real;

var FA:real;

begin

if (CReal(y)) and (x<0) then XY:=0

else if x=1 then XY:=1

else if (x>0) and (x<>1) then XY:=Exp(y*Ln(x))

else if x=0 then XY:=0

else if (x=-1) and (odd(round(y))) then XY:=-1

else if (x=-1) and (odd(round(y+1))) then XY:=1

else if (x<0) and (x<>-1) then begin

XY:=1;

if odd(round(y)) then FA:=-1;

XY:=Exp(y*Ln(Abs(x)))*FA

end;

end;







홍은영 wrote:

> 학교 숙제인데...

> 사칙연산말구 다른 기능도 넣으라구 하셔어리...

> 아시면 좀 가르쳐주세요...

> 죄송합니다.

> ^^;

>

> 행복한 하루 되세요!!!

> ^^;

>

여기나 아님 델코, 델마당등의 질답란에서 계산기로 조회해보심

원하시는 자료를 구하실겁니다..

그동안 얼마나 많은 분들이 계산기를 찾아 오셨는지 한눈에 파악을 하실거구요~

아님 작년에 레포트를 했던 선배들에게 답변을 구하시던지요..^^

저두 조회해보니 일반용, 공학용등등 별의별 계산기 다있네요..

그나저나 어느학교에요? (넘 궁금해서^^)



홍은영 wrote:

> 학교 숙제인데...

> 사칙연산말구 다른 기능도 넣으라구 하셔어리...

> 아시면 좀 가르쳐주세요...

> 죄송합니다.

> ^^;

>

> 행복한 하루 되세요!!!

> ^^;

>