Составить набор процедур манипулирования с целыми числами произвольной длины. Процедуры должны обеспечивать: формирование и ввод целых чисел произвольной длины, сложение, вычитание, сравнение и умножение целых чисел. Работоспособность процедур продемонстрировать на демонстрационной программе.

Модуль, реализующий целые числа произвольной длины, и тестовая программа написаны на языке С++.

Для представления целых чисел произвольной длины определен класс UNLIM. Операции над этими числами реализованы путем переопределения для класса UNLIM следующих операций:

+ (унарный и бинарный)

- (унарный и бинарный)

*

==

!=

<

>

<=

>=

<< (операция вывода класса OSTREAM) .

Абсолютная величина числа произвольной длины хранится в памяти в виде массива типа CHAR. В каждом элементе массива может находится число от 0 до 99, то есть два разряда всего числа. В нулевом элементе хранятся младшие два разряда, в последнем элементе - старшие два разряда. Если число имеет нечетное количество разрядов, то в последнем элементе массива хранится один последний разряд, т.е. число от 0 до 9. Лидирующие нули в массиве не хранятся. Число 0 представлено массивом из одного элемента, в котором хранится 0.

С целью минимизировать копирование и расход памяти класс UNLIM реализован так, что на одно представление абсолютной величины могут ссылаться несколько чисел, при этом ведется учет ссылок.

Объект класса UNLIM состоит из поля SIGN - знака числа и поля PV - указателя на дескриптор представления абсолютной величины. Число 0 всегда имеет знак PLUS.

Дескриптор представления абсолютной величины числа представляет собой объект структуры DESCRIPTOR и имеет следующие поля:

body - указатель на массив, в котором хранится представление абсолютной величины числа;

len - длина массива body[] в байтах;

HowMany - количество ссылок на данное представление;

Из операций сравнения только < и != напрямую сравнивают числа, остальные операции выражены через эти две. При работе операций < и != сначала проверяются знаки и длины чисел, и только в случае их совпадения производится поразрядное сравнение чисел (в качестве разрядов здесь берутся целые байты - т.е. разряды в системе счисления с основанием 100).

Операция унарный + просто возвращает само число.

Операция унарный - возвращает новый объект класса UNLIM, который ссылается на то же представление модуля числа, что и аргумент, и имеет знак, противоположный знаку аргумента.

Операция бинарный + определена и для случаев, когда знаки операндов совпадают, и когда эти знаки различны.

В первом случае знак результата соответствует знаку одного (любого) из операндов, а модуль результата является результатом сложения модулей операндов. При этом если количество разрядов первого операнда равно A, а второго - B, то количество разрядов операнда может быть либо max(A,B), либо max(A,B)+1, поэтому при выделении памяти под массив для модуля результата берется второе значение. Никакой оптимизации этого массива после сложения модулей операндов не делается, так как в данном случае потеря памяти на лидирующие нули может быть максимум 1 байт, и выгоднее сэкономить на скорости, чем на памяти.

В случае, когда знаки операндов различны, знак результата равен знаку операнда с максимальным модулем, а модуль результата получатся вычитанием модуля операнда с минимальным модулем из модуля операнда с максимальным модулем. При этом под модуль результата выделяется массив длины, равной наибольшей из длин операндов, но после вычитания чисел он оптимизируется функцией optimize(), которая удаляет лидирующие нули (создает новый массив длины, необходимой для хранения модуля числа без лидирующих нулей, копирует в него все значащие разряды, переадресовывает ссылку дескриптора на этот массив и удаляет старый массив).

Сложение и вычитание модулей аргументов производится в системе счисления с основанием 100.

Операция бинарный - определена через унарный минус и бинарный плюс.

Операция * производится по технологии, аналогичной умножению в столбик. При этом все действия ведутся в системе счисления с основанием 100. Длина массива результата может быть равна либо сумме длин операндов, либо этой сумме минус 1. Эта ситуация аналогична той, которая была при сложении чисел с одинаковым знаком, и здесь тоже не делается оптимизации.

Операция << - просто операция вывода класса OSTREAM, определенная для класса UNLIM. Сначала она выводит '-' если знак числа отрицательный, а затем само число поразрядно (по десятичным разрядам), начиная со старшего. При этом используется функция digit(number), которая возвращает значение десятичного разряда с номером number.

