if statement - then - Error de sintaxis del programa Pascal if/else

if then else pascal syntax

Question

He creado un programa para determinar si una ecuación cuadrática da un número "real" como respuesta y, de ser así, de qué se trata. Sin embargo, esta es la primera vez que trabajo con if / else, por lo que mi programa no compila más allá de lo demás y, después de buscar durante media hora, no estoy más cerca de descubrir por qué Code es el siguiente:

program Quadratic_Equation_Solver;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp;
var
a, b, c : real;
begin
writeln(''Insert the Value for a please'');
readln(a);
writeln(''Insert the Value for b please'');
readln(b);
writeln(''Insert the Value for c please'');
readln(c);
if (-4*a*c<b*b) then
writeln(''These variables return an imaginary quantity that'');
writeln(''Cannot be computed. Please try again'');
readln;
(*here it breaks*) else
Writeln(''The Answer is x = '',(-b+sqrt((b*b)-(4*a*c))/(2*a)):8:2);
readln;
end.

En el descanso dice que necesita un punto y coma, pero eso no ha funcionado

Answer 1

No puede usar punto y coma en su última declaración antes de su declaración else.

program Quadratic_Equation_Solver;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp;
var
a, b, c : real;
begin
writeln(''Insert the Value for a please'');
readln(a);
writeln(''Insert the Value for b please'');
readln(b);
writeln(''Insert the Value for c please'');
readln(c);
if (-4*a*c>b*b) then
begin
writeln(''These variables return an imaginary quantity that'');
writeln(''Cannot be computed. Please try again'')
end (*When using an else statement dont use semicolons*)
else
Writeln(''The Answer is x = '',(-b+sqrt((b*b)-(4*a*c))/(2*a)):8:2);
readln;
end.

Answer 2

Parece que te falta una declaración de begin y end dentro de las secciones if else . El compilador necesita estos para determinar qué línea de código se incluye en la ruta de acceso if o else :

if some condition then
begin
...
end
else
begin
...
end

entonces en tu caso:

program Quadratic_Equation_Solver;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp;
var
a, b, c : real;
begin
writeln(''Insert the Value for a please'');
readln(a);
writeln(''Insert the Value for b please'');
readln(b);
writeln(''Insert the Value for c please'');
readln(c);
if (-4*a*c>b*b) then
begin
writeln(''These variables return an imaginary quantity that'');
writeln(''Cannot be computed. Please try again'');
end
else
begin
Writeln(''The Answer is x = '',(-b+sqrt((b*b)-(4*a*c))/(2*a)):8:2);
end
readln;
end.