[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

[ShadowD]

Mówiąc szczerze nie wiedziałem że któraś z tych funkcji istnieje, a nawet powiem więcej - nie szukałem ich. Skrypty piszę na matematykę by dostać za nie ocenę więc nie mogę korzystać z gotowców o ile można tak powiedzieć o funkcji która jest wbudowana w php.

A wędź proszę nie oceniać tych skryptów w tym względzie - mogłem to napisać na początku, moja wina... ;p

EDIT:

Połączyłem dwie funkcję w jedną:

[PHP] pobierz, plaintext 
<?php
 
  function zar($a)
  {
    if(preg_match('/^[0-9]+$/D', $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];
          $zar=$zar.$znakiRzymskie[$i];
        }
      }
    }
    
    if(preg_match('/^[IVXLCDM]+$/D', $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<strlen($a);$i++)
      {
        $n=$i+1;
  
        if(isset($b[$n]))
        {
          if($b[$i]>=$b[$n])
            $zar=$zar+$b[$i];
           else
            $zar=$zar-$b[$i];
        }
        else
          $zar=$zar+$b[$i];
      }
    }
    
    if(!isset($zar))
      $zar='Error';
        
    return $zar;    
  }
echo zar('X');
?>
[PHP] pobierz, plaintext 

1. Faktycznie można zastosować else. <<-- Poprawione
2. Prace nad połączeniem funkcji zostały rozpoczęte. <<-- Poprawione

Ten post edytował ShadowD 19.10.2008, 13:17:31