Hãy nêu ý nghĩa của các câu lệnh trong chương trình sau:
var a, Thunhap_TB: real; i: Integer;
begin
Thunhap_TB:= 0;
for i:=1 to 50 do
begin
write(‘Thu nhap của gai dinh thu’,i);
readln(a);
Thunhap_TB: = Thunhap_TB+a
end;
Thunhap_TB: = Thunhap_TB/50;
for i:=1 to 50 do begin
write(‘Thu nhap của gai dinh thu’,i);
readln(a);
writeln(‘Do lech so voi thu nhap TB la:’,a-Thunhap_TB)
end;
end.
var a, thunhap_tb:real; i:integer; (KHAI BÁO BIẾN).
begin
thunhap_tb=0;
for i:=1 to 50 do (CHO BIẾN I CHẠY TỪ 1 ĐẾN 50)
begin
write(‘thu nhap cua gia dinh thu: ‘,i); (IN RA DÒNG thu nhap cua gia dinh thu TỪ 1 ĐẾN 50 )
readln(a); (NHẬP THU NHÂP CỦA TỪNG HỘ GIA ĐINH)
thunhap_tb:=thunhap_tb+a;(TÍNH TỔNG THU NHÂP CỦA 50 HỘ GIA ĐÌNH)
end;
thunhap_tb:=thunhaptb/50;(LẤY TỔNG THU NHẬP CỦA 50 HỘ GIA ĐÌNH CHIA CHO TỔNG SỐ HỘ)
for i:=1 to 50 do(TIẾP TỤC CHO I CHẠY TỪ 1 ĐẾN 50)
begin
write(‘thu nhap của gia đinh thu ‘,i); readln(a);(IN RA DONG thu nhap cua gia dinh TỪ 1 ĐẾN 50 VÀ THU NHAP CỦA TỪNG HỘ)
writeln(‘do lech so voi thu nhap tb la: ‘,a-thunhap_tb);(IN RA DÒNG CHỮ do lech so voi thu nhap tn la VÀ TÍNH ĐỘ LỆCH GIỮA MỨC THU NHAP CỦA HỘ ĐÓ SO VỚI MỨC THU NHAP TRUNG BINH)
end.
var a, Thunhap_TB: real; i: Integer; (Khai báo biến a, Thunhap_TB, i)
begin
Thunhap_TB:= 0; (Gán giá trị Thunhap_TB= 0)
for i:=1 to 50 do (Thực hiện câu lệnh lặp từ 1-50)
begin (Bắt đầu 1 câu lệnh ghép)
write(‘Thu nhap của gai dinh thu’,i); (Viết thu nhập của gđ từ 1-50)
readln(a);
Thunhap_TB: = Thunhap_TB+a (Gán giá trị Thunhap_TB= Thunhap_TB+a)
end; (Kết thúc lệnh ghép)
Thunhap_TB: = Thunhap_TB/50; (Gán giá trị Thunhap_TB= Thunhap_TB : 50)
for i:=1 to 50 do (Thực hiện câu lệnh lặp từ 1- 50)
begin (Bắt đầu 1 câu lệnh ghép)
write(‘Thu nhap của gai dinh thu’,i); (Viết thu nhập của gđ từ 1-50)
readln(a);
writeln(‘Do lech so voi thu nhap TB la:’,a-Thunhap_TB) (In kết quả toàn bài ra màn hình thu nhập của hộ gđ)
end; (Kết thúc lệnh ghép)
end.
Học tốt!