Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program pchprr;
- var
- a,b,c,D,x1,x2:real;
- begin
- readln(a,b,c);
- if(a=0)and(b=0)and(c=0) then writeln('∞')
- else
- begin
- if(a>=0) then
- begin
- D:=sqr(b)-4*a*c;
- if(D>=0) then
- begin
- x1:=(b*-1 + sqrt(D))/2*a;
- writeln('x1=',x1);
- if(D<>0) then
- begin
- x2:=(b*-1 - sqrt(D))/2*a;
- writeln('x2=',x2);
- end;
- end
- else
- begin
- writeln('no');
- end;
- end
- else
- begin
- x1:=(c*-1)/b;
- writeln('x=',x1);
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement