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

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

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

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

@Ensase · 11.01.2009, 09:20

pow(x,1/3);

@Puporev · 11.01.2009, 10:23

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
1
2
3
4
function Degree(x,y:real):real;
begin
         Degree:=exp(y*ln(x));
end;

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

@Puporev · 21.12.2009, 09:22

Pascal
1
2
3
4
5
6
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
1
2
3
4
5
6
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
1
2
3
4
5
6
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
1
2
3
4
5
6
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;

в силе

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@ZAZEN 0 / 0 / 0 Регистрация: 11.01.2009 Сообщений: 6

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

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

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

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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знака после запятой 0

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

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

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

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