[rolands94]

Hi, I have a problem with my pascal code.
when d(discriminant) is below 0, it pascal shows me an error..
sorry, but pascal doesn't allow to normal copy code, here's a picture:

[sepp2k]

rolands94, on 19 May 2012 - 07:44 PM, said:

when d(discriminant) is below 0, it pascal shows me an error..

What's the error message?

Quote

sorry, but pascal doesn't allow to normal copy code, here's a picture

One of the lines is cut off in that picture. No idea whether it's relevant.

PS: You can just open the source file in notepad (or whatever) and copy and paste from there.

[sepp2k]

Also what are you doing with the colons in the second and third calls to writeln (i.e. x1:2:2 etc.)? That doesn't look legal to me.

[Ryano121]

They are legal Pascal - the first number meaning the :width and the second meaning the precision for numbers. It's essentially just Pascal's implementation of string formatting.

[rolands94]

I figured out, that the error only appears if the d is a negative number.
error: exitcode = 207

program uzd2;
uses crt;
var x,y,z:integer;
zime:char;
procedure kv(a, b, c:integer);
        var x1, x2, x3, d:real;
        begin
                d:=-200;
              //  d:=b*b-4*a*c;
                x1:=(-b+sqrt(d))/(2*a);
                x2:=(-b-sqrt(d))/(2*a);
                x3:=-b/(2*a);
                if d<0 then writeln('Realu saknu nav');
                if d=0 then writeln('Viena sakne - x1: ',x3:2:2);
                if d>0 then writeln('Divas saknes - x1: ',x1:2:2,', x2: ',x2:2:2);
                writeln;
        end;
begin
        clrscr;
        writeln('Kvadratvienadojuma atrisinasana');
        zime:='j';
        while zime='j' do
                begin
                write('Ievadiet kvadratvienadojuma koeficientus:');
                readln(x,y,z);
                kv(x,y,z);
                writeln('Turpinat darbu(j - ja, citi taustini - ne)?');
                readln(zime);
                end;
        writeln('Programmas beigas! Piespiediet jebkuru tausinu!');
        readln;
end.

[sepp2k]

Bah, I should have seen the error right away: A negative number doesn't have a real square root.

[rolands94]

Ok, then how to do the following thing: if discriminant from quadratic is negative(d<0), then output sentence: "There are no real roots".?

[Ryano121]

If d < 0 Then
     Writeln('There are no real roots');

[rolands94]

Well, that's exactly what is written in my code at line 13.

                if d<0 then writeln('Realu saknu nav');

And the error pops out if the d is below 0. That's the problem, I need the output without the error, so that the program works.

[Ryano121]

Well of course you get the error. You are trying to find the sqrt of -200 and THEN print out the message.

You only want to do the calculations if the discriminant >= 0.

[rolands94]

Uhh, oups, i copied the test code, without d:=-200; there is the same error.

[Ryano121]

Yes that is expected, read by previous post again.

[sepp2k]

To elaborate on Ryan's point: If d is negative, you print that there are no solutions. But before you do that, you try to calculate the square root of d - whether d is negative or not. You're not allowed to calculate the square root of d if d is negative. That's what causes your error.

[rolands94]

Ok, so I solved my problem, thanks all.
Here's my code:

program uzd2;
uses crt;
var x,y,z:integer;
zime:char;
procedure kv(a, b, c:integer);
        var x1, x2, x3, d:real;
        begin
//              d:=b*b-4*a*c;
                if b*b-4*a*c<0 then writeln('Realu saknu nav');
//                if d:=b*b-4*a*c=0 then writeln('Viena sakne - x1: ',x3:2:2);
  //              if d:=b*b-4*a*c>0 then writeln('Divas saknes - x1: ',x1:2:2,', x2: ',x2:2:2);
    //            x1:=(-b+sqrt(d))/(2*a);
      //          writeln;
                if b*b-4*a*c=0 then
                begin
                x3:=-b/(2*a);
                writeln('Viena sakne x1: ',x3:2:2);
                end;
                if b*b-4*a*c>0 then
                begin
                d:=b*b-4*a*c;
                x2:=(-b-sqrt(d))/(2*a);
                x1:=(-b+sqrt(d))/(2*a);
                writeln('Divas saknes x1: ',x1:2:2,', x2: ',x2:2:2);
                end;
        end;
begin
        clrscr;
        writeln('Kvadratvienadojuma atrisinasana');
        zime:='j';
        while zime='j' do
                begin
                write('Ievadiet kvadratvienadojuma koeficientus:');
                readln(x,y,z);
                kv(x,y,z);
                writeln;
                writeln('Turpinat darbu(j - ja, citi taustini - ne)?');
                readln(zime);
                end;
        writeln('Programmas beigas! Piespiediet jebkuru tausinu!');
        readln;
end.