How to resolve the algorithm 99 bottles of beer step by step in the ALGOL-M programming language

Published on 12 May 2024 09:40 PM
#Algol-m

How to resolve the algorithm 99 bottles of beer step by step in the ALGOL-M programming language

Table of Contents

Problem Statement

Display the complete lyrics for the song:     99 Bottles of Beer on the Wall.

The lyrics follow this form: ... and so on, until reaching   0     (zero). Grammatical support for   1 bottle of beer   is optional. As with any puzzle, try to do it in as creative/concise/comical a way as possible (simple, obvious solutions allowed, too).

Let's start with the solution:

Step by Step solution about How to resolve the algorithm 99 bottles of beer step by step in the ALGOL-M programming language

Source code in the algol-m programming language

BEGIN

COMMENT PRINT LYRICS TO "99 BOTTLES OF BEER ON THE WALL";

STRING FUNCTION BOTTLE(N); % GIVE CORRECT GRAMMATICAL FORM %
INTEGER N;
BEGIN
   IF N = 1 THEN
      BOTTLE := " BOTTLE"
   ELSE
      BOTTLE := " BOTTLES";
END;

INTEGER N;

N := 99;
WHILE N > 0 DO
   BEGIN
      WRITE(N, BOTTLE(N), " OF BEER ON THE WALL,");
      WRITEON(N, BOTTLE(N), " OF BEER");
      WRITE("TAKE ONE DOWN AND PASS IT AROUND, ");
      N := N - 1;
      IF N = 0 THEN
          WRITEON("NO MORE")
      ELSE
          WRITEON(N);
      WRITEON(BOTTLE(N), " OF BEER ON THE WALL");
      WRITE(" "); % BLANK LINE BETWEEN STANZAS %
   END;
WRITE("THANKS FOR SINGING ALONG!");

END

You may also check:How to resolve the algorithm Combinations step by step in the AppleScript programming language
You may also check:How to resolve the algorithm Ramer-Douglas-Peucker line simplification step by step in the Julia programming language
You may also check:How to resolve the algorithm Bin given limits step by step in the Ada programming language
You may also check:How to resolve the algorithm Four bit adder step by step in the UNIX Shell programming language
You may also check:How to resolve the algorithm Thue-Morse step by step in the COBOL programming language