YÊU CẦU HỌC SINH HOÀN THÀNH BÀI TẬP TRẮC NGHIỆM TRỰC TIẾP TRÊN MÁY VÀ GIẢI CÁC BÀI TẬP TỰ LUẬN VÀO VỞ I TRẮC NGHIỆM CÂU 1: Trong ngôn ngữ Pascal, cho cú pháp sau: For < Biến đếm>:= to do; Phát biểu sau đúng: a biến đơn, thường kiểu nguyên b , biểu thức có kiểu khác với kiểu c phải lớn d phải câu lệnh đơn CÂU : Phát biểu sau câu lệnh lặp While< điều kiện> ; a biểu thức lôgic b phải câu lệnh đơn c phải câu lệnh ghép d câu lệnh lặp CÂU : Trong ngôn ngữ lập trình Pascal, câu lệnh sau thể cú pháp câu lệnh lặp với số lần biết trước? @ a For < Biến đếm>:= to do; b For < Biến đếm>:= downto do; c While do< câu lệnh>; d a b CÂU 4: Trong ngơn ngữ lập trình Pascal, câu lệnh sau câu lệnh rẽ nhánh? a For < Biến đếm>:= to do; b For < Biến đếm>:= to do; c While do< câu lệnh>; d If< điều kiện> then ; CÂU 5: Phát biểu sau SAI ? a Cấu trúc lặp phân biệt hai loại là: Cấu trúc lặp với số lần biết trước cấu trúc lặp với số lần chưa biết trước b Quá trình lặp khơng thể dừng gọi q trình lặp vô hạn c Trong pascal, Cấu trúc lặp với số lần chưa biết trước thể qua câu lệnh For d Trong pascal, Cấu trúc lặp với số lần chưa biết trước thể qua câu lệnh While CÂU 6: Hãy ghép kiện cột1 với cột nhất: Cột Cột Câu lệnh if-then A Lặp với số lần chưa biết trước Câu lệnh while-do B Rẽ nhánh dạng thiếu Câu lệnh for to C lặp với số lần biết trước dạng lùi 4.Câu lệnh for downto D lặp với số lần biết trước dạng tiến a 1A, 2C, 3D, 4B b 1B, 2C, 3D, 4A c 1B, 2A, 3D, 4C d 1B, 2D, 3C, 4A CÂU 7: Phát biểu sau sai? Trong câu lệnh: while a Vòng lặp dừng không thỏa mãn; b thực lần; c Sau câu lệnh đơn câu lệnh ghép; d kiểm tra trước thực câu lệnh CÂU 8:Trong ngôn ngữ lập trình Pascal, chương trình sau cho kết gì? var i: integer; begin for i:=5 downto write(i, ‘ ’); readln; end a b Đưa khoảng trắng c d Sai cú pháp CÂU 9: Cho đoạn chương trình sau: s:=0; for i:=1 to n s:=s+i*i; Đoạn chương trình thực cơng việc đây? a Tính s=n b Tính s=12+22+32+…+n2 c Tính s=1+2+3+…+n d Tính s=1*2+2*3+…+(n-1)*n CÂU 10: Đoạn lệnh sau thực cơng việc gì? For i:=1 to 100 Write(i:4); a Tính tổng số nhỏ 100 b Viết số từ đến 100 c Tính tổng số lẽ nhỏ 100 d Tìm số chia hết cho 100 II TỰ LUẬN Bài Chỉ thành phần tương ứng chương trình CHƯƠNG TRÌNH GIẢI THÍCH (1) Program tinhtong; (1)…………………………………… (2) Var N, i, s: word; (2) ……………………………… … Begin (3) (3) Write(‘Nhap N’);read(N); …………………………………… (4) S:=0; (5) For i:=1 to N (6) If i mod = then s:=s+i; (7) Write(‘Tong cac so chia het la:’, s); (8)Readln; End (4)…………………………………… (5)…………………………………… (6)…………………………………… (7)…………………………………… (8)…………………………………… Bài Đoán nhận kết sau thực đoạn lệnh: S:=0; For i:=1 to N If i mod = then s:=s+i; Write(‘Tong cac so chia het la:’, s); a Lập bảng mô cho biết kết quả: N=7 I i mod = i= Sai i= … i= … i= … i= … i= … i= … Bài Sắp xếp lại chương trình S … … … … … … CHƯƠNG TRÌNH GỢI Ý Kết (1)Begin CHƯƠNG TRÌNH VIẾT LẠI …………………………………… (2)Write(‘nhap so a,b,c’);readln(a,b,c); …………………………………… (3)Program Bosopitago; …………………………………… (4)If ((sqr(a)= sqr(b) + sqr(c)) or (sqr(b)= …………………………………… sqr(a) + sqr(c)) or (sqr(c)= sqr(b) + sqr(a)) (5) …………………………………… then Write(‘Bo so pitago’); …………………………………… (6)Var a,b,c: byte; …………………………………… (7) Readln …………………………………… (8) End …………………………………… (9) Else writeln(‘khong phai bo so pitago’); …………………………………… Bài Hãy điền nội dung thiếu phần trống ( …) để viết số từ 100 For …Downto … Do… ; Bài Hãy điền vào nội dung thiếu phần trống ( …) để tính tổng số chẵn từ 10 đến 100 (S) Gợi ý: Duyệt số (i) từ 10 đến 100 Nếu số (i) chia hết cho cộng vào tổng S S:= …; For i :=…to …do If (i mod … ) then S:=….; Bài Hãy điền vào nội dung thiếu phần trống ( …) để đếm số chia hết cho từ đến 100 (S) Gợi ý: Dùng biến Đếm (Dem) để lưu số số chia hết cho Duyệt số (i) từ đến 100 Nếu số (i) chia hết cho tăng biến Dem lên (Dem= Dem +1) Dem:= …; For i :=…to …do If (i mod … ) then Dem:=….; Bài Trong ngôn ngữ lập trình Pascal cho đoạn lệnh sau: tong:=1; for i:=1 to tong:=tong*i; Writeln(‘Ket qua la:’, tong); Viết kết sau thực đoạn lệnh Bài Trong ngơn ngữ lập trình Pascal cho đoạn lệnh sau: i:=0; while i