Prima di tutto vi saluto tutti perchè è la prima volta che posto qui :gren:
Ora il problema...
Ho scritto questo programmino in pascal, ma ad un certo punto mi da errore di virgola mobile...
Potreste guardare cosa c'è che non va plz???
Domani il prof. lo valuta e a me ancora non funge.
Plz help me!!
Thx

---------------------------------------------------------------------
program disequa;
var a,b,c,del,x1,x2:real;
dis:integer;
begin
writeln('Tipo di disequazione');
writeln('1 - [>0] 2 - [<0] 3 - [>=0] 4 - [<=0]');
readln(dis);
writeln('Quanto vale a?');
readln(a);
writeln('Quanto vale b?');
readln(b);
writeln('Quanto vale c?');
readln(c);
del:=b*b-4*a*c;
x1:=(-b-sqrt(del))/(2*a);
x2:=(-b+sqrt(del))/(2*a);
writeln('La disequazione e'' verificata da:');
if ((dis=1) and (a>0)) or ((dis=2) and (a<0)) then
begin
if del>0 then writeln('valori esterni a ',x1:3:2,' e ',x2:3:2);
if del=0 then writeln('tutti gli x in R eccetto ',x1:3:2);
if del<0 then writeln('tutti gli x in R');
end;
if ((dis=2) and (a>0)) or ((dis=1) and (a<0)) then
begin
if del>0 then writeln('valori interni a ',x1:3:2,' e ',x2:3:2);
if del=0 then writeln('nessun x in R');
if del<0 then writeln('nessun x in R');
end;
if ((dis=3) and (a>0)) or ((dis=4) and (a<0)) then
begin
if del>0 then writeln('valori esterni a ',x1:3:2,' e ',x2:3:2,' più ',x1:3:2,' e ',x2:3:2);
if del=0 then writeln('tutti gli x in R');
if del<0 then writeln('tutti gli x in R');
end;
if ((dis=4) and (a>0)) or ((dis=3) and (a<0)) then
begin
if del>0 then writeln('valori interni a ',x1:3:2,' e ',x2:3:2,' più ',x1:3:2,' e ',x2:3:2);
if del=0 then writeln('solo per x=',x1:3:2);
if del<0 then writeln('nessun x in R');
end;
readln
end.

---------------------------------------------------------------------
lo so che qui è spaginato, ma plz ho veramente bisogno d'aiuto