StartprogrammingusingObjectPascal:RestaurantProgramUsingFunctions
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;
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.