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

[Плотников Юрий]

помогите написать в паскале программку для решения уравнения
X^2-4X+3=0
заранее спасибо....

[Вадим Мошев]

Что у вас не получается? Есть наработки в виде кода?

[Плотников Юрий]

если чесно то вообще ничего попросили помочь, а отказать неудобно

[digitalis]

Открываем арихметику за 6-й класс.
x[1,2] = -p/2 +- корень (p^2-q)

   d := -p/2 ; d1 := sqrt(p*p-q) ; x1 := d+d1 ; x2 := d-d1 ;

Вообще-то нужно проверять дискриминант на минус и комплексные корни, но при данных значениях и так сойдет. короче : коренья 3 и 1.

[Вадим Мошев]

var
	a, b, c, d, x1, x2: real

begin
	write('a = ');
	readLn(a);

	write('b = ');
	readLn(b);

	write('c = ');
	readLn(c);

	d:=b*b - 4*a*c;

	if d < 0 then begin
		write('Нет действительный коренй');
	end else begin
		if d > 0 then begin
			x1:=(-b + sqrt(d)) / (2*a);
			x2:=(-b - sqrt(d)) / (2*a);
			{вывод корнец на экран сами напишите}
		end else begin
			x1:= -b / (2*a);
			{вывод корнец на экран сами напишите}
			
		end
	end
end.

Это по-пионерски, скажем так.

[Вадим Мошев]

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

проверять дискриминант на минус и комплексные корни

По-моему, в данном случае уравнение надо решить на множестве действительных чисел, то есть, в случае отрицательного дискриминанта, сказать что действительных корнет нет.

[digitalis]

В общем случае корни могут быть комплексными, это ничему не противоречит. ( Помню, в 6-м или 7-м классе комплексные уже проходили ).
Ну раз в этом уравнении их нет, то ему просто повезло