Không cần phải xác định kiểu dữ liệu Câu 28: Có thể dùng câu lệnh While – do thay cho câu lệnh For – do được không.. Không thể thay thế B.[r]
(1)HƯỚNG DẪN ÔN TẬP HỌC KÌ II TIN HỌC LỚP 8
I/ TRẮC NGHIỆM
Câu 1: Lệnh lặp sau đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cuối> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>; C For <biến đếm>:= <giá trị cuối> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 2: Vòng lặp While <Điều kiện> <Câu lệnh>; vòng lặp:
A Chưa biết trước số lần lặp B Biết trước số lần lặp
C Biết trước số lần lặp giới hạn <=100 D Biết trước số lần lặp giới hạn >=100 Câu 3: Sau thực đoạn chương trình sau, giá trị biến S bao nhiêu:
s:=1; for i:=1 to s := s*i;
A.120 B 55 C 121 D 151
Câu 4: Phần thân chương trình khóa:
A End B.Begin C.Uses D.Var
Câu 5: Cú pháp khai báo biến mảng Pascal là:
A.var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B var <Tên mảng> : aray [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D.var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; Câu 6: Câu lệnh pascal sau hợp lệ?
A For i:=100 to writeln(‘A’); B For i:=1.5 to 10.5 writeln(‘A’); C For i= to 10 writeln(‘A’); D For i:= to 10 writeln(‘A’); Câu 7: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 8: Trong lệnh lặp for…do Pascal, vòng lặp, biến đếm thay đổi nào?
A +1 B +1 -1 C Một giá trị D Một giá trị khác
Câu 9: Cú pháp câu lệnh While…do là:
A While <điều kiện> to <câu lệnh>; B While <điều kiện> to <câu lệnh1> do <câu lệnh 2>; C While <điều kiện> do <câu lệnh>; D While <điều kiện>; do <câu lệnh>;
Câu 10: Sau thực đoạn chương trình sau: Giá trị biến S bao nhiêu? S:=0; For i:=1 to S:=S+i;
A 20 B 15 C 10 D
Câu 11: Việc mà câu lệnh While cần thực gì?
A Thực < câu lệnh > sau từ khóa Do B Kiểm tra giá trị < điều kiện > C Thực câu lệnh sau từ khóa Then D Kiểm tra < câu lệnh >
Câu 12: Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? A For…do; B While…do; C If then; D If…then…else; Câu 13: Em học vẽ hình với phần mềm nào?
A. Pascal; B Geogebra; C Mario; D Finger Break out;
Câu 14: Câu lệnh gotoXY(a,b) có tác dụng gì?
A Đưa trỏ hàng a cột b B Đưa trỏ cột a hàng b
C Cho biết thứ tự hàng trỏ đứng D Đưa trỏ cuối dòng
Câu 15: Biến a nhận giá trị ; -1 ; 1; 2,3 Ta khai báo a thuộc kiểu liệu nào?
A Integer B Char C Real D Integer Longint
(2)A Begin -> Program -> End B Program -> End -> Begin C End -> Program -> Begin D Program -> Begin -> End Câu 17: Cho câu lệnh sau hay câu lệnh đúng:
A for i:=1 to 10; x:=x+1 B for i:=1 to 10 x:=x+1
C for i:=10 to x:=x+1 D for i:= to 10 for j:=1 to 10 x:=x+1
Câu 18 Trong câu lệnh lặp For i:=1 to 10 begin end; câu lệnh ghép thực lần?
A Không lần B lần C lần D 10 lần
Câu 19 Đoạn lệnh sau đây: so:=1; while so<10 writeln(so); so:=so+1; cho kết gì?
A In số từ đến B In số từ đến 10
C In vô hạn số 1, số dòng D Cả a, b, c sai Câu 20: Hãy cho biết kết b đoạn chương trình sau
a:=10; b:=5; while a>=10 do
begin b:=b+a; a:=a-1; end;
A b=5 B b=10 C b=15 D B=20
Câu 21: Trong Pascal, câu lệnh Writeln(16 div 3) in lên hình kết bao nhiêu? A Kết B Kết C Kết 16 D Kết Câu 22: Câu lệnh điều kiện dạng đầy đủ là:
A If <điều kiện> then < câu lệnh>; B If <điều kiện> then <câu lệnh 1> Else <câu lệnh 2>; C If <điều kiện> then < câu lệnh>; D If <điều kiện> then < câu lệnh 1>,<câu lệnh 2>; Câu 23: Chọn phép toán sai phép toán viết ngơn ngữ lập trình Pascal đây:
A x≥(m+5)/(2∗a)x≥(m+5)/(2∗a) B x>=(m+5)/(2∗a)x>=(m+5)/(2∗a) C x>=(m+5)/2∗ax>=(m+5)/2∗a D Tất phép toán Câu 24:If Then Else là:
A Vịng lặp xác định B Vịng lặp khơng xác định
C Câu lệnh điều kiện D Một khai báo
Câu 25: Bốn bạn A,B,C,D đưa kết phép chia hai số nguyên 14 Hãy chọn kết đúng: A 14/5=2; 14 div 5=2; 14 mod 5=4; B 14/5=2.8; 14 div 5=2; 14 mod 5=4;
C 14/5=2.8; 14 div 5=4; 14 mod 5=2 D 14/5=3; 14 div 5=2; 14 mod 5=4 Câu 26: Trong Pascal, khai báo sau đúng?
A Var begin : integer; B Var tamgiac = real;
C Const bankinh : 2; D Const Pi = 3.14;
Câu 27: Kiểu liệu biến đếm lệnh lặp For – to - do:
A Cùng kiểu với giá trị đầu giá trị cuối B Chỉ cần khác kiểu với giá trị đầu C Cùng kiểu với biến câu lệnh D Không cần phải xác định kiểu liệu Câu 28: Có thể dùng câu lệnh While – thay cho câu lệnh For – không?
A Không thể thay B Chỉ thay vòng lặp chưa biết trước số lần lặp C Ln thay D Tỉ lệ thay 50%
Câu 29: Trong vòng lặp While – do, câu lệnh thực khi:
A Điều kiện B Điều kiện sai
C Điều kiện không xác định D Không cần điều kiện
Câu 30: Tính tống S = + + + … + n + … S>1000 Điều kiện sau cho vòng lặp while – đúng:
A While S>=1000do B While S < =1000do
(3)II/ BÀI TẬP TỰ LUẬN:
Câu 1: Điền X vào ô cho phù hợp giải thích sao?
Câu Đúng Sai Giải thích
a) for i=1 to 10 do writeln('A'); b) var X: Array[5…10] Of Char; c) X:=10; while X=10 do X := X+5; d) if x>5 then a:=b; else m := n;
Câu 2: Đánh dấu [x] vào ô sai tương ứng câu lệnh Pascal chương trình tính tổng 10 số tự nhiên đầu tiên, sai sửa lại?
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh Var i,s : real;
Const n:=10; Begin
Wile i <=n do; Begin
S:=s+i i =i+1 End. Writeln(s) Readln End;
Câu : Viết chương trình tính tổng: S = 1+2+3+…+n Trong n số nguyên nhập từ bàn phím Câu : Viết chương trình tính tich 30 số nguyên
Câu :Viết chương trình nhập vào mảng gồm n phần tử (n nhập vào từ bàn phím) Tính tổng phần tử mảng?
Câu :Viết chương trình nhập số nguyên N từ bàn phím Kiểm tra N có phải số ngun tố hay khơng? Câu 7: Viết chương trình tính xn
(4)Hướng dẫn giải tập Tự Luận
Câu :Viết chương trình tính tổng:
S = 1+2+3+…+n Trong n số nguyên nhập từ bàn phím.
Program BT1; Var n, i, S: Integer; Begin
Write(' Nhap n : '); Readln(n) ; S:=0;
For i := to n S := S + i ;
Writeln (' Tong la: ', S) ; Readln ;
End
Câu :Viết chương trình tính tích 30 số ngun
đầu tiên
Program BT2; Var n, T: Integer; Begin
Write(' Nhap n : '); Readln(n) ; T:=1; n:=0;
While n<=30 Begin
T := T*n; n:=n+1; End;
Writeln (' Tich la: ',T) ; Readln ;
End
Câu :Viết chương trình nhập vào mảng gồm
n phần tử (n nhập vào từ bàn phím) Tính tổng các phần tử mảng?
Program BT3; Var n, i: Integer;
a : array [1 100] of integer; Begin
Write(' Nhap so phan tu cua mang: '); Readln(n) ;
For i := to n Begin
Write(‘phan tu thu ‘,i,’ la:’); Readln(a[i]);
End; S:=0;
For i := to n S:=S+a[i]; Write(‘Tong la:’,S);
Readln ; End
Câu 6:Viết chương trình nhập số nguyên N từ
bàn phím Kiểm tra N có phải số ngun tố hay khơng?
Program BT4; Var n, i: Integer; Begin
Write(' Nhap N : '); Readln(N) ; If n<= then
writeln(n,’ khong phai so nguyen to’) else
Begin i:=2;
while (n mod i<>0) i:=i+1; If i=n then writeln(n,’la so nguyen to’) else writeln(n,’ khong la so nguyen to’); end;
Readln ; End
Câu :Viết chương trình tính xn
Program BT5; Var i, n : Integer ; x, ketqua: Real ; Begin
Write (' Cho so x : ') ; Readln(x) ; Write (' Cho so mu n : ') ; Readln(n) ; i := ;
ketqua:= ; While i <= n Do Begin
ketqua:= ketqua * x ; i:= i+1 ;
End ;
Writeln(' a mu n bang : ', ketqua ) ; Readln ;
End
Câu 8:Viết chương trình tính giai thừa n!
Program BT6; Var i, n : Integer ; Giaithua: longint; Begin
Write(' Nhap n : '); Readln(n) ; giaithua := ;
For i := to n giaithua:=giaithua*i; Write(n,’! = ‘, giaithua);
Readln ; End
(5)