99 Bottles of Beer

Voting

Bookmarking

Language Crystal Reports Formula

(Crystal Syntax)

Date:	08/11/07
Author:	Scott Ferguson
URL:	n/a
Comments:	0
Info:	n/a
Score:	(1.75 in 8 votes)

Local NumberVar bottles := 99;
Local StringVar song;

while bottles > 1 do
(
    song := song & ToText(bottles, 0) & " bottles of bear on the wall";
    song := song & ChrW(13);
    song := song & ToText(bottles, 0) & " bottles of beer..."  & ChrW(13);

    bottles := bottles - 1;

    song := song & "Take one down pass it around "  & ChrW(13);
    if bottles > 1 then
    (
        song := song & ToText(bottles, 0) & " bottles of beer on the wall";
        song := song & ChrW(13) & ChrW(13);
    );
);

song := song & "1 bottle of beer on the wall"  & ChrW(13) & ChrW(13);

song := song & "1 bottle of bear on the wall" & ChrW(13);
song := song & "1 bottle of beer..."  & ChrW(13);
song := song & "Take one down pass it around "  & ChrW(13);
song := song & "No bottles of beer on the wall"  & ChrW(13) & ChrW(13);

song

Download Source | Write Comment

Alternative Versions

Comments

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!

one program in 1500 variations