StartprogrammingusingObjectPascal:RestaurantProgram - Revision history

Onionmixer: 오류수정

2013-04-04T11:38:11Z

오류수정

← Older revision		Revision as of 11:38, 4 April 2013
Line 1:		Line 1:
	===음식점 프로그램===		==음식점 프로그램==

	<syntaxhighlight lang="pascal">		<syntaxhighlight lang="pascal">
Line 6:		Line 6:
	begin		begin
	Writeln('Welcome to Pascal Restaurant. Please select your order');		Writeln('Welcome to Pascal Restaurant. Please select your order');
	Writeln('1 – Chicken (10$)');		Writeln('1 - Chicken (10$)');
	Writeln('2 – Fish (7$)');		Writeln('2 - Fish (7$)');
	Writeln('3 – Meat (8$)');		Writeln('3 - Meat (8$)');
	Writeln('4 – Salad (2$)');		Writeln('4 - Salad (2$)');
	Writeln('5 - Orange Juice (1$)');		Writeln('5 - Orange Juice (1$)');
	Writeln('6 – Milk (1$)');		Writeln('6 - Milk (1$)');
	Writeln;		Writeln;
	Write('Please enter your selection: ');		Write('Please enter your selection: ');
Line 33:		Line 33:
	end.		end.
	</syntaxhighlight>		</syntaxhighlight>


	if 조건문을 사용하여 같은 프로그램을 작성한다면, 더 복잡하게 될 것이고, 코드가 중복 될 것입니다.		if 조건문을 사용하여 같은 프로그램을 작성한다면, 더 복잡하게 될 것이고, 코드가 중복 될 것입니다.

	[[Category:StartprogrammingusingObjectPascal]]		[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: 번역수정

2013-04-04T05:39:24Z

번역수정

← Older revision		Revision as of 05:39, 4 April 2013
Line 34:		Line 34:
	</syntaxhighlight>		</syntaxhighlight>

	if 조건문을 사용하여 같은 프로그램을 작성한다면, 더 복잡하게 될 것이고, ~~복사한 코드를 포함하게~~ 될 것입니다.		if 조건문을 사용하여 같은 프로그램을 작성한다면, 더 복잡하게 될 것이고, 코드가 중복 될 것입니다.

	[[Category:StartprogrammingusingObjectPascal]]		[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: page 원복

2013-01-05T05:14:49Z

page 원복

New page

===음식점 프로그램===

<syntaxhighlight lang="pascal">
var
Meal: Byte;
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;
Write('Please enter your selection: ');
Readln(Meal);

case Meal of
1: Writeln('You have ordered Chicken,',
' this will take 15 minutes');
2: Writeln('You have ordered Fish, this will take 12 minutes');
3: Writeln('You have ordered meat, this will take 18 minutes');
4: Writeln('You have ordered Salad, this will take 5 minutes');
5: Writeln('You have ordered Orange juice,',
' this will take 2 minutes');
6: Writeln('You have ordered Milk, this will take 1 minute');
else
Writeln('Wrong entry');
end;

Write('Press enter key to close');
Readln;
end.
</syntaxhighlight>

if 조건문을 사용하여 같은 프로그램을 작성한다면, 더 복잡하게 될 것이고, 복사한 코드를 포함하게 될 것입니다.

[[Category:StartprogrammingusingObjectPascal]]