Проверка на повтор в массиве

[radio228]

Здравствуйте форумчане. Передо мной стояла задача расчета выражения
X(i)=(A*X(i-1)+B)mod m. Где, для примера, m=10,A=7,B=7,X0=7. Необходимо было написать программу, которая бы генерировала числа, в нашем случае получатся (7-6-9-0), и проводила подсчет не повторяющихся элементов. В нашем случае это 4 элемента. Вот мои соображения, но подсчет никак не получился, в итоге программа просто считает все элементы и никак не останавливается:

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int Y;int a=7;int b=7;
int p=0;
int m=10;
int *ptr= NULL;
ptr= new  int[m];
ptr[0]=7;
for(int i=1;i<m;i++)
{
 Y=(a*ptr[i-1]+b)%m;
 for(int j=0;j<=i-1;j++)
 {
  if(Y==ptr[i-1]) {break;}
  else (ptr[i]=Y);
 }
 p=p+1;
 }
 Edit1->Text=RoundTo(p,-3);
 for(int i=0;i<p;i++)
{
 Memo1->Text = Memo1->Text + IntToStr(ptr[i]) + '\t';
}
}

Конечно, задача была и массив выводить в итоге размером в 4 элемента, но я до этого не додумался.Буду очень благодарен за помощь )))

[Stilet]

X(i)=(A*X(i-1)+B)mod m

А можно текст задачи как он есть в методе?
А то я не пойму, тут ряд, относительно предидущего элемента или рекурсия, где Х - функция.

[radio228]

Здесь происходит расчет следующего элемента за счет предыдущего. Т.е у нас есть начальное значение, к примеру 7, и мы рассчитываем следующие за ним значение Y=(a*ptr[i-1]+b)%m=(7*7+7)mod 10=6.
Где a=7;b=7;ptr[0]=7;

[Stilet]

Все равно не особо проясняет, но стелепатирую:

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int Y;int a=7;int b=7;
int p=0;
int m=10;
int *ptr= NULL;
ptr= new  int[m];
ptr[0]=7;
for(int i=1;i<m;i++)
{
 ptr[i]=(a*ptr[i-1]+b)%m;
 Memo1->Text = Memo1->Text + IntToStr(ptr[i]) + '\t';
}
}

[radio228]

Ну, это понятно, но основная проблема была в том, что мне надо было посчитать количество не повторяющихся элементов. Т.е если у меня генерируются числа 7 6 9 0 7 6 9 0 7 , то мне надо посчитать, что период данной комбинации равен 4.