커뮤니티
문의드립니다
2025-12-25 21:51:34
59
글번호 229360
안녕하세요?
새해복많이받으세요 .지난한해도 많은 감사드립니다 .
다름이아니오라 함수2개가 콤파일에러가있는데 도와주세요
감사합니다
1.함수명: Factorial
Function Factorial(n);
Vars: i(0), f(0);
Begin
If n <= 1 Then
Begin
Factorial = 1;
End
Else
Begin
f = 1;
For i = 2 To n
Begin
f = f * i;
End;
Factorial = f;
End;
End;
2.함수명:StdDevX
Function StdDevX(price, len);
Vars: i(0), m(0), s(0), d(0);
Begin
If len <= 1 Then
Begin
StdDevX = 0;
Exit;
End;
m = Average(price, len);
s = 0;
For i = 0 To len - 1
Begin
d = price[i] - m;
s = s + d * d;
End;
StdDevX = SquareRoot(s / len);
End;
답변 1
예스스탁 예스스탁 답변
2025-12-26 15:22:16
안녕하세요
예스스탁입니다.
사용자함수 함수로 만드시면 아래와 같습니다.
1
사용자함수명 : Factorial
반환값형 : 숫자형
input : n(Numeric);
Vars: i(0), f(0);
If n <= 1 Then
Begin
Factorial = 1;
End
Else
Begin
f = 1;
For i = 2 To n
Begin
f = f * i;
End;
Factorial = f;
End;
2
사용자함수명 : StdDevX
반환값형 : 숫자형
input : price(Numeric),len(Numeric);
Vars: i(0), mm(0), s(0), d(0);
If len <= 1 Then
Begin
StdDevX = 0;
End;
mm = avg(price, len);
s = 0;
For i = 0 To len - 1
Begin
d = price[i] - mm;
s = s + d * d;
End;
StdDevX = SquareRoot(s / len);
즐거운 하루되세요
이전글