Lặp với số lần biết trước Câu 21: Nếu tính tổng của các số tự nhiên sao cho tổng của nó nhỏ hơn 100 thì ta dùng điều kiện gì ở câu lệnh While…do A... Sử dụng trong khai báo biến mảng B.[r]
Trang 1ÔN TẬP HK II TIN HỌC 8 NĂM HỌC 2012-2013
-I./ TRẮC NGHIỆM:
Câu 1: Vòng lặp sau thực hiện bao nhiêu lần lặp:
For i := 1 to 5 do a := a + 1;
Câu 2: Vòng lặp sau cho kết quả S bằng bao nhiêu:
S := 0; For i := 1 to 4 do S := S + 2;
A S = 8 B S = 10 C S = 12 D S = 14
Câu 3: Vòng lặp sau cho kết quả S bằng bao nhiêu:
S := 1; For i := 1 to 3 do S := S * 2;
Câu 4: Số lần lặp được tính như thế nào?
A Giá trị đầu – giá trị cuối B Giá trị đầu – giá trị cuối + 1
C Giá trị cuối – giá trị đầu D Giá trị cuối – giá trị đầu + 1
Câu 5: Trong câu lệnh lặp, kiểu dữ liệu của biến đếm là:
Câu 6: Câu lệnh lặp với số lần chưa biết trước bắt đầu bằng từ khóa:
Câu 7: Vòng lặp sau cho kết quả bằng bao nhiêu:
i := 0; T := 0;
While i < 3 do
begin T := T + 1; i := i + 1; end;
Câu 8: Từ khóa nào sau đây dùng để khai báo biến:
Câu 9: Khai báo biến kiểu mảng nào sau đây là hợp lệ:
A Var A, B: array[1 50] of integer; B Var A, B: array[1 N] of real;
C Var A: array[100 1] of integer; D Var B: array[1.5 10.5] of real;
Câu 10: Tổ hợp phím nào dùng để lưu tệp?
Câu 11: Trong câu lệnh While do, nếu điều kiện đúng thì:
A Tiếp tục vòng lặp B Vòng lặp vô tận
C Lặp 10 lần D Thoát khỏi vòng lặp
Trang 2Câu 12: Câu lệnh sau đây cho kết quả như thế nào? For i:=1 to 10 do Writeln(‘A’);
A In dãy số từ 10 đến 1 ra màn hình B In dãy số từ 1 đến 10 ra màn hình
C In 20 ký tự A ra màn hình D In 10 ký tự A ra màn hình
Câu 13: Trong câu lệnh For do, biến đếm của câu lệnh tăng lên bao nhiêu sau mỗi lần
lặp?
Câu 14: Cú pháp câu lệnh lặp với số lần chưa biết trước:
A For to do
B For <biến đếm>:=<giá trị cuối> to <giá trị đầu> do <câu lệnh>;
C For do
D For <biến đếm>:=<giá trị đầu > to <giá trị cuối > do <câu lệnh>;
Câu 15: Chọn phát biểu đúng:
A Lặp vô hạn lần có thể xảy ra ở câu lệnh lặp với số lần biết trước
B Lặp vô hạn lần là lặp 1000 lần
C Lặp vô hạn lần có thể xảy ra ở câu lệnh điều kiện
D Lặp vô hạn lần có thể xảy ra ở câu lệnh lặp với số lần chưa biết trước
Câu 16: Cho biết số lần lặp của câu lệnh sau? For i:=1 to 20 do
Câu 17: Chọn câu lệnh đúng:
A x:=1; while x:= 10 do x:=x+5; B x:=1; while x> 10 do x:=x+5;
C x:=1; while x<10 do x:=x+5; D x:=10; while x< 10 do x=x+5;
Câu 18: 5! = ? (năm giai thừa)
Câu 19: Trong câu lệnh For do, sau từ khóa “Do” có hai câu lệnh trở lên ta “gói” chúng
trong:
A Begin readln; B Begin and; C End Begin D Begin end;
Câu 20: Nhặt thóc ra khỏi gạo đến khi trong gạo không còn thóc là :
C Lặp với số lần chưa biết trước D Lặp với số lần biết trước
Câu 21: Nếu tính tổng của các số tự nhiên sao cho tổng của nó nhỏ hơn 100 thì ta dùng
điều kiện gì ở câu lệnh While…do
C While S<=100 do D While S>=100 do
Câu 22: Giá trị đầu và cuối của câu lệnh lặp For do có kiểu dữ liệu:
Trang 3Câu 23: Cặp từ khóa begin end; gói từ hai câu lệnh trở lệnh trong vòng lặp nào?
A Sử dụng trong khai báo biến mảng B While do
C Cả For do và While do D For do
Câu 24: Cho biết ý nghĩa của câu lệnh sau: For i:=1 to 10 do Readln(a[i]);
A In dãy số trong mảng a B Nhập dãy số cho mảng a
C Nhập giá trị cho biến i D In giá trị cho biến i
Câu 25: Cho biết cú pháp câu lệnh lặp với số lần biết trước?
A For <giá trị cuối> to <giá trị đầu> do <câu lệnh>;
B For <biến đếm> :=<chỉ số đầu> to <chỉ số cuối> do <câu lệnh>;
C While <điều kiện> do <câu lệnh>;
D While <giá trị đầu> then <giá trị cuối> do <câu lệnh>;
Câu 26: Chọn phát biểu sai:
A Biến mảng chứa một chuỗi giá trị B Biến thường chứa một giá trị
C Biến mảng có nhiều ô nhớ D Biến thường chứa một dãy giá trị
Câu 27: Giá trị của biến mảng là gì?
Câu 28: Trong câu lệnh For do, sau từ khóa “Do” có hai câu lệnh trở lên ta “gói” chúng
trong:
A Begin readln; B Begin and; C End Begin D Begin end;
Câu 29: Trong câu lệnh While do, nếu điều kiện đúng thì:
Câu 30: Chọn phát biểu đúng:
A Một vài trường hợp, ta có thể thay câu lệnh for…do bằng while …do và ngược lại
B Không thể thay câu lệnh for…do bằng while …do và ngược lại
C Có thể thay câu lệnh for… do và while… do bằng biến mảng
D Mọi trường hợp đều có thể thay câu lệnh for…do bằng while …do và ngược lại
Câu 31: Trong câu lệnh while…do nếu điều kiện sai thì:
A Tiếp tục vòng lặp B Lặp 1 lần
Câu 32: Cho biết cú pháp khai báo biến mảng
A <tên mảng>:array [<chỉ số đầu> … <chỉ số cuối>] of <kiểu dữ liệu>;
B <tên mảng>:array [<chỉ số đầu> <chỉ số cuối>] for <kiểu dữ liệu>;
C <tên mảng>:array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu>;
D <tên mảng>:array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu>;
Trang 4Câu 33: Phát biểu nào sau đây là đúng:
A Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài
hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn
b Chỉ ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp
c Ngôn ngữ Pascal chỉ thể hiện cấu trúc lặp bằng câu lệnh for…do
d Câu B và C đúng
Câu 34: Trong các câu lệnh Pascal sau, câu nào được viết đúng:
a for i:=1 to 10 do B for i:=1 to 10 do;
c for i=1 to 10 do d for i:1 to 10 do
Câu 36 Trong các hoạt động dưới đây, đâu là hoạt động lặp với số lần chưa biết trước:
a Mỗi buổi học đúng 5 tiết
b Mỗi ngày ăn cơm 3 buổi
C Mỗi ngày phải học bài cho đến khi thuộc.
d Rằm tháng Giêng là Tết Nguyên tiêu
Câu 37:Cho câu lệnh sau: S:=S+1/i ; Cho biết kiểu dữ liệu cần khai báo cho biến S là:
a.integer b byte c longint D real
Câu 38 : Trong Pascal, khai báo nào sau đây đúng?
A var tb: real; b var 4hs: integer;
c var r=30; d const x: real;
Câu 39: Em học vẽ hình học động với phần mềm:
a Turbo Pascal B Geometer's Sketchpad (GSP)
Câu 40: Các câu lệnh sau, câu lệnh nào hợp lệ ?
a For i:=1 to 10 do; write (‘a’)
B For i:=1 to 10 do write (‘a’);
c var x:real; begin for x:=1 to 10 do write (‘a’); end
Câu 41: Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến J bằng bao nhiêu?
Câu 42: Tính giá trị cuối cùng của b, biết rằng: a:= 3; b:= 5;
while a<0 do b:= a + b; a:=a+1;
a b= 8 b b=3 C b= 5 d b= 0
Trang 5II./ Bài tập:
Dùng ngôn ngữ lập trình Pascal, viết chương trình theo yêu cầu sau:
Bài 1./ Tính n! (tính tích n số tự nhiên liên tiếp từ 1 đến n)
Bài 2./ Tính tổng n số tự nhiên liên tiếp đầu tiên
Bài 3./ Tìm số lần được lặp và tính tổng các số tự nhiên liên tiếp sao cho tổng đó lớn hơn 100 Bài 4./ Viết cửu chương (từ cửu chương 2 -> 5), ngược lại cho hiện thông báo lỗi
Bài 5./ Viết cửu chương (từ cửu chương 2 -> 9) nhưng chỉ chạy được các cửu chương lẻ là
3, 5, 7, 9; nếu nhập cửu chương 2, 4, 6, 8 thì không chạy mà cho hiện thông báo lỗi
-Hết -Viết chương trình:
Bài 1./
Program tinh_giai_thua;
Uses crt;
Var n,i : integer; P: longint;
Begin
clrscr;
P:=1;
Write(‘Vui long nhap mot so n: ’); readln(n);
For i:= 1 to n do P:= P * i ;
writeln(n, ‘! =’, P);
Readln
End
Bài 2./
Program tinh_tong;
Uses crt;
Var n,i : integer; S: longint;
Begin
clrscr;
S:=0;
Write(‘Vui long nhap so n can tinh tong: ’); readln(n);
For i:= 1 to n do S:= S + i ;
writeln(‘Ket qua cua ’,n, ‘so tu nhien dau tien S = ’, S);
Readln
End
Trang 6Bài 3./
Program tinh_tong_lon_hon_100;
Uses crt;
Var S,n : integer;
Begin
clrscr;
S:=0 ; n:= 1;
While S< 100 do
Begin
S:= S + n ; n:= n + 1;
End;
Writeln(‘So n nho nhat de tong > 100 la ’ , n);
Writeln(‘Tong cua ’ , n , ‘ so dau tien > 100 la ’ , S);
readln
End
Bài 4./
Program cuu_chuong_tu_2_den_5;
Uses crt;
Var x,i : integer;
Begin
clrscr;
Write(‘Vui long nhap cuu chuong: ‘); readln(x);
Wrieln;
If (x>=2) and (x<=5) then For i:= 1 to 10 do writeln( x, ‘x’, i, ‘=’, x*i)
else writeln(‘Ban nhap loi Vui long nhap lai (cuu chuong tu 2 ->5)’ ); readln
End
Bài 5./
Program cuu_chuong_chan_le;
Uses crt;
Var x,i : integer;
Begin
clrscr;
Write(‘Vui long nhap cuu chuong: ’); readln(x);
Writeln;
If (x>=2) and (x<=9) and (x mod 2<>0) then
For i:= 1 to 10 do writeln( x, ‘x’, i, ‘=’, x*i)
else writeln(‘Ban nhap loi Vui long nhap lai (cuu chuong le moi chay)’ ); readln
Trang 7End.