Ошибка при вычислении корней квадратного уравнения

@Витек)) · Регистрация: 13.09.2012

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

Delphi

var
a,b,c,x1,x2,d,x:real;
begin
writeln('vvedite a,b,c');
readln(A,B,C);
D:=4-4*A*C;
X1:=((-B)+sqrt(D))/2*a;
X2:=((-B)-sqrt(d))/2*a;
writeln('koren x1 = ' ,x1 , 'koren x2 = ' ,x2);
writeln('');
writeln('vypolnila Rogozenko Olga');
readln(x);
end.

не пойму что с ним, запускается, все ввожу, он мне пишет Exception ElnvalidOp in module Project2.exe at 00008723.
invalid floating point operation.

@volvo · 09.01.2013, 12:54

Корень из отрицательного числа например, кто ж знает, что ты там вводишь. Телепаты этот форум больше не посещают.

P.S. Еще раз создашь тему с заголовком "!)" - больше вообще не сможешь ничего создавать. Это понятно?

@mss · 09.01.2013, 12:56

Сообщение от Витек))

D:=4-4*A*C;

Что это за хрень ?
Где вообще анализ результата расчета дискриминанта на равенство нулю и отрицательность ?

@OverDozero · 09.01.2013, 13:53

Напиши проверку

Delphi

1 2	If D=0 then... If D<0 then...

Delphi

1 2	X1:=((-B)+sqrt(D))/2a; X2:=((-B)-sqrt(d))/2a;

Это что?Ты просто перед B ставишь минус.Программа сама преобразует на противоположный знак?
пиши так

Delphi

B*(-1)

@maks7135 · 09.01.2013, 15:08

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

Delphi

1	writeln('koren x1 = ' ,x1 , 'koren x2 = ' ,x2);

это

Delphi

1	writeln('koren x1 = ' ,x1:5:3 , 'koren x2 = ' ,x2:5:3);

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	09.01.2013, 12:54	2
	Корень из отрицательного числа например, кто ж знает, что ты там вводишь. Телепаты этот форум больше не посещают. P.S. Еще раз создашь тему с заголовком "!)" - больше вообще не сможешь ничего создавать. Это понятно? 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	09.01.2013, 12:56	3
	Сообщение от Витек)) D:=4-4AC; Что это за хрень ? Где вообще анализ результата расчета дискриминанта на равенство нулю и отрицательность ? 0

	09.01.2013, 15:08