Oggi sono lieto di dichiarare ufficialmente aperta la sezione programmazione che nel giro di poche settimane vanterà di un numero consistente di post. Oggi proponiamo un programma provato da noi che permette di risolvere le equazioni di secondo grado in Pascal. La sintassi è corretta ed abbastanza semplici e non presenta funzioni di grane livello ( solo qualche if,esle e then) ed è in grado di stabilire quando un sistema di secondo grado risulta impossibile, quando ha due soluzioni reali e coincidenti oppure quando le soluzioni sono reali e distinte. Ecco il programma : non vi resta nulla da fare che copiarlo in turbo pascal e provarlo!!!
Per eventuali problemi sono disponibile per chiarimenti!

program equazione_secondo_grado;
var A,B,C,X1,X2,D:real;
begin
writeln (‘Equazione di secondo grado ax^2+bx+c=0′);
write (‘Inserisci il valore del coefficente a=’);
readln (A);
write (‘Inserisci il valore del coefficente b=’);
readln (B);
write (‘Inserisci il valore del termine noto c=’);
readln (C);
D:=B*B-4*A*C;
if D = 0 then
begin
X1:=-B/(2*A);
X2:=X1;
writeln (‘Esistono due soluzioni reali coincidenti x1=x2=’,X1);
end
else
if D>0 then
begin
X1:=(-B+sqrt(D))/(2*A);
X2:=(-B-sqrt(D))/(2*A);
writeln (‘Esistono due soluzioni reali distinte’);
writeln (‘x1=’,X1);
writeln (‘x2=’,X2);
end
else
if D<0>