Khoanh tròn vào chữ cái trước câu trả lời đúng nhất !" #$%&'()*&#+,-(.&#/$01(23)4'5+&'7$81&93: A. Viết chương trình bằng ngơn ngữ lập trình B. Dịch chương trình thành ngơn ngữ máy C. Viết chương trình bằng ngơn ngữ lập trình rồi dịch chương trình thành ngơn ngữ máy D. Viết chương trình trên giấy rồi gõ vào máy tính !" #$%&'()*&#;<1#=9+'*: A. Dịch từ ngơn ngữ lập trình sang ngơn ngữ máy. B. Dịch từ ngơn ngữ lập trình sang ngơn ngữ tự nhiên C. Dịch từ ngơn ngữ máy sang ngơn ngữ lập trình D. Dịch từ ngơn ngữ máy sang ngơn ngữ tự nhiên. !"> '?&&'6=@A()*&#=9 A. Tập hợp các kí hiệu và quy tắc viết các lệnh tạo thành một chương trình hồn chỉnh và thực hiện được trên máy tính B. Tập hợp các kí hiệu và quy tắc viết các lệnh tạo thành một chương trình hồn chỉnh C. Tập hợp các kí hiệu để viết các lệnh tạo thành một chương trình hồn chỉnh D. Tập hợp các quy tắc viết các lệnh tạo thành một chương trình hồn chỉnh và thực hiện được trên máy tính !"B Đâu là các từ khố: A. Program, end, begin. B. Program, end, begin, Readln, lop82 C. Program, then, mot, hai,ba D. Lop82, uses, begin, end !"C )3')4+=9(DE#3,;F&'/G A. Khai báo tiêu đề chương trình B. Kết thúc chương trình C. Viết ra màn hình các thơng báo D. Khai báo biến !"H I&&93/J&': A. Lop 8a B. Lop8/a C. Lop8a D. 8a !"K I&&93L4M: A. Chuong_trinh B. Baitap1 C. A4H D. hoa@yahoo.com !" N"()J11O41#$%&'()*L14='5+&'A#P&&93: A. Khai báo B. Khai báo và thân C. Tiêu đề, khai báo và thân D. Thân !"Q #P&&93()3&'1#$%&'()*L14=7R(7"S1A#TM1U A. Thân B. Khai báo C. Khai báo và thân D. Tiêu đề !" )3&'1,1(I&L4"/!-V(I&&93=9E#?&'#0A=W()3&'&'?& &'64L14=: A. TINHS B. DIENTICH C. DIEN TICH D. TIMS !" G(#3,(E#XM4L14=(4LY;Z&'([#0AA#.+ A. Alt + F9 B. Alt +X C. Ctrl+ F9 D. Ctrl + X !" \(]"TM&)4+9&#*O41!"=W&# ^)M(_=&`Cab`V aCc=9 A. 5+20=25 B. 5+20=20+5 C. 20+5=25 D. 25 = 25 !"> #P&&'"-I&()3&'A#dA1#M41O4#4MLe&'"-I&Hf9C=9 A. 16 div 5 = 1 B. 16 mod 5 = 1 C. 16 div 5 = 3 D. 16 mod 5 = 3 !"B Ig&#E#4M7,3(#$fMW&()3&'&'?&&'6=@A()*L14==9 A. Begin B. Uses C. Program D. Var !"C )3&'4L14=VE#M'h(DE#U41#37M\(/MG+7R(/P"A#P&(#!& 1#$%&'()*&#V(41U(#GfM\( A. begin B. BEGIN C. Begin D. CZ 3 câu đều đúng !"H )3&'4L14=V=W=)L1)/$01;F&'/G A. X[a màn hình B. In thông tin ra màn hình C. Nhập dữ liệu từ bàn phím D. Tạm dừng chương trình !"K DE#U4;F&'/GE#4M7,3#i&'()3&'&'?&&'6=@A()*&# 4L14==9 A. Const B. Var C. Real D.End !" G&#@A;6=MW"(4;F&'=W&# A. Clrscr; B. Readln(x); C. X:= ‘dulieu’; D. Write(‘Nhap du lieu’); !"Q ,11!"=WL14=L4"/!-/$01fM\(/J&'#4-L4M: A. if x:= 5 then a = b; B. if x > 4; then a:= b; C. if x > 4 then a:=b; m:=n; D. if x > 4 then a:=b; else m:=n; !": )3&'1#$%&'()*&#")734L14=V([#0AA#.+j=(akQ ;F&'/G A. Dịch chương trình. B. Lưu chương trình. C. Chạy chương trình. D. Khởi động chương trình !" )3&'1#$%&'()*&#")734L14=(DE#3,;F&'/GE#4M7,3(I& 1#$%&'()*&#=9 A. uses. B. Begin C. Program. D. End !" )3&'1,1(I&L4"V(I&&93=9#0A=W()3&'&'?&&'64L14= A. Dien tich; B. Begin; C. Tamgiac; D. 5-Hoa-hong; !"> G(*+'M,()<=8&&#N(1O4Le4V7(#*(4fM\( A. Max:=a;If b>Max then Max:=b; B. If (a>b) then Max:=a;If (b>a) then Max:=b; C. Max:=b;If a>Max then Max:=a; D. CZ 3 câu đều đúng. !"B lM\&4/$01&#@&1,1'M,()<=9cmccV>41U(#G E#4M7,34(#"S1EMG";6=MW"&93: A. Integer B. Char C. Real D. Integer và Longint !"C n#_&o=L_=9 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 !"H MG";6=MW"&(_'_)1U'M,()<=8&&#N(=9 A. 32768 B. 32767 C. 2 tỉ D. -32768 +32767 !"K 4=97M\&;6=MW"EMG"Le&'"-I&"e&p"N('M,()<1O44 (#* (4fM\( A. Writeln('a*a') B. Readln(' a*a ') C. Writeln(a*a) D. Writwln(a 2) Câu 28: IF a>8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào? A. 0 B. 5 C. 8 D. 3 Câu 29: Khi soạn thảo xong chương trình Pascal, ta muốn lưu chương trình lại thì ta nhấn phím: A. F9 B. Ctrl + F9 C. F2 D. Ctrl + F2 Câu 30: Khi soạn thảo xong một chương trình Pascal, ta muốn kiểm tra xem có lỗi gì không thì ta nhấn phím: A. F9 B. F3 C. F2 D. F1 Câu 31: Khi một chương trình Pascal hết lỗi, ta muốn chạy chương trình thì nhấn phím: A. F9 B. Ctrl + F9 C. F2 D. Ctrl + F2 Câu 32: Viết biểu thức toán a 3 -b 3 sang Pascal thì ta viết là: A. a 3 -b 3 B. a*a*a-b*b*b C. a.a.a-b.b.b D. aaa-bbb Câu 33: Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như sau : A. Tong=a+b; B. Tong:=a+b; C. Tong:a+b; D. Tong(a+b); Câu 34: !"=W&#/Mq"EMW&;2&'/P-/O=9 A. If < đk > then < câu lệnh 1> Else <câu lệnh 2>; B. If <đk > then < câu lệnh>; C. If <đk> then < câu lệnh 1>,<câu lệnh 2>; D. CZ a,b,c đều sai. Câu 35: )3&'&'?&&'6=@A()*L14=V(DE#?&'A#TM(DE#U4=9 A. Uses B. Program C. End D. Computer Câu 36: rs-E.(t&(#"S1EMG";6=MW" A. String B. Integer C. Real D. Char Câu 37: I�A=W()3&'&'?&&'64L14==9: A. 16abc; B. Hinh thang; C. D15; D. Program; Câu 38: DE#U4/GE#4M7,37M\&()3&'&'?&&'6=@A()*L14==9 A. Const B. Var C. Real D. End Câu 39: G1#2-+S(1#$%&'()*L14=(4&#N&([#0AA#.+ A. Ctrl+F9 B. Alt+F9 C. Shitf+F9 D. Ctrl+Shift+F9 Câu 40: N"()J11#"&'#0A=u1O4+S(1#$%&'()*L14==9 A. Begin -> Program -> End. B. Program -> End -> Begin. C. End -> Program -> Begin. D. Program -> Begin -> End. Câu 41: #P&;$()3&'A#dA1#M41O4#4MLe&'"-I&Hf9C=9 A. 16 div 5 = 1 B. 16 mod 5 = 1 C. 16 div 5 = 3 D. 16 mod 5 = 3 Câu 42: j/$01E#4M7,3=97M\&f8MEMG";6=MW"Le&'"-I&Vv=97M\& f8MEMG";6=MW"p!"#dA',�A=W=9 A. A:= 4.5; B. X:= ‘1234’; C. X:= 57; D. A:=‘LamDong’; Câu 43: )3&'4L14=E#4M7,3&93L4"/!-=9/J&' A. Var hs : real; B. Var 5hs : real; C. Const hs : real; D. Var S = 24; Câu 44: #$%&'()*&#L4"1#3E\(]"T=9'M: Program vd; Var a, b,: real; x,: integer ; Begin readln(a, b); If a>b then x:=a else x:=b; Write(x); End. A. Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập B. Xuất ra màn hình số lớn nhất trong 2 số a, b đã nhập C. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu D. ĐZo giá trị của 2 biến a, b cho nhau Câu 45: D&93L4"/!-E#?&'A#TM(DE#3,: A. Sqrt B. Begin C. Var D. Program Câu 46: !"=W&#&93L4"/!-=9E#4M7,3#i&' A. Const n = 20; B. Const n : 20; C. Const n := 20; D. Const n 20; Câu 47: I&&93L4"/!-=9;3&'$wM=@A()*&#/x( A. Var B. Real C. End D. n Câu 48: #4M7,3&93L4"/!-/J&' A. Program V D; B. Program Vi_du; C. Program VD D. Program: V_D; Câu 49: !"=W&#&93L4"/!-=91!"=W&#',&: A. x = 5 B. x: 5 C. x and 5 D. x:= x +5; Câu 50: !"=W&#&93L4"/!-;F&'/G&#@A+S(Le(D79&A#.+f93 7M\&p: A. Writeln(‘Nhập x = ’); B. Write(x); C. Writeln(x); D. Readln(x); Câu 51: !"=W&#&93L4"/!-;F&'/GM&'M,()<=$"()3&'7M\&p)4 +9&#*&#: A. Writeln(x); B. Write(x); C. Write(x: 3); D. CZ A, B, C đều đúng Câu 52: !"&93L4"/!-/J&'E#M&UMfq7M\& A. Biến là đại lượng do người lập trình đặt B. Biến c[ giá trị không đổi trong suốt quá trình thực hiện chương trình C. C[ một số biến c[ sẵn trong chương trình, không cần khai báo D. Tên biến phZi bắt đầu bằng số Câu 53: )3&'4L14=V+"e&;<1#1#$%&'()*&#(4;F&'([#0AA#.+ &93L4"/!- A. Alt + F9 B. Ctrl + F9 C. Alt + F3 D. Ctrl + S Câu 54: ye7M\&1U(#GE#4M7,3(eM/4()3&'+S(1#$%&'()*&#=9743 &#MI": A. Chỉ một biến cho mỗi kiểu dữ liệu. B. 10 biến. C. Chỉ hạn chế bởi dung lượng bộ nhớ. D. Không giới hạn. Câu 55: lM\&/$01E#4M7,3f8MEMG";6=MW"Le(#t11U(#G=$"1,1 'M,()<&93()3&'1,1'M,()<;$8M/!- A. Một số nguyên bất kì. B. Một số thực (c[ thể là số nguyên) trong phạm vi cho phép. C. Một số thực bất kì. D. Một dãy các chữ và số. Câu 56: #z&1!"=WL14=#0A=W()3&'1,11!"L4" A. If x : = a + b then x : = x + 1; B. If a > b then max = a; C. If a > b then max : = a ; else max : = b; D. If 5 = 6 then x : = 100; {| q !" Hãy viết lại các biểu thức sau sang dạng biều diễn tương ứng trong Pascal: a) a a 3 1 2 −+ )( b) 3 yx + c)(2a 2 + 2c 2 - a) : 4 d) yx yx − + !" Hãy mô tZ thuật toán giZi phương trình bậc nhất ax +b = 0 !"> Viết chương trình in ra màn hình diện tích và chu vi hình vuông q !" Chuyển các biểu thức được viết trong Pascal sau đây thành các biểu thức toán học: a) (a*a*a+b*x-8)/2 b) (x*x+y)/(x-y*y) c) (2*a-b*b)/(a+b) d) (x-y/3)*(x+y) !" Hãy mô tZ thuật toán tính tổng các phần tử của dãy số A gồm a 1, a 2 ,…, a n cho trước !"> Viết chương trình in ra màn hình diện tích và chu vi hình chữ nhật q> !" Viết chương trình tính tổng, tích và hiệu của hai số được nhập từ bàn phím !" Hãy mô tZ thuật toán tìm số nhỏ nhất trong dãy A các số a 1 , a 2 , …,a n cho trước !"> Tìm lỗi sai và sửa trong chương trình sau : Begin Program vd Uses crt ; Clrscr ; Writeln(‘Chao cac ban !’) End. readln qB !" Hãy chỉ ra Input và Output của các bài toán sau: a) Tính diện tích hình tam giác b) Tính tổng của 100 số tự nhiên đầu tiên !" Hãy mô tZ thuật toán tìm số lớn nhất trong dãy A các số a 1 , a 2 ,…, a n cho trước !"> Viết chương trình kiểm tra ba số a, b, c c[ là ba cạnh của một tam giác hay không với a, b, c là ba số được nhập từ bàn phím mmm#_o&;mmm }} Đáp án Đáp án Đáp án Câu 1 C Câu 21 C Câu 41 B Câu 2 A Câu 22 C Câu 42 B Câu 3 A Câu 23 D Câu 43 A Câu 4 A Câu 24 C Câu 44 C Câu 5 A Câu 25 C Câu 45 A Câu 6 C Câu 26 B Câu 46 A Câu 7 D Câu 27 C Câu 47 D Câu 8 C Câu 28 B Câu 48 B Câu 9 A Câu 29 C Câu 49 D Câu 10 C Câu 30 A Câu 50 D Câu 11 B Câu 31 B Câu 51 D Câu 12 A Câu 32 B Câu 52 A Câu 13 C Câu 33 B Câu 53 B Câu 14 B Câu 34 A Câu 54 D Câu 15 D Câu 35 D Câu 55 B Câu 16 A Câu 36 A Câu 56 B Câu 17 A Câu 37 C Câu 18 B Câu 38 B Câu 19 C Câu 39 B Câu 20 A Câu 40 D {| q !" a) (a*a + 1) – 3/a b) x+ y*y*y c) (2*a*a+2*b*b - a)/4 d) (x+y)/(x-y) !" Mô tZ thuật toán: -B1: Xác định hệ số a và b -B2: Nếu a=0 và b=0 thì thông báo pt c[ vô số nghiêm và chuyển đến B5 -B3: Nếu a=0 và b≠0 thì thông báo pt vô nghiệm và chuyển đến B5 -B4: Nếu a≠0 thì nghiệm pt là x=-b/a và chuyển đến B5 -B5: Kết thúc !"> Program hinh_vuong; Uses crt; Var a:integer; s,p:real; Begin clrscr; write('Nhap do dai canh: ');readln(a); s:=a*a; p:=4*a; writeln('Dien tich hinh vuong: ',s:4:0); writeln('Chu vi hinh vuong: ',p:4:0); readln End. q !" a) (a 3 + bx -8):2 b) (x 2 +y): (x – y 2 ) c) (2a – b 2 ): (a+b) d) (x - 3 y )(x + y) !" Mô tả thuật toán: - Bước 1: Nhập các phần tử của dãy A: a 1 , a 2 , , a n - Bước 2: S←0; i←0; - Bước 3: i←i+1; - Bước 4: Nếu i>n chuyển sang B7 - Bước 5: S←S+a i và quay về B3 - Bước 6: Đưa kết quZ S ra màn hình - Bước 7: Kết thúc !"> Program hcn; Uses crt; Var a,b:integer; s,p:real; Begin clrscr; write('Nhap chieu dai: ');readln(a); write('Nhap chieu rong: ');readln(b); s:=a*b; p:=(a+b)*2; writeln('Dien tich hinh chu nhat: ',s:4:0); writeln('Chu vi hinh chu nhat: ',p:4:0); readln End. q> !" Program baitap; Uses crt; Var a,b:integer; tong,tich,hieu:real; Begin clrscr; write('Nhap a= ');readln(a); write('Nhap b= ');readln(b); tong:=a+b; tich:=a*b; hieu:=a-b; writeln('Tong a va b la: ',tong:4:0); writeln('Tich a va b la: ',tich:4:0); writeln('Hieu a va b la: ',hieu:4:0); readln End. !" Mô tả thuật toán: - Bước 1: Min←a 1 ;i←1; - Bước 2: i←i+1; - Bước 3: Nếu i>n, chuyển đến B5 - Bước 4: Nếu a i <Min, Min←a i , quay về B2 - Bước 5: Kết thúc !"> Program vd; Uses crt ; Begin Clrscr ; Writeln(‘Chao cac ban !’); readln End. qB !" a) Input: Độ dài một cạnh và đường cao tương ứng với cạnh đ[ Output: Diện tích hình tam giác b) Input: Dãy 100 số tự nhiên đầu tiên: 1, 2, …, 100 Output: S= 1+2+ … + 100 !" Mô tả thuật toán: - Bước 1: Max←a 1 ;i←1; - Bước 2: i←i+1; - Bước 3: Nếu i>n, chuyển đến B5 - Bước 4: Nếu a i >Max, Max←a i , quay về B2 - Bước 5: Kết thúc !"> Program tamgiac; Uses crt; Var a,b,c:integer; Begin clrscr; write('Nhap a = ');readln(a); write('Nhap b = ');readln(b); write('Nhap c = ');readln(c); If (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c la ba canh cua mot tam giac') else writeln('a,b,c khong la ba canh mot tam giac'); readln End. . hình các thơng báo D. Khai báo biến !"H I&&93/J&': A. Lop 8a B. Lop8/a C. Lop8a D. 8a !"K I&&93L4M: A. Chuong_trinh B. Baitap1 C. A4H D. hoa@yahoo.com !". báo !"H MG";6=MW"&(_'_)1U'M,()< =8& amp;&#N(=9 A. 327 68 B. 32767 C. 2 tỉ D. -327 68 +32767 !"K 4=97M&;6=MW"EMG"Le&'"-I&"e&p"N('M,()<1O44 (#* (4fM( A a*a ') C. Writeln(a*a) D. Writwln(a 2) Câu 28: IF a> ;8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào? A. 0 B. 5 C. 8 D. 3 Câu 29: Khi soạn thảo xong chương trình Pascal,