BỘ ĐỀ ÔN TẬP PASCAL

ĐỀ 1 Câu 1: Cho x, y là các biến kiểu ký tự, S là biến kiểu chuỗi lệnh nào đúng: a) S:=x+y; b) Readln(S:=x+y); c) x+y:=S; d) Write(x,y,S:5:1); Câu 2: Cho x, y là các biến kiểu nguyên, lệnh nào là sai: a) Writeln(x,’5’); b) Writeln(‘x=’,x); c) Writeln(x:5); d) Writeln(x,y:5:2); Câu 3; Cho x là biến kiểu Byte, sau khi thực hiện hai lệnh: X:=7; Writeln(x:2:0); Kết quả in trên màn hình là: a) 7.0 b) 7 c) 7.0000000000E+01 d) Báo lỗi Câu 4: Lệnh sau in ra màn hình bao nhiêu kí tự ‘*’ For I:=1 to 10 do; If I mod 2 = 0 then write(‘*’); a) 5 b) 9 c) 10 d) 1 Câu 5: Tìm giá trị của S sau đoạn chương trình: S:=5; For I:= 1 to 10 do If I mod 2 <> 0 then S:= S+i ; Write(S); a) 55 b) 25 c) 30 d) 35 Câu 6: Hãy cho biết kết quả a, b sau khi thực hiện các lệnh: c:=0; a:=7; b:=5; c:=a; a:=b; b:=c; Write(b, ’ , ‘ , a); a) 7,5 b) 5,7 c) 5,5 d) 7,7 Câu 7: Hãy cho biết kết quả in ra màn hình của đoạn chương trình Var X : integer; Function T( N: integer): integer; Var I,s : integer; Begin S:=0; For i:=1 to N do if i mod 2 <> 0 then S:=S+i; T:=S; End; Begin X:=5; write (T(X)); End. a) 5 b) 10 c) 15 d) 9 Câu 8: Lệnh sau in ra màn hình bao nhiêu ký tự ‘*’ For I:=1 to 10 do if ( I div 2) mod 2 <>0 then write (‘*’); a) 5 b) 10 c) 1 d) 3 Câu 9: Cho biết kết quả trên màn hình khi chạy chương trình sau, Var s:string; i:integer; Begin S:='Nhat nhat co lai hy'; For i:=1 to length(s) do delete(s,pos(#32#32,s),1); Writeln(s); Readln; End. a) Nhat nhat co lai hy b) Nhat nhat co lai hy c) Nhat Nhat Co Lai Hy d) NHAT NHAT CO LAI HY Câu 10: Cho Với a:=5; b:=7; c:= 8; d:=6; S kiểu Boolean kết quả của biểu thức sau: 1 S:= ((a>b) or (not(c<d))) and (a>=c) ; a) True b) False c) Không có câu đúng Câu 11: Cho khai báo biến và khai báo đầu của thủ tục TT: Var x,y: Integer; St: String; Procedure TT(Var a:Integer; Var b:String); Begin A:=a+1; b:=a+2; End; - Lệnh nào đúng: a) TT(St,x); b) TT(St,10); c) TT(x,St); d) y:=TT(St,x); Câu 12: Cho a là biến nguyên a:=3 và khai báo thủ tục: Procedure PA (Var x: Integer); Begin x:= x+2; End; Sau khi gọi thủ tục PA(a); thì giá trị của biến a là: a) 2 b) 0 c) 3 d) 5 Câu 13: Cho mảng B như sau : B[1]:=2; B[2]:=4; B[3]:=6; B[4]:=8; For I:=1 to 3 do B[i]:= B[i+1]; For I:=1 to 4 do Write (B[i] ,' ' ); Kết quả sau cùng của các B[i] là: a) 4 6 8 8 b) 4 6 8 2 c) 8 6 4 2 d) 8 2 4 6 Câu 14: Cho mảng B như sau B[1]:=6; B[2]:=3; B[3]:=9; B[4]:=1; For I:=1 to 3 do For j:=1 to i do If B[i]>b[j] then Begin Temp:= B[i];B[i]:=B[j]; B[j]:=Temp; End; For i:= 4 downto 1 do Write (B[i],','); Kết quả là: a) 9,6,3,1, b) 1,3,6,9, c) 3,6,9,1, d) 6,9,3,1, Câu 15: Cho mảng A như sau : A[1]:=1; A[2]:=2; A[3]:=3; A[4]:=4; For I:=1 to 3 do A[i]:= A[i+1]; Kết quả sau cùng của các A[2] là: a) 1 b) 2 c) 3 d) 4 Câu 16: Hãy cho biết kết quả của S sau chương trình : Var S: String; I: byte; Begin S:='Co lai do oi'; repeat i:=pos(#32#32, S); if i > 0 then delete(s,i,1); Until i=0; 2 Write (S);readln; end. a) Co lai do oi b) Co lai do oi c) CO LAI DO OI d) Co Lai Do Oi Câu 17: Hãy cho biết kết quả in ra màn hình của đoạn chương trình S:=0; N:=5; I:=1; While N > I Do Begin if I mod 2<> 0 then S:=S+i; I:=I+1; end; Write (s); a) 9 b) 8 c) 10 d) 4 Câu 18: Để tính giai thừa của N, câu nào cho kết quả đúng: a) S:=1; For i:=1 to N do S:= S*i; b) S:=1; For i:=1 to N do S:= S+i; c) S:=0; For i:=1 to N do S:= S+1/i; d) S:=1; For i:=1 to N do S:= S*N; Câu 19: Khi chạy đoạn chương trình sau, cho kết quả nào đúng? Var S:string; i,n : byte; Begin S:='ABCDE'; I:=1; N:=3; Delete(S, i, n); Write(s); Readln; End. a) DE b) ABC c) D d) ABCDE Câu 20: Để tính tổng của dãy số nguyên từ 1 đến N, câu nào cho kết quả đúng: a) S:=0; For i:=1 to N do S:=s*i; b) S:=0; For i:=1 to N do S:= S + i; c) S:=0; For i:= N Downto N do S:=SQR(i); d) S:=0; S:=S+1; For i:=1 to N do S:=s*SQRT(i); Câu 21: Hãy cho biết kết quả in ra màn hình của đoạn chương trình a:=10; b:=25; I:=1; Repeat a:= a + 5; b:= b - 2; I:= I + 3; Until a > b; Write(I); Readln; a) 7 b) 11 c) 9 d) 10 Câu 22: Hãy cho biết kết quả in ra màn hình của đoạn chương trình: Var x,y: integer; Procedure TS (m: integer; n: integer); Begin m:= m+1; n:=n+m; End; Begin X:=5; Y:=10; TS(X,Y); Write (X,’,’,Y); 3 End. a) 5,10 b) 10,5 c) 6,10 d) 6,16 Câu 23 : Cho hàm GT được xây dựng như sau Var N:integer; Function GT (x: integer): Real; Var M, i : integer; Begin M:=1; i:=0; For i:= X Downto 1 do M:=M*i; GT:=M; End; Begin N:=5; Write (GT(n):10:1); Readln; End. a) 100 b) 120 c) 120.0 d) 5 Câu 24: Sau khi thực hiện chương trình sau: Var St: String; i: integer; Begin St :='CCABCC'; i:=3; While St[i] = 'A' do Delete(St,i,1); Write (St);readln; End. Kết quả in ra màn hình là: a)ABCC b) ABCD c) CCBCC d) CABCC Câu 25: Cho X,Y là hai biến nguyên và khai báo thủ tục: Procedure Doicho (A: Integer; B: Integer); Var Z: Integer; Begin Z := A; A := B; B := Z ; End; - Sau khi thực hiện các lệnh: x:=7; y:=3; Doicho(x,y); Write(x, ’ ,’ ,y); thì giá trị của x, y là: a) 7, 7 b) 3,7 c) 3, 3 d) 7,3 ************************************************** ĐỀ 2 Câu 1: Cho x,y,z là các biến kiểu ký tự, lệnh nào là đúng: a) z:=x+y; b) Readln( x; y ; z); c) x+y:=z; d) Write(x,y,z); Câu 2: Cho x,y là các biến kiểu nguyên, lệnh nào là sai: a) Writeln(x,5); b) Writeln(‘x=’,x); c) Writeln(x:5:2); d) Writeln(x,y); Câu 3; Cho x là biến kiểu nguyên, sau khi thực hiện hai lệnh: X:=15; Writeln(x); Kết quả in trên màn hình là: a) 15 b) 15.00 c) +1.5000000000E+01 d) 1.5000000000E+01 4 Câu 4: Lệnh sau in ra màn hình bao nhiêu kí tự ‘*’ For I:=1 to 9 do If I mod 2 = 0 then write(‘*’); a) 2 b) 3 c) 5 d) 4 Câu 5: Giá trị của S sau đoạn chương trình: S:=5; For I:= 2 to 10 do; If I mod 2 = 0 then S:= S+i ; a) 55 b) 15 c) 60 d) 25 Câu 6: Hãy cho biết kết quả x,y sau khi thực hiện các lệnh z:=0;x:=2; y:=4; z:=x; x:=y; y:=z; Write(x,’ , ‘ , y); a) 4,4 b) 4,2 c) 2,4 d) 2,2 Câu 7: Hãy cho biết kết quả in ra màn hình của đoạn chương trình Var n : integer; Function T( m: integer): integer; Var I, s : integer; Begin S:=0; For I:=1 to m do S:=S+I ; T:=S; End; Begin N:=5; write (T(n)); Readln; End. a) 5 b) 10 c) 25 d) 15 Câu 8: Lệnh sau in ra màn hình bao nhiêu ký tự ‘+’ For I:=1 to 10 do if I mod 2 <>0 then write (‘+’); a) 5 b) 10 c) 1 d) 9 Câu 9: câu lệnh sau có mấy lỗi sai: CASE lop OF 1 5: Write ( mau giao’); 1 12 Write ‘trung hoc ); END; a) 1 b) 4 c) 5 d) 3 Câu 10: Khi chạy chương trình: Var St: String; i,L:integer; Begin St:='Dot den dau hoc lau cung gioi'; L:=Length (St); For i:= 1 to L do; If(St[i]>='a') and (St[i] <='z') then St[i]:=Upcase(St[i]); Write (St);readln; End. - Chương trình in ra: a) Dot den dau hoc lau cung gioI b) Dot den dau hoc lau cung gioi c) DOT DEN DAU HOC LAU CUNG GIOI d) Dot Den Dau Hoc Lau Cung Gioi Câu 11: Khi chạy chương trình : Var St: String ; i,L: integer; Begin 5 St:=’ABCD’; L:=Length(St); For i:= L Downto 1 do write (St[3]); Readln; End. - Chương trình in ra: a)DCAB b)AAAA c)4321 d)CCCC Câu 12: Cho St là biến chuỗi và St :=’CCABCC’; Sau khi thực hiện lệnh: While St[1] = ‘C’ do Delete(St,1,1);Write (St); Kết quả in ra màn hình là: a)ABCC b) AB c) ABCA d) AACB Câu 13: Cho khai báo biến và khai báo đầu của thủ tục TT: Var a,b: Integer; St: String; Procedure TT(Var m:Integer; n:String); - Lệnh nào đúng: a) TT(St,a); b) TT(St,10); c) TT(a,St); d) b:=TT(St,a); Câu 14: Kết quả in ra màn hình: x:=10; if x<=10 then x:=x-5; Write(x); a) 10 b) 15 c) 20 d) 5 Câu 15: Khi chạy chương trình: Var x,y:Real; Function F(x,y:Real):real; Begin F:=x; if x<y then F:=y; End; BEGIN x:=10; y:=15; Write (F(x,y):0:0); END. - Kết quả in ra: a) 10 b) 15 c) 0 d) F(x,y) Câu 16: Cho a là biến nguyên a:=3 ; khai báo thủ tục: Procedure TT( x: Integer); Begin x:=x+2; End; Sau khi gọi thủ tục TT(a); thì Giá trị của biến a là: a) 2 b) 5 c) 3 d) 0 Câu 17: Cho x,y là hai biến nguyên và khai báo thủ tục: Procedure Doicho ( a: Integer; var b: Integer); Var z: Integer; Begin z:=a; a:=b; b:=z ; End; 6 - Sau khi thực hiện các lệnh: x:=5; y:=4; Doicho(x,y); Write(x,’ , ‘, y); thì giá trị của x, y là: a) 5, 5 b) 4,5 c) 4,4 d) 4,5 Câu 18: Lệnh nào sau đây in ra màn hình số nhỏ nhất giữaA và B: a) If A>B then Readln (A) elsse Realn (B); b) If A<B then Readln (A) elsse Realn (B); c) If A>B then write (B) else write (A); d) If A>B then write (A) elsse write (B); Câu 19: Cho N là biến kiểu nguyên, chọn câu đúng cú pháp: a) If N<10 then write (‘Nho hon 10’); else write (‘Lon hon 10’); b) If N<10 then write (‘Nho hon 10’) else then write (‘Lon hon 10’); c) If N<10 then N:=10 else N>20 then write (‘N>20’); d) If N<10 then write (‘Nho hon 10’) else write (‘Lon hon 10’); Câu 20: Kiểm tra nếu ba số a,b,c đều lớn hơn 1 thì in số 1, chọn lệnh nào: a) if (a>1) or (c>1) or (b>1) then write (1); b) if a>1 and b>1 and c>1 then write (1); c) if (a>1) and (b>1) and (c>1) then write (1); d) if a,b, c >1 then write (1); Câu 21: Cho i là biến nguyên, sau khi thực hiện các lệnh: I:= 2; Case i of 1: I:=i+ i div 2; 2: I:=i+ i div 2; 3: I:=i+ i div 2; End; Giá trị sau cùng của i là: a) 2 b) 3 c) 4 d)5 Câu 22: Lệnh Write ( 11 div 2:3) in ra màn hình: a) 5 b) 5.0 c) 5.50E+00 d) 5.50E +01 Câu 23: Cho S, i và N>0 là các biến nguyên. Để tính S:=N!, chọn câu nào: a) S:=1; For i:=1 to N do S:=S*N; b) S:=0; For i:=1 to N do S:=S*N; c) S:=1; For i:=1 to N do S:=S*i; d) S:=1; For i:=1 to N do S:=S+i; Câu 24: Hãy cho biết kết quả in ra màn hình của đoạn chương trình: Var x,y: integer; Procedure TS( a:integer; Var b: integer); Begin A:=a+1; b:=b+a; End; Begin 7 X:=5; y:=10; TS(x,y); write (x,',',y); readln; End. a) 5,16 b) 10,5 c) 6,16 d) 5,10 Câu 25: Hãy cho biết kết quả in ra màn hình của đoạn chương trình x:=10; y:=25; I:=1; Repeat x:=x+5; y:=y-2; I:=I+ (I mod 2); Until x >= y; Write(I); a) 7 b) 2 c) 9 d) 8 ************************************************** ĐỀ 3 Câu 1: Cho x,y,z là các biến kiểu nguyên, lệnh nào là đúng: a) x:=y/z; b) Readln (x,y,z); c) x+y:=z; d) Writeln(x+y,z:0:2); Câu 2: Cho x,y là các biến kiểu nguyên, lệnh nào là sai: a) Writeln(x,5); b) Writeln(‘x=’,x); c) Writeln(x:5:2); d) Writeln(x,y); Câu 3; Cho x là biến kiểu thực, sau khi thực hiện hai lệnh: X:=15; Writeln(x); Kết quả in trên màn hình là: a) 15 b) 15.00 c) +1.5000000000E+01 d) 1.5000000000E+01 Câu 4: Lệnh sau in ra màn hình bao nhiêu kí tự ‘*’ For I:=1 to 9 do If I mod 2<>0 then write(‘*’); a) 5 b) 1 c) 3 d) 9 Câu 5: Giá trị của S sau đoạn chương trình: S:=0; For I:=1 to 10 do If I mod 3 = 0 then S:= S+I; a) 50 b) 55 c) 40 d) 18 Câu 6: Hãy cho biết kết quả x,y sau khi thực hiện các lệnh: x:=5; y:=10; x:=x+y; y:=x+y; x:=x+y; Write(x,’ , ‘ , y); a) 15,25 b) 40,25 c) 25,40 d) 5,10 Câu 7: Hãy cho biết kết quả in ra màn hình của đoạn chương trình Var X : integer; Function T( N: integer): integer; Var I,s : integer; Begin S:=1; For i:=1 to N do S:=S*i; T:=S; End; Begin X:=5; write (T(X)); End. a) 5 b) 110 c) 120 d) 25 Câu 8: Cho a,b,i là biến nguyên, kết quả của đoạn chương trình sau ? a:=10; b:=25; I:=1; 8 repeat a:=a +3;b:=b -1; i:= i+2; Until a>=b; Write(I); a)10 b)11 c) 8 d) 9 Câu 9: Cho đoạn chương trình sau: Var a, b, c : Integer; {dòng 1} Begin { dòng 2} a:=10; { dòng 3} b:=5; { dòng 4} c:=a/b * 5; { dòng 5} AND. { dòng 6} Chương trình sai ở dòng: a) 5 và 6 b) 3 c) 4 d) 6 Câu 10: Lệnh Write ( 9 div 2:3) in ra màn hình: a) 4.000 b) 4 c) 4.5E+00 d) 4.0E +01 Câu 11: Lệnh sau in ra màn hình bao nhiêu ký tự ‘*’ For I:=1 to 10 do if I mod 3<>0 then ; Write (‘*’) ; a)11 b) 10 c) 1 d) 9 Câu 12: câu lệnh sau có mấy lỗi sai: CASE lop OF 1 5: Write ‘mau giao’) 6 12 Wirte ( ‘trung hoc ); END a) 6 b) 2 c) 3 d)5 Câu 13: Cho biến S kiểu thực và gán S:=12.41; Để in lên màn hình như sau: S:=12.41; Chọn lệnh nào: a) Writeln (S); b) Writeln (S:5); c) Writeln (‘S=’, S:5:2); d) Writeln (‘S=S:5:2’); Câu 14: Cho S = 1 2 + 2 2 + +100 2 . Nhóm lệnh nào tính sai Giá trị của S: a) S:=0; FOR i:=1 TO 100 DO S:=S+i*i; b) S:=0; FOR i:=1 TO 100 DO S:=S+SQR(i); c) S:=0; FOR i:=100 DOWN to 1 DO S:=S+i*i; d) S:=1; FOR i:=1 TO 100 DO S:=S+i*i; Câu 15: Hãy cho biết kết quả in ra màn hình của đoạn chương trình: Var x,y: integer; Procedure TS( Var x:integer; Var x: integer); Begin X := X+1; Y := Y+X; End; Begin X:=5; y:=10; TS(X,Y); Writeln (X,’,’,Y); Readln; End. 9 a) 5,16 b) 10,5 c) 6,10 d) 6,16 Câu 16: Khi chạy chương trình : Var S,i,j :integer; Begin S:=0; For i:=1 to 3 do For j:=1 to 4 do S:=S+1; Write(S);Readln; End. Giá trị sau cùng của S là: a) 50 b) 12 c) 24 d) 4 Câu 17: Cho chuỗi S:=’aa bbb cccc’; I:=pos(#32,S); S:=Copy(s,i+1,length(s)-i)+copy (s,i,i-1); Hãy cho biết kết quả của S sau đoạn chương trình trên: a) bbb aa cccc b) bbb cccc b c) bbb cccc ac d) aa bbb cccc Câu 18: Hãy cho biết kết quả in ra màn hình sau khi thực hiện các lệnh x:=10; y:=5; x:=x+y; y:=x-y; x:=x-y; Write (x,’,’,y); a) 5,10 b) 10,10 c) 5,5 d) 10,5 Câu 19: Cho N, i là biến nguyên, sau khi thực hiện các lệnh: N:= 2; i :=8; Case N of 1: N:= N + i + 1; 2: N:= N + i + 2; 3: N:= N + i + 3; End; Giá trị sau cùng của i là: a) 10 b) 11 c) 14 d) 12 Câu 20: Cho S và i là biến nguyên. Khi chạy đoạn chương trình: S:=1; for i:=1 to 10 do; S:=S+i; Writeln(s): Kết quả in trên màn hình là: a)11 b) 55 c) 100 d)10 Câu 21: Khi chạy chương trình : Var S, i, j :integer; Begin S:=0; For i:=1 to 3 do For j:=1 to 4 do S:=S+1; Write(S);Readln; End. Giá trị sau cùng của S là: a) 0 b) 12 c) 3 d) 24 10 [...]... Boolean S:=(((a>b) or Not ( c > d)) and (ab) Xor Not ( c < d)) and (ab) or Not ( c > d)) and (ab) Xor Not ( c < d)) then (a . ĐỀ 1 Câu 1: Cho x, y là các biến kiểu ký tự, S là biến kiểu chuỗi lệnh nào đúng:. sau: 1 S:= ((a>b) or (not(c<d))) and (a>=c) ; a) True b) False c) Không có câu đúng Câu 11: Cho khai báo biến và khai báo đầu của thủ tục TT: Var