aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Loops-N-plus-one-half/Pascal/loops-n-plus-one-half.pascal
View file

@ -1,14 +1,20 @@
program numlist(output);
const MAXNUM: integer = 10;
var
i: integer;
begin
for i := 1 to 10 do
{ loop 1: w/ if branching }
for i := 1 to MAXNUM do
begin
write(i);
if i <> 10 then
if i <> MAXNUM then
write(', ')
end;
writeln;
{ loop 2: w/o if branching }
for i := 1 to MAXNUM-1 do
write(i, ', ');
writeln(MAXNUM);
end.