Форум: "Прочее";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
Вниз
php to delphi Найти похожие ветки
← →
xXx (2008-08-19 17:51) [0]ктонибудь может перевести пару небольших функций с php на delphi? оч надо
напиши на mops@ya.ru или в аську 672769
← →
Dennis I. Komarov © (2008-08-19 17:52) [1]Порнография прям какая...
Закройте ветку...
← →
xXx (2008-08-19 17:54) [2]почему?
← →
Vlad Oshin © (2008-08-19 17:56) [3]потому что для разных целей языки, если конечно функции не тривиальные
← →
McSimm © (2008-08-19 17:57) [4]пару небольших функций можно было бы и здесь привести.
← →
xXx (2008-08-19 17:57) [5]ну да, там ничего особенного, обычные математические вычисления, просто синтаксиса php вообще не знаю
← →
McSimm © (2008-08-19 17:58) [6]Может потянуть на подключение недостающих в Делфи библиотек.
← →
xXx (2008-08-19 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 © (2008-08-19 18:03) [8]А не проще писать исходя из требований к функции?
← →
Dmitry S © (2008-08-19 18:14) [9]$100 :)
icq 169406011
← →
xXx (2008-08-20 09:35) [10][9] - действительно смешно, мне уже помогли, бесплатно
← →
Dmitry S © (2008-08-20 10:07) [11]
> xXx (20.08.08 09:35) [10]
Смешно - смейся.
Бабло - лучший мотиватор! :)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c