Forum programmazione

[SI{R}IUS]

program gestione_operazioni;
uses Crt;
var
opz: integer;
a, b, c, d, x1, x2: real;

procedure equa_secon;
var
a, b, c, d, x1, x2: real;
begin
ClrScr;
writeln;
delay(1000);
TextColor(14);
writeln('Calcolo di una equazione di 2ø grado');
TextColor(15);
delay(1000);
writeln;
writeln('Formula: ax^2+bx+c=0');
writeln;
delay(1000);
writeln('inserire i valori dei coefficienti A,B e C');
delay(1000);
write('separati da uno spazio e Invio: ');
readln(a,b,c);
delay(1000);
writeln;
d := b*b-4*a*c;
if a=0 then writeln('L''equazione non Š di secondo grado')
else
begin
if d>0 then
begin
delay(1000);
x1 := (-b-sqrt(d))/(2*a);
x2 := (-b+sqrt(d))/(2*a);
writeln('Esistono due soluzioni reali distinte');
writeln('X1 = ',x1:8:4,' X2 = ',x2:8:4);
end;
end;
if d = 0 then
begin
delay(1000);
x1 := -b/(2*a);
writeln('Esistono due soluzioni coincidenti');
writeln;
writeln('X1 = X2 = ',X1:8:4);
end;
if d<0 then
begin
delay(1000);
writeln('Non esiste nessuna soluzione reale. Equazione impossibile');
end;
delay(1000);
writeln('Premere Invio per uscire...');
readln;
end;

begin
ClrScr;
TextColor(14);
GotoXY(27,6); write('Calcolator');
TextColor(15);
GotoXY(26,8); write('1. Calcolare equazione di 2ø grado');
GotoXY(26,9); write('0. Termine programma');
GotoXY(26,10); write('scegliere una opzione: ');
readln(opz);
case opz of
1: equa_secon;
end;
end.

Questo programmino molto semplice, strutturato in linguaggio TurboPascal, risolve le equazioin di secondo grado secondi i principi matematici e la formula risolutiva "Delta".

[Fabriz]

non capisco il delay, perchè aspettare? E anche il case of nel main, così strutturato mi pare logicamente scorretto: meglio un if.

Per il resto good job