корень кубический из "икс"

@ZAZEN · Регистрация: 11.01.2009

Author24 — интернет-сервис помощи студентам

погите пожалуста! нужно решить задачу нахождения кубического корня из "икс". "икс" должен вводить пользователь в Edit1 и после нажатия кнопки, в Label1 должен выводиться ответ.
кол-во знаков после запятой может быть любым
собствна интересует код кнопки)
З.Ы.
помогите плз! скорость нета маленькая = дельфи качать до утра следующей субботы)

@Ensase · 11.01.2009, 09:20

pow(x,1/3);

@Puporev · 11.01.2009, 10:23

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math {обязательно добавить};
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
begin
x:=StrTofloat(Edit1.Text);
Label1.Caption:=FloatToStr(Power(x,1/3));
end;
 
end.

@ZAZEN · 12.01.2009, 00:51 **[ТС]**

спасибо!

Добавлено через 13 часов 43 минуты 26 секунд
а можно чтобы в отдельный лэйбл выводилось округленное значение? плз напишите ктонить! сдавать через 14 часов!

Добавлено через 16 минут 46 секунд
округление до 2-х цифр после запятой

@Puporev · 12.01.2009, 07:29

Label1.Caption:=FloatToStrF(Power(x,1/3),ffFixed,5,2); //2знака после запятой
Если нужно оба значения и неокругленное и округленное, то
Label1.Caption:=FloatToStr(Power(x,1/3));
Label2.Caption:=FloatToStrF(Power(x,1/3),ffFixed,5,2); //2знака после запятой

@AD0 · 21.12.2009, 06:25

может у мну странная делфи но спрашивает что такое pow/power
зы exp(ln(x)*(1/3))
&
зы exp(ln(x)/3)) & etc не паешет, я особенный?

@Puporev · 21.12.2009, 06:55

AD0, Подключите в Uses модуль Math.

@taras atavin · 21.12.2009, 08:32

Pascal

function Degree(x,y:real):real;
begin
         Degree:=exp(y*ln(x));
end;

Работает в любом паскале/обжект паскале. Но только с положительными иксами.

@Puporev · 21.12.2009, 09:22

Pascal

function Degree(x,y:real):real;
begin
if x=0 then  Degree:=0
else if x<0 then Degree:=-exp(y*ln(abs(x)))
else Degree:=exp(y*ln(x));
end;

Для любых х.

@AD0 · 22.12.2009, 04:40

http://www.delphibasics.ru/navMath.php cool я про него и не знал ХД

@taras atavin · 22.12.2009, 05:40

Сообщение от Puporev

Pascal

function Degree(x,y:real):real;
begin
if x=0 then  Degree:=0
else if x<0 then Degree:=-exp(y*ln(abs(x)))
else Degree:=exp(y*ln(x));
end;

Для любых х.

Не совсем правильно. Попробуй посчитать этой функцией целую чётную степень любого отрицательного числа. Ответ будет отрицательным, а должен быть положительным. А корень чётной степени из отрицательного числа вообще должен быть nan, у тебя же и вэтом случае будет отрицательное число.

@AD0 · 22.12.2009, 05:48

taras atavin, свойственное замечание)
спасибо всем отвечавшим, правильный вариант y:=power(x,s), где s это любая степень , будь то 1/3, 9 или (2b+a)
зы простите не удержался

Delphi

function Degree(x,y:real):real;
begin
if x=0 then  Degree:=0
else if x<0 
showmessage('ааааа!!! паника!!!! мы все умрем');
end;

@taras atavin · 22.12.2009, 06:11

Да понял я про эту функцию, но здесь же говорилось о том, что копил её не знает, а мою ему и знать не надо.

@AD0 · 22.12.2009, 21:24

taras atavin, седня подробности выяснились)
отрицательное в корне может быть))
если степнь нечетная (у корня)
у кубичского корня вычисляется поэтому

Delphi

function Degree(x,y:real):real;
begin
if x=0 then  Degree:=0
else if x<0 then Degree:=-exp(y*ln(abs(x)))
else Degree:=exp(y*ln(x));
end;

в силе

@ZAZEN 0 / 0 / 0 Регистрация: 11.01.2009 Сообщений: 6
		1
	корень кубический из "икс" 11.01.2009, 09:12. Показов 26199. Ответов 13 Метки нет (Все метки) погите пожалуста! нужно решить задачу нахождения кубического корня из "икс". "икс" должен вводить пользователь в Edit1 и после нажатия кнопки, в Label1 должен выводиться ответ. кол-во знаков после запятой может быть любым собствна интересует код кнопки) З.Ы. помогите плз! скорость нета маленькая = дельфи качать до утра следующей субботы) 0

@Ensase Флудер 195 / 33 / 11 Регистрация: 23.03.2007 Сообщений: 334
	11.01.2009, 09:20	2
	pow(x,1/3); 0

@ZAZEN 0 / 0 / 0 Регистрация: 11.01.2009 Сообщений: 6
	12.01.2009, 00:51 [ТС]	4
	спасибо! Добавлено через 13 часов 43 минуты 26 секунд а можно чтобы в отдельный лэйбл выводилось округленное значение? плз напишите ктонить! сдавать через 14 часов! Добавлено через 16 минут 46 секунд округление до 2-х цифр после запятой 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.01.2009, 07:29	5
	Label1.Caption:=FloatToStrF(Power(x,1/3),ffFixed,5,2); //2знака после запятой Если нужно оба значения и неокругленное и округленное, то Label1.Caption:=FloatToStr(Power(x,1/3)); Label2.Caption:=FloatToStrF(Power(x,1/3),ffFixed,5,2); //2знака после запятой 0

@AD0 5 / 5 / 2 Регистрация: 01.11.2009 Сообщений: 99
	21.12.2009, 06:25	6
	может у мну странная делфи но спрашивает что такое pow/power зы exp(ln(x)*(1/3)) & зы exp(ln(x)/3)) & etc не паешет, я особенный? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2009, 06:55	7
	AD0, Подключите в Uses модуль Math. 1

@AD0 5 / 5 / 2 Регистрация: 01.11.2009 Сообщений: 99
	22.12.2009, 04:40	10
	http://www.delphibasics.ru/navMath.php cool я про него и не знал ХД 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	22.12.2009, 06:11	13
	Да понял я про эту функцию, но здесь же говорилось о том, что копил её не знает, а мою ему и знать не надо. 0

	22.12.2009, 21:24