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: 9 (73 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: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Hướng dẫn flag , unflag trong Drupal 7

Hướng dẫn flag , unflag trong Drupal 7

Drupal's Flag module comes in handy in various situations. It does however have one major drawback for some use cases - there is no way to clear all flags of a certain content item.

Thực hành SEO onpage

Thực hành SEO onpage

SEO On-page ( SEO Onpage là một phần quan trọng trong một quy trình SEO).

Apple sở hữu web khiêu dâm “ăn theo” iPhone

Apple sở hữu web khiêu dâm “ăn theo” iPhone

Apple đã chính thức trở thành chủ sở hữu của bảy tên miền “dựa hơi” chiếc điện thoại đình đám iPhone và chuyển hướng khách truy cập tới những trang web khiêu dâm.