帕斯卡函数的一部分

Question

我正在尝试将pascal程序重写为PHP，但不明白这部分pascal函数的作用：

 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];

请帮助将其重写为PHP。

谢谢。

Answer 1

该代码的非常字面翻译应该是这样的：

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];

当然，u 和 v 是数组。很抱歉没有提供更多信息，但我和 Pascal 上次见面已经有 10 年了，但我们已经有很长一段时间的深厚浪漫了，因为我爱上了辣妹（C# 和 PHP）:)

Answer 2

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];

Answer 3

对 David 代码的 2 个小修正：

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

应该是，

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

并且

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

i 永远不会达到 3 的值

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

可能 Writeln 可以翻译为

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

当您进行数组翻译时，请考虑到 php 中的数组使用 0 作为第一个索引。

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

Answer 4

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];

Answer 5

我不知道 pascal 但我已经尝试过:)

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];

• 在 php 变量名称中以 $ 开头
• 在 php 中仅使用大括号没有 Begin End :)