Dùng mảng F[i, j] có ý nghĩa: F[i, j] = true/false nếu đoạn gồm các kí tự từ i đến j của S có/không là palindrome. Ta có công thức là: * F[i, i] = True * F[i, j] = F[i+1, j-1]; ( nếu s[i] = s[j] ) * F[i, j] = False; ( nếu s[i] <> s[j] ) Đoạn chương trình như sau: CODE FillChar( F, sizeof(F), false ); for i := 1 to n do F[i, i] := True; for k := 1 to (n-1) do for i := 1 to (n-k) do begin j := i + k; F[i, j] := ( F[i+1, j-1] ) and (s[i] = s[j] ); end; iKết quả là : Max(j-i+1) <=j thỏa F[i,j] = True. Độ phức tạp thuật toán là 0(N^2). [i]Chú ý : Với N lớn, ta phải thay mảng 2 chiều F bằng 3 mảng 1 chiều và dùng thêm biến max lưu giá trị tối ưu.