program superSymmetricalSubstring;

var

      s: string;

function isSymmetrical(str: string): boolean;

var

      i, len: integer;

begin

      len := length(str);

      for i := 1 to len div 2 do

      begin

            if str[i] <> str[len - i + 1] then

            begin

                  exit(false);

            end;

      end;

      exit(true);

end;

function countSuperSymmetricalSubstrings(s: string): integer;

var

      i, j, len, count: integer;

begin

      len := length(s);

      count := 0;

      for i := 1 to len do

      begin

            for j := 2 to len - i + 1 do

            begin

                  if isSymmetrical(copy(s, i, j)) then

                  begin

                        count := count + 1;

                  end;

            end;

      end;

      count := count + len;

      exit(count);

end;

begin

      write('Nhap xau S: ');

      readln(s);

      writeln('So xau con sieu doi xung cua S: ', countSuperSymmetricalSubstrings(s));

      readln;

end.

Dưới đây là một ví dụ về cách giải quyết bài toán này bằng ngôn ngữ Pascal:

Kết quả của ví dụ trên sẽ là 3, tương ứng với 3 xâu con siêu đối xứng của xâu "ababcb" là "aba", "bcb", và "ababcb".

Lưu ý rằng đây chỉ là một cách giải quyết bài toán và có thể tồn tại các cách giải khác.

input: Dãy số nguyên

Output: Kiểm tra xem dãy có đối xứng không

*Thuật toán

Bước 1: Nhập n và nhập dãy số

Bước 2: i←1; kt←true;

Bước 3: Nếu a[i]<>a[n-i+1] thì kt←false;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=true thì đây là dãy đối xứng và ngược lại

Bước 7: Kết thúc

 AE = AD; AD = BC nên AE = BC(1) 
DC = AB; DC = CF nên AB = CF (2) 
GÓC EAB = BCF (Đồng vị) (3) 
Từ (1); (2); (3) -> tgiac EAB = BCF (cgc) -> EB = BF (*) 
Mặt khác: GÓC EBA = EFD (đồng vị); ABC = ADC (gt); CBF = AEB (đồng vị) 
Cộng vế với vế: EBA + ABC + CBF = EFD + ADC + AEB 
Mà EFD + ADC + AEB = 180 độ -> EBA + ABC + CBF = 180 độ (**) 
Từ (*); (**) suy ra điểm E đối xứng với điểm F qua điểm B.

jhnjjg

Ta có: ABCD là hình bình hành nên AB // CD, AD//BC.

+ E đối xứng với D qua A

=> AE = AD

Mà BC = AD

=> BC = AE.

Lại có BC // AE (vì BC // AD ≡ AE)

=> AEBC là hình bình hành

=> EB // AC (1).

+ F đối xứng với D qua C

=> CF = CD

Mà AB = CD

=> AB = CF

Mà AB // CF (vì AB // CD ≡ CF)

=> ABFC là hình bình hành

=> AC //= BF (2)

Từ (1) và (2) suy ra E, B, F thẳng hàng và BE = BF

=> B là trung điểm EF

=> E đối xứng với F qua B

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

bool kt;

int main()

{

getline(cin,st);

kt=true;

d=st.length();

for (i=0; i<=d-1; i++)

if (st[i]!=st[d-i-1]) kt=false;

if (kt==true) cout<<"YES";

else cout<<"NO";

return 0;

}