Проконсультируйте:)

@sergeybro · Регистрация: 11.12.2015

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

Выдаёт ошибку.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,f,b:real;
begin
x:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if x<-5 then f:=sin(x)+sqrt(x+5);
if x=-5 then f:=(x*x*cos(x))+ln(x+b) else
f:=(x-5)*(x-5)*(x-5)*sin(x/2)/cos(x/2);
label3.caption:='Ответ '+floattostr(f);
end;

Связано с типом данных.

@JIeIIIa · 11.12.2015, 01:52

Что за ошибка? В какой строке?

@oryth · 11.12.2015, 02:00

вы наверное не верное ввели число, поэтому он и не может преобразовать строку в число

@northener · 11.12.2015, 02:12

Для справки. В России исторически принято разделять целую и дробную часть вещественного числа запятой, а не точкой.

@unifikator · 11.12.2015, 04:47

Во первых вместо:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,f,b:real;
begin
x:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if x<-5 then f:=sin(x)+sqrt(x+5);
if x=-5 then f:=(x*x*cos(x))+ln(x+b) else
f:=(x-5)*(x-5)*(x-5)*sin(x/2)/cos(x/2);
label3.caption:='Ответ '+floattostr(f);
end;

надо писать:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,f,b:real;
begin
x:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if x<-5 then f:=sin(x)+sqrt(x+5)
else if x=-5 then f:=(x*x*cos(x))+ln(x+b) else
f:=(x-5)*(x-5)*(x-5)*sin(x/2)/cos(x/2);
label3.caption:='Ответ '+floattostr(f);
end;

Во вторых, когда вводите x меньшее (-5), то вычисляется корень квадратный от отрицательного числа (sqrt(x+5)), а это приводит к ошибке.
В третьих, когда x + b меньше 0 (например x = -5 и b = -5) должен вычисляться ln(x+b), но получается комплексное число, а оно не может быть выдано и выдается ошибка.
В четвёртых если cos(x/2) равен 0, то происходит деление на 0, а это тоже ошибка.

@JIeIIIa 958 / 577 / 136 Регистрация: 23.05.2012 Сообщений: 7,364
	11.12.2015, 01:52	2
	Что за ошибка? В какой строке? 0

@oryth 12 / 12 / 7 Регистрация: 09.12.2015 Сообщений: 187
	11.12.2015, 02:00	3
	вы наверное не верное ввели число, поэтому он и не может преобразовать строку в число 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	11.12.2015, 02:12	4
	Для справки. В России исторически принято разделять целую и дробную часть вещественного числа запятой, а не точкой. 0

	11.12.2015, 04:47