30 lines
699 B
Text
30 lines
699 B
Text
|
Data "1001110011", "1110111011", "0010010010", "1010101010", "1111111111", "0100101101", "0100100", "101", "11", "00", "1", ""
|
|||
|
|
|
|||
|
|
Function rep(c As String, n As Integer) As String
|
|||
|
|
Dim As String r
|
|||
|
|
|
|||
|
|
For i As Integer = 1 To n
|
|||
|
|
r = r + c
|
|||
|
|
Next i
|
|||
|
|
Return r
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Do
|
|||
|
|
Dim As String p, b = "", t, s
|
|||
|
|
Read p : If p = "" Then Exit Do
|
|||
|
|
Dim As Integer l = Len(p), m = Int(l / 2)
|
|||
|
|
|
|||
|
|
For i As Integer = m To 1 Step -1
|
|||
|
|
t = Left(p, i)
|
|||
|
|
s = rep(t, l / i + 1)
|
|||
|
|
If p = Left(s, l) Then b = t : Exit For
|
|||
|
|
Next i
|
|||
|
|
|
|||
|
|
If b = "" Then
|
|||
|
|
Print p; " no es una cadena repetida"
|
|||
|
|
Else
|
|||
|
|
Print p; " secuencia m s larga: "; b
|
|||
|
|
End If
|
|||
|
|
Loop
|
|||
|
|
Sleep
|