Процедура

← →
Виталий (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]

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

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;

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

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