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!