Equazioni di 2° grado

Qualcuno sa come fare un programma in pascal che svolga le equazioni di secondo grado?
Spero nel vostro aiuto!!!

se vuoi ti posso postare il sorgente in C, visto che pascal me lo sono scordato

#include
#include
void main (void)
{
float a, b, c, x1, x2, alpha, beta, delta;
printf("Questo programma calcola le radici di un'equazione di II grado\n");
printf("Inserisci i valori di a, b e c\n");
scanf("%f \n%f \n%f", &a, &b, &c);
if (a==0 && b==0)
{
if (c==0)
printf("L'ugualianza e' vera per ogni valore di X1 ed X2");
else
printf("L'equazione non ammette soluzioni");
}
else if (a==0)
{
x1=(-c)/b;
printf("X1 = X2 = %f", x1);
}
else
{
delta=((b*b)-(4*a*c));
if (delta==0)
{
x1=((-b)/(2*a));
printf("X1 = X2 = %f", x1);
}
else if (delta>0)
{
x1=((-b+sqrt(delta))/(2*a));
x2=((-b-sqrt(delta))/(2*a));
printf("X1 = %f \nX2 = %f", x1, x2);
}
else
{
alpha=(-b/(2*a));
beta=((sqrt(-delta))/(2*a));
printf("Le due radici complesse e coniugate sono \nX1 = %f + i%f \nX2 = %f - i%f", alpha, beta, alpha, beta);
}
}
}

Grazie ma ci sono riuscito in pascal! Quel progrmma mi serviva per scuola e lo dovevo portare necessariamente in pascal e lavorano con if, then, else.

uno dei primi programmi che feci per la scuola

Codice:

program equazioni_ii_grado;
uses wincrt;
var a,b,c:integer;
var sol,sol1:real;

begin
  writeln('  2');
  writeln('ax  + bx + c = 0');
  writeln;
  writeln('inserisci i valori di a, b e c separati da uno spazio');
  readln(a,b,c);
  delta:=(b*b/4*a*c);
  if (delta<0) then writeln('Nessuna soluzione')
  else if (delta=0) then begin
    writeln('Due soluzioni coincidenti');
    sol:=(-b/2a);
    writeln('soluzione= ',sol:0:3);
    end
  else begin
    writeln('Due soluzioni');
    sol:=((-b+delta)/2a);
    sol1:=((-b-delta)/2a);
    writeln('soluzione1= ',sol:0:3);
    writeln('soluzione2= ',sol1:0:3);
    end
readln;
donewincrt;
end.

l'ho fatto in due minuti perciò possono esserci degli errori

Emazia il tuo però funziona sotto Windows e nn sotto DOS...quindi va compilato col Borland Pascal altrimenti mi sa ke nn va

Quello he ho fatto io invece è :

mamma mia quanto tempo è passato....... 15 anni.......

e pensare che in ambito lavorativo l'ho usato 2-3 volte, così come il basic....... adesso S7 e vb

io 'dovrei' utilizzare il DERIVE e il PASCAL quando sn in aula di informatica...il problema è ke faccio altro!!!