Функция- конструктор unlim(char*) обрабатывает инициализацию символьной строкой. При этом распознаются следующие ошибочные ситуации: инициализация пустой строкой; недопустимый символ в строке; строка содержит знак, но не содержит значения. Во всех этих случаях число инициализируется нулем.

Функция- конструктор unlim(unlim&) обрабатывает инициализацию другим объектом класса UNLIM.

Проверка работы конструкторов:

Без инициализации:

unlim a;

a=0

Инициализация строкой:

unlim b="123"

b=123

unlim c="-123"

c=-123

unlim d="+123"

d=123

unlim e="+" Unlim class error: Sign without value. Value=0

e=0

unlim f="-" Unlim class error: Sign without value. Value=0

f=0

unlim g="aaa" Unlim class error: Not digit symbol in string. String ignored. Value=0

g=0

unlim h="4a123" Unlim class error: Not digit symbol in string. String ignored. Value=0

h=0

Проверка вывода, арифметики и сравнения:

Введено:

a=123

b=45

Результат:

a=123

b=45

a=-123 +a=123

a>b a>=b a!=b

a+b=168 a-b=78 a*b=5535

Введено:

a=+0000000000000000123

b=0000000000000000000000000000000045

Результат:

a=123

b=45

a=-123 +a=123

a>b a>=b a!=b

a+b=168 a-b=78 a*b=5535

Введено:

a=-123

b=-45

Результат:

a=-123

b=-45

a=123 +a=-123

a<b a<=b a!=b

a+b=-168 a-b=-78 a*b=5535

Введено:

a=123

b=-45

Результат:

a=123

b=-45

a=-123 +a=123

a>b a>=b a!=b

a+b=78 a-b=168 a*b=-5535

Введено:

a=-123

b=45

Результат:

a=-123

b=45

a=123 +a=-123

a<b a<=b a!=b

a+b=-78 a-b=-168 a*b=-5535

Введено:

a=1000000000000000000000000000000000000000000000

b=999999999999999999999999999999999999999999999

Результат:

a=1000000000000000000000000000000000000000000000

b=999999999999999999999999999999999999999999999

a=-1000000000000000000000000000000000000000000000 +a=1000000000000000000000000000000000000000000000

a>b a>=b a!=b

a+b=1999999999999999999999999999999999999999999999 a-b=1 a*b=999999999999999999999999999999999999999999999000000000000000000000000000000000000000000000

Введено:

a=-100000000000000000000000000000000000000000000

b=999999999999999999999999999999999999999999999

Результат:

a=-100000000000000000000000000000000000000000000

b=999999999999999999999999999999999999999999999

a=100000000000000000000000000000000000000000000 +a=-100000000000000000000000000000000000000000000

a<b a<=b a!=b

a+b=899999999999999999999999999999999999999999999 a-b=-1099999999999999999999999999999999999999999999 a*b=-99999999999999999999999999999999999999999999900000000000000000000000000000000000000000000

Введено:

a=+00000000000000

b=-00000000000000

Результат:

a=0

b=0

a=0 +a=0

a<=b a>=b a==b

a+b=0 a-b=0 a*b=0

programm1;

//#include <string.h>

#include <iostream.h>

#include <fstream.h>

//#include <values.h>

#include "unlimit.h"

#define CR "\n"

void main()

