cho chương trình trong sách tin học trang 71 hãy giải thích ý nghĩa của các câu lệnh
0 bình luận về “cho chương trình trong sách tin học trang 71 hãy giải thích ý nghĩa của các câu lệnh”
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)
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;
end.