Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Squad equation
program KvadratnaJednacina; var a,b,c,x1,x2,y,d:real; begin writeln('Unesite koeficijente: '); read(a,b,c); d:=b*b-4*a*c; if (d=0) then begin x1:=-b/(2*a); writeln('Dvostruko rjesenje jednacine je : ',x1:0:2) end else if (d>0) then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln('Rjesenja jednacine su ',x1:0:2,' i ',x2:0:2) end else begin y:=sqrt(-d)/(2*a); x1:=-b/(2*a); writeln('Kompleksna rjesenja jednacine su ',x1:0:2,'+i',y:0:2,' i ',x1:0:2,'-i',y:0:2) end end.
run
|
edit
|
history
|
help
0
Луноход-3
365
sum_example1
tekl
2º Questão - VS - 1º Semestre 2017
nomer5
aaaaaaa
la moyenne de théo
2
1 4 6