kiem tra 1t tin8

<span class='text_page_counter'>(1)</span>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--------------------------------------.

<span class='text_page_counter'>(2)</span>