99 Bottles of Beer/Pascal: Difference between revisions
Content added Content deleted
(99 Bottles of Beer done in Pascal-languages) |
(moving code from main task-page to sub-page / Component Pascal) |
||
Line 9: | Line 9: | ||
See [[99 Bottles of Beer/Pascal]] |
See [[99 Bottles of Beer/Pascal]] |
||
--> |
--> |
||
=={{header|Component Pascal}}== |
|||
BlackBox Component Builder |
|||
<lang oberon2> |
|||
MODULE BottlesOfBeer; |
|||
IMPORT StdLog; |
|||
CONST bottles = 99; |
|||
PROCEDURE Part(i: INTEGER); |
|||
BEGIN |
|||
StdLog.Int(i);StdLog.String(" bottles of beer on the wall");StdLog.Ln; |
|||
StdLog.Int(i);StdLog.String(" bottles of beer");StdLog.Ln; |
|||
StdLog.String("Take one down, pass it around");StdLog.Ln; |
|||
StdLog.Int(i - 1);StdLog.String(" bottles of beer on the wall.");StdLog.Ln; |
|||
StdLog.Ln |
|||
END Part; |
|||
PROCEDURE Sing*; |
|||
VAR |
|||
i: INTEGER; |
|||
BEGIN |
|||
FOR i := bottles TO 1 BY -1 DO |
|||
Part(i) |
|||
END |
|||
END Sing; |
|||
END BottlesOfBeer. |
|||
</lang> |
|||
Execute: ^Q BottlesOfBeer.Sing<br/> |
|||
Output: |
|||
<pre> |
|||
99 bottles of beer on the wall |
|||
99 bottles of beer |
|||
Take one down, pass it around |
|||
98 bottles of beer on the wall. |
|||
98 bottles of beer on the wall |
|||
98 bottles of beer |
|||
Take one down, pass it around |
|||
97 bottles of beer on the wall. |
|||
97 bottles of beer on the wall |
|||
97 bottles of beer |
|||
Take one down, pass it around |
|||
96 bottles of beer on the wall. |
|||
... |
|||
1 bottles of beer on the wall |
|||
1 bottles of beer |
|||
Take one down, pass it around |
|||
0 bottles of beer on the wall. |
|||
</pre> |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |