Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Процедура   Найти похожие ветки 

← →
Виталий   (2004-07-15 18:59) [0]

Уважаемые! Есть проблема: как написать процедуру извлечения кубического корня из какого-либи выражения? Конкрето, если есть - нужно для формулы Садовского. Заранее благодарен.

---

← →
Ega23 ©   (2004-07-15 19:14) [1]

1. Логприфмы с экспонентой ещё никто не отменял.
2. uses Math,   function Power  + F1

---

← →
Vit@ly ©   (2004-07-15 19:29) [2]

= exp((1/3)*ln(x))

---

← →
Виталий   (2004-07-15 20:40) [3]

Ребята, извините, не маиематик я. А формул преобразования не нашел.

---

← →
Palladin ©   (2004-07-15 23:25) [4]

В школе тоже не математики учатся.

---

← →
TUser ©   (2004-07-16 04:16) [5]

power

---

← →
antonn   (2004-07-16 05:46) [6]

uses math;

function Koreny(r:real):real;
begin
result:= power( r,(1/3) );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:= floattostr(Koreny( 8 ));
end;

Или я не так понял?

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх

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