Современные технологии программирования. Лабораторная работа №7. Для всех вариантов. Абстрактный тип данных (ADT) «полином»

Тема: Классы Object Pascal, стандартный класс Tlist.
Цель: Сформировать практические навыки: реализации абстрактных типов данных с помощью классов Object Pascal.
Задание
1. Реализовать тип «полином», в соответствии с приведенной ниже спецификацией.
2. Оттестировать каждую операцию, определенную на типе данных одним из методов тестирования.
3. Оттестировать тип данных в целом.
Спецификация абстрактного типа данных Полином.
ADT TPoly
Данные
Полиномы Tpoly - это неизменяемые полиномы с целыми коэффициентами.
Операции
Операции могут вызываться только объектом «полином» (тип TPoly), указатель на который передаётся в них по умолчанию. При описании операций этот объект в разделе «Вход» не указывается.
Таблица 9. Описание операций на ADT TPoly.
end Tpoly
Рекомендации к выполнению
1. Тип данных реализовать, используя классы Object Pascal.
2. Полином можно рассматривать как список одночленных полиномов, поэтому для реализации полинома полезно реализовать абстрактный вспомогательный тип данных одночленный полином. Спецификация для него приведена ниже.
Спецификация абстрактного типа данных Одночлен.
ADT TMember
Данные
Одночлен TMember - это изменяемые одночленные полиномы с целыми коэффициентами. Коэффициент и степень хранятся в полях целого типа FCoeff и FDegree соответственно.
Операции
Операции могут вызываться только объектом «одночлен» (тип TMember), указатель на который передаётся в них по умолчанию. При описании операций этот объект в разделе «Вход» не указывается.
Таблица 10. Описание операций на ADT TMember.
end TMember
3. Для хранения членов полинома используйте список Tlist для этого класс Tpoly, реализующий тип данных полином, сделайте наследником от класса Tlist:
TPoly = class(TList)
private
function Get: String;virtual;
function GetMember(index: Cardinal): TMember;virtual;
procedure SetMember(index: Cardinal; E: TMember);virtual;
public
constructor Create(nc: Integer = 0; nd: Integer = 0);
destructor Destroy;override;
function Degree: cardinal;
function Coeff(n: Integer): Integer;
property Poly: String read Get;
function _Add(b: TPoly): TPoly;//Операция Сложить.
function Sub(b: TPoly): TPoly;// Операция Вычесть.
function Minus: TPoly;// Операция Минус.
function Mul(b: TPoly): TPoly;// Операция Умножить.
function Diff: TPoly;// Операция Дифференцировать.
function Eval(v: Real): Real;// Операция Вычислить.
function Eqval(b: TPoly): Boolean;// Операция Равно.
property Member[index: Cardinal]: TMember read GetMember;
//Операция Элемент.
private
procedure RemoveZero;//Удаляет члены с нулевыми //коэффициентами.
procedure Likeness;//Приведение подобных.
procedure Invar;//Преобразует полином к стандартному виду:
//упорядочен, приведены подобные, удалены нулевые //члены.
procedure AddCopies(b: TPoly; k: Integer);//добавляем копии //элементов b в хвост.
function MulNum(Num: TMember): TPoly;//Умножение //полинома на одночлен.
end;
4. Для реализации одночленного полинома (одночлена) создайте класс Tmember, в который вынесите все операции на членах полинома:
TMember = class
// Реализует одночлен вида FCoeff * X^ FDegree.
private
FDegree: Integer;//Степень одночлена.
FCoeff: Integer;//Коэффициент одночлена.
function Get: String;
//Операция ОдночленВСтроку.
function GetCoeff: Integer;
//Операция ЧитатьКоэффициент (поля FCoeff).
function GetDegree: Integer;
//Операция ЧитатьСтепень (поля FDegree).
procedure SetDegree(nd: Integer);
//Операция ПисатьСтепень (поля FDegree).
procedure SetCoeff(nc: Integer);
//Операция ПисатьКоэффициент (поля FCoeff).
public
function Diff: TMember;
//Операция Дифференцировать.Дифференцирование одночлена.
function Value(v: Real): Real;
//Операция Вычислить. Вычисляет значение одночлена.
property Coeff: Integer read GetCoeff write SetCoeff;
//Операция для чтения и записи коэффициента (поля FCoeff).
property Degree: Integer read GetDegree write SetDegree;
//Операция для чтения и записи степени (поля FDegree).
property Member: String read Get;
//Операция ОдночленВСтроку. Свойство для чтения одночлена в
//строковом формате.
function Eq(b: TMember): Boolean;
//Операция Равно. Сравнение одночлена с одночленом b.
constructor Create(nd: Integer = 0;nc: Integer = 0);
end;
5. После выполнения каждой операции приводите полином к нормализованному виду: упорядочить, привести подобные, удалить нулевые члены (члены с нулевыми коэффициентами).
6. Тип данных реализуйте в отдельном модуле UPoly.
Порядок выполнения
В режиме консольного приложения
• опишите класс TMember, реализуйте класс и оттестируйте каждый метод.
• опишите класс TPoly, реализуйте класс и оттестируйте каждый метод и класс в целом.
Тестовые наборы поместите в таблицу следующего вида:
Таблица 11. Тестовый набор для тестирования операции Умножить на типе полином.
Тестовый набор для тестирования операции Умножить полиномы
Номер теста Исходные данные Ожидаемый результат
Вход Полином Возвращаемое значение Полином
1 0*X^0 0*X^0 0*X^0 0*X^0
2 0*X^0 1*X^0 0*X^0 1*X^0
3 1*X^0 1*X^0 1*X^0 1*X^0
4 1*X^0 2*X^1 2*X^1 2*X^1
5 1*X^0 2*X^1+3*X^2 2*X^1+3*X^2 2*X^1+3*X^2
6 1*X^0+1*X^1 1*X^0-1*X^1 1*X^0-1*X^2 1*X^0-1*X^1
Содержание отчета
1. Задание.
2. Текст программы на Object Pascal.
3. Тестовые наборы данных для тестирования типа данных.

Уважаемый слушатель, дистанционного обучения,
Оценена Ваша работа по предмету: Современные технологии программирования
Вид работы: Лабораторная работа 7
Оценка:Зачет
Дата оценки: 03.02.2015
Рецензия:Уважаемая ,

Зайцев Михаил Георгиевич