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

 
D8FTW: PHP-industry standard PHPUnit testing framework đã release

D8FTW: PHP-industry standard PHPUnit testing framework đã release

That's really unfortunate, as good testing can have a huge improvement on the quality of a system and, over time, even improve how fast a system can be developed because you spend less time finding and fighting old bugs and more time building things right the first time.

Sending Drupal Webform Results to Different Email Addresses

Gửi email đến Email Addresses khác bằng Drupal Webform

One of our students is using Drupal's Webform module for their site's contact form.

Nokia Lumia 720 có giá hơn 7 triệu đồng

Nokia Lumia 720 có giá hơn 7 triệu đồng

Sau Lumia 520 giá rẻ, tới lượt Lumia 720 được Nokia phát hành chính hãng tại Việt Nam kể từ tuần sau (8/4) với giá 7.249.000 đồng.

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

 

Diet con trung