Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 1) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.
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
Câu 56: 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.
Lời giải:
+ Đố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.
{ 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.
CÔNG TY TNHH ĐẦU TƯ VÀ DỊCH VỤ GIÁO DỤC VIETJACK
- Người đại diện: Nguyễn Thanh Tuyền
- Số giấy chứng nhận đăng ký kinh doanh: 0108307822, ngày cấp: 04/06/2018, nơi cấp: Sở Kế hoạch và Đầu tư thành phố Hà Nội.
2021 © All Rights Reserved.
