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
eliminar elementos de un arreglo
Mengubah desimal ke biner
VINICIUS ELIAS SILVEIRA 600625519
Calculatrice 1.0
диагональ в алфавите
Task1-3
Pokazivaci, ulancane liste
practica 9 ejercicio 9 BETA
fmke
10