Правильно ли программа решает уравнение?

@DelphLamer · Регистрация: 13.09.2013

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

Дано задание: Составить программу в среде Delphi, которая выводит результат решения уравнения (само уравнение во вложении к посту).
Переменные значения X, и B задаёт пользователь.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const c=1/3;
var x,b:integer;
    d,e,y:extended;
begin
  x:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
      d:=sqr(x);
        e:=Power(d,c);
          y:=e/b*2;
            Label3.Caption:=FloatToStr(y);

Сразу скажу что программа работает, но в то же время я полный ламер в математике и не уверен правильно ли программа считает результат. Может её можно как то проще реализовать?

@Puporev · 13.09.2013, 16:32

Delphi

1	y:=e/(b*2);

Добавлено через 1 минуту

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

решения уравнения

Это вычисление значения функции, а не определение корня.

@FIL · 13.09.2013, 16:35

Можно и проще:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Caption := FloatToStr(Power(StrToInt(Edit1.Text), 2/3) / (StrToInt(Edit2.Text) * 2));
end;

@DelphLamer · 13.09.2013, 18:21 **[ТС]**

Спасибо, но всё таки подскажите, само выражение правильно решается? Не покидает ощущение, что где то что то не так...

@Puporev · 13.09.2013, 18:22

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

Не покидает ощущение, что где то что то не так...

Так посчитай на калькуляторе или в Экселе и сравни...

@FIL · 13.09.2013, 18:38

DelphLamer, тебе указали на ошибку:

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

Delphi

1	y:=e/(b*2);

@DelphLamer · 13.09.2013, 19:03 **[ТС]**

Скобки то я сразу поправил. Просто это моя первая программа такого рода, вот и парят мозг сомнения. Даже после всевозможных проверок.

@DelphLamer 0 / 0 / 0 Регистрация: 13.09.2013 Сообщений: 13
	13.09.2013, 18:21 [ТС]	4
	Спасибо, но всё таки подскажите, само выражение правильно решается? Не покидает ощущение, что где то что то не так... 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.09.2013, 18:22	5
	Сообщение от DelphLamer Не покидает ощущение, что где то что то не так... Так посчитай на калькуляторе или в Экселе и сравни... 0

@DelphLamer 0 / 0 / 0 Регистрация: 13.09.2013 Сообщений: 13
	13.09.2013, 19:03 [ТС]	7
	Скобки то я сразу поправил. Просто это моя первая программа такого рода, вот и парят мозг сомнения. Даже после всевозможных проверок. 0