Universidad de Costa Rica
|
|
TYPE
TRational = OBJECT
num, den : LONGINT;
PROCEDURE Add (VAR o: TRational);
PROCEDURE Substract (VAR o: TRational);
PROCEDURE Multiply (VAR o: TRational);
PROCEDURE Divide (VAR o: TRational);
END; { TRational }
Rational.pas
Con alguna frecuencia es necesario hacer arítmetica con números racionales, para lo que conviene contar con una clase que tenga esas operaciones. En el siguiente artículo, disponible en Internet, se describe una implementación en Turbo Pascal:
http://www.di-mare.com/adolfo/p/rational.htm
En la Figura 1 aparece el encabezado del
objeto TRational
, que sirve para hacer
aritmética con números racionales. Todo el
código fuente se encuentra en un archivo empacado
.zip
en este sitio Internet:
http://www.di-mare.com/adolfo/p/src/rational.zip
http://www.di-mare.com/adolfo/p/src/rational.pas
Como lo hizo en la
Tarea #2, en ésta
también debe transformar la
implementación Pascal en una implementación
C++. Puede nuevamente usar el programa
GSAR.exe
para realizar
su trabajo.
Luego de imprimir la documentación de su programa, y
entregarla en clase, envíe su trabajo a los
asistentes del curso por correo electrónico. Para
esto, haga un archivo empacado
.zip
cuyo nombre sea su número de carnet. Incluya en ese archivo
lo siguiente:
Después de la fecha de entrega del programa, puede usted instalar en su cuenta personal su solución (no instale antes su solución en Internet, pues en ese caso sería usted culpable de facilitar la copia de su trabajo, y en consecuencia se haría acreedor a la sanción respectiva).
|
Adolfo Di Mare <adolfo@di-mare.com>.
|