Calculadora de Equação de Segundo Grau, ora funciona, ora não. [RESOLVIDO]

NomeUnderground
(usa Debian)

Enviado em 19/12/2017 - 21:25h

Quando tento algums calculos, como:
a = 1
b = 1
c = -1
Dá: 0.618034 -1.618034
Este resultado está certo, porém se eu fizer a: 2, b:3, c:-5, o resultado é: 4 e -10 que está errado
O código que fiz:

program bhaskara;



var a, b, c, delta, x, bn, xp, xn : real;



begin

        write('Digite o valor de a: ');

        readln(a);

        if a = 0 then

        begin

                writeln('A não pode ser 0');

                exit;

        end

        else

        begin

                writeln('Valor de a está ok');

        end;

        write('Digite o valor de b: ');

        readln(b);

        write('Digite o valor de c: ');

        readln(c);

        writeln('Indo calcular delta');

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

        writeln(delta:0:6);

        writeln('Indo calcular b negativo');

        bn := (-1)*b;

        writeln('Indo calcular x negativo');

        xn := (bn - sqrt(delta))/2*a;

        writeln('Indo calcular x positivo');

        xp := (bn + sqrt(delta))/2*a;

        writeln('Duas raízes foram achadas: ', xp:0:6, ' ', xn:0:6);

end.

 

Edit 1: Eu uso o compilador Free Pascal

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 12:05h

Fiz umas mudanças no código. Expliquei as variáveis e também tirei o teste de "a = 0", pois a nunca pode ser 0, e acho provável que o usuário saiba disso.

program bhaskara;



var a { a letra "a" }, b{ a letra "b"}, c { a letra "c"}, delta{ o delta }, x { o valor de x }, bn{ usei para transformar o b em um número negativo }, xp{ o x pode ter dois valores, este é do x positivo }, xn { x negativo} : real;



begin

        write('Digite o valor de a: ');

        readln(a); { recebe o valor de a }

        write('Digite o valor de b: ');

        readln(b); { recebe o valor de b }

        write('Digite o valor de c: ');

        readln(c); { recebe o valor de c }

        writeln('Indo calcular delta');

        delta := (b*b)-(4*a*c); { calcula o delta }

        writeln(delta:0:6); { mostrei o delta só por teste }

        writeln('Indo calcular b negativo');

        bn := (-1)*b; { aqui transforma o b em negativo para calcular o bhaskara }

        writeln('Indo calcular x negativo');

        xn := (bn - sqrt(delta))/2*a; { calcula um dos valores do x, no caso o negativo }

        writeln('Indo calcular x positivo');

        xp := (bn + sqrt(delta))/2*a; { calcula o valor positivo do x }

        writeln('Duas raízes foram achadas: ', xp:0:6, ' ', xn:0:6);

end. 

  
 Frases do Mês  


"A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino 
 

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 12:30h

Consegui resolver, o erro está em 2*a, na verdade era para ser (2*a) entre parênteses:

program bhaskara;



var a {  constante "a" }, b{ a constante "b"}, c { a constante "c"}, delta{ o delta }, x { o valor de x }, bn{ usei para transformar o valor simétrico do b }, x1{ o primeiro x}, x2 { o segundo x} : real;



begin

        write('Digite o valor de a: ');

        readln(a); { recebe o valor de a }

        if a = 0 then

        begin

                writeln('A não pode ser 0');

                exit;

        end;

        write('Digite o valor de b: ');

        readln(b); { recebe o valor de b }

        write('Digite o valor de c: ');

        readln(c); { recebe o valor de c }

        writeln('Indo calcular delta');

        delta := (b*b)-(4*a*c); { calcula o delta }

        writeln(delta:0:6); { mostrei o delta só por teste }

        writeln('Indo calcular b negativo');

        bn := (-1)*b; { aqui transforma o b em negativo para calcular o bhaskara }

        writeln('Indo calcular x negativo');

        x2 := (bn - sqrt(delta))/(2*a); { calcula um dos valores do x, no caso o negativo }

        writeln('Indo calcular x positivo');

        x1 := (bn + sqrt(delta))/(2*a); { calcula o valor positivo do x }

        writeln('Duas raízes foram achadas: ', x1:0:6, ' ', x2:0:6);

end.

 

  
A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino 
 

lainion
(usa Void Linux)

Enviado em 20/12/2017 - 13:41h

Faz um loop até a não ser zero.
pascal computa raiz negativa??

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 14:53h

Verdade, seria até melhor um while do que um if, pois assim se o usuário usar 0, não precisa abrir o programa de novo, mas sim, apenas digitar um outro número.
Sobre raiz negativa não sei muito bem, comecei no pascal faz pouco tempo. Quanto ao delta ficar negativo e na hora da raiz dar problema ( Não sei se dá problema, nunca testei ), mas aí é só colocar um if depois de calcular o delta:

if delta < 0 then

begin

        writeln('Nenhuma raíz real'); { Pois quando o delta é negativo, não haverá nenhuma raiz real, que eu saiba }

        exit;

end;

 

Valeu pelas dicas.

  
 Frases do Mês  


"A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino 
 

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 14:58h

Acabei de testar aqui, o Pascal dá erro quando recebe raiz negativo:

program teste;



var raiz, testeraiz : real;



begin

        raiz := -4;

        testeraiz := sqrt(raiz);

        writeln(testeraiz);

end. 

Output: Runtime error 200 at $00000000004001EF

  $00000000004001EF

  $000000000040018F



 

Não chega nem ao "writeln".

  
 Frases do Mês  


"A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino 
 

lainion
(usa Void Linux)

Enviado em 20/12/2017 - 17:15h

Então, vai ter que testar e se for negativo multiplica por -1 antes de tirar a raiz, só que agora não vai poder somar ao -b pois é um número imaginário.

Eu não sou da área e faz um tempo que não mexo com pascal, na época eu navegava por esse forúm aqui:
https://www.portugal-a-programar.pt/forums/forum/56-pascal/

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 17:42h

Obrigado pelas dicas.

  
 Frases do Mês  


"A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino 
 

NomeUnderground
(usa Debian)

Enviado em 20/12/2017 - 17:58h

Consegui resolver o problema no caso do delta 0

  
 Frases do Mês  


"A Microsoft não é má. Eles só fazem sistemas operacionais realmente ruins." Linus Torvalds 


"Levar os homens à verdade é o maior benefício que se pode prestar aos outros.

" - Santo Tomás de Aquino