99 Bottles of Beer

Z Wikipedii, wolnej encyklopedii
Skocz do: nawigacja, szukaj

"99 Bottles of Beer" to piosenka angielska, zazwyczaj śpiewana w czasie długich podróży w celu "zabicia czasu".

99 bottles of beer on the wall, 99 bottles of beer. Take one down and pass it around - 98 bottles of beer on the wall.
98 bottles of beer on the wall, 98 bottles of beer. Take one down and pass it around - 97 bottles of beer on the wall.
...
2 bottles of beer on the wall, 2 bottles of beer. Take one down and pass it around - 1 bottle of beer on the wall.
1 bottle of beer on the wall, 1 bottle of beer. Take it down and pass it around - no more bottles of beer on the wall.

Każda linijka, z wyjątkiem ostatnich, różni się tylko liczbą butelek piwa. Istnieje wiele odmian tej piosenki. Niektórzy na końcu dodają jeszcze jeden wers, po którym można zacząć całość od początku:

No more bottles of beer on the wall, no more bottles of beer. Go to the store and buy some more, 99 bottles of beer on the wall.

Generowanie tego wierszyka jest jednym ze standardowych zadań, na których demonstruje się składnię języków programowania.

Przykłady w programowaniu[edytuj | edytuj kod]

uses crt;
var
a:integer;
begin
a:=99;
repeat
 write(a);
 write(' bottles of beer on the wall, ');
 write(a);
 write(' bottles of beer. Take one down and pass it around - ');
 a:=a-1;
 write(a);
 writeln('bottles of beer on the wall.');
until a=2;
writeln('2 bottles of beer on the wall, 2 bottles of beer. Take one down and pass it around - 1 bottle of beer on the wall.');
writeln('1 bottle of beer on the wall, 1 bottle of beer. Take it down and pass it around - no more bottles of beer on the wall.');
 
repeat until keypressed;
end.

Zobacz też[edytuj | edytuj kod]

Linki zewnętrzne[edytuj | edytuj kod]