Составить программу решения квад. урав. паскаль

[galega]

Плиз помогите мне нужно составить программу решения квадратного уравнения в турбо паскале

ax^2 + bx + c = 0

[Vanta11a]

50 рублей и будет решение.

Халявы НЕ будет.

[Poma][a]

program	Yravnenie;

var
	a, b, c, D : Integer;
	x, x1 : Real;

begin
	ReadLn (a, b, c);
	D := b * b - 4 * a * c;
	if D < 0  then
		WriteLn ('Нет корней')
	else
		if D = 0 then
		begin
			x :=  b / (2 * a);
			WriteLn (x : 0 :2)
		end
		else
		begin
			x := (-b + Sqrt (D)) / (2 * a);
			x1 := (-b - Sqrt (D)) / (2 * a);
			WriteLn (x : 0 : 2, ' ', x1 : 0 : 2)
		end
end.

[KobolD]

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

Халявы НЕ будет.

На руси всегда помогали убогим и "блаженым"

[Zer0]

2 Poma][a: Если уж на то пошло, то при отрицательном дискриминанте тоже есть решения в поле комплексных чисел

[Serge_Bliznykov]

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

Если уж на то пошло, то при отрицательном дискриминанте тоже есть решения в поле комплексных чисел

ну, коллега, это не совсем так. Всё зависит от конкретной постановки задачи.
Вы, наверное, не помните, что комплексные числа появляются в обиходе только начиная с 10-11 класса средней школы.
Поэтому, если это задание 6-7 класса - то ни о каких комплексных числах в решении и речь быть не может.
Да и по совести, если лично Вас попросили решить уравнение (соседка, например ) и дискриминант получился отрицательный - Вы бы дали решение с комплексными числами? Или бы сказали, что решения нет?


p.s. достаточно заменить в коде программы текст WriteLn ('Нет корней') на текст WriteLn ('Нет действительных корней'), как указанное противоречие будет устранено

[MooNDeaR]

Вы, наверное, не помните, что комплексные числа появляются в обиходе только начиная с 10-11 класса средней школы.

ХОрошо бы)) С конца первого курса универа они начинаются)

[Zer0]

Уже оффтоп, но нам в 8 классе это объясняли

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

если лично Вас попросили решить уравнение (соседка, например ) и дискриминант получился отрицательный - Вы бы дали решение с комплексными числами

На самом деле я бы уточнил, нужно ли это, а потом бы дал решение
Ну собственно сейчас я тоже только намекнул :D