Pascal | Tính tổng các phần tử theo từng dòng của mảng 2 chiều

Pascal | Tính tổng các phần tử theo từng dòng của mảng 2 chiều

Viết chương trình thao tác trên mảng 2 chiều với các công việc sau:

+ Nhập xuất mảng 2 chiều.

+ Tính tổng các phần tử theo từng dòng của mảng.

+ Tìm dòng có tổng giá trị lớn nhất.

Hướng dẫn:

+ Đối với mỗi vòng lặp theo dòng, tiến hành tính tổng cho các phần tử trên dòng. Áp dụng như tính tổng cho mảng một chiều.

+ Vừa tính tổng vừa tiến hành so sánh và lưu lại giá trị lớn nhất.

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

{ 1. Thu tuc tinh & in tong cac phan tu tren dong cua mang 2 chieu }

Procedure TongCacDong( A : Mang2C; M,N : Integer);

Var     i, j: Integer;

            S : Real;

Begin

      For i:=1 to M do

      Begin

            S := 0;

For j :=1 to N do

S := S + A[i, j];

                  Writeln( ‘Tong dong ‘, i ,’ la ‘, S);

            End;

End;


{ 2. Thu tuc tim tong lon nhat cua cac phan tu tren dong cua mang 2 chieu }

Function MaxTgDong(A:Mang2C; M,N:Integer) : Real;

Var     i, j, k: Integer;

            Value , S : Real;

Begin

      For i:=1 to M do

      Begin

            S := 0;

For j :=1 to N do

S := S + A[i, j];

                  If (S > Value) Then

Begin

      Value := S;

      K := i;

End;

            End;

            MaxTgDong := Value;

End;


{ 3. Than chuong trinh chinh    }

BEGIN

            {  Nhung ham nhap xuat da de cap o Bai so 4.1, xem chi tiet o tren             }

Writeln( ‘Nhap mang 2 chieu:’);         NhapMang2C (A, M, N );

Writeln( ‘Mang da nhap la:’);             XuatMang2C (A, M, N );

Writeln( ‘Tong cac phan tu theo dong la:’ );

TongCacDong( A , M, N );

Writeln( ‘Gia tri lon nhat cua cac tong:’, MaxTgDong ( A, M, N) );

Readln;

END.
Bạn thấy bài viết này như thế nào?: 
Average: 5.9 (13 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

 
Choma hy vọng khi cô chụp các đồng nghiệp của mình, họ sẽ có thêm một vài giây thư giãn và tạm thời quên đi không khí nặng nề trong các chuyến bay mùa dịch

Molly Choma, 33 tuổi, dần làm quen với những chuyến bay trống không giữa Covid-19

Bộ ảnh do tiếp viên Mỹ chụp những chuyến bay rỗng trong đại dịch là tài liệu chân thật về thời kỳ ảm đạm nhất của hàng không thế giới.

Hướng dẫn tự động sinh summary với Toc.js module trong Drupal 8

Hướng dẫn tự động sinh summary với Toc.js module trong Drupal 8

The Toc.js module offers full integration with the content types of a Drupal project. To use it, simply activate it in the configuration page of a content type.

Bài 5 nodejs: Single Thread và Multi-threads

Thread: Trong một môi trường vi tính, thread có thể như là một danh sách liệt kê những dữ kiện, công việc phải làm theo thứ tự trước sau

Tomdesgin.vn

 

Drupal Services