Re: [fpc-pascal] converting c code

[Marco van de Voort]

In our previous episode, Darius Blaszyk said:
> I'm struggling to convert a simple for loop from C to pascal. The code is 
> shown below (as is a trace of the loop parameter values). I'm a bit puzzled 
> how this should look elegantly in pascal. Anyone has an idea?
> 
> Regards, Darius
> 
> 
> unsigned nc = 4;      
> 
> for (unsigned i = 0, j = nc-1; i < nc; j=i++)
> {
>       cout << "i:" << i << endl;
>       cout << "j:" << j << endl;
> }

Keep in mind that a C loop like

for (x;y;z)
 {a}

 is equal to Pascal's

x
while y do
  begin
    a
    z 
  end;

there _is_ no general case with Pascal for.

so 

i:=0;
j:=nc-1
while i<nc do
   begin
     writeln('i:',i);
     writeln('j:',j);
     j:=i;
     inc(i); // post increment, so j gets old version
   end;
 

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal