Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
This
//fpc 3.0.0 //El orden de los factores es a,b y c ponlos en show input para que este programa funcione program ecuacion; Var a,b,c,ra1,ra2:real; begin Read (a,b,c); ra1:=((-b+(sqrt((sqr(b))-(4*a*c))))/(2*a)); ra2:=((-b-(sqrt((sqr(b))-(4*a*c))))/(2*a)); Writeln ('Raiz 1= ',ra1:0:1); Writeln ('Raiz 2= ',ra2:0:1); end.
run
|
edit
|
history
|
help
0
Луноход-4
Data fb Akanshapanchal2000@gmail.com
Hello World
Huong11a2@
asdfa
Looping (odd no.)
Solving Quadratic Equation
Llena un arreglo (con while)
BITcustom
x=2;n=3