Tính tổng các phần tử trong mảng 2 chiều pascal
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. Show + 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.
|
