Pascal | Kiểm tra mảng có đối xứng hay không

Kiểm tra mảng có đối xứng hay không? Kiểm tra mảng có tăng dần hay không?

Mảng đối xứng là mảng có phần tử Ai = AN-i-1

Nếu mảng không phải là mảng tăng dần, hãy sắp xếp nó thành mảng tăng dần.

Ví dụ: Mảng A:          1   15   6   7   4   7   6   15   1

Kết quả:          Mang A doi xung, Mang A khong phai la mang tang dan

Mảng A:          2   5   6   7   14   17   26   26   31

Kết quả:          Mang A khong doi xung, Mang A khong phai la mang tang dan

Hướng dẫn:

+ Xây dựng hàm int KtraDoiXung( A, N ) để kiểm tra tính đối xứng của mảng. Ý tưởng: Giả sử mảng A là mảng đối xứng, sử dụng vòng lặp để tìm kiểm một cặp đối xứng bất kỳ nhưng lại có giá trị không bằng nhau, khi đó trả về là mảng không đối xứng . Ngược lại là không tìm thấy nên mảng là mảng đối xứng .

+ Xây dựng hàm int KtraMangTang( A, N ) để kiểm tra xem mảng A có phải là mảng tăng hay không. Mảng tăng là mảng có các phần tử đứng sau không nhỏ hơn phần tử đứng trước nó. Ý tưởng: Giả sử mảng A là mảng tăng, sử dụng vòng lặp để kiểm tra có tồn tại phần tử nào nhỏ hơn phần tử đứng trước nó hay không, nếu có thì trả về là mảng không không phải là mảng tăng (return 0). Ngược lại là không tìm thấy nên mảng là mảng tăng (return 1).

+ Xây dựng hàm Function SxepMangTang( A, N ) để sắp xếp mảng A thành mảng tăng dần. Ý tưởng: Sử dụng 2 vòng lặp lồng nhau để kiểm tra hai phần tử tại vị trí i, j nếu i < j mà A[i] > A[j] thì hoán đổi giá trị của chúng.

+ Xây dựng  chương trình để thể hiện kết quả đánh giá trên.

Các hàm xây dựng:

{ 1. Ham kiem tra mang doi xung  }

Function KtraDoiXung (A:Mang20; N:Integer ) : Boolean;
Var Flag:Boolean;
      i :Integer;
Begin
        Flag:=True;
        For  i :=1 to N do
              If(A[i] <> A[N-i  +1]) Then
                     Flag :=False;       { Cham dut kiem tra, ket qua qua trinh : khong doi xung }
        KtraDoiXung :=Flag;
End;

{ 2. Ham kiem tra mang tang   }

Function KtraMangTang ( A:Mang20; N :Integer) : Boolean;
Var Flag : Boolean;
      i :Integer;
Begin
       Flag := True;
       For i :=1 to N do
              If(A[i] < A[i-1]) Then
                     Flag :=False;         { Cham dut kiem tra, ket qua qua trinh : khong tang }
       KtraMangTang :=Flag;
End;

{ 3. Thu tuc sap xep mang tang   }

Function  SxepMangTang (A:Mang20; N:Integer ):Integer;
Var i ,j,k :Integer;
Begin
       For i :=1 to N do
              For  j :=1 to N do
                     If ( (i<j) and (A[i] > A[j]) ) then
                     Begin
                            k := A[i];                 { Tien hanh hoan doi gia tri A[i], A[j] }
                            A[i] := A[j];             { cho nhau thong qua bien tam k }
                            A[j] := k;
                     End;
End;

Source code chương trình chính:

BEGIN
       Clrscr;
       NhapMang1C(A, N);                   { Ham nhap xuat khong nhac lai nua }
       XuatMang1C(A, N);                    { Su dung ket qua o truoc }
       If ( KtraDoiXung (A, N ) ) then
              Writeln( ' Mang A doi xung.')
       Else
              Writeln(' Mang A khong doi xung.');
       If ( KtraMangTang (A, N ) ) then
              Writeln( 'Mang A la mang tang ')
       Else
       Begin
              Writeln( 'Mang A khong phai la mang tang. ');
              SxepMangTang( A, N );
              Writeln( 'Ket qua sap sep:');
              XuatMang1C(A, N);
       End;
       Readln;
END .

Mở rộng:

+ Kiểm tra mảng A chỉ chứa toàn những số nguyên tố?

+ Kiểm tra mảng giảm dần, Sắp xếp mảng giảm dần.

+ Sắp xếp mảng A có các số dương tăng dần, các số âm giảm dần.

Function SxepDuongTangAmGiam ( A[]:Mang20,  N:Integer );
Var i ,j ,k:Integer;
Begin
       For i:=1 to N do
              For j:=1 to N  do
                     If ( ( (i<j)and (A[i] > A[j]) and (A[i]>0) and (A[j]>0)) or
                         ((i<j) and ( A[i] < A[j] ) and ( A[i]<0) and ( A[j]<0))) then
                     Begin
                             k := A[i];      { Tien hanh hoan doi gia tri A[i], A[j]}
                            A[i] := A[j];             { thong qua bien tam k }
                            A[j] := k;
                     End;
End;

+ Kiểm tra mảng A là một chuỗi cấp số cộng có công sai k = 5?

Ví dụ: 1   6   11   16   21   26   31

Function KtraMangCapSoCong (A:Mang20;  N:Integer; k:Integer):Boolean;
Var flag :boolean;
       i :Integer;
Begin
       for i:=1 to N do
              if(A[i] < > A[i-1] + k) then
                     flag:=false;                     { Cham dut, ket qua: khong phai}
       KtraMangCapSoCong:=flag; {Ket qua kiem tra la mang cap so cong}
End;