StartprogrammingusingObjectPascal:RestaurantProgramUsingProcedures

From 흡혈양파의 번역工房
Jump to: navigation, 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.


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