StartprogrammingusingObjectPascal:RestaurantProgramUsingProcedures

From 흡혈양파의 번역工房
Revision as of 10:27, 26 July 2012 by Onionmixer (talk | contribs) (SPOP 프로시저를사용한식당프로그램 페이지 추가)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

프로시저를 사용한 식당 프로그램

procedure Menu;
begin
    Writeln('Welcome to Pascal Restaurant. Please select your order');
    Writeln('1 – Chicken          (10$)');
    Writeln('2 – Fish                  (7$)');
    Writeln('3 – Meat                (8$)');
    Writeln('4 – Salad               (2$)');
    Writeln('5 - Orange Juice (1$)');
    Writeln('6 – Milk                  (1$)');
    Writeln;
end;

procedure GetOrder(AName: string; Minutes: Integer);
begin
    Writeln('You have ordered : ', AName, ', this will take ',
         Minutes, ' minutes');
end;

// Main application
var
    Meal: Byte;
begin
    Menu;
    Write('Please enter your selection: ');
    Readln(Meal);

    case Meal of
        1: GetOrder('Chicken', 15);
        2: GetOrder('Fish', 12);
        3: GetOrder('Meat', 18);
        4: GetOrder('Salad', 5);
        5: GetOrder('Orange juice', 2);
        6: GetOrder('Milk', 1);
    else
        Writeln('Wrong entry');
    end;
    Write('Press enter key to close');
    Readln;
end.

이제 메인 프로그램은 더 작아지고 좀 더 알아볼 수 있게 되었습니다. 다른 부분에 대한 세부 내용은 주문 받기메뉴 표시하기와 같은 프로시저로 분리했습니다.