Длинная арифметика,случайное число Опции

[Let]

Ищу простое число по малой теореме Ферма.Там мне необходимо случайное число от 1 до искомого числа.Как реализовать функцию,которая бы выдавала случайное значение длинной арифметики?

[volvo]

Добавляем в TLargeInt еще один конструктор:

Constructor TLargeInt.Random(min, max: TLargeInt);
var
  i, len: integer;
  X: longint;
begin
  repeat
    FillChar(_me, sizeof(_me), 0);

    { Возможная длина случайного числа - от длина min до длины max }
    len := min.getlen + system.random(max.getlen - min.getlen);
    i := 0;
    repeat
      inc(i); Put(i, system.random(base)); { Добавляем Len случайных чисел }
    until i > len;
    SetLen(len); { Устанавливаем длину числа }

  { Выполнять, пока сгенерированное число не будет внутри заданного интервала }
  until (Cmp(min) > 0) and (Cmp(max) < 0); 
end;

Вызывать как-то вот так:

uses hugeobj;

var
  f: tlargeint;
  min, max: tlargeint;

  i: integer;

begin
  randomize;

  { инициализируем min и max}
  min.init(1);
  max.init(1); for i := 1 to 3 do max.muldigit(10); { <-- для теста, max = 1000 }

  { печатаем границы интервала }
  min.print(output); writeln;
  max.print(output); writeln;

  { и генерируем случайное число в этом интервале }
  f.random(min, max);
  f.print(output);
end.

Так пойдет?

Сообщение отредактировано: volvo - 6.01.2008 14:39