Последовательность объектов a1, a2,…, a n называется
"Периодический", если он состоит только из повторяющихся подмножеств ( например 1,4,5,6,1,4,5,6....1,4,5,6).
Требуется выяснить периодическая ли последовательность B(b1,b2,b3,...bn) состоящая из реальных чисел. Если ответ положительный ,то выяснить ее период. Если отрицательный , то выяснить подмножество , которое встречается чаше в последовательности B. Изначально нужно записать в файл массив B , оттуда загрузить в оперативную память параллельно выводя на экран.Повторяющееся подмножества выразить другими цветами.
Вот такое вот интересное задание , буду очень благодарен за помощь , программа может быть и на языке c++ и pascal.Очень хотелось ,чтобы и объяснения были , потому-что задача для меня очень интересная.
Заранее спасибо за помощь. Я написал программу которая проверяет на периодичность а остальное беда , вот код
[code]
Uses Crt;
Type Vector = Array [1..99] of integer;
Var X : Vector; n,i,j,c,k : integer;p:boolean;
Begin
p:=true;
Repeat
ClrScr;
Write('n>1='); Readln(n);
Until n>1;
For i:=1 to n do begin
Write('X',i,' '); Readln(X[i]) end;
j:=2;i:=1;
While ((X[j]<>X[1]) and (j<=n)) do
j:=j+1;k:=j;
if (x[j]=x[1]) then begin
While (((j+1)<=n)and p) do begin
if (x[j+1]<>x[i+1]) then p:=false else c:=0;
j:=j+1;i:=i+1;
if (k mod i =0)then i:=1 else c:=0 end;
write(p) end else write('false');
readln;readln
End.
5550125555
|
|
|
|
Неужели никто не поможет
5550125555
|
|
|
|
