Chào mừng quý vị đến với website của Trường THCS Cát Chánh
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái. Mọi thắc mắc xin liên hệ Admin: Nguyễn Văn Phong - 0979.178939 - Email:Thcs_catchanhpc@yahoo.com or Phieudu2005phong@yahoo.com.
Đáp án Bài 6 (đề cương ôn KT)
program bai6;
uses crt;
var dt,dv:array[1..100] of real;
i,n,slg,slk,sltb,sly,slkem:integer;
dtb:real;
begin
clrscr;
write('Nhap so hoc sinh cua lop n='); readln(n);
writeln('Bat dau nhap diem Toan va Ngu Van ');
writeln(' ------------------------- ');
for i:=1 to n do
begin
write('D.TOAN[',i,']='); readln(dt[i]);
write('D.VAN[',i,']='); readln(dv[i]);
end;
writeln(' DTB cac ban la ');
writeln(' STT DT DV DTB');
for i:=1 to n do
begin
writeln(' ',i,' ',dt[i]:2:1,' ',dv[i]:2:1,' ',(dt[i]+dv[i])/2:2:1);
dtb:=(dt[i]+dv[i])/2;
if dtb>=8 then inc(slg) else
if dtb>=6.5 then inc(slk) else
if dtb>=5 then inc(sltb) else
if dtb>3.5 then inc(sly) else inc(slkem);
end;
writeln('------------------------------');
writeln(' Thong Ke Chat Luong Hoc Tap ');
writeln('So luong Gioi: ',slg, ' hoc sinh');
writeln('So luong Kha: ',slk, ' hoc sinh');
writeln('So luong Tbinh: ',sltb, ' hoc sinh');
writeln('So luong Yeu: ',sly, ' hoc sinh');
writeln('So luong Kem: ',slkem,' hoc sinh');
writeln('Chuc moi nguoi may man, thanh cong!');
readln;
end.
Nguyễn Văn Phong @ 00:48 10/02/2013
Số lượt xem: 630
- Đáp án bài 3 (15/11/12)
- Đơn vị đo YottaByte lớn đến mức nào? (26/05/12)
- Phiên bản Imindmap 5.5 (10/03/12)
- Những thói quen nên từ bỏ khi sử dụng máy tính (17/02/12)
- Top Phần mềm có Key mới (2012) (23/09/11)
Các ý kiến mới nhất