{

ofstream r("report.txt",1);

ostream_withassign rc;

rc=cout;

cout<<"\nТестовая программа для класса UNLIM\n"

<<"(целые числа с произвольной точностью)\n"

;

cout=r;

r <<"Отчет тестовой программы\n"

<<"\nПроверка работы конструкторов:\n"

<<" Без инициализации:\n"

;

r <<" unlim a;\n";

unlim a;

r <<" a="<<a<<"\n"

<<" Инициализация строкой:\n"

<<" unlim b=\"123\"\n";

unlim b="123";

r <<" b="<<b<<CR

<<" unlim c=\"-123\"\n";

unlim c="-123";

r <<" c="<<c<<CR

<<" unlim d=\"+123\"\n";

unlim d="+123";

r <<" d="<<d<<CR

<<" unlim e=\"+\"\n";

unlim e="+";

r <<" e="<<e<<CR

<<" unlim f=\"-\"\n";

unlim f="-";

r <<" f="<<f<<CR

<<" unlim g=\"aaa\"\n";

unlim g="aaa";

r <<" g="<<g<<CR

<<" unlim h=\"4a123\"\n";

unlim h="4a123";

r <<" h="<<h<<"\n\n"

<<"Проверка вывода, арифметики и сравнения:\n\n";

while ( a!="0" || b!="0" )

{

cout=rc;

cout<<"\nВводите одно за другим 2 числа; для окончания - оба нули\n";

char

aa[128],

bb[128];

cout<<" a=";

cin >>aa;

cout<<" b=";

cin >>bb;

cout=r;

r <<"Введено:\n"

<<" a="<<aa<<CR

<<" b="<<bb<<CR

<<"\nРезультат:\n"

;

a=aa;

b=bb;

r <<" a="<<a<<CR<<" b="<<b<<"\n\n"

<<"-a="<<-a<<CR<<"+a="<<+a<<"\n\n";

if (a<b) r<<"a<b ";

if (a>b) r<<"a>b ";

if (a<=b) r<<"a<=b ";

if (a>=b) r<<"a>=b ";

if (a!=b) r<<"a!=b\n";

if (a==b) r<<"a==b\n";

r <<"\na+b="<<(a+b)<<CR

<<"a-b="<<(a-b)<<CR

<<"a*b="<<(a*b)

<<"\n\n--------------------------------------------------\n\n"

;

}

}

programm2;

#define COUNT unsigned int

#define TRUE 1

#define FALSE 0

#define ILLEGAL 10

enum

{

PLUS,

MINUS

};

extern class unlim

{

public:

unlim(char*);

unlim();

unlim(unlim&);

~unlim();

unlim

&operator = (char*),

&operator = (unlim&);

friend int

operator == (unlim&,unlim&),

operator != (unlim&,unlim&),

operator > (unlim&,unlim&),

operator >= (unlim&,unlim&),

operator < (unlim&,unlim&),

operator <= (unlim&,unlim&);

friend unlim

operator + (unlim&), // unary

operator - (unlim&), // unary

operator + (unlim&,unlim&), // binary

operator - (unlim&,unlim&), // binary

operator * (unlim&,unlim&),

abs(unlim&);

friend ostream

&operator << (ostream&,unlim&);

private:

struct descriptor

{

char

*body;

COUNT

len,

HowMany;

};

descriptor

*pv; //pointer to value descriptor

char

sign,

digit(COUNT number);

char

&operator [](COUNT i) {return pv->body[i];}

void

init0(), //init by zero

NotDigit(), //message "no digit" & init0

optimize(), //optimize length of body

error(char*); //display error message

};

inline int operator ==(unlim &a,unlim &b)

{

return !(a!=b);

}

inline int operator <=(unlim &a,unlim &b)

{

return (a<b) || !(a!=b);

}

inline int operator >=(unlim &a,unlim &b)

{

return !(a<b);

}

inline int operator >(unlim &a,unlim &b)

{

return !(a<b) && (a!=b);

}

inline unlim operator +(unlim &x)

{

return x;

}

programm3;

#include <stdlib.h>

#include <ctype.h>

#include <string.h>

#include <iostream.h>

#define COUNT unsigned int

#define TRUE 1

#define FALSE 0

#define ILLEGAL 10

enum

{

PLUS,

MINUS

};

class unlim

{

public:

unlim(char*);

unlim();

unlim(unlim&);

~unlim();

unlim

&operator = (char*),

&operator = (unlim&);

friend int

operator == (unlim&,unlim&),

operator != (unlim&,unlim&),

operator > (unlim&,unlim&),

operator >= (unlim&,unlim&),

operator < (unlim&,unlim&),

operator <= (unlim&,unlim&);

friend unlim

operator + (unlim&), // unary

operator - (unlim&), // unary

operator + (unlim&,unlim&), // binary

operator - (unlim&,unlim&), // binary

operator * (unlim&,unlim&),

abs(unlim&);

friend ostream

&operator << (ostream&,unlim&);

private:

struct descriptor

{

char

*body;

COUNT

len,

HowMany;

};

descriptor

*pv; //pointer to value descriptor

char

sign,

digit(COUNT number);

char &operator [](COUNT i) {return pv->body[i];}

void

init0(), //init by zero

NotDigit(), //message "no digit" & init0

optimize(), //optimize length of body

error(char*); //display error message

};

