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: 6.2 (14 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

 
Ngoại trưởng Dominic Raab - Anh đòi Trung Quốc trả lời câu hỏi hóc búa về Covid-19

Ngoại trưởng Dominic Raab - Anh đòi Trung Quốc trả lời câu hỏi hóc búa về Covid-19

Ngoại trưởng Dominic Raab tại cuộc họp báo về Covid-19 ở Văn phòng Thủ tướng tại số 10 phố Downing, London hôm 16.4.2020 cho hay Anh

Phím tắt trong trình duyệt web IE và Firefox

Phím tắt trong trình duyệt web IE và Firefox

Nếu là một con nghiện internet “chính hiệu”, đây là những thứ bạn nên biết. Đối với những người sử dụng máy vi tính để kết nối internet và truy cập thông tin...

Phân tích các thành phần đặc trưng của các web rác - spammy website, blog

Phân tích các thành phần đặc trưng của các web rác - spammy website, blog

Phân tích các thành phần đặc trưng của các web rác - spammy website, blog. Các phương pháp tối ưu lâu dài - white hat search engine optimization.

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

 

Diet con trung