1. 개발/실행 플랫폼

(1) OS :

(2) 개발툴 :

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용

 

안녕하세요, 우연히 어떤 코드를 보게 되었습니다.

간단한 사용자함수 같은데

사용법이 좀 독특해 보이더군요.

 

program Produce;
(*$WARNINGS ON*)
 
function Test1: Integer;
var
  I: Byte;
begin
  Result := 0;
  for I := 0 to 255 do
    Inc(Result);
  WriteLn(I); // undefined
end;
 
begin
  Test1;
end.

 

혹시 이 함수에 대해 여쭤봐도 될지요?

마지막 줄의 Test1 은 함수를 호출하는 것 같은데요. 자기가 자기자신을 호출하는 걸까요?

 

다른 웹페이지에서 비슷한 모양의 함수를 또 발견할 수 있었습니다.

program Solve;
(*$WARNINGS ON*)

function Search(const A: array of Integer; Value: Integer): Integer;
begin
  for Result := 0 to High(A) do
    if A[Result] = Value then
      exit;
  Result := High(a)+1;
end;

const
  A : array [0..9] of Integer = (1,2,3,4,5,6,7,8,9,10);

begin
  Writeln( Search(A,11) );
end.

 

대체 이렇게 함수를 구성하는 이유가 뭔지 상당히 궁금해지네요~ ^^