99 Bottles of Beer/Pascal: Difference between revisions
m
Fixed syntax highlighting.
m (→{{header|Pascal}}: oops, forgot a writeln at the end of the verse) |
m (Fixed syntax highlighting.) |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 1:
<!--
===Pascal===
-->
{{collection|99 Bottles of Beer}}
Line 6:
__toc__
<span style='font-family: "Linux Libertine",Georgia,Times,serif;font-size:150%;'>[[Component Pascal]]</span><hr>
BlackBox Component Builder
<
MODULE BottlesOfBeer;
IMPORT StdLog;
Line 35 ⟶ 32:
END Sing;
END BottlesOfBeer.
</syntaxhighlight>
Execute: ^Q BottlesOfBeer.Sing<br/>
Output:
Line 64 ⟶ 61:
<span style='font-family: "Linux Libertine",Georgia,Times,serif;font-size:150%;'>[[Delphi]]</span><hr>
:''See [[#Pascal|Pascal]]''
:''Or
<
{$APPTYPE CONSOLE}
Line 95 ⟶ 92:
End ;
end.</
<span style='font-family: "Linux Libertine",Georgia,Times,serif;font-size:150%;'>[[Pascal]]</span><hr>
<
var
i:
begin
for i := 99 downto 1 do
if i
writeln(i, '
writeln('
writeln(
writeln(
writeln(i - 1, ' bottles of beer on the wall')▼
writeln('One bottle of beer on the wall');
writeln('One bottle of beer');
▲ end;
writeln('Take one down, pass it around');
end
end.</syntaxhighlight>
| |||