Giáo án Tin 8 Trờng THCS Lê Hồng Phong Ngày soạn: 06/ 12/08 Ngày giảng: 8A: 8B: 8C: Tiết 34: Kiểm tra thực hành I. Mục tiêu bài học: 1. Kiến thức: - Củng cố kiến thức đã học về câu lệnh điều kiện, câu lệnh lặp, câu lệnh lặp với số lần cha biết trớc. 2. K nng: - Rèn kĩ năng thao tác thực hành trên máy tính - Rèn kĩ năng sửa lỗi chơng trình và tìm hiểu ý nghĩa của chơng trình. 3. Thỏi : - Nghiờm tỳc tích cực trong thực hành, phát triển t duy lập trình. II. Chuẩn bị: 1. Giỏo viờn: Giỏo ỏn, nội dung bài thực hành. 2. Hc sinh: chun b b i tập nh . III. Tiến trình lên lớp: 1. ổn định tổ chức 2. Kiểm tra: Đề số 1: Câu 1: Viết chơng trình Pascal nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, Câu 2: Viết chơng trình Pascal tính tích của N số tự nhiên đầu tiên (N!), sử dụng lệnh lặp Fordo. Đề số 2: Câu 1: Viết chơng trình Pascal tính tổng của N số tự nhiên đầu tiên với N là số tự nhiên đợc nhập vào từ bàn phím. Câu 2: Viết chơng trình Pascal thể hiện thuật toán tính tổng n số tự nhiên đầu tiên, biết rằng tổng đó nhỏ nhất và lớn hơn 1000. Đáp án và thang điểm Đề số 1: Câu 1: Điểm Program Ai_cao_hon; Uses crt; Var Long, Trang : Real; 1 Begin 23 Gi¸o ¸n Tin 8 Trêng THCS Lª Hång Phong Clrscr; Write(‘ Nhap chieu cao cua Long: ’); readln(Long); Write(‘ Nhap chieu cao cua Trang: ’); readln(Trang); 1 If Long>Trang Then writeln(‘Ban Long cao hon’); 1 If Long<Trang Then writeln (‘Ban Trang cao hon’) 1 Else Writeln(‘hai ban cao bang nha’); Readln End. 1 C©u 2: Program Program Tinh_giai_thua; Tinh_giai_thua; Var Var N, i : integer; N, i : integer; P: real; P: real; 1,5 Begin Begin Write(‘Nhap so N = ’); readln(N); Write(‘Nhap so N = ’); readln(N); P:= 1; P:= 1; 0,5 0,5 For For i := 1 to N i := 1 to N do do P:= P*i; P:= P*i; 1,5 Writeln(N, ‘! = ’,P ); Writeln(N, ‘! = ’,P ); End End . . 1 Tæng Tæng 10 §Ò sè 2: C©u 1 §iÓm Program Program Tinh_tong; Tinh_tong; Var Var N, i : integer; N, i : integer; S: real; S: real; 1,5 Begin Begin Write(‘Nhap so N = ’); readln(N); Write(‘Nhap so N = ’); readln(N); S:= 0; S:= 0; 0,5 0,5 For For i := 1 to N i := 1 to N do do S:= S+i; S:= S+i; 1,5 Writeln(‘Tong cua’,N, ‘so tu nhien dau tien S=’, S); Writeln(‘Tong cua’,N, ‘so tu nhien dau tien S=’, S); End End . . 1 C©u 2: C©u 2: Program Tong_lon_hon_1000; var S,n: integer; 0,5 Begin 24 Giáo án Tin 8 Trờng THCS Lê Hồng Phong S:=0; n:=1; 0,5 while S<=1000 do begin n:=n+1; S:=S+n end; 2 writeln('So n nho nhat de tong > 1000 la ',n); writeln('Tong dau tien > 1000 la ',S); End. 2 Tổng 10 3. Dặn dò: - Về nhà ôn tập lại các kiến thức đã học - Giờ sau ôn tập chơng I. 25 . Giáo án Tin 8 Trờng THCS Lê Hồng Phong Ngày soạn: 06/ 12/ 08 Ngày giảng: 8A: 8B: 8C: Tiết 34: Kiểm tra thực hành I. Mục tiêu. Else Writeln(‘hai ban cao bang nha’); Readln End. 1 C©u 2: Program Program Tinh_giai_thua; Tinh_giai_thua; Var Var N, i : integer; N, i : integer; P: real;