PHP DM Gate v0.9 » php to delphi

xXx (19.08.08 17:51) [0]

ктонибудь может перевести пару небольших функций с php на delphi? оч надо
напиши на mops@ya.ru или в аську 672769

<Цитата>
Dennis I. Komarov © (19.08.08 17:52) [1]

Порнография прям какая...
Закройте ветку...

<Цитата>
xXx (19.08.08 17:54) [2]

почему?

<Цитата>
Vlad Oshin © (19.08.08 17:56) [3]

потому что для разных целей языки, если конечно функции не тривиальные

<Цитата>
McSimm © (19.08.08 17:57) [4]

пару небольших функций можно было бы и здесь привести.

<Цитата>
xXx (19.08.08 17:57) [5]

ну да, там ничего особенного, обычные математические вычисления, просто синтаксиса php вообще не знаю

<Цитата>
McSimm © (19.08.08 17:58) [6]

Может потянуть на подключение недостающих в Делфи библиотек.

<Цитата>
xXx (19.08.08 18:00) [7]

ну например такая

function get_face_value($pr, $cy, $links_count=10)
{
$pr = (int) $pr;
$cy = (int) $cy;

# calc result
if ($cy<2300) $cy_part = 10*log(0.0019*$cy+1);
if ($cy>=2300) $cy_part = 0.0096*$cy - 8;
$st = 0.5755;
if ($pr<9) $st = 0.5755;
if ($pr==9) $st = 0.8550;
if ($pr>9) $st = 0.8508;
$v = (pow(2.718, $st*$pr) - 1) + $cy_part;

# get coef by links count
$k = (int) $links_count;
if ($k<4) $k = 2; else $k = 1 / log10($k);

# round result
return round05($k*0.9*$v);
}

function factorial($n)
{
$res = 0;
$n = abs(ceil($n));
if ($n>0)
{
$res = 1;
$a = 1;
while ($a<=$n)
{
$res = $res * $a;
$a++;
}
}
return $res;
}

<Цитата>
Dennis I. Komarov © (19.08.08 18:03) [8]

А не проще писать исходя из требований к функции?

<Цитата>
Dmitry S © (19.08.08 18:14) [9]

$100 :)
icq 169406011

<Цитата>
xXx (20.08.08 09:35) [10]

[9] - действительно смешно, мне уже помогли, бесплатно

<Цитата>