VPF::римские числа в арабские - Форум программистов

ressac

Дата 30.1.2008, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 345
Регистрация: 25.11.2006

Репутация: нет
Всего: 1

сабж господа smile

я вот тут кое-что своротил..

Код



<?

$r=0;

$aArb=str_split(strtolower($_POST['X']));
$aRom=array("i"=>1,"v"=>5,"x"=>10,"l"=>50,"c"=>100,"d"=>500,"m"=>1000);

for($x=0;$x<count($aArb);$x++)
{
    if($aRom[$aArb[$x]]<$aRom[$aArb[$x+1]]){
        $r+=$aRom[$aArb[$x+1]]-$aRom[$aArb[$x]];
        $x++;
    }
    else{
        $r+=$aRom[$aArb[$x]];
    }
}

echo $r;

?>

работает вроде правильно.
вопрос в том можно-ли сделать лучше?

GZep

Дата 30.1.2008, 12:37 (ссылка)

(нет голосов)

Загрузка ...

участник Винграда

Профиль
Группа: Завсегдатай
Сообщений: 1528
Регистрация: 7.7.2006
Где: Москва

Репутация: нет
Всего: 32

на php classes есть класс http://www.phpclasses.org/browse/package/2442.html посмотри, может там идеи есть какие-нибудь...

и вот еще PEAR класс ждя римских чисел http://marc.info/?l=php-cvs&m=97793939127254&w=2

--------------------

Dreck

Дата 11.2.2008, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

Здравствуйте! Не скажите как осуществить перевод чисел из римских в арабские только на Java Script и увязать ее с ASP ? Например человек заходит на страничку посылает запрос на сервер в римских а ему приходит ответ в арабских.
Заранее спасибо за ответ !

skyboy

Дата 11.2.2008, 23:36 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 8
Всего: 260

Цитата(Dreck @ 11.2.2008, 19:53

)

Например человек заходит на страничку посылает запрос на сервер в римских а ему приходит ответ в арабских.

как-то не увязывается с

Цитата(Dreck @ 11.2.2008, 19:53

)

осуществить перевод чисел из римских в арабские только на Java Script

или на стороне сервера должен выполняться javascript?

Dreck

Дата 12.2.2008, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

Ну да на стороне сервера. Например заходиш на dreck.asp вводишь число 5 и тебе приходит ответ V.

bars80080

Дата 12.2.2008, 18:39 (ссылка)

(нет голосов)

Загрузка ...

прапор творюет

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 12022
Регистрация: 5.12.2007
Где: Königsberg

Репутация: 2
Всего: 315

офигеть, работающий javascript на сервере под asp на форуме php

!

Fally

Дата 15.2.2008, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 265
Регистрация: 17.8.2006
Где: Dahla

Репутация: нет
Всего: 4

Dreck, ты хотя бы погугли на тему "серверного JavaScript", а потом пойми что дурь спорол.

--------------------

Прежде чем задать вопрос на форуме воспользуйтесь поиском.
user posted image

Sunvas

Дата 15.2.2008, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 1
Всего: 89

Вот есть неплохой алгоритм, но на Delphi. Думаю перевести труда не будет.

Код


function RomanToDec(const Value: string): integer; 
var 
  i, lastValue, curValue: integer; 
begin 
  Result := 0; 
  lastValue := 0; 
  for i := Length(Value) downto 1 do 
  begin 
    case UpCase(Value[i]) of 
      'C': 
        curValue := 100; 
      'D': 
        curValue := 500; 
      'I': 
        curValue := 1; 
      'L': 
        curValue := 50; 
      'M': 
        curValue := 1000; 
      'V': 
        curValue := 5; 
      'X': 
        curValue := 10; 
    else 
      raise Exception.CreateFmt('Invalid character: %s', [Value[i]]); 
    end; 
    if curValue < lastValue then 
      Dec(Result, curValue) 
    else 
      Inc(Result, curValue); 
    lastValue := curValue; 
  end; 
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| PHP: Тексты \| Следующая тема »