3. Trong chương trình trên, để tiết kiệm thời gian nhập dữ liệu nên số công ty được đặt là 5, mảng a được khai báo kích thước cố định là 5. Khi đó nếu muốn thay đổi số công ty (chẳng hạn thành 6) thì em phải sửa nhiều chỗ trong chương trình, em hãy đếm xem có bao nhiêu chỗ phải sửa? Để tránh hạn chế đó, người ta thường khai báo kích thước mảng là một hằng số như đoạn chương trình sau.
Uses crt;
Const n = 50;
var a: array [1..n] of real;
Dựa vào cách làm đó, em hãy sửa lại chương trình trong hoạt động nhóm ở trên để mỗi khi thay đổi kích thước của mảng thì chỉ cần sửa một chỗ duy nhất trong chương trình.
Bài Làm:
Có 3 chỗ cần phải sửa
- Chỗ đầu tiên: phần khai báo a: array [1..5] of real;
- Chỗ thứ 2: vòng lặp for để nhập dữ liệu: for i := 1 to 5 do
- Chỗ thứ 3: tính lợi nhuận trung bình loi_nhuan_trung_binh := tong_loi_nhuan/5;
- Chỗ thứ 4: vòng lặp for để duyệt danh sách đếm số công ty: for i := 1 to 5 do
Sửa lại chương trình như sau:
Chỗ đầu tiên:
Uses crt;
Const n = 50;
var a: array [1..n] of real;
...
Chỗ thứ 2: for i := 1 to n do
Chỗ thứ 3: loi_nhuan_trung_binh := tong_loi_nhuan/n;
Chỗ thứ 4: for i := 1 to n do