De KT TH Tin8 K1 co giai

TRƯỜNG THCS TRẦN CAO VÂN
ĐỀ KIỂM TRA THỰC HÀNH 1 TIẾT Tin 8
HỌC KỲ I NĂM HỌC 2011-2012
Viết chương trình nhập vào chiều cao của bốn bạn Hoàng, Thành, Thăng, Long rồi hiện ra kết quả : (Giả thiết chiều cao của 4 bạn đều khác nhau)
Trong bốn bạn đó thi ban ............cao nhat, voi chieu cao la …... (Thay dấu ... bởi tên bạn cao nhất và chiều cao của bạn đó)
Ví dụ: Nhap chieu cao cua ban Hoang : 1.7
Nhap chieu cao cua ban Thanh : 1.52
Nhap chieu cao cua ban Thang : 1.78
Nhap chieu cao cua ban Long : 1.62
Kết quả : Trong bon ban do thi ban Thang cao nhat voi chieu cao la 1.78 m
Viết chương trình nhập điểm ba môn Toán, Lý, Hóa (kiểu số thực) cho một HS. Xuất ra kết quả là ĐTB của 3 môn và Xếp loại cho HS đó. Công thức tính DTB : =(Toan+Ly+Hoa)/3
Qui định XL: Nếu DTB >=8 thì XL Gioi, Nếu DTB>=6.5 (nhưng nhỏ hơn 8) thì XL Khá, DTB>=5 (nhưng nhỏ hơn 6.5) thì XL TBinh còn lại thì XL Yeu Ví dụ: Khi chạy CT sẽ hiện ra:
Nhap diem 3 mon Toan, Ly, Hoa: Giả sử Nhập vào là: 6 7 8
Hiện ra : DTB la: 7.0 , xep loai: Kha
Hướng dẫn: Khai báo biến xếp loại với kiểu string (XL : string)


TRƯỜNG THCS TRẦN CAO VÂN
ĐỀ KIỂM TRA THỰC HÀNH 1 TIẾT Tin 8
HỌC KỲ I NĂM HỌC 2011-2012
Viết chương trình nhập vào chiều cao của ba bạn Thanh, Thuan, Thao, rồi hiện ra kết quả là : (Giả thiết chiều cao của 3 bạn đều khác nhau)
Trong ba bạn đó thi ban …........thap nhat voi chieu cao la ………. (Thay dấu … bởi tên bạn thấp nhất và chiều cao của bạn đó)
Ví dụ: Nhap chieu cao cua ban Thanh : 1.52
Nhap chieu cao cua ban Thuan : 1.68
Nhap chieu cao cua ban Thao : 1.62
Kết quả : Trong ba ban do thi ban Truong thap nhat với chieu cao la: 1.52
Viết chương trình nhập điểm bốn môn Văn, Sử, Địa, N Ngữ (kiểu số thực) cho một HS. Xuất ra kết quả là ĐTB của 4 môn và Xếp loại cho HS đó. Công thức tình DTB := (Van+Su +Dia+Nngu)/4
Qui định XL: Nếu DTB <3.5 thì XL Kem (Kém), Nếu DTB<5 (nhưng lớn hơn hoặc bằng 3.5) thì xl yeu (yếu), còn lại dat cau (Đạt yêu cầu) ví dụ: khi chạy ct sẽ hiện ra:
Nhap diem 4 mon Van, Su, Dia, Nngu: Giả sử Nhập vào là: 3 4 5 6
Hiện ra : DTB la: 4.5 , xep loai: Yeu
Hướng dẫn: Khai báo biến xếp loại với kiểu string (XL : string)
Lời giải tham khảo
Bài 1:
Program Aicaonhat;
Var h1,h2,h3,h4,cn:real;
Begin
write(`Nhap chieu cao cua ban Hoang: `); readln(h1);
write(`Nhap chieu cao cua ban Thanh: `); readln(h2);
write(`Nhap chieu cao cua ban Thang: `); readln(h3);
write(`Nhap chieu cao cua ban Long: `); readln(h4);
CN:= h1;
If h2>CN then cn:=h2;
If h3>CN then cn:=h3;
If h4>CN then cn:=h4;
If h1=cn then write(`Ban Hoang cao nhat voi chieu cao la: `,cn:4:2,`m`);
If h2=cn then write(`Ban Thanh cao nhat voi chieu cao la: `,cn:4:2,`m`);
If h3=cn then write(`Ban Thang cao nhat voi chieu cao la: `,cn:4:2,`m`);
If h4=cn then write(`Ban Long cao nhat voi chieu cao la: `,cn:4:2,`m`);
Readln;
End.

Bài 2:
Program congdiemxeploai;
Var t,l,h,dtb:real; xl:string;
Begin
write(`Nhap diem cac mon Toan, Ly, Hoa: `); readln(t,l,h);
dtb:=(t+l+h)/3;
If dtb>=8 then xl:=`Gioi` else
If dtb>=6.5 then