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

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;
Bạn thấy bài viết này như thế nào?: 
Average: 7.7 (10 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Mạng xã hội ảnh hưởng lớn đến kinh doanh và thương hiệu

Mạng xã hội ảnh hưởng lớn đến kinh doanh và thương hiệu

Dân chủ ngự trị tối cao cho các công ty sử dụng mạng xã hội để tiếp thị bản thân và sản phẩm của họ.

Hướng dẫn tạo Status nóng bỏng trên Facebook

Hướng dẫn tạo Status nóng bỏng trên Facebook

Hẳn mọi người dùng facebook thì ngày nào cũng đăng status rồi đúng không

Google Maps Android Apps Review

Google Maps Android Apps Review

If you like to travel and see the world then you probably understand just how important it is to get your directions right.

Công ty diệt chuột T&C

 

Diet con trung