Begin39. Найти корни квадратного уравнения $$A*x^2+B*x+C=0$$, заданного своими коэффициентами $$A$$, $$B$$, $$C$$ (коэффициент $$A$$ не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле $$x_1=(-B+\sqrt{D})/(2*A)$$,$$x_2=(-B-\sqrt{D})/(2*A)$$, где $$D$$ — дискриминант, равный $$B^2-4*A*C$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program Begin39; var A,B,C,D,x1,x2: Real; begin Write('Введите коэфициент A: '); Readln(A); Write('Введите коэфициент B: '); Readln(B); Write('Введите коэфициент C: '); Readln(C); D:=Sqr(b)-4*A*C; x1:=((-1)*B+sqrt(D))/(2*A); x2:=((-1)*B-sqrt(D))/(2*A); if x2<x1 then begin Writeln('Меньший корень равен : ',X2); Writeln('Больший корень равен : ',X1); end else begin Writeln('Меньший корень равен : ',X1); Writeln('Больший корень равен : ',X2); end; end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: