bài tập trắc nghiệm lập trình pascal

1. Cho chương trình: var a,b:boolean; begin a:=false;b:=true; write(not(1<>4 mod 3) or not (a or not b)); write((5 div 6<=3) and (not true and (not b or a)):12); readln end. Chọn trả lời đúng: A. Chương trình in ra: TRUE FALSE * B. Chương trình in ra: TRUE TRUE C. Chương trình in ra: FALSE FALSE D. Chương trình báo lỗi. 2. Xét chương trình: var i,j:integer; begin i:=1; j:=2; if odd(i)and (j>=2)then if (i>0)or(j<i)then write(i) else write(4); readln End. Chọn khẳng định đúng: A. Khi thi hành, chương trình in ra 1 B. Khi thi hành, chương trình in ra 4 C. Khi thi hành, chương trình không in gì cả D. Khi dịch, chương trình báo lỗi ngữ pháp 3. Chọn (các) phép gán hợp lệ: A. a:= sqrt(25) – 2; B. b:= True Or (4 div 3) And (1 <> 2); C. x:= ln(1) – 4 div 2; D. y:= round(ln(3)) – 4 div 2; 1 trong đó, các biến được khai báo như sau: var a, y:byte; b: boolean; x: real; 4. Xét chương trình: 1. Var i,s,n:real; 2. Begin 3. S:=0;N:= 10; 4. For i:=2 to n do 5. S:=s+1/i; 6. i:= 1; 7. Write(‘i=’,i); 8. Write(‘Tong bang S’); 9. Begin End 10.End. Khi dịch, chương trình báo lỗi ở (những) dòng nào A. 9 B. 4 C. 7 D. 5, 8 5. Chọn câu có chương trình viết đúng: khi dịch không có lỗi, khi chạy không “bị treo” A. Chương trình 1 const c=1; var i:byte; begin i:=1; repeat i:=i+1; write(i); until c:=1; end. B. Chương trình 2 Var i,j:1 10; Begin for i:=1 to 5 do For j:=1 to 2 do writeln(i, ' . ',j,': Turbo Pascal’) End. C. Chương trình 3. Var do:byte;radian:real; Begin Do:=30; radian:=do*pi/180; write(radian:1:2); End. 2 D. Chương trình 4 var diem:real; begin readln(diem); case round(diem) / 1 of 0 4: write(‘Khong dat!’); 5 10: begin write(‘Dat!’) end else write(‘Nhap diem sai!!! ’) end; end. 6. Cho chương trình sau giải phương trình ax 2 + bx + c = 0 (a, b, c ∈ R): var a,b,c,x,x1,x2,delta:real; begin write('nhap vao he so a,b,c:='); readln(a,b,c); if a=0 then {PT bac nhat} if b=0 then if c=0 then writeln('pt vo so nghiem') else writeln('pt vo nghiem') else begin x:=-c/b; writeln('pt co nghiem la', x:8:2) end else begin {PT bac 2} delta:=b*b-4*a*c; if(delta<0) then writeln('pt vo nghiem'); if(delta=0) then begin x:=-b/(2*a); writeln('pt co nghiem kep x1=x2=',x:8:2) end; if(delta>0) then x1:= (-b-sqrt(delta))/ 2/a; x2:= (-b+sqrt(delta))/(2*a); 3 writeln('pt co nghiem x1=',x1:8:2); writeln('pt co nghiem x2=',x2:8:2); end; end. Chọn trả lời đúng: A. Khi dịch báo lỗi B. Kết quả in ra sai C. Kết quả in ra đúng D. Chương trình bị treo 7. Chọn câu có chương trình viết đúng: khi dịch không có lỗi, khi chạy không “bị treo” A. Chương trình 1 Const a=5; Var x:byte; Begin Write(‘Nhap x = ’); readln(x); If x:=0 then write(x) Else Begin x:=a*10; write(x) end End. B. Chương trình 2 Var a,b: integer; Begin a:=1;b:=0; while (a<>21) or (b<10) do Begin a:=a+2; b:=b+1; writeln(a,’ ’,b) end End. C. Chương trình 3 uses crt; var x,y,i,s,t:integer; begin clrscr;{xoa man hinh} readln(x); readln(y); s:=0; t:=abs(x+y); for i:=1 to t do if t mod i= 0 then begin s:=s+i; i:=i+1; 4 end; writeln(s:6); readln; end. 8. Cho chương trình: var i:shortint; begin repeat i:=i+1; writeln(i:8); until i<=-1; end. Chọn câu trả lời đúng: A. chương trình báo lỗi hoặc treo B. chương trình in ra các số -128 127 C. chương trình in ra các số 1 127 D. không câu trả lời nào đúng. Vì phụ thuộc vào TP/FP: nếu trong TP thì chương trình in ra 1 127, -128 và dừng. Còn trong FP thì báo lỗi runtime. 9. Xét chương trình sau: type chi_so=1 4; MI=array[chi_so] of byte; Var i:byte; X: mi; Function Min(x:Mi):byte; Var i:chi_so;tam:byte; Begin Tam:=x[1]; For i:=2 to 4 do If x[i]<tam then tam:=x[i]; Min:=tam End; Begin 5 For i:=1 to 4 do readln(x[i]); Writeln(min(x)); Readln End. Hãy chọn câu trả lời đúng: A. Chương trình báo lỗi khi dịch B. Với dữ liệu vào là 5, 3, 7, 9 thì kết quả in ra 3. C. Với dữ liệu vào là 5, 3, 7, 9 thì kết quả in ra 9. D. Các câu trả lời trên đều sai. Câu 10. Cho chương trình sau: var r:byte;n,m,sl,t:integer; Begin Write(‘m = ’);Readln(n); m:=0;sl:=0;t:=0; repeat r:=n mod 10; m:=m*10+ r; sl:=sl+1; t:=t+r; n:=n div 10; until n=0; write(m:4,sl:4,t:4) End. Sau khi thực hiện biên dịch và chạy: A. Chương trình báo lỗi cú pháp lệnh B. Nhập n = 123, chương trình in ra 123 3 6 C. Nhập n = 123, chương trình in ra 321 3 6 D. Nhập n = 123, chương trình in ra 321 6 3 6 Câu 11. Cho chương trình: var i:byte;k:integer; begin repeat i:=i+2; K:=i*i; if i = 100 then i := 0; writeln(k,i:8); until i>=100; end. Chọn câu trả lời đúng: A. chương trình báo lỗi cú pháp B. chương trình báo lỗi runtime C. chương trình bị treo và k có giá trị cố định là 0. D. chương trình bị treo và k có giá trị không cố định. Câu 12. Cho đề bài: Nhập vào một dãy số gồm 7 phần tử và cho biết dãy vừa nhập có phải là cấp số cộng hay không? (BT5-SGK trang 79). Chương trình của HS như sau: Var a: array[1 7] of integer; i, d: integer; kt: boolean; Begin Writeln('Nhap day so: '); For i:=1 to 7 do Begin Write('a[',i,'] = ');Readln(a[i]); End; d:=a[2]-a[1]; kt:=true; i:=1; while kt and (i<=7) do if (a[i]-a[i-1] <> d) then kt:=false 7 else i:=i+1; if kt then writeln('Day tao thanh cap so cong') else writeln(‘Day khong tao thanh cap so cong'); readln; End. Chọn câu trả lời đúng: A. chương trình báo lỗi cú pháp B. chương trình báo lỗi runtime C. chương trình cho kết quả đúng. D. chương trình cho kết quả sai. Chỉ số vượt ngoài phạm vi cho phép Câu 13. Chương trình tính tổng S và đưa kết quả ra màn hình (với a>2) S = 1/a + 1/(a+1) + 1/(a+2) +…+1/(a+100) HS lập trình giải bài toán như sau: Chương trình 1: Var s,n,a:real; Begin Readln(a);S:=1/a; N:=1; While ( N<=100) do; Begin S:=S+1/(a+N); N:=N+1 End; Writeln(‘Tong la S=’, S:8:4); End. Chương trình 2: Var s,a:real;n:integer; Begin Readln(a); S:=1/a; For N:=1 to 1000 do S:=S+1/(a+N); If n = 100 then break; Writeln(‘Tong la S=’, S:0:4); End. 8 Chọn câu trả lời đúng: A. 2 chương trình đều có lỗi cú pháp B. 2 chương trình đều có lỗi runtime C. 2 chương trình đều cho kết quả đúng. D. 2 chương trình đều cho kết quả sai. Câu 14. Tính giá trị đa thức P(x) = 1+ x + x 2 +… + x 20 tại x = x0 HS lập trình giải bài toán như sau: Var x0:real; Function P:real; Var k: integer; Begin P:=1; For k:=1 to 20 do P:=P*x0 + 1; End; Begin Readln(x0); Writeln(‘Gia tri da thuc la: ‘, P:0:3);Readln; End. Chọn câu trả lời đúng: A. chương trình có lỗi cú pháp B. chương trình cho kết quả sai C. chương trình cho kết quả đúng. D. các câu trả lời trên đều sai. Vì chương trình lặp vô tận. Câu 15. Cho đề bài: Viết chương trình con tính bội chung nhỏ nhất của hai số nguyên dương a, b (BT4- SGK trang 117). HS lập trình giải bài toán như sau: Var a, b: integer; Function bcnn(a, b:integer):integer; var ucln:integer; begin while (a<>b) do if a > b then a:=a-b else b:=b-a; ucln:=b; bcnn:= (a*b) div ucln; end; Begin Readln(a,b); Writeln(‘BCNN la: ‘,bcnn(a,b)); readln End. Chọn câu trả lời đúng: A. chương trình có lỗi cú pháp B. chương trình có lỗi ngữ nghĩa C. chương trình cho kết quả đúng. D. các câu trả lời trên đều sai. Câu 16. Cho đề bài: Nhập vào một xâu kí tự st, rồi xoá tất cả các kí tự trắng vô nghĩa trong xâu (xoá bỏ mọi kí tự trắng, ngoại trừ một kí tự trắng giữa hai từ). Có 03 chương trình con xóa xâu như sau: procedure xoa1(var st:string); var i:byte; begin while st[1]=' ' do delete(st,1,1); while st[length(st)]=' ' do delete(st,length(st),1); i:=1; repeat if (st[i]<>' ')and(st[i+1]=' ') then while st[i+2]=' ' do delete(st,i+2,1); i:=i+1; [...]... a/ t:=2 b/ t:=4 Câu 17: Xét chương trình Pascal sau đây: PROGRAM thi; VAR I,j:integer; BEGIN i:=1; j:=2; IF (i2) THEN IF (i>0) OR (j2) THEN IF (i>0) OR (j5) là một biểu thức luận lý c/ x+2y+1 là một biểu thức luận lý d/ not (x>y) là một biểu thức luận lý x e/ các câu trên đều sai Câu 4: Xét chương trình Pascal sau: PROGRAM vidu; TYPE d=ARRAY [ 1 n] of integer; VAR i:integer; a:=d; BEGIN Read(n); FOR i:=1 TO n DO A[i]:=i+1; END x a/chương trình báo lỗi... IF (i>0) OR (j . chương trình có lỗi cú pháp B. chương trình cho kết quả sai C. chương trình cho kết quả đúng. D. các câu trả lời trên đều sai. Vì chương trình lặp vô tận. Câu 15. Cho đề bài: Viết chương trình. hành ,chương trình in ra 3 b/Khi thi hành ,chương trình in ra 4 c/Khi thi hành ,chương trình không in ra gì cả x d/Khi dòch,chương trình báo lỗi ngữ pháp Câu 19: Xét chương trình Pascal sau đây: PROGRAM. chương trình báo lỗi cú pháp B. chương trình báo lỗi runtime C. chương trình bị treo và k có giá trị cố định là 0. D. chương trình bị treo và k có giá trị không cố định. Câu 12. Cho đề bài: Nhập