функция f(x) в делфи

@erikdark · Регистрация: 26.01.2013

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

помогите пожалуйста, решить систему в делфи.

@Samhain · 28.11.2013, 12:59

erikdark,

Delphi

var x,f:real;
begin
  write('x = ');readln(x);
  if x<=13 then f:=-x*x*x+9
  else f:=-3/(x+1);
  writeln('f(',x:0:2,') = ',f:0:4);
  readln
end.

@Sigin · 28.11.2013, 20:30

erikdark, привел пример консольного приложения Samhain, а я вот VCL:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,y:double;
begin
x:=StrToFloat(Edit1.Text);
if x<=13 then y:=-Exp(3*Ln(Abs(x)))+9
else y:=-3/(x+1);
edit2.Text:=FloatToStr(y);
end;

@volvo · 29.11.2013, 11:53

Я бы все-таки поменял ветки местами:

Delphi

1 2	if x>13 then y:=-3/(x+1) else y:=-x*sqr(x), +9;

Ну не надо рисковать со сравнением вещественных чисел через =, <= или >=... Желательно - только строго "больше"/"меньше"...

nestquik2, к тому же твой метод возведения в куб даст сбой. Представь, что X = (-2)... Тогда значение -X³+9 должно быть равно -(-2)³ + 9 = 8 + 9 = 17, а у тебя сколько получится? -(2³)+9 = 1...

@Sug4r · 13.10.2018, 12:14

Спасибо всем, разобрался)

@erikdark 0 / 0 / 0 Регистрация: 26.01.2013 Сообщений: 38
		1
	функция f(x) в делфи 28.11.2013, 06:55. Показов 1208. Ответов 4 Метки нет (Все метки) помогите пожалуйста, решить систему в делфи. Изображения 0

@Sug4r 0 / 0 / 0 Регистрация: 28.09.2018 Сообщений: 9
	13.10.2018, 12:14	5
	Спасибо всем, разобрался) 0