Re: syntaxic exploration

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

Now I'm sure the function "+" is wrong as well. I know I shouldn't think like this, but sometimes I , 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);
	ADA.TEXT_IO.PUT_LINE ("ALORS ,");

	return POLY_REDUIT(RES);
end;