Re: syntaxic exploration

[Mehdi Saada <00120260a@gmail.com>]

the function "+" is wrong as well.

input (-2 + X, 7 - 1X) the output is 5 -2X**2, which is complete nonsense, especially since that piece of code (conditional expression) isn't mine. The chunk of test program calling "+" is:
Put_Line ("Pl + P2 = ");
Ecrire(Poly1 + Poly2);

function "+" (POLY_A, POLY_B: T_POLYNOME) return T_POLYNOME is
  RES: T_POLYNOME (T_DEGRE'MAX(POLY_A.DEGRE,POLY_B.DEGRE));
  begin
    ADA.TEXT_IO.PUT_LINE("POLY A: ");
    ECRIRE (POLY_A);
    ADA.TEXT_IO.PUT_LINE("POLY B: ");
    ECRIRE (POLY_B);
    for IND in RES.COEF'Range loop
       RES.COEF(IND) := (if IND in POLY_A.COEF'Range then POLY_A.COEF(IND) else Nulle) + (if IND in POLY_B.COEF'Range then POLY_B.COEF(IND) else Nulle);
    end loop;
    ADA.TEXT_IO.PUT_LINE("RES avant d'être réduit : "); ADA.TEXT_IO.NEW_LINE;
    ECRIRE(RES);
    return POLY_REDUIT(RES);
    end;

It outputs:
Pl + P2 = 
POLY A: 
-2 +X 
POLY B: 
7 -1X 
RES avant d'être réduit : 

5 -2X** 2 

Do you thing I should take a break from Ada and invest time more on algorithmic courses ? Because I feel really down now. I simply shouldn't be so mediocre. I didn't use to be a second-rate student for the matters I liked.