Текущий архив: 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.048 c
