Universidad de Costa Rica
Escuela de Ciencias de la
Computación e Informática
Profesor Adolfo Di Mare
CI-1201
II Semestre 2006
[<=] [home] [<>] [\/] [=>]
CI-1201 Programación II

Tarea #5 [solución]

Calculadora de polinomios

      Use la clase polinomios para implementar una calculadora de polinomios cuyos coeficientes son los números racionales de la tarea anterior. 

PROCEDURE TPoly.Add(         { EXPORT }         { ADH }
  {+} VAR o : TPoly          { sumando }
);
{ RESULTADO
  Calcula SELF := SELF + o. }
VAR
  i, min : WORD;
BEGIN { TPoly.Add }
  IF  _grad < o._grad THEN BEGIN
    min := _grad;
    _grad := o._grad;


    { suma los primeros términos, que están en los dos }
    FOR i := 0 TO min DO BEGIN
      _coef[i] := _coef[i] + o._coef[i];
    END;

    { agrega los términos que sólo aparecen en "o" }
    FOR i := min+1 TO o._grad DO BEGIN
      _coef[i] := o._coef[i];
    END;
  END
  ELSE BEGIN
    min := o._grad;

    FOR i := 0 TO min DO BEGIN
      _coef[i] := _coef[i] + o._coef[i];
    END;
  END;

  { Averigue si la operación anuló el polinomio }
  Adjust_Degree;
END;  { TPoly.Add }

      Para obtener su implementación, utilice el código fuente que recibió en clase, y modifíquelo para agregarle las operaciones aritméticas.

Di Mare, Adolfo
"La Implementación de Poly.pas"; Reporte técnico ECCI-94-04; Proyecto 326-89-019; 1994.

      http://www.di-mare.com/adolfo/p/Poly.htm
      http://www.di-mare.com/adolfo/p/src/Poly.zip

      Entregue su tarea por correo electrónico, como lo hizo anteriormente.

[mailto:] Entrega de Tareas

Tiempo de entrega: 1 semana
Modalidad: En parejas

Soluciones

[mailto:] Adolfo Di Mare <adolfo@di-mare.com>.
Copyright © 2006
Derechos de autor reservados © 2006
[home] <> [/\]