Onionmixer: 오류수정

2013-04-04T11:36:01Z

오류수정

New page

===프로시저를 사용한 음식점 프로그램==

<syntaxhighlight lang="pascal">
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.
</syntaxhighlight>

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

[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: SPOP 프로시저를사용한식당프로그램 페이지 추가

2012-07-26T10:27:46Z

SPOP 프로시저를사용한식당프로그램 페이지 추가

New page

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

<syntaxhighlight lang="pascal">
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.
</syntaxhighlight>

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

StartprogrammingusingObjectPascal:RestaurantProgramUsingProcedures - Revision history

Onionmixer: 오류수정

Onionmixer: SPOP 프로시저를사용한식당프로그램 페이지 추가