Pascal | Viết chương trình thao tác trên ma trận vuông với các yêu cầu

Pascal | Viết chương trình thao tác trên ma trận vuông với các yêu cầu

Viết chương trình thao tác trên ma trận vuông với các yêu cầu:

+ Nhập xuất ma trận vuông.

+ Tính tổng các phần tử trên đường chéo chính.

+ Kiểm tra tính đối xứng của ma trận vuông qua dường chéo chính.

Hướng dẫn:

+ Ma trận vuông là mảng 2 chiều nhưng có kích thước dòng bằng kích thước cột. Tức là, M=N, khi dó kích thước của ma trận là NxN.

+ Đường chéo chính là các phần tử A[i, j] có i = j ( hay A[i, i] ).

Source code các hàm xây dựng

Quá trinh định nghĩa dữ liệu mảng có thể sử dụng lại bài 4.1.

{ 1. Thu tục nhap mang 2 chieu }
Procedure NhapMtran( Var A : Mang2C; Var N : Integer);
Var     i, j: Integer;
Begin
Repeat
Write(‘Nhap kich thuoc N: ‘);
Readln( N );
      Until ( N>0 ) and ( N<11 );
      For i:=1 to N do
For j:=1 to N do
Begin
Write(‘Nhập Ptu[‘, i, ‘,’, j , ‘]: ‘);
Readln(A[i,j]);
End;
End;
{ 2. Thu tục xuat mang 2 chieu }
Procedure XuatMtran( A : Mang2C; N : Integer);
Var     i, j: Integer;
Begin
      For i:=1 to N do
      Begin
For j:=1 to N do
Write(A[i, j],’  ‘);
Writeln;
End;
End;
{ 3. Ham tinh tong tren duong cheo chinh cua ma tran vuong }
Function TongDgCheoChinh( A : Mang2C; N : Integer) : Real;
Var     i, j: Integer;
            S : Real;
Begin
      S := 0;
      For i:=1 to N do
S :=  S  +  A[i, i];
TongDgCheoChinh := S;
End;
{ 3. Ham kiem tra tinh doi xung cua ma tran vuong  qua duong cheo chinh }
Procedure KiemtraDoixung( A : Mang2C; N : Integer);
Var     i, j: Integer;
            Ktra : Boolean;
Begin
     Ktra:= True;
           For i:=1 to N do
For j:=1 to N do
      If (A[i, j] <> A[j, i]) then
Ktra:=False;
     If  (Kiemtra = True) then
Writeln(‘Mang doi xung‘)
     Else
Writeln(‘Mang khong doi xung’);
      End;
{ 4. Than chuong trinh chinh    }
BEGIN
            {  Nhung ham nhap xuat da de cap o Bai so 4.1, xem chi tiet o tren             }
Writeln( ‘Nhap ma tran :’);     NhapMtran (A, N );
Writeln( ‘Ma tran da nhap la:’);          XuatMang2C (A, N, N );
Writeln( ‘Tong ptu duong cheo chinh:’, TongDgCheoChinh(A, N) );
KiemtraDoixung ( A , N );
Readln;
END.
Bạn thấy bài viết này như thế nào?: 
Average: 8.8 (79 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

 
Sếp Google bán tháo cổ phiếu vì muốn có 1,5 tỉ USD bỏ vợ

Sếp Google bán tháo cổ phiếu vì muốn có 1,5 tỉ USD bỏ vợ

Eric Schmidt phải bán tháo 2,4 triệu cổ phiếu của công ty nhằm gom đủ số tiền đền bù cho một cuộc li hôn được coi là đắt giá thứ hai trong lịch sử thế giới này.

Hướng dẫn làm việc với Drupal Calendar Module năm 2015

Hướng dẫn làm việc với Drupal Calendar Module năm 2015

By the end of this article, you will be able to configure a basic Drupal event calendar for your website that looks like this:

Người dùng Facebook có thể gắn thẻ tag mô tả về bản thân

Người dùng Facebook có thể gắn thẻ tag mô tả về bản thân

Facebook đang thử nghiệm tính năng mới là Profile tag. "Profile tag là một công cụ sáng tạo

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

 

Diet con trung