StartprogrammingusingObjectPascal:RestaurantProgramUsingFunctions

From 흡혈양파의 번역工房
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

함수를 사용한 음식점 프로그램

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;

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

// Main application
var
    Selection: Char;
    Price: Integer;
    Total: Integer;
begin
    Total := 0;
    repeat
        Menu;
        Write('Please enter your selection: ');
        Readln(Selection);
        case Selection of
            1: Price := GetOrder('Chicken', 15, 10);
            2: Price := GetOrder('Fish', 12, 7);
            3: Price := GetOrder('Meat', 18, 8);
            4: Price := GetOrder('Salad', 5, 2);
            5: Price := GetOrder('Orange juice', 2, 1);
            6: Price := GetOrder('Milk', 1, 1);
            x, X: Writeln(Thanks);
            else
            begin
                Writeln('Wrong entry');
                Price:= 0;
            end;
        end;

        Total := Total + Price;
    until (Selection = 'x') or (Selection = 'X');
    Writeln('Total price                   = ',Total);
    Write('Press enter key to close');
    Readln;
end.