Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Solving Quadratic Equation
//fpc 3.0.0 program HelloWorld; var a,b,c,d: integer; begin writeln('Solving Quadratic Equation'); write('Enter the coefficients (A, B, C): '); readln(a,b,c); d := b*b - 4*a*c; if a = 0 then writeln('This is not a quadratic equation.') else if d < 0 then writeln('No real roots.') else if d = 0 then writeln('Double roots. x = ', (-b / (2*a)):5:2) else {d > 0, two real roots} writeln('Two real roots x = ', (-b + sqrt(d)) / (2*a):5:2, ', ',(-b - sqrt(d)) / (2*a):5:2); end.
run
|
edit
|
history
|
help
0
ax+by=n
1
ROSANE SANT ANA DA PENHA ROSA 600484774
zadanye 2
Helpme
1
Светофор-графика
LewisCableCompanyPasprogramme
Подсчёт количества единичных битов в десятичном числе от 0 до 15
nomer4