Ho scritto il seguente codice, ma nella parte in grassetto, mi dà un ";" expected. Chiaramente se ce lo metto, mi dà un Error in Statement.
Posto il codice:
codice:
program equazione_2_grado;
var a,b,c,delta,x1,x2 : real ;
begin
 writeln('Programma per calcolare il valore delle incognite in un''equazione di 2° grado nella forma ax^2+bx+c=0');
 writeln('Introduci il coefficiente dell''incognita di 2° grado . . . ');
 read(a);
 writeln('Introduci il coefficiente dell''incognita di 2° grado . . . ');
 read(b);
 writeln('Introduci il coefficiente dell''incognita di 1° grado . . . ');
 read(c);
 delta := sqr(b)-4*a*c;
 if delta >= 0 then
               begin
               if delta > 0 then
                            begin
                            x1 := (-b-sqrt(delta))/(2*a);
                            x2 := (-b+sqrt(delta))/(2*a);
                            writeln('Le soluzioni sono: ',x1,' e ',x2);
                            end
               else
               begin
               x1 := -b/(2*a);
               x2 := x1;
               writeln('L''equazione ha soluzione doppia: ',x1,' e ',x2);
               end
 else writeln('L''equazione ha delta < 0 ==> E'' impossibile.');
end.
Secondo me il programma è logicamente corretto..
Ho provato a compilare sia con TP sia con FP...

PS: sono al mio 1111 messaggio!