• Khung trình chiếu

Bài tập: In ra số lớn nhất trong các tổng từng cột, từng hàng dùng mảng 1 chiều

Các mã nguồn được viết bằng ngôn ngữ Pascal
Gửi hồi đáp
Ảnh đại diện người dùng
huynhbuutam
Nhà sáng lập
Nhà sáng lập
Các bài viết: 112
Đã gia nhập lúc: T3 31 Th8, 2021 22:04
Địa điểm: Trường THCS Châu Lăng
Tên thật: Huỳnh Bửu Tâm

Bài tập: In ra số lớn nhất trong các tổng từng cột, từng hàng dùng mảng 1 chiều

Bài viết bởi huynhbuutam »

Cho lưới ô vuông 5x5 (5 hàng, 5 cột), mỗi ô vuông chứa giá trị là một số nguyên dương.
Viết chương trình theo các điều kiện sau:
1. Yêu cầu người sử dụng nhập giá trị cho lưới ô vuông trên.
2. Tính tổng các số chẵn trên mỗi cột.
3. Tính tổng các số lẻ trên mỗi dòng.
4. Tìm số lớn nhất trong các tổng ở trên, in kết quả ra màn hình.
Ví dụ:

Mã: Chọn tất cả

                                  Tổng
         1    2    3    4    5     9
         6    7    8    9    10    16
         11   12   13   14   15    39
         16   17   18   19   20    36
         21   22   23   24   25    69
Tổng     22   36   26   42   30
Giá trị lớn nhất tìm được là: 69
Chương trình ví dụ:

Mã: Chọn tất cả

Nhap hang 1: 1 2 3 4 5
Nhap hang 2: 6 7 8 9 10
Nhap hang 3: 11 12 13 14 15
Nhap hang 4: 16 17 18 19 20
Nhap hang 5: 21 22 23 24 25
So lon nhat la: 69
Mã nguồn:

Mã: Chọn tất cả

Uses Crt;
Var M1, M2, M3, M4, M5 : Array[1..1000] Of LongInt;
	Hang, Cot : Array[1..1000] Of LongInt;
	Max : LongInt;
	i : Integer;
Begin
	ClrScr;
	Write('Nhap hang 1: ');
	For i := 1 To 5 Do Read(M1[i]); ReadLn;
	Write('Nhap hang 2: ');
	For i := 1 To 5 Do Read(M2[i]); ReadLn;
	Write('Nhap hang 3: ');
	For i := 1 To 5 Do Read(M3[i]); ReadLn;
	Write('Nhap hang 4: ');
	For i := 1 To 5 Do Read(M4[i]); ReadLn;
	Write('Nhap hang 5: ');
	For i := 1 To 5 Do Read(M5[i]); ReadLn;
	
	FillByte(Hang, SizeOf(Hang), 0);
	FillByte(Cot, SizeOf(Cot), 0);
	
	For i := 1 To 5 Do
	Begin
		If (M1[i] Mod 2 = 0) Then Cot[i] := Cot[i] + M1[i]
		Else Hang[1] := Hang[1] + M1[i];
		If (M2[i] Mod 2 = 0) Then Cot[i] := Cot[i] + M2[i]
		Else Hang[2] := Hang[2] + M2[i];
		If (M3[i] Mod 2 = 0) Then Cot[i] := Cot[i] + M3[i]
		Else Hang[3] := Hang[3] + M3[i];
		If (M4[i] Mod 2 = 0) Then Cot[i] := Cot[i] + M4[i]
		Else Hang[4] := Hang[4] + M4[i];
		If (M5[i] Mod 2 = 0) Then Cot[i] := Cot[i] + M5[i]
		Else Hang[5] := Hang[5] + M5[i];
	End;
		
	Max := Hang[1];
	For i := 2 To 5 Do
		If Hang[i] > Max Then Max := Hang[i];
		
	For i := 1 To 5 Do
		If Cot[i] > Max Then Max := Cot[i];
		
	Write('So lon nhat la: ', Max);
	ReadLn;
End.
Gửi hồi đáp
  • Similar Topics
    Các hồi đáp
    Lượt xem
    Bài viết cuối