Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Quadratic equation
//fpc 3.0.0 program Quadraticequation; var A,B,C,D :integer; x1,x2 : real ; begin writeln('フアケイ ユ ビイチ!'); writeln('Quadratic equation!'); writeln('一元二次方程!'); writeln('にじほうていしき!'); writeln('Ecuación de segundo grado!'); writeln('معادلة تربيعية!'); writeln('Persamaan kuadrat!'); writeln('द्विघात समीकरण!'); writeln('Equação quadrática!'); writeln('Квадратное уравнение!'); readln(A,B,C); D:=B*B-4*A*C; writeln('Δ=',D); if D >= 0 then begin x1 := (-B+sqrt(D))/(2*A); x2 := (-B-sqrt(D))/(2*A); writeln('X=',X1:0:3,' OR ',X2:0:3); end else begin x1 := (-B)/(2*A); x2 := sqrt(-D)/(2*A); writeln('Complex number',x1:0:3,'+/-',x2:0:3,'i'); end end.
run
|
edit
|
history
|
help
0
help me to fix this stupid thing, so tired about it
NHATANH
Fibonacijev niz
zadacha4
7
НОД не по ЕВКЛИДУ но без массивов
practica 9 ejercicio 5
pascal sizeof
a 3 .a
Potenztabelle