inline void unlim::error(char *message)

{

cout <<"Unlim class error: "

<<message

<<"\n";

}

void unlim::init0()

{

(pv->body)=new char;

*(pv->body)=0;

(pv->len)=1;

sign=PLUS;

}

char unlim::digit(COUNT number)

{

if ( number>=(pv->len) )

return ILLEGAL;

char byte=(pv->body)[number/2];

if (number%2==0)

return byte%10;

else

return byte/10;

}

unlim::unlim()

{

pv=new descriptor;

init0();

(pv->HowMany)=1;

}

unlim::~unlim()

{

if ( --(pv->HowMany)==0 )

{

delete pv->body;

delete pv;

}

}

char DecVal(char symbol)

{

if ( isdigit(symbol) )

return symbol-'0';

return ILLEGAL;

}

unlim::unlim(char *string)

{

pv=new descriptor;

(pv->HowMany)=1;

COUNT Length=strlen(string);

if (Length==0)

{

error("Empty string assigned. Value=0");

init0();

return;

}

else

{

COUNT LeftLimit=0;

switch (string[0])

{

case '-':

sign=MINUS;

LeftLimit=1;

break;

case '+':

LeftLimit=1;

default:

sign=PLUS;

}

if (Length-LeftLimit==0)

{

error("Sign without value. Value=0");

init0();

return;

}

else

{

while (string[LeftLimit]=='0')

LeftLimit++;

if ( (Length-=LeftLimit)==0 )

{

init0();

return;

}

COUNT DestLength=Length/2+Length%2;

(pv->body)=new char[DestLength];

for ( COUNT si=Length+LeftLimit-1, ki=0 ; ki<DestLength ; si-=2,ki++ )

{

char a=DecVal(string[si]);

if (a==ILLEGAL)

{

NotDigit();

return;

}

(pv->body)[ki]=a;

if (si!=LeftLimit)

{

char a=DecVal(string[si-1]);

if (a==ILLEGAL)

{

NotDigit();

return;

}

(pv->body)[ki]+=10*a;

}

}

(pv->len)=Length;

}

}

}

void unlim::NotDigit()

{

error("Not digit symbol in string. String ignored. Value=0");

delete pv->body;

init0();

}

unlim::unlim(unlim &arg)

{

(arg.pv)->HowMany++;

pv=arg.pv;

sign=arg.sign;

}

unlim &unlim::operator=(unlim &arg)

{

(arg.pv)->HowMany++;

if ( --(pv->HowMany)==0 )

{

delete pv->body;

delete pv;

}

pv=arg.pv;

sign=arg.sign;

return *this;

}

unlim &unlim::operator=(char *string)

{

return *this=unlim(string);

}

ostream &operator<<(ostream &s,unlim &x)

{

if (x.sign==MINUS)

s << "-";

for ( COUNT i=((x.pv)->len) ; i>0 ; i-- )

s << int(x.digit(i-1));

return s;

}

int operator!=(unlim &a,unlim &b)

{

if ( (a.pv)->len != (b.pv)->len)

return TRUE;

if (a.sign!=b.sign)

return TRUE;

COUNT length=((a.pv)->len)/2+((a.pv)->len)%2;

for ( COUNT i=0 ; i<length ; i++ )

if (a[i]!=b[i])

return TRUE;

return FALSE;

}

int operator<(unlim &a,unlim &b)

{

if (a.sign!=b.sign)

return a.sign==MINUS;

if ( (a.pv)->len == (b.pv)->len )

{

COUNT i=((a.pv)->len)-1;

while ( a.digit(i) == b.digit(i) )

{

if (i==0)

return FALSE;

i--;

}

char

aLess= a.digit(i) < b.digit(i),

SignPlus= a.sign==PLUS;

return ( aLess && SignPlus) || ( !aLess && !SignPlus );

}

else

{

char

aShort= (a.pv)->len < (b.pv)->len,

SignPlus= a.sign==PLUS;

return ( aShort && SignPlus ) || ( !aShort && !SignPlus );

}

}

