| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Процедура [D7, WinXP]
Виталий © (2004-07-15 18:59:00)Уважаемые! Есть проблема: как написать процедуру извлечения кубического корня из какого-либи выражения? Конкрето, если есть - нужно для формулы Садовского. Заранее благодарен.
antonn (2004-07-16 05:46:00) [1]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;
Или я не так понял?
TUser (2004-07-16 04:16:00) [2]power
Palladin (2004-07-15 23:25:00) [3]В школе тоже не математики учатся.
Виталий (2004-07-15 20:40:00) [4]Ребята, извините, не маиематик я. А формул преобразования не нашел.
Vit@ly (2004-07-15 19:29:00) [5]= exp((1/3)*ln(x))
Ega23 (2004-07-15 19:14:00) [6]1. Логприфмы с экспонентой ещё никто не отменял.
2. uses Math, function Power + F1
| |
