StartprogrammingusingObjectPascal:Procedures

From 흡혈양파의 번역工房
Jump to navigation Jump to search

프로시저

이전 장에서 Writeln, Readln, Reset 등과 같은 프로시저를 이미 사용했지만, 이번에는 우리 프로그램에서 사용할 프로시저를 작성하려고 합니다.

다음 예제에서는 SayHelloSayGoodbye 두 개의 프로시저를 작성했습니다.

Program Structured;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };


procedure SayHello;
begin
    Writeln('Hello there');
end;

procedure SayGoodbye;
begin
    Writeln('Good bye');
end;

begin // Here main application starts
    Writeln('This is the main application started');
    SayHello;
    Writeln('This is structured application');
    SayGoodbye;
    Write('Press enter key to close');
    Readln;
end.

작은 프로그램과 같은 begin .. end를 지닌 프로시저와 메인 프로그램 코드에서 이것을 호출하는 것을 보았습니다.