Voting
Category
real language
Bookmarking
Language TMT Pascal
| Date: | 04/20/05 |
| Author: | Philipp Winterberg |
| URL: | http://www.winterbergs.de/ |
| Comments: | 1 |
| Info: | http://www.tmt.com/ |
| Score: |  (1.60 in 10 votes) |
// TMT Pascal version of 99 Bottles of beer (Bottles.pas)
// See http://www.tmt.com/
// Philipp Winterberg, http://www.winterbergs.de
program BoB99;
{$ifdef __GUI__}
uses WinCRT; {+}
{$endif} {+++++}
var b: byte; a,
c: string; begin
a:= #32+#98+#111
+#116+#116+#108+#101
+#40+#115+#41+#32+#111
+#102+#32+#98+#101+#101+
#114; b:= 99; c:= #32+++
#111+#110+#32+#116+#104+
#101+#32+#119+#97+#108++
#108; repeat writeln(b:2
, a+c+#44+#13+#10,b:2, a
+#46+#13+#10+#84+#97++++
#107+#101+#32+#111+#110+
#101+#32+#100+#111+#119+
#110+#44+#32+#112+#97+++
#115+#115+#32+#105+#116+
#32+#97+#114+#111+#117++
#110+#100+#44+#0);dec(b)
;writeln(b:2, a+c+#46+++
#13+#10);until b=0; end.
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments
expression or two. Geez Louise..........