Kvadratická rovnice v C
Program Kvadratická_rovnice;
var a,b,c,D,x1,x2,r,i,x:Real;
var konec:char;
begin
konec:=' ';
repeat
write('Zadej koeficienty a, b, c: ');
readln(a,b,c);
if a=0 then
begin
if b<>0 then
begin
x:=-c/b; writeln('Koren rovnice je x=',x:8:1);
end
else
if c<>0 then writeln('Rovnice nema reseni. ')
else writeln('Rovnice má nekonecne mnoho reseni. ')
end
else
begin
D:=sqr(b)-4*a*a;
if D>0 then
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
writeln('Koreny rovnice jsou x1=',x1:8:1,' a x2='x2:8:1)
end
else
if D=0 then
begin
x:=-b/(2*a);
writeln('Koren rovnice je x=',x:8:1);
end
else
begin
r:=-b/(2*a);i:=sqrt(abs(D))/abs(2*a);
write('Koreny rovnice jsou x1=',r:4:1,' - ',i:4:1,'i a ');
writeln('x2=',r:4:1,' + ',i:4:1,'i ');
end;
end;
write('Chcete pokracovat? (a/n): ');readln(konec);
until konec='n';
end.
Komentáře
Přehled komentářů
Excellent material. Many thanks!
copywriting service https://buycheapessaysonline.com college application essays https://helptowriteanessay.com
college student essay v99rmh
(Gregoryantef, 5. 4. 2023 18:43)