code kiểm tra mảng tuần hoàn:
Code:
Program Mang_Tuan_hoan;
{Mang tuan hoan:1 2 1 2 1 2 1 2 hoac 2 3 2}
{Mang khong tuan hao: 4 2 3 6 2 1 hoac 5 3 6 }
Uses crt;
Var
a: array [1..100] of integer;
n,i,j,k,kt,dem:integer;
BEGIN
Clrscr;
Write('Nhap so phan tu cua day so:');
Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']:');
Readln(a[i]);
End;
For i:=2 to n do
Begin
kt:=1;
If (n mod i=0) then
For j:=1 to n div i do
Begin
For k:=1 to i-1 do
If a[j]<>a[(n div i)*k+j] then
Begin
kt:=0;
Break;
End;
If kt=0 then
Break;
End
Else kt:=0;
If kt=1 then
Break;
End;
If kt=1 then
Writeln('Mang tuan hoan');
Else
Write('Mang khong tuan hoan');
Readln;
END.
Bookmarks