99 bottles of beer: Difference between revisions
fix syntax highlighting
(original code no longer compiled - replaced with most current example found in 8th's samples folder) |
(fix syntax highlighting) |
||
(4 intermediate revisions by one other user not shown) | |||
Line 66:
=={{header|8th}}==
<syntaxhighlight lang="
\ 99 bottles of beer on the wall:
[
Line 9,534:
=={{header|Oxygene}}==
<syntaxhighlight lang="
namespace ConsoleApplication2;
Line 9,568:
end;
end.
This version uses top-level declarations, string interpolation along with more idiomatic Object Pascal syntax vs C#.Net syntax:
<syntaxhighlight lang="pascal">
namespace _99_beers;
method bottles(number: Integer): String;
begin
if (number = 1) then
Result := "bottle"
else
Result := "bottles";
end;
begin
for n: Integer := 99 downto 1 do
begin
writeLn($"{n} {bottles(n)} of beer on the wall,");
writeLn($"{n} {bottles(n)} of beer,");
writeLn($"Take one down, and pass it around,");
writeLn($"{n-1} {bottles(n-1)} of beer on the wall.");
writeLn();
end;
readLn;
end.
</syntaxhighlight>
Line 9,630 ⟶ 9,657:
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="
begin
for var i:=99 to 1 step -1 do
Line 9,640 ⟶ 9,667:
Println
end;
end.
▲end.</syntaxhighlight>
</syntaxhighlight>
This version demonstrates uses of 'writeLn' vs 'Println' as well as string interpolation:
<syntaxhighlight lang="pascal">
begin
for var i:=99 to 1 step -1 do
begin
writeLn($'{i} bottles of beer on the wall');
writeLn($'{i} bottles of beer');
writeLn($'Take one down, pass it around');
writeLn($'{i-1}bottles of beer on the wall');
writeLn
end;
end.
</syntaxhighlight>
=={{header|Perl}}==
Line 13,771 ⟶ 13,815:
Fails the task definition for more song, includes the no beer verse.
<syntaxhighlight lang="
module main
|