Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Периодичность массива (Массив , работа с файлами и colour)
Периодичность массива
Последовательность объектов 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
1 | Автор: Hovo1233 | 2020-10-18, 21:04   |  Репутация: [ + 0 ]
Неужели никто не поможет

5550125555
2 | Автор: Hovo1233 | 2020-10-19, 05:34   |  Репутация: [ + 0 ]


5550125555
2 | Автор: Hovo1233 | 2020-10-19, 05:34   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Периодичность массива (Массив , работа с файлами и colour)
  • Страница 1 из 1
  • 1
Поиск: