Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.015 c