ÔN THI PASCAL HKII I Trắcnghiệm : Khoanh tròn chữ đứng trước kết Câu 1: Phát biểu sau ? A Cấu trúc lặp sử dụng để thò cho máy tính thực lặp lại vài hoạt động điều kiện thoả mãn B Chỉ ngôn ngữ lập trình Pascal có câu lệnh lặp để thể cấu trúc lặp C Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh while…do D Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp chưa biết trước câu lệnh For…do Câu 2: Lệnh lặp sau đúng? A For = to ; B For := to ; C For := to ; D For : to ; Câu 3: 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 4: Vòng lặp while vòng lặp: A) Biết trước số lần lặp B) Chưa biết trước số lần lặp C.) Biết trước số lần lặp giới hạn =100 Câu 5: Câu lệnh lặp while…do có dạng là: A) While do; ; do; B) While C) While ; lệnh>; D) While 10 then x := x +10 ; End X có giá trò a) b) c) 15 d)10 Câu 8: Trong chương trình pascal sau đây: program hcn; var a, b :integer; ÔN THI PASCAL HKII s,cv :real ; begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * ; writeln(‘dien tich hcn la:’ , s ); writeln( ‘chu vi hcn la : ‘ , cv ) ; readln; end Biến s cv có giá trò mấy: a/ s = 10 ; cv = ; b/ s= 30 ; cv = 50 ; c/ s = 50 ; cv = 40 ; d/ s = 50 ; cv = 30 ; Câu 9: Sau câu lệnh pascal sau x có giá trò , trước giá trò x 5: sau thực lệnh x có giá tri ( 0; -10 ; ; 12 ) Câu lệnh Giá trò x a/ if x mod = then x:= x +1; b/ if (x mod =0) or (x>=5) then x:= 2*x; c/ if (x mod =1 ) and (x>10 ) then x:=0 ; d/ if x mod = then begin x:=x*x ; x:=x -10; Câu 10: cho chương trình sau: Var a,b : integer ; Begin A:=16 ; b:=8 ; If a< b then a:= a + b else Begin a:= a- b; b:= b + a end; Writeln( ‘ a= ‘, a , ‘ b = ‘, b); End Biến a b có giá trò mấy: a/ a=16 ;b = 8; b/ a= 24 ; b= 8; c/ a = ; b =16; d/ a =24 ; b =16; Câu 11: cho chương trình sau: program gptbn; var b, c : integer; x :real; begin b:= ; c:= -10 ; if (b=0 ) and (c=0) then writeln( ‘ x có vô số nghiệm’ ); if (b =0 ) and (c 0) then writeln( ‘ x vô nghiệm ‘); if (b 0) and ( c ) then writeln (‘ pt có nghiệm x= ‘ , - c/b); readln; end Chương trình in hình a) x có vô số nghiệm ; b) x vô nghiệm ; c) pt có nghiệm x= - d) pt có nghiệm x= 2; Câu 12: cho chương trình sau: program doigiatri; y:= x – y; var x,y: integer; x := x – y; begin writeln ( ‘ x= ‘, x, ‘y=’ , y); x:=10; y:=15 ; readln; x:= x+ y ; end Chương trình in x, y có giá trò mấy: a) x= 10 ;b= 15 b) x=25 ; y= 15; c ) x= 25 ; b=10 d) x=15 ; y= 10; ÔN THI PASCAL HKII Câu 13: Để tính tổng S=1 + +3 +4 … + n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)=0 then S:=S + i; if ( i mod 2)=1 then S:=S + i; b) for i:=1 to n d) for i:=1 to n S:= S + i ; if ( i mod 2)0 then S:=S + i; Câu 14: Để tính tổng S=2 + + … + n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)=0 then S:=S + i; if ( i mod 2)=1 then S:=S + i; b) for i:=1 to n d) for i:=1 to n S:= S + i ; if ( i mod 2)0 then S:=S + i; Câu 15: Để tính tổng S=1-2 +3 - … +/- n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)=0 then S:=S + i; if ( i mod 2)=1 then S:=S + i; b) for i:=1 to n d) for i:=1 to n if ( i mod 2)=0 then S:=S + i if ( i mod 2)0 then S:=S + i Else S:= S + I; ; Else S:=S-i; Câu 16: Để tính tổng S=1+1/2 +1/3 + 1/4 … 1/n; em chọn đoạn lệnh: a)for i:=1 to n c)for i:=1 to n if ( i mod 2)=0 then S:=S + 1/i; S:=S + 1/i; b)for i:=1 to n d)for i:=1 to n if ( i mod 2)=0 then S:=S + i if ( i mod 2)0 then S:=S + 1/i Else S:= S + I; Else S:=S-1/i; Câu 17: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; biến đếm i phải khai báo kiểu liệu a) Interger; b) real; c) string d) tất kiểu Câu 18: Lần lượt thực câu lệnh for i:= to 3.5 writeln(i:3:1); viết hình? a) Thứ tự biến đếm, chiếm chỗ lấy chữ số sau phần thập phân b) Viết số viết số 3.5 c) Chỉ viết số 3.5 mà d) Không thực giá trò biến đếm có kiểu thứ tự Real Câu 19: Sau thực đoạn chương trình j:= 0; for i:= to j:=j+2; giá trò in hình là? a) b) c) d)10 Câu 20: Để tính tổng S=1+3 + + … + n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)=0 then S:=S + 1/i; if ( i mod 2) < > then S:=S + i; b) for i:=1 to n d) for i:=1 to n if ( i mod 2)=0 then S:=S + i if ( i mod 2)=0 then S:=S + i; Else S:= S + I; Câu 21: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)=0 then S:=S + 1/i; if ( i mod 2) < > then S:=S + i; b) for i:=1 to n d) for i:=1 to n if ( i mod 2)=0 then S:=S – 1/i if ( i mod 2)=0 then S:=S +1/ i Else S:= S + 1/i; Else S:=S-1/i; Câu 22: Để tính tổng S=1+1/3 + 1/5 + … +1/ n; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n ÔN THI PASCAL HKII if ( i mod 2)=1 then S:=S + 1/i; if ( i mod 2) =0 then S:=S + 1/i; b) for i:=1 to n d) for i:=1 to n if ( i mod 2)=0 then S:=S + 1/i if ( i mod 2)=0 then S:=S + i; Else S:= S + 1/; Câu 23: Để đếm có số lẻ nhỏ hay n ; em chọn đoạn lệnh: a) for i:=1 to n c) for i:=1 to n if ( i mod 2)< >0 then S:=S + 1; if ( i mod 2) =0 then S:=S + 1; b) for i:=1 to n d) for i:=1 to n if ( i mod 2)=0 then S:=S + i ; if ( i mod 2)=0 then S:=S + i; Câu 24: Để tính tổng S=1+2+3+ 4+ + … + n; em chọn đoạn lệnh: a) s:=0; i:=0; a) s:=0; i:=0; While i