Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

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

Alternative Versions

Comments

>>  barrym said on 03/29/10 08:38:58

barrym More lazy-ass "bottle(s)" code. C'mon Phil, give us a conditional
expression or two. Geez Louise..........

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!

Name:

eMail:

URL:

Security Code:
  
Comment: