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...

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.


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


Bình luận

Giải bài tập những môn khác