Pascal 207 klaida

Sveiki, informatikos nd gavau padaryt programa kuri isprestu kvadratine lygti viska lyg ir gerai parasiau, bet meta klaida 207, stai kodas:

program Bevarde0;
 uses crt;
 var a, b, c, dis, sak, x1, x2:real;
begin
 ClrScr;
 WriteLn('Iveskite kintamuju koeficientus');
 ReadLn(a, b, c);
 dis := (b*b) - 4 * a * c;
 sak := sqrt(dis);
 x1 := (-b - sak) / (2 * a);
 x2 := (-b + sak) / (2 * a);
 WriteLn('x pirmas= ', x1, 'x antras= ', x2);
 Readln;
end.

Sveiki, informatikos nd gavau padaryt programa kuri isprestu kvadratine lygti viska lyg ir gerai parasiau, bet meta klaida 207, stai kodas:

 

program Bevarde0;
 uses crt;
 var a, b, c, dis, sak, x1, x2:real;
begin
 ClrScr;
 WriteLn('Iveskite kintamuju koeficientus');
 ReadLn(a, b, c);
 dis := (b*b) - 4 * a * c;
 sak := sqrt(dis);
 x1 := (-b - sak) / (2 * a);
 x2 := (-b + sak) / (2 * a);
 WriteLn('x pirmas= ', x1, 'x antras= ', x2);
 Readln;
end.

Nes netikrini ar diskriminantas ne minusinis, nes jei minusinis saknies negalima traukti ;)

Gal galetum pataisyt? :)

program Bevarde0;

uses crt;

var a, b, c, dis, sak, x1, x2:real;

begin

ClrScr;

WriteLn('Iveskite kintamuju koeficientus');

ReadLn(a, b, c);

dis := (b*b) - 4 * a * c;

If dis < 0

then writeln('Sprendiniu nera')

else sak := sqrt(dis);

x1 := (-b - sak) / (2 * a);

x2 := (-b + sak) / (2 * a);

WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);

Readln;

end.

Kaip padaryt, kad parasytu sprendiniu nera ir nebemestu x1 ir x2?

program Bevarde0;

uses crt;

var a, b, c, dis, sak, x1, x2:real;

begin

ClrScr;

WriteLn('Iveskite kintamuju koeficientus');

ReadLn(a, b, c);

dis := (b*b) - 4 * a * c;

If dis < 0

then writeln('Sprendiniu nera')

else sak := sqrt(dis);

x1 := (-b - sak) / (2 * a);

x2 := (-b + sak) / (2 * a);

WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);

Readln;

end.

 

Kaip padaryt, kad parasytu sprendiniu nera ir nebemestu x1 ir x2?

else
       begin
          sak := sqrt(dis);
          x1 := (-b - sak) / (2 * a);
          x2 := (-b + sak) / (2 * a);
          WriteLn('x1= ', x1:1:1, '   ', 'x2= ', x2:1:1);
       end; 

else
       begin
          sak := sqrt(dis);
          x1 := (-b - sak) / (2 * a);
          x2 := (-b + sak) / (2 * a);
          WriteLn('x1= ', x1:1:1, '   ', 'x2= ', x2:1:1);
       end; 

Dar siaip kai diskriminantas lygus nuliui sprendinis buna tik vienas

program Bevarde0;
uses crt;
var a, b, c, dis, x1, x2:real;
begin
ClrScr;
WriteLn('Iveskite kintamuju koeficientus');  //Jei a,b,c <> 0
ReadLn(a, b, c);
dis := (b*b) - 4 * a * c;
If dis = 0
then
   begin
   x1 := (-b) / (2 * a);
   writeln('x= ', x1:1:1);
   end
else if dis < 0
    then
       writeln('Sprendiniu nera')
    else
       begin
       x1 := (-b - sqrt(dis)) / (2 * a);
       x2 := (-b + sqrt(dis)) / (2 * a);
       WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);
       end;
Readln;
end.