Ciao a tutti, è questo il mio primo topic
ho iniziato da poco a studiare pascal per diletto, ma ho un problema con questo programma che deve risolvere una equazione di 2°grado
codice:
program equazione;
uses crt;
var a , b , c , D , x1 , x2 : real;
begin
CLRSCR;
writeln ('l equazione deve essere in forma normale');
writeln ('inserire il valore di a ');
read(a);
writeln('di b ');
read(b);
writeln('e di c ');
read(c);
D:=b^2-4*a*c;
end.
è incompleto ovviamente
ma il ciclo
codice:
CASE D OF
>0:
etc
0:
etc
else
writeln('equazione impossibile')
il compilatore lo rifiuta per quel >5, come posso fare altrimenti?
(se minore di zero compare equazione impossibile, altrimenti risolve