Part of pascal function

I'm trying to rewrite a pascal program to PHP, and don't understand what this part of pascal function do:

 while (u[3] <> 1) and (u[3]<>0) and (v[3]<>0)do
       begin
       q:=u[3] div开发者_开发知识库 v[3];
       for i:=1 to 3 do
           begin
           t:=u[i]-v[i]*q;
           u[i]:=v[i];
           v[i]:=t;
           {writeln('u',i,'=',u[i],'  v',i,'=',v[i]); }
           end;
       end;
       if u[1]<0 then u[1]:=n+u[1];
       rae:=u[1];

Please help to rewrite it to PHP.

Thanks.

A very literal translation of that code, should be this one:

while ($u[3] != 1 && $u[3] != 0 && $v[3] != 1 )
{
    $q = floor($u[3] / $v[3]);

    for ($i = 1; $i <= 3; $i++)
    {
        $t = $u[$i] - $v[$i] * $q;
        $u[$i] = $v[$i];
        $v[$i] = $t;
        //writeln('u',i,'=',u[i],'  v',i,'=',v[i]);
    }
}

if ($u[1] < 0 )
    $u1] = $n + $u[1];

$rae = $u[1];

Of course, u and v are arrays. Sorry for not giving any more info, but it's been like 10 years since Pascal and I last saw each other, but we had a profound romance for a long time, since I feel inlove for to hotties(C# and PHP) :)

while ($u[3] != 1) && ($u[3] != 0) && ($v[3] != 0) {
  $q = floor($u[3] / $v[3]);
  for ($i = 1; $i <= 3; $i++) {
    $t = $u[$i] - $v[$i] * $q;
    $u[$i] = $v[$i];
    $v[$i] = $t;
    echo "u$i={$u[$i]} v$i={$v[$i]}\n";
  }
}

if ($u[1] < 0) {
  $u[1] = $n + $u[1];
}

$rae = $u[1];

2 small corrections to David's code:

while ($u[3] != 1 && $u[3] != 0 && $v[3] != 1 )

should be

while ($u[3] != 1 && $u[3] != 0 && $v[3] != 0 )

and

for ($i = 1; $i < 3; $i++)

i never reaches the value of 3

for ($i = 1; $i <= 3; $i++)

May be the Writeln can be translated to

echo 'u'.$i.'='.$u[$i].' v'.$i.'='.$v[$i];

When you do the translation of arrays, take into account that arrays in php uses 0 as the first index.

$u= array( 3, 5, 22 )
echo u[1]; // prints 5

while($u[3] != 1 && $u[3] != 0 && $v[3] != 0)
{
 $q = ($u[3] - ($u[3] % $v[3]) ) / $v[3]; //just the same as floor($u[3]/$v[3]), but i want to use % here :)
 for ($i = 1; $i <= 3; $i++)
 {
  $t = $u[$i] - $v[$i]*$q;
  $u[$i] = $v[$i];
  $v[$i] = $t;
  echo '<br />u'.$i.'='.$u[$i].' v'.$i.'='.$v[$i];
 }
}
if ($u[1] < 0) $u[1] = $n + $u[1];
$rae = $u[1];

I dont know pascal But i have tried :)

while ($u[3]!=1 && $u[3]!=0 && $v[3]!=0) [
    $q=floor($u[3]/ $v[3]);
    for ($i=1;$i<3;$i++) {
        $t=$u[$i]-$v[$i]*$q;
        $u[$i]=$v[$i];
        $v[$i]=$t;
        echo "u".$i."=".$u[$i]."v".$i."=".$v[$i];       
    }
    if ($u[1]<0) {
        $u[1]=$n+$u[1]; 
    }
    $rae=$u[1];

• In php variable Name Start With $
• No Begin End used here in php only braces :)