inline int operator ==(unlim &a,unlim &b)

{

return !(a!=b);

}

inline int operator <=(unlim &a,unlim &b)

{

return (a<b) || !(a!=b);

}

inline int operator >=(unlim &a,unlim &b)

{

return !(a<b);

}

inline int operator >(unlim &a,unlim &b)

{

return !(a<b) && (a!=b);

}

inline unlim operator +(unlim &x)

{

return x;

}

unlim abs(unlim &x)

{

unlim r=x;

r.sign=PLUS;

return r;

}

unlim operator -(unlim &x)

{

if ( (x.pv)->len==1 && x[0]==0 )

{

unlim y;

return y;

}

unlim y=x;

if (x.sign==PLUS)

y.sign=MINUS;

else

y.sign=PLUS;

return y;

}

void unlim::optimize()

{

COUNT i=pv->len/2+pv->len%2-1;

char optimized=FALSE;

while (pv->body[i]==0)

{

optimized=TRUE;

if (i--==0)

{

init0();

return;

}

}

if (optimized)

{

char *NewBody=new char[++i];

for (COUNT ni=0;ni<i;ni++)

NewBody[ni]=pv->body[ni];

delete pv->body;

pv->body=NewBody;

pv->len=(i--)*2;

}

if ( (pv->body[i]/10)==0 && (pv->len%2)==0 )

pv->len--;

}

inline COUNT max (COUNT a,COUNT b)

{

return (a>b)?a:b;

}

unlim operator +(unlim &a,unlim &b)

{

unlim r;

delete (r.pv)->body;

if (a.sign==b.sign)

{

r.sign=a.sign;

COUNT

rlen=max( (a.pv)->len,(b.pv)->len )+1,

alen=(a.pv)->len/2+(a.pv)->len%2,

blen=(b.pv)->len/2+(b.pv)->len%2;

(r.pv)->len=rlen;

rlen=rlen/2+rlen%2;

(r.pv)->body=new char[rlen];

*(r.pv)->body=0;

for (COUNT i=0;i<rlen;i++)

{

unsigned char sum=( i<alen ? a[i] : 0)+( i<blen ? b[i] : 0);

r[i]+=sum%100;

r[i+1]=sum/100;

}

if ( r.digit( (r.pv)->len-1 )==0 )

(r.pv)->len--;

}

else

{

unlim

aa=a,

bb=b;

if (abs(a)<abs(b))

{

aa=b;

bb=a;

}

r.sign=aa.sign;

COUNT

rlen=(aa.pv)->len,

blen=(bb.pv)->len/2+(bb.pv)->len%2;

(r.pv)->len=rlen;

rlen=rlen/2+rlen%2;

(r.pv)->body=new char[rlen];

*(r.pv)->body=0;

for (COUNT i=0;i<rlen;i++)

{

char sub=aa[i]-( i<blen ? bb[i] : 0 )+r[i];

if (sub<0)

{

r[i+1]=-1;

sub+=100;

}

else

r[i+1]=0;

r[i]=sub;

}

r.optimize();

}

return r;

}

unlim operator -(unlim &a,unlim &b)

{

return a+(-b);

}

unlim operator *(unlim &a,unlim &b)

{

unlim r;

delete (r.pv)->body;

if (a.sign==b.sign)

r.sign=PLUS;

else

r.sign=MINUS;

COUNT

rlen=(a.pv)->len+(b.pv)->len,

alen=(a.pv)->len/2+(a.pv)->len%2,

blen=(b.pv)->len/2+(b.pv)->len%2;

(r.pv)->len=rlen;

rlen=rlen/2+rlen%2;

(r.pv)->body=new char[rlen];

COUNT i;

for (i=0;i<rlen;i++)

r[i]=0;

for (i=0;i<alen;i++)

{

unsigned int

next=0,

mul;

for(COUNT j=0;j<blen;j++)

{

next+=r[i+j];

mul=a[i]*b[j]+next;

r[i+j]=mul%100;

next=mul/100;

}

r[i+blen]=next;

}

if ( r.digit((r.pv)->len-1)==0 )

(r.pv)->len--;

if ( r.digit((r.pv)->len-1)==0 )

r.init0();

return r;

}