Тип данных

[_-Re@l-_]

Можно ли сделать свой тип данных типа Integer, только с другим диапазоном?Например, минимальное значение -100, а максимальное +100.?

[Grag]

Задай тип данных - диапазон...
Тип диапазон есть подмножество своего базового типа и задается границами своих значений внутри базового типа...

[_-Re@l-_]

Каким образом? Set Of ?
А, всё, нашёл

MyType = -100..100;

Хотя на самом деле мне нужен такой тип данных, который поддерживал бы число равное факториалу 30000. Extended слишком маленькое для этого. Comp тоже

[Grag]

Program Prb;
Type
  dpz=-100..100;
Var
  a,b:dpz;
Begin
  for a:=Low(dpz) to High(dpz) do
    b:=b+1;

End.

[_-Re@l-_]

Хотя на самом деле мне нужен такой тип данных, который поддерживал бы число равное факториалу 30000. Extended слишком маленькое для этого. Comp тоже

Вот это как сделать?

[Serge_Bliznykov]

никак. Только длинная арифметика.

Поиск (в том числе и по форуму).

[_-Re@l-_]

Только длинная арифметика.

А это что такое?

Поиск по форуму не помог, есть только куча ссылок где написано "используй длинную арифметику". Так в чём она заключается??

[Serge_Bliznykov]

да это же проще простого: Длинная арифметика (wikipedia):

Длинная арифметика — в вычислительной технике операции над числами, разрядность которых превышает длину машинного слова данной вычислительной машины. Частный случай — арифметика произвольной точности — относится к арифметике, в которой длина чисел ограничена только объёмом доступной памяти.

а по "простому" вместо стандартных типов данных Вы вводите свой тип данных с ОЧЕНЬ большой (или вообще неограниченной длиной разрядной сетки). Для этого используют либо массивы, либо строки (что, по сути тоже массивы из символов).
Дальше реализуют операции над числами, заданного типа (в первую очередь сложение, вычитание, умножение, деление).
Делается это так, как делалось в начальной школе - умножение в столбик помните? Или, банально - умножение заменяется на сложение...
Ну и всё...
минусы (кроме сложности реализации) - обычно СИЛЬНО страдает производительность вычислений...

[_-Re@l-_]

Всё ясно.
Вот, сделал свою реализацию...Не знаю, насколько она рациональна(скорее всего, предел рационализации равен нулю ), но работает очень быстро:

Function Add(A,B:String):String;
Var
   X,Y:Integer;
   ResultXY:Integer;
   ModXY:Integer;
   Result:String;
   I,Err:Integer;
   Buf:String;
   aLength:Integer;
   bLength:Integer;
   max:Integer;
Begin
     ModXY:=0;
     Result:='';
     X:=0;Y:=0;
     ResultXY:=0;
     aLength:=Length(A);
     bLength:=Length(B);
     If aLength>bLength Then
     Begin
          max:=aLength;
          While Length(B)<Length(A) Do
          B:=' '+B;
     End;
     If aLength = bLength Then max:=aLength;
     If bLength>aLength Then
     Begin
          max:=bLength;
          While Length(A)<Length(B) Do
          A:=' '+A;
     End;
     For I:=Max DownTo 1 Do
     Begin
          Val(Copy(A,I,1),X,Err);
          Val(Copy(B,I,1),Y,Err);
          ResultXY:=X+Y+ModXY;
          ModXY:=ResultXY div 10;
          Str(ResultXY mod 10,Buf);
          Result:=Result+Buf;
          Buf:='';
     End;
     If ModXY<>0 Then
     Begin
     Str(ModXY,Buf);
     Result:=Result+Buf;
     End;
     Buf:='';
     For I:=Length(Result) DownTo 1 Do
     Buf:=Buf+Copy(Result,I,1);
     Add:=Buf;
End;

И ещё просьба: сильно не критиковать. Делал спросонья
P.P.S. Пока только сложение...

[_-Re@l-_]

Вроде как теперь правильно, прошу потестить...Если есть желающие, конечно.Делается это так:

Uses CRT;
Function Add(A,B:String):String;
Var
   X,Y:Integer;
   ResultXY:Integer;
   ModXY:Integer;
   Result:String;
   I,Err:Integer;
   Buf:String;
   aLength:Integer;
   bLength:Integer;
   max:Integer;
Begin
     ModXY:=0;
     Result:='';
     X:=0;Y:=0;
     ResultXY:=0;
     aLength:=Length(A);
     bLength:=Length(B);
     If aLength>bLength Then
     Begin
          max:=aLength;
          While Length(B)<Length(A) Do
          B:=' '+B;
     End;
     If aLength = bLength Then max:=aLength;
     If bLength>aLength Then
     Begin
          max:=bLength;
          While Length(A)<Length(B) Do
          A:=' '+A;
     End;
     For I:=Max DownTo 1 Do
     Begin
          Val(Copy(A,I,1),X,Err);
          Val(Copy(B,I,1),Y,Err);
          ResultXY:=X+Y+ModXY;
          ModXY:=ResultXY div 10;
          Str(ResultXY mod 10,Buf);
          Result:=Result+Buf;
          Buf:='';
     End;
     If ModXY<>0 Then
     Begin
     Str(ModXY,Buf);
     Result:=Result+Buf;
     End;
     Buf:='';
     For I:=Length(Result) DownTo 1 Do
     Buf:=Buf+Copy(Result,I,1);
     Add:=Buf;
End;
Var
   A,B:String;
   C,D:String;
   X,Y:Integer;
   Err:Integer;
Begin
     Clrscr;
     Write('A = ');
     GotoXY(5,1);
     Readln(A);
     Write('B = ');
     GotoXY(5,2);
     Readln(B);
     C:=Add(A,B);
     Write('C = ',C);
     Readln;
End.

Прошу прощения у модераторов за второй пост подряд..