Question

Vụ đông xuân năm 2023 , các hộ gia đình xóm 3 và xóm 6 của hợp tác xã Diễn Thành cùng triển khai sản xuất giống lúa ST25 ( giả sử số hộ gia đình xóm 3 và xóm 6 như nhau ) em hãy viết chương trình nhập vào sản lượng thu hoạch lúa của mỗi xóm theo hộ gia đình và in ra màn hình sản lượng thu hoạch lúa chênh lệch giữa mỗi hộ gia đình ở xóm 3 đó , mỗi hộ gia đình tương ứng ở xóm 6

Answer 1

program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;

// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;

// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;

// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);

Bạn tham khảo

 

Answer 2

program TinhSanLuongLua;
const
  SoHoGiaDinh = 5;

var SanLuongXom3: array[1..SoHoGiaDinh] of Integer;
      SanLuongXom6: array[1..SoHoGiaDinh] of Integer;
       i: Integer;
  begin
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom3[i]);
  end;
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 6:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom6[i]);
  end;
  writeln('Chenh lech san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    writeln('Ho gia dinh ', i, ': ', SanLuongXom3[i] - SanLuongXom6[i]);
  end;
   readln;
end.