Kiem tra 1t tin8

KIỂM TRA THỰC HÀNH (1TIẾT)
MÔN: TIN 8
Mỗi học sinh được bốc thăm đề (1 trong 3 đề đã cho)
Học sinh ngồi trực tiếp trên máy viết chương trình (không sử dụng tài liệu)
Thang điểm:
+ Viết chương trình đúng (đã hết lỗi) 6,0 đ
+ Biết chạy chương trình(hs tự nhập dữ liệu) 3,0 đ
+ Biết trở về màn hình soạn thảo 1,0 đ
Bài 1: Viết chương trình kiểm tra 3số bất kỳ có là độ dài 3cạnh của tam giác không?
Var a, b, c : integer;
Begin
write(‘Nhap canh a: ’); readln(a);
write(‘Nhap canh b: ’); readln(b);
write(‘Nhap canh c: ’); readln(c);
if ((a + b > c) and (a + c > b) and (b + c > a)) then
writeln(a,‘ , ’, b,‘ , ’,c,‘ la do dai ba canh cua tam giac’)
else
writeln(a,‘ , ’, b,‘ , ’,c,‘ khong la do dai ba canh cua tam giac’);
readln
End.
Bài 2: Viết chương trình xuất họ tên, tuổi của người bất kỳ.
Var hten : string; nsinh, htai, tuoi : integer ;
Begin
write(‘Nhap ho ten cua ban: ’); readln(hten);
write(‘Nhap nam sinh cua ban: ’); readln(nsinh);
write(‘Nhap nam hien tai: ’); readln(htai);
tuoi := htai – nsinh + 1;
writeln(‘Ten cua ban la ’,hten);
writeln(‘Ban duoc ’,tuoi,‘ tuoi.’);
readln
End.
Bài 3: Viết chương trình xuất chu vi, diện tích hình chữ nhật với dộ dài 2cạnh bất kỳ.
Var a, b, S, P : integer;
Begin
write(‘Nhap canh a: ’); readln(a);
write(‘Nhap canh b: ’); readln(b);
P := (a + b) * 2;
S := a * b;
writeln(‘ Chu vi hinh chu nhat la: ’,P);
writeln(‘ Dien tich hinh chu nhat la: ’,S);
readln
End.
--------------------------------------HẾT--------------------------------------