[Skrypty]Matematyka Opcje

[ShadowD]

Mam skrypty napisane przeze mnie i chciał bym was prosić o ocenę, a tak naprawdę o wytknięcie błędów. Zmienne są brzydko ponazywane ale to wersja, że tak powiem robocza. Skrypty poruszają bajeczne problemy...

Nie będę pisał dużo niech skrypty mówią same za siebie. ;p

[ANR] Zamiana znaków arabskich na rzymskie:

[PHP] pobierz, plaintext 
<?php
function anr($a)
  {
        
    $znakiArabskie=array(1,4,5,9,10,40,50,90,100,400,500,900,1000);
    $znakiRzymskie=array('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
    
    for($i=12;$i>=0;$i--)
    {    
      while($a>=$znakiArabskie[$i])
      {
        $a=$a-$znakiArabskie[$i];
        $anr=$anr.$znakiRzymskie[$i];
      }
    }
    
    return $anr;    
  }
 
?>
[PHP] pobierz, plaintext 

[RNA] Zamiana znaków rzymskich na arabskie:

[PHP] pobierz, plaintext 
<?php
function rna($a)
  {
 
    $znakiRzymskie=array('I','V','X','L','C','D','M');
    $znakiArabskie=array(1,5,10,50,100,500,1000);
 
    for($i=strlen($a)-1;$i>=0;$i--)
    {
      for($j=6;$j>=0;$j--)
      {
        if($a[$i]===$znakiRzymskie[$j])
          $b[$i]=$znakiArabskie[$j];
      }
    }
 
    for($i=0;$i
    {
      $n=$i+1;
 
      if(isset($b[$n]))
      {
        if($b[$i]>=$b[$n])
          $rna=$rna+$b[$i];
         else
          $rna=$rna-$b[$i];
      }
      else
        $rna=$rna+$b[$i];
    }
  
  return $rna;  
  }
 
?>
[PHP] pobierz, plaintext 

[NWD] Największy wspólny dzielnik:

[PHP] pobierz, plaintext 
<?php
function NWD($a,$b)
  {
    
    if($a>=$b)
    {
      $A=$a;
      $B=$b;      
    }
    else
    {
      $A=$b;
      $B=$a;
    }
        
    do
    { 
      $R=$A%$B;
     
      $A=$B;
      $B=$R;
    }
    while($R!=0);
    
    return $A;
  }
 
?>
[PHP] pobierz, plaintext 

[NWW] najmniejsza wspólna wielokrotność:

[PHP] pobierz, plaintext 
<?php
function zna($a,$b)
  {
    $nwd=nwd($a,$b);
 
    $i=$a*$b;
 
    $nww=$i/$nwd;
    
    return $nww;
  }
 
?>
[PHP] pobierz, plaintext 

Niektóre funkcje korzystają z poprzednich więc powiedzmy, że wszystkie są w jednym pliku.

@Administracja/Opiekunowie - Jeśli istnieje lepsze miejsce na poruszenie owego tematu chciał bym prosić o przeniesienie go w to miejsce. Z góry dziękuję.

Ten post edytował ShadowD 19.10.2008, 12:17:16

[Moli]

@Administracja/Opiekunowie - Jeśli istnieje lepsze miejsce na poruszenie owego tematu chciał bym prosić o przeniesienie go w to miejsce. Z góry dziękuję.

Do takich tematów jest dział Algorytmy, klasy, funkcje.