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 Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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áy ảnh Galaxy Camera của Samsung giảm xuống còn 8,8 triệu đồng

Máy ảnh Galaxy Camera của Samsung giảm xuống còn 8,8 triệu đồng

Mới ra mắt hơn 3 tháng tại thị trường Việt Nam, chiếc máy ảnh Galaxy Camera của Samsung đã sụt giá gần 1/3, từ 12,8 triệu đồng xuống còn 8,8 triệu đồng.

Tăng dự trữ bằng đồng euro, Nga mất hơn 30 tỷ USD

Tăng dự trữ bằng đồng euro, Nga mất hơn 30 tỷ USD

Theo báo Độc lập (Nga), Nga đã mất hơn 30 tỷ USD trong năm 2011 do đồng euro mất giá. Trong dự trữ ngoại tệ của Nga, đồng euro chiếm hơn 40%, cao hơn đáng kể hơn so với mức ở các nước khác.

Scala

Web framework và web server Xitrum cho Scala do người Việt viết

Xitrum vừa là web framework vừa là web server mã nguồn mở theo phong cách hiện đại viết bằng Scala, cho Scala, có những tính năng nổi bật sau:

BLOG POSTS

 

Wordpress Freelancer

 

Wordpress Freelancer