All pastes #756936 Raw Edit

Untitled

public text v1 · immutable
#756936 ·published 2007-10-31 20:54 UTC
rendered paste body
<?
 function tukor($sz)
  {
   $sz = "".$sz;
   $ujsz="";
   for($i=strlen($sz)-1;$i>=0;$i--)
    {
     $ujsz = $ujsz.$sz[$i];
    }
   if($sz==$ujsz) return 1; else return 0;
  }

 function prim($sz)
  {
   $oszto=2;
   $van=0;
   while(($oszto<$sz)&&($van==0))
    {
     if($sz % $oszto == 0) $van=1;
     $oszto++;
    }
   if(($van==0)&&($sz>1)) return 1; else return 0;
  }

 //Megirtam de nem hasznaltam
 function fibo($sz)
  {
   $f1=1; 
   $f2=1; 
   while($f2<$sz)
    {
     $f=$f1+$f2; 
     $f1=$f2;
     $f2=$f;
    }
   if($sz==$f2) return 1; else return 0;
  }

 
 //Generate the first 50 and write into a table
 echo '<table border="1">';
 echo "<tr>";
 echo "<td>Index</td>";
 echo "<td>Primszám</td>";
 echo "<td>Fibonacci szám</td>";
 echo "<td>Tükörszám</td>";
 
 //Core
 $n=50; //Hany szam?

 $i=0; //kiirt szamok;
 $j=0; //a szam 
 $tukorVektor=array();
 while($i<=$n)
  {
   if(tukor($j))
    {
     $i++;
     $tukorVektor[$i]=$j;
     $j++;
    } else $j++;
  }

 $i=0; //kiirt szamok;
 $j=0; //a szam 
 $primVektor==array(); 

 while($i<=$n)
  {
   if(prim($j))
    {
     $i++;
     $primVektor[$i]=$j;
     $j++;
    } else $j++;
  }
 
 $fiboVektor=array();
 $i=1;
 $fiboVektor[0]=1;
 $fiboVektor[1]=1; 
 while($i<$n)
 {
  $fiboVektor[$i+1]=$fiboVektor[$i]+$fiboVektor[$i-1];
  $i++;
 }


 for($i=1;$i<=$n;$i++)
  {
   echo "<tr><td>$i</td><td>$primVektor[$i]</td> <td>$fiboVektor[$i]</td><td>$tukorVektor[$i]</td></tr>";
  }
 
 echo "</table>";
?>