Я — эксперт в области разработки веб-приложений и безопасности в интернете. Каждый месяц мой блог посещают около 90 тысяч человек. Работаю техническим директором в «Системах документооборота», занимаюсь электронным правительством.
| написал Евгений Степанищев bolknote.ru
алг песня про пиво
нач
цел пиво
нц для пиво от 99 до 1 шаг -1
вывод сколько пива(пиво), ' on the wall, ', нс
вывод 'Take one and pass around,', нс
вывод сколько пива(пиво-1), ' on the wall.', нс, нс
кц
вывод "No more bottles of beer...", нс
вывод "Go to the store and buy some more...", нс
вывод "99 bottles of beer."
кон
алг лит сколько пива(цел пиво)
нач
если пиво = 0 то
знач:="No"
иначе
знач:=цел_в_лит(пиво)
все
знач:=знач + ' bottle'
если пиво <> 1 то
знач:=знач+'s'
все
кон# Написал Евгений Степанищев
bottles(beer) = beer == 1 ? '1 bottle' : beer ? sprintf('%d bottles', beer) : 'no bottles'
if (!exists("beer")) beer=99
print bottles(beer), " of beer on the wall, ", bottles(beer)," of beer\n",\
"Take one and pass it around,"
beer=beer-1
print bottles(beer)," of beer on the wall.\n"
if (beer>0) reread
print "No more bottles of beer on the wall, no more bottles of beer.\n", \
"Go to the store and buy some more, 99 bottles of beer on the wall."# Написал Евгений Степанищев aka BOLK
function bottles([int]$beer) {
switch ($beer) {
0 { "no bottles" }
1 { "1 bottle" }
default { "$beer bottles" }
}
}
99..1 | ForEach-Object {
$bottles = (bottles $_) + ' of beer'
$bottles + ' on the wall, ' + $bottles + '.'
'Take one down and pass it around, ' + (bottles($_-1)) + " of beer on the wall.`n"
}
'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.'| Написал Евгений Степанищев aka BOLK
алг
нач
цел сколько пива
нц для сколько пива от 99 до 1 шаг -1
выводим пиво(сколько пива, " on the wall, ")
выводим пиво(сколько пива, ".")
вывод нс, "Take one and pass it around,", нс
выводим пиво(сколько пива, " on the wall.")
вывод нс, нс
кц
вывод "No more bottles of beer:", нс
вывод "Go to the store and buy some more:", нс
вывод "99 bottles of beer."
кон
алг выводим пиво(цел пива, лит окончание)
нач
вывод число пива(пива), " bottle"
если пива > 1 или пива=0
то вывод "s"
все
вывод окончание
кон
алг лит число пива(цел пива)
нач
если пива=0
то знач:="No"
иначе знач:=цел_в_лит(пива)
все
кон <!-- Written by Evgeny "BOLK" Stepanischev -->
<style type="text/css">
.outer { position: absolute; top: -20px }
body { background: white; margin: 0; padding: 10px }
body, table { font-size: 11px; font-family: Tahoma }
table, td, tr { margin: 0; padding: 0; border-collapse: collapse }
</style>
<body>
<xml id="dataOuter">
<row>
<d><o>9</o></d>
<d><o>8</o></d>
<d><o>7</o></d>
<d><o>6</o></d>
<d><o>5</o></d>
<d><o>4</o></d>
<d><o>3</o></d>
<d><o>2</o></d>
<d><o>1</o></d>
</row>
</xml>
<xml id="dataInner">
<row>
<d><i>9</i></d>
<d><i>8</i></d>
<d><i>7</i></d>
<d><i>6</i></d>
<d><i>5</i></d>
<d><i>4</i></d>
<d><i>3</i></d>
<d><i>2</i></d>
<d><i>1</i></d>
<d><i>0</i></d>
</row>
</xml>
<xml id="dataInnerSingle">
<row>
<d><i>9</i><s>s</s></d>
<d><i>8</i><s>s</s></d>
<d><i>7</i><s>s</s></d>
<d><i>6</i><s>s</s></d>
<d><i>5</i><s>s</s></d>
<d><i>4</i><s>s</s></d>
<d><i>3</i><s>s</s></d>
<d><i>2</i><s>s</s></d>
<d><i>1</i></d>
</row>
</xml>
<div class="outer">
<table datasrc="#dataOuter">
<tr>
<td>
<table datasrc="#dataInner">
<tr>
<td>
<span datafld="o"></span><span datafld="i"></span> beer bottles
of beer on the wall.<br /><br />
<span datafld="o"></span><span datafld="i"></span> beer bottles
of beer on the wall,
<span datafld="o"></span><span datafld="i"></span> bottles of beer.<br />
Take one and pass it around,<br />
</td>
</tr>
</table>
</td>
</tr>
</table>
<table datasrc="#dataInnerSingle">
<tr>
<td>
<span datafld="i"></span> beer
bottle<span datafld="s"></span> of beer on the wall.<br /><br />
<span datafld="i"></span> beer
bottle<span datafld="s"></span> of beer on the wall,
<span datafld="i"></span> bottle<span datafld="s"></span>
of beer.<br />
Take one and pass it around,<br />
</td>
</tr>
</table>
No beer bottle of beer on the wall.<br />
<br />
No more bottles of beer...<br />
Go to the store and buy some more...<br />
99 bottles of beer.
</div>
</body>* основной шаблон *
%REM="Beer song. Written by Evgeny Stepanischev"
%_BE1=9%_BE2=9%QINCLUDE="beer_loop"%-
No more bottles of beer:
Go to the store and buy some more:
99 bottles of beer.
* быстрый шаблон beer_loop *
%QINCLUDE="print_beer" on the wall, %QINCLUDE="print_beer".
Take one and pass around,
%IF:"%_BE2"="0":'%_BER=%_BE1%QINCLUDE="dec"%_BE1=%_BER%_BE2=9':'%_BER=%_BE2%QINCLUDE="dec"%_BE2=%_BER'%-
%QINCLUDE="print_beer" on the wall.
%IF:"%_BE1%_BE2"="00":"":'%QINCLUDE="beer_loop"'%-
* быстрый шаблон print_beer *
%IF:"%_BE1%_BE2"="00":'No':'%IF:"%_BE1">"0":"%_BE1%_BE2":"%_BE2"'%-
bottle%QINCLUDE="beers" of beer%-
* быстрый шаблон beers *
%IF:"%_BER"="1":"":"s"%-
* быстрый шаблон dec *
%IF:"%_BER"="1":"%_BER=0":""%-
%IF:"%_BER"="2":"%_BER=1":""%-
%IF:"%_BER"="3":"%_BER=2":""%-
%IF:"%_BER"="4":"%_BER=3":""%-
%IF:"%_BER"="5":"%_BER=4":""%-
%IF:"%_BER"="6":"%_BER=5":""%-
%IF:"%_BER"="7":"%_BER=6":""%-
%IF:"%_BER"="8":"%_BER=7":""%-
%IF:"%_BER"="9":"%_BER=8":""%- 1.10 COMMENT Beer song. Written by Evgeny Stepanischev
1.20 FOR I=99, -1, 1; DO 2
1.30 TYPE "No more bottles of beer...", !
1.40 TYPE "Go to the store and buy some more...", !
1.50 TYPE "99 bottles of beer.", !
1.60 QUIT
2.10 SET B=1; DO 3; TYPE " on the wall, "; DO 3
2.20 TYPE !, "Take one and pass around,", !
2.30 SET B=2; DO 3; TYPE " on the wall.", !
3.10 DO 4.10; TYPE " of beer"; RETURN
4.10 IF (I-B) 4.20, 4.30, 4.40
4.20 TYPE "No bottles"; RETURN
4.30 TYPE "1 bottle"; RETURN
4.40 TYPE %4.00, I, "bottles"; RETURN** Beer song. Written by Evgeny Stepanischev
Pr {
e1 = <PRINTLN! *STDOUT e1>;
};
S {
1 = ;
e1 = 's';
};
Beer {
0 = 'No bottles of beer';
e1, <S e1>: e2 = e1 ' bottle' e2 ' of beer';
};
Beers
{
e1 (e2), <Beer e1>: e.beer =
<Pr e.beer ' on the wall, ' e.beer '.'>
<Pr 'Take one and pass around,'>
<Pr <Beer e2> ' on the wall.'>
<Pr>;
};
Start
{
0 = <Pr 'No more bottles of beer...'>
<Pr 'Go to the store and buy some more...'>
<Pr '99 bottles of beer.'>;
e1, <- e1 1>: e2 = <Beers e1 (e2)> <Start e2>;
};
$EXEC Start 99;* Beer song. Written by Evgeny Stepanischev
Integer I
Character S
For I=99 To 1 Step -1
Call Beer(I)
Print S; " on the wall, ";S;"."
Print "Take one and pass around,"
Call Beer(I-1)
Print S; " on the wall." : Print
Next I
Print "No more bottles of beer..."
Print "Go to the store and buy some more..."
Print "99 bottles of beer."
SubRoutine Beer(I)
Integer I
If I=0 Then S="No" Else S=Str$(%1I I)
S=S+" bottle"
If I<>1 Then S=S+"s"
S=S+" of beer"
Return
SubEnd
End<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="#beer"?>
<!-- Beer song. Written by Evgeny Stepanischev -->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
id="beer">
<xsl:output method="html"/>
<xsl:strip-space elements="*"/>
<xsl:template name="beer">
<xsl:param name="n"/>
<xsl:choose>
<xsl:when test="boolean($n)">
<xsl:value-of select="$n"/>
</xsl:when>
<xsl:otherwise>
No
</xsl:otherwise>
</xsl:choose>
<xsl:text> bottle</xsl:text>
<xsl:if test="boolean($n - 1)">
<xsl:text>s</xsl:text>
</xsl:if>
</xsl:template>
<xsl:template name="while" match="/">
<xsl:param name="i" select="99"/>
<xsl:choose>
<xsl:when test="$i != 0">
<xsl:variable name="str">
<xsl:call-template name="beer">
<xsl:with-param name="n" select="$i"/>
</xsl:call-template>
</xsl:variable>
<xsl:value-of select="$str"/>
<xsl:text> on the wall, </xsl:text>
<xsl:value-of select="$str"/>
<xsl:text> of beer.</xsl:text><br />
<xsl:text>Take one and pass around,</xsl:text><br />
<xsl:call-template name="beer">
<xsl:with-param name="n" select="$i - 1"/>
</xsl:call-template>
<xsl:text> on the wall.</xsl:text><br /><br />
<xsl:call-template name="while">
<xsl:with-param name="i" select="$i - 1"/>
</xsl:call-template>
</xsl:when>
<xsl:otherwise>
No more bottles of beer...<br />
Go to the store and buy some more...<br />
99 bottles of beer.
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>preferences.rulerUnits = Units.POINTS
preferences.typeUnits = TypeUnits.POINTS
var docRef = documents.add(640, 480)
displayDialogs = DialogModes.NO
var textColor = new SolidColor
textColor.rgb.red = textColor.rgb.green = textColor.rgb.blue = 0
var TextLayer = docRef.artLayers.add()
TextLayer.kind = LayerKind.TEXT;
TextLayer.textItem.font = "Tahoma"
TextLayer.textItem.position = Array(10, 10)
TextLayer.textItem.size = 12
TextLayer.textItem.color = textColor
var content = ''
function WriteLn(str)
{
content += '\r'+str
}
function PrintBeer(n)
{
return (n ? n : 'No') + ' bottle' + (n-1 ? 's' : '') + ' of beer'
}
for (i = 99; i>0;)
{
WriteLn (PrintBeer(i) + ' on the wall, '+PrintBeer(i)+'.')
WriteLn ('Take one and pass around,')
WriteLn (PrintBeer(--i) + ' on the wall.')
WriteLn ('')
}
WriteLn ('No more bottles of beer...')
WriteLn ('Go to the store and buy some more...')
WriteLn ('99 bottles of beer.')
TextLayer.textItem.contents = content
docRef = textColor = TextLayer = null; Beer song. Written by Evgeny Stepanischev
Name "Beer song"
Caption "Beer song"
OutFile "beer99.exe"
BrandingText "Beer song (Evgeny Stepanischev)"
ShowInstDetails show
!macro c
StrCpy $2 ""
Call PrintBeer
!macroend
Function PrintBeer
IntCmp $1 0 no "" ""
StrCpy $2 "$2$1"
Goto +2
no:
StrCpy $2 "$2No"
StrCpy $2 "$2 bottle"
IntCmp $1 1 nos "" ""
StrCpy $2 "$2s"
nos:
StrCpy $2 "$2 of beer"
FunctionEnd
Section ""
StrCpy $1 99
loop:
!insertmacro c
StrCpy $2 "$2 on the wall, "
Call PrintBeer
DetailPrint "$2."
DetailPrint "Take one and pass around,"
IntOp $1 $1 - 1
!insertmacro c
DetailPrint "$2 on the wall."
DetailPrint ""
IntCmp $1 0 "" loop loop
DetailPrint "No more bottles of beer..."
DetailPrint "Go to the store and buy some more..."
DetailPrint "99 bottles of beer."
SectionEnd! Beer song. Written by Evgeny Stepanischev
PROC beer
IF b=0
WRITE "No"
ELSE
WRITE b
CONTINUE
!
WRITE " bottle"
IF b=1
ELSE
WRITE "s"
CONTINUE
!
WRITE " of beer"
RETURN
!
!
VAR INT b
ASSIGN b=99
!
FOR b>0
USE beer
WRITE " on the wall, "
USE beer
WRITE "."l
WRITE "Take one down and pass around."l
ASSIGN b=b-1
USE beer
WRITE "."
SLEEP 4
BOX
ASSIGN posy=0
ASSIGN posx=0
NEXT
!
WRITE "No more bottles of beer..."l
WRITE "Go to the store and buy some more..."l
WRITE "99 bottles of beer."
SLEEP 20цел пиво;
Программа {
пиво:=198;
Делать пока (пиво>0) {
если (слева стена) то {
если (пиво=2) то {
Сообщить "1 bottle of beer on the wall, 1 bottle of beer."
} иначе
{
Сообщить пиво/2, " bottles of beer on the wall, ",
пиво/2, " bottles of beer."
};
Сообщить "Take one down, pass it around."
Шаг вправо;
} иначе
{
если (пиво=2) то {
Сообщить "1 bottle of beer on the wall."
} иначе {
если (пиво>1) то {
Сообщить пиво/2, " bottles of beer on the wall."
} иначе {
Сообщить "No bottles of beer on the wall.";
};
};
Шаг влево;
};
пиво:=пиво-1;
};
Сообщить "No more bottles of beer...";
Сообщить "Go to the store and buy some more...";
Сообщить "99 bottles of beer.";
}! beer
! Beer song. Written by Evgeny Stepanischev
PROC beer i, VAR s$
IF i>0 THEN
s = STRING(i)
ELSE
s = "No"
ENDIF
s = s+" bottle"
IF i<>1 THEN
s = s+"s"
ENDIF
s = s+" of beer"
ENDP
FOR i=0 TO 98
beer 99-i, s$
? s;" on the wall, ";s;"."
? "Take one and pass around,"
beer 98-i, s
? s;" on the wall.":? ""
NEXT
? "": ? "No more bottles of beer..."
? "Go to the store and buy some more..."
? "99 bottles of beer."# Beer song. Written by Evgeny Stepanischev
set I1, 99
branch MAIN
beer: if I1, _NZERO
print "No"
branch _I1_EL
_NZERO: print I1
_I1_EL: print " bottle"
eq I1, 1, _NO_S
print "s"
_NO_S: ret
MAIN: bsr beer
print " of beer on the wall, "
bsr beer
print " of beer."
print "\nTake one and pass around,\n"
dec I1
bsr beer
print " on the wall.\n\n"
if I1, MAIN
print "No more bottles of beer...\n"
print "Go to the store and buy some more...\n"
print "99 bottles of beer.\n"
end' Written by Evgeny Stepanischev
Dim Beer As Byte , Res As String * 10
Declare Sub Printbeer(beer As Byte)
Beer = 2
While Beer > 0
Call Printbeer(beer)
Print Res ; " on the wall, " ; Res ; "."
Print "Take one down, pass it around."
Decr Beer
Call Printbeer(beer)
Print Res ; " on the wall."
Print
Wend
Print "No more bottles of beer..."
Print "Go to the store and buy some more..."
Print "99 bottles of beer."
End
Sub Printbeer(beer As Byte)
Dim Tmp As String * 10
If Beer = 0 Then Res = "No" Else Res = Str(beer)
Tmp = Res + " bottle" : Res = Tmp
If Beer <> 1 Then Res = Tmp + "s"
Tmp = Res : Res = Tmp + " of beer"
End Sub// Written by Evgeny Stepanischev
define beer(n) {
cond {
n>0 do princ(n);
n<1 do princ("No");
};
princ(" bottle");
if (n<>1) {princ("s");};
princ(" of beer");
};
define main() {
declare b=99;
lcond {
b=0 do {
print("No more bottles of beer...");
print("Go to the store and buy some more...");
print("99 bottles of beer.");
};
do {
beer(b); princ(" on the wall, ");
beer(b); print(".");
print("Take one down, pass it around.");
b:=b-1;
beer(b); print(" on the wall.");
print("");
};
};
};-- Written by Evgeny Stepanischev
integer beer
beer = 99
procedure PrintBeer (integer b)
if b then
printf (1, "%d", b)
else
puts (1, "No")
end if
puts (1, " bottle")
if b!=1 then puts (1, 's') end if
end procedure
while beer>0 do
PrintBeer(beer) puts (1, " of beer on the wall, ")
PrintBeer(beer) puts (1, " of beer.\n")
puts (1, "Take one down, pass it around.\n")
beer = beer - 1
PrintBeer(beer) puts (1, " of beer on the wall.\n\n")
end while
puts (1, "No more bottles of beer...\n")
puts (1, "Go to the store and buy some more...\n")
puts (1, "99 bottles of beer.")% Written by Evgeny Stepanischev
ROBOT "Beer"
AUTHOR "Evgeny Stepanischev"
main()
{
beer=99
while(beer>0)
{
IF(beer>1) SAY "&BEER bottles of beer on the wall, &BEER bottles of beer."
ELSE SAY "&BEER bottle of beer on the wall, &BEER bottle of beer."
SAY "Take one down, pass it around."
beer = beer-1
IF(beer>1) SAY "&BEER bottles of beer on the wall."
ELSE
{
IF(beer) SAY "&BEER bottle of beer on the wall."
ELSE SAY "No bottles of beer on the wall."
}
SAY ""
}
SAY "No more bottles of beer..."
SAY "Go to the store and buy some more..."
SAY "99 bottles of beer."
WHILE(1)
{
}
}// Written by Evgeny Stepanischev
cls
string beer
string w = " on the wall"
def b
for def i=198 to i > 0, i=i-1
do
b = i/2
if b beer = b else beer = "No" endif
beer = beer+" bottle"
ifs b!=1 beer = beer+"s"
if i&1
beer w ".\r\n\r\n"
else
beer w ", " beer "."
"\r\nTake one down and pass it around,\r\n"
endif
done
"No more bottles of beer...\r\n"
"Go to the store and buy some more...\r\n"
"99 bottles of beer."
pause# Beer song. Written by Evgeny Stepanischev
LET b=99
LET s$=""
FOR i=99 TO 1 STEP -1
GOSUB @beer
PRINT s$+" on the wall, "+s$+" of beer."
PRINT "Take one and pass around,"
b = b-1
GOSUB @beer
PRINT s$+" on the wall."
PRINT ""
NEXT i
PRINT "No more bottles of beer..."
PRINT "Go to the store and buy some more..."
PRINT "99 bottles of beer."
END
@beer
LET s$=""
IF b>0 THEN s$ = s$ + str$ (i) ELSE s$ = s$ + "No"
s$ = s$ + " bottle":IF b<>1 THEN s$ = s$+"s"
RETURN// Beer song. Written by Evgeny Stepanischev
class beer {
private void PrintBeer(byte n) {
if (n>0)
system.out.print(lang.ltoa(n)); else
system.out.print("No");
system.out.print(" bottle");
if (n!=1) system.out.print("s");
}
private void For(byte i) {
PrintBeer(i);
system.out.print(" on the wall, ");
PrintBeer(i);
system.out.print(" of beer.");
system.out.println("Take one and pass around,\n");
PrintBeer(i-1);
system.out.print(" on the wall.\n\n");
if (i>1) For(i-1);
}
public void main() {
For(99);
system.out.print("No more bottles of beer...");
system.out.println("Go to the store and buy some more...");
system.out.println("99 bottles of beer.");
}
};; Beer song. Written by Evgeny Stepanischev
Function Beer($n)
If $n
$n
Else
"No"
Endif
" bottle"
If $n<>1 "s" Endif
EndFunction
FOR $beer = 99 TO 1 STEP -1
Beer ($beer) " on the wall, "
Beer ($beer) " of beer."
? "Take one and pass around,"
? Beer ($beer-1)
" on the wall."??
NEXT
"No more bottles of beer..." ?
"Go to the store and buy some more..." ?
"99 bottles of beer."# Beer song. Written by Evgeny Stepanischev
def Beer (n)
if n!=0 then
print n
else
print 'No'
end
print " bottle"
print "s" unless n==1
end
$i = 99
while $i>0 do
Beer ($i)
print " on the wall, "
Beer ($i)
print "\nTake one and pass around,\n"
$i-=1;
Beer ($i)
print " on the wall.\n\n"
end
print <<EOF
No more bottles of beer...
Go to the store and buy some more...
99 bottles of beer.
EOF<HTML><MIVA STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
<MvCOMMENT>
| Beer song. Written by Evgeny Stepanischev
</MvCOMMENT>
<MvFUNCTION NAME="Beer" PARAMETERS="n">
<MvIF EXPR = "{ l.n NE 0 }">&[ l.n ]<MvELSE>No</MvIF>
bottle<MvIF EXPR = "{ l.n NE 1 }">s</MvIF>
of beer</MvFUNCTION>
<MvASSIGN NAME = "g.i" VALUE = 99>
<MvWHILE EXPR = "{ g.i GE 1 }">
<MvEVAL EXPR="{ Beer(g.i) }"> on the wall, <MvEVAL EXPR="{ Beer(g.i) }">.<BR>
Take one and pass around,<BR>
<MvASSIGN NAME = "g.i" VALUE = "{ g.i - 1 }">
<MvEVAL EXPR="{ Beer(g.i) }">
on the wall.<BR><BR>
</MvWHILE>
No more bottles of beer...<BR>
Go to the store and buy some more...<BR>
99 bottles of beer.
</HTML>// Beer song. Written by Evgeny Stepanischev
function PrintBeer (i)
{
return (i?i:'No') add ' bottle' add (i-1?'s':'') add
' of beer';
}
for (i = 99; i>0; i--)
{
trace ((b=PrintBeer (i)) add ' on the wall, ' add b add '.');
trace ('Take one down and pass it around,');
trace (PrintBeer (i-1) add ' on the wall.\n');
};
trace ('No more bottles of beer...\n' add
'Go to the store and buy some more...\n' add
'99 bottles of beer.');// Beer song. Written by Evgeny Stepanischev
program Beer;
procedure PrintBeer( n: byte );
begin
if n<>0 then write (n)
else write ('No');
write (' bottle');
if n<>1 then write ('s');
write (' of beer');
end;
var
I: integer;
begin
for I:=99 downto 1 do
begin
PrintBeer (I);
write (' on the wall, ');
PrintBeer (I);
write ('.');
writeln ('Take one and pass around,');
writeln ();
PrintBeer (I-1);
write (' on the wall.');
writeln ();
writeln ();
end;
write ('No more bottles of beer...');
writeln ('Go to the store and buy some more...');
writeln ('99 bottles of beer.')
end.-- Песня о пиве. Написал Евгений Степанищев
function PrintBeer(n)
s := ''
if n<>0 then
s := s+str(n)
else
s := s+'No'
end
s := s+' bottle'
if n<>1 then
s := s+'s'
end
return s+' of beer'
-- Main program
P := 99
While P Do
Writeln( PrintBeer( P )+' on the wall, '+PrintBeer( P )+'.' )
Writeln( 'Take one and pass it around,' )
P := P-1
Writeln( PrintBeer( P )+' on the wall.'+EOL() )
End
Writeln( 'No more bottles of beer...' )
Writeln( 'Go to the store and buy some more...' )
Writeln( '99 bottles of beer.')
return// Песня о пиве. Написал Степанищев Евгений
фун встр (и)
старш:= и/10
младш:= и mod 10
если старш>0
возврат симв(48+старш)+симв(48+младш)
иначе
возврат симв(48+младш)
всё
кон фун
фун пиво (и)
если и=0
стр:= 'No'
иначе
стр:= встр (и)
всё
стр:= стр+' bottle'
если и<>1
стр:= стр+'s'
всё
возврат стр
кон фун
проц старт()
для и от 99 до 1 шаг -1
печать пиво (и)+' on the wall, '+пиво (и)+'.'
печать 'Take one and pass it around,'
печать пиво (и-1)+' on the wall.'
печать ''
кц
печать 'No more bottles of beer...'
печать 'Go to the store and buy some more...'
печать '99 bottles of beer.'
кон проц// Beer song. Written by Evgeny Stepanischev
#include <oxstd.h>
printbeer (const beer)
{
print (beer?beer:"No", " bottle", beer-1?"s":"");
}
main()
{
decl beer;
for (beer = 99; beer > 0;)
{
printbeer (beer);
print(" on the wall, ");
printbeer (beer);
print (".\nTake one and pass it around,\n");
beer--;
printbeer (beer);
print (" on the wall.\n\n");
}
print ("No more bottles of beer...\n",
"Go to the store and buy some more...\n",
"99 bottles of beer.");
}(* Beer song. Written by Stepanischev E.V.*)
MODULE Beer;
IMPORT javalang, Out;
PROCEDURE PrintBeer( n : INTEGER );
BEGIN
IF n#0 THEN Out.Int (n,1) ELSE Out.String ("No") END;
Out.String (" bottle");
IF n#1 THEN Out.Char ("s"); END;
Out.String (" of beer");
END PrintBeer;
PROCEDURE main*( VAR args : ARRAY OF javalang.PString );
VAR beer: INTEGER;
BEGIN
Out.Open;
FOR beer:=99 TO 1 BY -1 DO
PrintBeer (beer);
Out.String(" on the wall,");
PrintBeer (beer); Out.Char ("."); Out.Ln;
Out.String ("Take one and pass it around,"); Out.Ln;
PrintBeer (beer-1);
Out.String (" on the wall."); Out.Ln; Out.Ln;
END;
Out.String ("No more bottles of beer..."); Out.Ln;
Out.String ("Go to the store and buy some more..."); Out.Ln;
Out.String ("99 bottles of beer.");
END main;
END Beer.// Beer song. Written by Stepanischev E.V. (dbPager)
var "beer=99"
var "LoopLimit=99" :: while 1
var ""
@beer:printbeer
%Space%on the wall,
var ""
@beer:printbeer
.%CrLf%
Take one and pass it around,%CrLf%
set "beer=[%beer%-1]"
var ""
@beer:printbeer
%Space%on the wall.%CrLf%%CrLf%
No more bottles of beer...%CrLf%
Go to the store and buy some more...%CrLf%
99 bottles of beer.
:printbeer
switch %beer%
#0 :: No
#else :: %beer%
%Space%bottle
switch %beer%
#1 ::
#else :: s
%Space%of beer/* 99 beer song. Written by Stepanischev E.V. Small C */
#include <console>
printbeer (b)
{
if (b) printf ("%d",b); else printf ("No")
printf (" bottle")
if (b!=1) printf ("s")
printf (" of beer")
}
main ()
{
for (new i = 99; i > 0;)
{
printbeer (i)
printf (" on the wall, ")
printbeer (i)
printf (".^nTake one and pass it around,^n")
i--
printbeer (i)
printf (" on the wall.^n^n")
}
printf ("No more bottles of beer...^n");
printf ("Go to the store and buy some more...^n");
printf ("99 bottles of beer.");
}function PrintBeer(i)
{
return (i?i:"No")+" bottle"+(i-1?'s':'')+" of beer"
}
WshShell = WScript.CreateObject("WScript.Shell")
with (WshShell)
{
Run("notepad.exe")
WScript.Sleep(100)
AppActivate("Untitled - Notepad")
for (i = 99; i>0;)
{
SendKeys (PrintBeer (i)+" of beer on the wall, ")
SendKeys (PrintBeer (i)+".~")
SendKeys ("Take one and pass it around,~")
i--
SendKeys (PrintBeer (i)+" on the wall.~~")
}
SendKeys ("No more bottles of beer...~")
SendKeys ("Go to the store and buy some more...~")
SendKeys ("99 bottles of beer.")
}?use80486
?include "WRITE.h--"
void PRINTBEER ()
{
$PUSH AX;
IF (AX) WRITEWORD (AX); ELSE WRITESTR ("No");
WRITESTR (" bottle");
$POP AX;
IF (AX<>1) WRITE ('s');
WRITESTR (" of beer");
}
void main()
byte bott;
byte beer = 99;
{
WHILE (beer)
{
PRINTBEER (beer);
WRITESTR (" on the wall, ");
PRINTBEER (beer);
WRITESTR (".\nTake one and pass it around,\n");
beer--;
PRINTBEER (beer);
WRITESTR (" on the wall.\n\n");
};
WRITESTR ("No more bottles of beer...\n");
WRITESTR ("Go to the store and buy some more...\n");
WRITESTR ("99 bottles of beer.");
AX = 0x4C;
$INT 0x21;
}; "99 beer" song by Evgeny V. Stepanischev
proc main
string szA = "9"
string szB = "9"
string szS = " bottles"
string szX = ""
string szY = ""
integer nB = 99
set screen keyboard on
delay 2
; Эту строчку ждет мой провайдер
; У вас она может быть другой
transmit "@D^M^M"
while Nb>0 do
if szA!="0" then
transmit szA
endif
transmit szB
szS = " bottles"
if nB==1 then
szS = " bottle"
endif
transmit szS
transmit " of beer on the wall, "
if szA!="0" then
transmit szA
endif
transmit szB
transmit szS
transmit " of beer.^M"
transmit "Take one and pass it around,^M"
szX = szA
if szB=="0" then
if szA=="1" then
szX = "0"
endif
if szA=="2" then
szX = "1"
endif
if szA=="3" then
szX = "2"
endif
if szA=="4" then
szX = "3"
endif
if szA=="5" then
szX = "4"
endif
if szA=="6" then
szX = "5"
endif
if szA=="7" then
szX = "6"
endif
if szA=="8" then
szX = "7"
endif
if szA=="9" then
szX = "8"
endif
szY = "9"
endif
if szB=="1" then
szY = "0"
endif
if szB=="2" then
szY = "1"
endif
if szB=="3" then
szY = "2"
endif
if szB=="4" then
szY = "3"
endif
if szB=="5" then
szY = "4"
endif
if szB=="6" then
szY = "5"
endif
if szB=="7" then
szY = "6"
endif
if szB=="8" then
szY = "7"
endif
if szB=="9" then
szY = "8"
endif
szA = szX
szB = szY
nB = nB - 1
if nB==0 then
transmit "No more bottles of beer on the wall.^M"
endif
if nB!=0 then
if szA!="0" then
transmit szA
endif
transmit szB
szS = " bottles"
if nB==1 then
szS = " bottle"
endif
transmit szS
transmit " of beer on the wall.^M^M"
endif
endwhile
transmit "No more bottles of beer...^M"
transmit "Go to the store and buy some more...^M"
transmit "99 bottles of beer.^M"
delay 99
endproc<!-- <%@ LANGUAGE = JScript %>
<% //>
//</%> --> <SCRIPT LANGUAGE=JavaScript>
for (k = ' of beer on the wall',o='', i = 99; i>0; i--)
{
a = i+' bottle'+(i-1?'s':'')
o+= a+k+', '+a+' of beer...<BR>'+
'Take one down, pass it around.<BR>'+
(i-1?i-1:'No ')+' bottle'+(i-2?'s':'')+k+'.'+
'<BR><BR>'
}
o+= 'No more bottles of beer...<br>'+
'Go to the store and buy some more...<br>'+
'99 bottles of beer.'
if (typeof(document)!='undefined') document.write (o); else
if (typeof(Response)!='undefined') Response.Write (o)
// </SCRIPT> <!-- // < %> -->^var[i;99]
^while[i>0;
^var[i] bottle^if[i!=1;s;] of beer on the wall, ^var[i]
bottle^if[i==1;s;] of beer.<BR>
Take one and pass it around,<BR>
^var[i;-;1]
^if[i;^var[i];No] bottle^if[i!=1;s;] of beer on the wall.<BR>
<BR>
]
No more bottles of beer...<BR>
Go to the store and buy some more...<BR>
99 bottles of beer. BEGIN
"99"
mov a "bottle(s) of beer on the wall."
END
WORK "*"
eq "No"
if
echo "No more bottles of beer..."
echo "Go to the store and buy some more..."
echo "99 bottles of beer."
break ""
endif
else
delete
mov Y a
.
echo
echo "Take one and pass it around,"
mov Y "1"
-
eq "0"
if
mov Y "No"
endif
delete
mov Y a
.
echo
endelse
prev
END<!--#if expr="$b=No" -->
<BODY BGCOLOR=BLACK TEXT=WHITE>
No more bottles of beer...<BR>
Go to the store and buy some more...<BR>
99 bottles of beer.</BODY>
<!--#break -->
<!--#endif -->
<!--#set var="" value="" -->
<!--#set var="N" value="No" -->
<!--#set var="9" value="8" -->
<!--#set var="8" value="7" -->
<!--#set var="7" value="6" -->
<!--#set var="6" value="5" -->
<!--#set var="5" value="4" -->
<!--#set var="4" value="3" -->
<!--#set var="3" value="2" -->
<!--#set var="2" value="1" -->
<!--#set var="1" value="0" -->
<!--#set var="0" value="9" -->
<!--#if expr="!$a" -->
<!--#set var="a" value="9" -->
<!--#set var="b" value="9" -->
<!--#set var="s" value="bottles" -->
<!--#set var="m" value="$s" -->
<!--#endif -->
<!--#set var="t" value="$a" -->
<!--#if expr="$b=0" -->
<!--#set var="c" value="$a" -->
<!--#elif expr="$a>0" -->
<!--#set var="c" value="t" -->
<!--#endif -->
<!--#set var="d" value="$b" -->
<!--#if expr="$a=||$a=0||$c=1" -->
<!--#set var="c" value="" -->
<!--#endif -->
<!--#if expr="$d=1&&$c=" -->
<!--#set var="d" value="N" -->
<!--#elif expr="$d=2&&$c=" -->
<!--#set var="m" value="bottle" -->
<!--#endif -->
<HEAD>
<META HTTP-EQUIV="Refresh" Content="1;URL=index.shtm?a=<!--#echo var="$c" -->
&b=<!--#echo var="$d" -->&m=<!--#echo var="m" -->
&s=<!--#echo var="m" -->">
</HEAD>
<BODY BGCOLOR=BLACK TEXT=WHITE>
<!--#echo var="a" --><!--#echo var="b" -->
<!--#echo var="s" --> of beer on the wall,<BR>
Take one and pass it around,<BR>
<!--#echo var="$c" --><!--#echo var="$d" -->
<!--#echo var="m" --> of beer on the wall.
</BODY>set beer=99
set s=s
while ($beer gt 0)
echo $beer bottle$s of beer on the wall, $beer bottle$s of beer.
echo Take one and pass it around,
set beer--
if ($beer==1) set s=
if ($beer) echo $beer bottle$s of beer on the wall.\n
end
cat <<T
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.
T<?
for ($s='s' and $beer=99;$beer;)
{
echo "$beer bottle$s of beer on the wall, $beer bottle$s of beer.<br>",
"\nTake one and pass it around,<br>";
$beer--;
$s = $beer==1?'':'s';
if ($beer) echo "$beer bottle$s of beer on the wall.<br><br>";
};
?>
No more bottles of beer on the wall.<br><br>
No more bottles of beer...<br>Go to the story and buy some more...<br>
99 bottles of beer.@ECHO OFF
REM Evgeny.Stepanischev
FOR /L %%B IN (99,-1,1) DO CALL :PROG %%B
ECHO No more bottles of beer...
ECHO Go to the store and buy some more...
ECHO 99 bottles of beer.
GOTO :EOF
:PROG
ECHO %1 bottle(s) of beer on the wall, %1 bottle(s) of beer.
ECHO Take one and pass it around,
SET /A S=%1-1
IF %S% EQU 0 SET S=No
ECHO %S% bottle(s) of beer on the wall.
ECHO.<!-- Written by Evgeny.Stepanischev -->
<!--#if expr="$D=A || $D=B" -->
<!--#if expr="$K=/${D}8/" -->
<!--#set var="D" value="8" -->
<!--#set var="M" value="7" -->
<!--#elif expr="$K=/${D}7/" -->
<!--#set var="D" value="7" -->
<!--#set var="M" value="6" -->
<!--#elif expr="$K=/${D}6/" -->
<!--#set var="D" value="6" -->
<!--#set var="M" value="5" -->
<!--#elif expr="$K=/${D}5/" -->
<!--#set var="D" value="5" -->
<!--#set var="M" value="4" -->
<!--#elif expr="$K=/${D}4/" -->
<!--#set var="D" value="4" -->
<!--#set var="M" value="3" -->
<!--#elif expr="$K=/${D}3/" -->
<!--#set var="D" value="3" -->
<!--#set var="M" value="2" -->
<!--#elif expr="$K=/${D}2/" -->
<!--#set var="D" value="2" -->
<!--#set var="M" value="1" -->
<!--#elif expr="$K=/${D}1/" -->
<!--#set var="D" value="1" -->
<!--#set var="M" value="0" -->
<!--#elif expr="$K=/${D}0/" -->
<!--#set var="D" value="0" -->
<!--#else -->
<!--#set var="D" value="9" -->
<!--#set var="M" value="8" -->
<!--#endif -->
<!--#else -->
<!--#set var="D" value="A" -->
<!--#set var="K" value="$QUERY_STRING" -->
<!--#include virtual="$DOCUMENT_NAME" -->
<!--#set var="A" value="$D" -->
<!--#set var="Am" value="$M" -->
<!--#set var="D" value="B" -->
<!--#include virtual="$DOCUMENT_NAME" -->
<!--#set var="B" value="$D" -->
<!--#set var="Bm" value="$M" -->
<!--#if expr="$A=0 && $B=0" -->
<BODY BGCOLOR="BLACK" TEXT="WHITE"><B>
No more bottles of beer...<br>
Go to the store and buy some more...<br>
99 bottles of beer.
</BODY>
<!--#else -->
<HEAD>
<!--#if expr="$B=0" -->
<!--#set var="A1" value="$Am" -->
<!--#set var="B1" value="9" -->
<!--#else -->
<!--#set var="A1" value="$A" -->
<!--#set var="B1" value="$Bm" -->
<!--#endif -->
<META HTTP-EQUIV="Refresh" Content="1;@
URL=http://<!--#echo var="HTTP_HOST" --><!--#echo var="DOCUMENT_URI" -->?A@
<!--#echo var="A1" -->B<!--#echo var="B1" -->">
</HEAD>
<BODY BGCOLOR=BLACK TEXT=WHITE><B>
<!--#if expr="$A>0" --><!--#echo var="A" --><!--#endif -->@
<!--#echo var="B" -->
bottle<!--#if expr="$A$B>1" -->s<!--#endif -->
of beer on the wall, <!--#if expr="$A>0" -->@
<!--#echo var="A" --><!--#endif --><!--#echo var="B" -->
bottle<!--#if expr="$A$B>01" -->s<!--#endif --> of beer.<br>
Take one and pass it around,<br>
<!--#if expr="$A1$B1>00" -->
<!--#if expr="$A1>0" --><!--#echo var="A1" -->@
<!--#endif --><!--#echo var="B1" -->
bottle<!--#if expr="$A1$B1>01" -->s@
<!--#endif --> of beer on the wall.
<!--#else -->
No more bottles of beer on the wall.
<!--#endif -->
<!--#set var="C" value="" -->
<BR>
</B></BODY>
<!--#endif -->
<!--#endif -->/* Program by Evgeny.Stepanischev*/
SET @beer:=100;
SET @w:=' on the wall';
SELECT IF(@beer<2,'\nNo more bottles of beer...\n\
Go to the store and buy some more...\n99 bottles of \
beer.',CONCAT(CONCAT('\n',@str:=CONCAT(@beer:=@beer-1,\
@bot:=CONCAT(' bottle',IF (@beer>1,'s',''),' of beer')),\
@w,', ',@str,'.\nTake one and pass it around,\n'), IF \
(@beer-1=0,'No more ',@beer-1),@bot,@w,'.')) as beer
FROM YourTable LIMIT 100;-- Written by Evgeny.Stepanischev
--
CREATE SEQUENCE temp_beer_seq INCREMENT -1 MINVALUE 0 MAXVALUE 99 START 99;
CREATE FUNCTION temp_b() RETURNS text
AS 'SELECT \' bottle\'||CASE WHEN last_value=1 THEN
\'\'::text ELSE \'s\'::text END||\' of beer\' FROM temp_beer_seq'
LANGUAGE 'sql';
CREATE FUNCTION temp_b_out() RETURNS text
AS 'SELECT s.last_value||temp_b()||\' on the wall, \'||
s.last_value||temp_b()||\'.\\n Take one and pass it around,\\n \'||
CASE WHEN NEXTVAL(\'temp_beer_seq\')=0 THEN \'No\'
ELSE text(s.last_value-0) END||
temp_b()||\' on the wall.\\n\'
FROM temp_beer_seq s'
LANGUAGE 'sql';
SELECT CASE WHEN temp_beer_seq.last_value=0
THEN 'No more bottles of beer...\n Go to the store and buy some more...\n
99 bottles of beer.' ELSE temp_b_out() END
FROM YourTable LIMIT 100,1;
--
DROP SEQUENCE temp_beer_seq;
DROP FUNCTION temp_b();
DROP FUNCTION temp_b_out();
-- END