ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Yaroslav Pernerovsky                 2:4623/35.123  29 Jul 2002  09:08:11
 To : Illarion Kovalchuk
 Subject : римские цифры
 -------------------------------------------------------------------------------- 
 

 і[_Illarion Kovalchuk_ -> _All_]-[римские цифры]
 
  IK> Поделитесь алгоритмом записи числа в римских цифрах.
 #!/usr/bin/perl
 
 @nums=(1,4,5,9,10,40,50,90,100,400,500,900,1000,
        'I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
 
 $cnt=1999;$rn="-> ";
 
 $n=12;
 while($cnt>0){
     while($nums[$n]>$cnt){$n--;}
     while($nums[$n]<=$cnt){
  $rn.=$nums[$n+13];
  $cnt-=$nums[$n];
     };
 }
 print "\n",$rn,"\n";
                            Bcеx благ желает Yaroslav
 
   np: silence (Winamp is not active ;-)
 
 --- [_Empty :)_] --- [_Deeper_Dungeon_TEAM_] --- [_My Guitar_] ---
  * Origin: Want problem ?  Get Norton ! (2:4623/35.123)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    римские цифры   Illarion Kovalchuk   05 Mar 2002 20:44:40   Re: римские цифры   Konstantin Osmehin   06 Mar 2002 17:49:31   Re: pимские цифpы   Alexei Philippov   07 Mar 2002 23:58:38   римские цифры   Yaroslav Pernerovsky   29 Jul 2002 09:08:11