404 câu hỏi trắc nghiệm Pascal

NHom 1: 1101 Nhom 2: 102 202 Nhom 3: 203 303 Nhom 4: 304404 NỘI DUNG ÔN TẬP MÔN PASCAL Câu 1: Phạm vi biểu diễn số nguyên kiểu shortint: a 0->65535 b 0->256 c -32768->32767 d -127->128 Câu 2: Cho biết từ khóa Var dùng để làm gì? a Khai báo biến b Khai báo số c Khai báo thủ tục d Gán giá trị Câu 3: Trong pascal để giảm giá trị n ta dùng hàm a dec(n) b Succ(n) c Pred(n) d Inc(n) Câu 4: Phạm vi biểu diễn số nguyên kiểu Byte: a -127->128 b 0->256 c 0->255 d -32768->32767 Câu 5: Trong Turbor pascal 7.0 Tập tin TURBO.EXE dùng để:" a Soạn thảo dịch chương trình b Thư viện chuẩn" c Thư viện đồ hoạ" d Thư viện liên quan đến hình Câu 6: Trong pascal để trả số nguyên gần với x bé x ta dùng hàm a Frac(x) b Int(x) c Trunc(x) d Round(x) Câu 7: Cách khai báo pascal a CONST : = ; b CONST = ; c CONST : ; Khoa CNTT – Lập trình cấu trúc Trang: d CONST =: ; Câu 8: Miền giá trị kiểu logic a True b True, False c false d 0,1 Câu 9: Trong pascal Từ khoá xác định kiểu Logic a True b Bool c Boolean d False Câu 10: Cú pháp lệnh " While B s;" a Thực S B=true b Thực S B=false c Trong B=false thực S d Trong B=true thực S Câu 11: Kiểu xâu kí tự khai báo từ khoá a String b Char c Character d Text Câu 12: Khai báo mảng: a Var = ARRAY [chỉ só] OF ; b VAR := ARRAY [chỉ số] OF ; c VAR : ARRAY [chỉ số] OF ; d Type : ARRAY [chỉ số] OF ; Câu 13: Lệnh gán pascal viết a Tên biên biểu thức; b Tên biến:= biểu thức c Tên biến= biểu thức d Tên biến : biểu thức Câu 14: Trong pascal để khai báo kiểu liệu ta dùng từ khoá a USES ; b VAR c TYPE .; d CONST .; Câu 15: Đối với file Văn (Text) thủ tục : writeln (F,x);" a Ghi giá trị F vào vị trí trỏ file x b Đọc dòng từ trỏ file x gán cho biến F c Ghi giá trị x vào vị trí trỏ file F Khoa CNTT – Lập trình cấu trúc Trang: d Đọc dòng từ trỏ file F gán cho biến x Câu 16: Trong pascal để khai báo thư viện ta dùng từ khoá a VAR b CONST .; c TYPE .; d USES ; Câu 17: Khẳng định Sai: Turbo Pascal, a để lưu chương trình lên đĩa, gõ phím F2 chọn lệnh File / Save ; b để chạy chương trình, gõ phím ^F9 F9 c để tìm lỗi có pháp chương trình, gõ phím Alt_F9, hay F9 ; d để mở tập tin gõ phím F1; Câu 18: Cú pháp lệnh "repeat s; until B" a Thực S B=false b Thực S B=true c Trong B=true thực S d Trong B=false thực S Câu 19: Từ khoá khai báo kiểu số thực: a Tất đáp án b Single c Double d Real Câu 20: Trong pascal để khai báo biến ta dùng từ khoá a USES ; b VAR c TYPE .; d CONST .; Câu 21: Trong pascal để trả giá trị đứng sau n ta dùng hàm a Pred(n) b Odd(n) c Succ(n) d Inc(n) Câu 22: Trong pascal để trả số nguyên x ta dùng hàm a Trunc(x) b Frac(x) c Int(x) d Round(x) Câu 23: Đối với liệu kiểu tệp Hàm FileSize(F); a trả vị trí trỏ File b KIểm tra cuối file c Số lượng phần tử có file d Kiểm tra cuối dòng Khoa CNTT – Lập trình cấu trúc Trang: Câu 24: Để truy cập đến phần tử thứ (I,j)trong mảng chiều A ta viết: a a[I,j] b a(I,j) c a[ ‘i’,’j’] d a(‘i’,’j’) Câu 25: Đối với file Văn (Text) thủ tục Append(F); a mở file tồn bổ sung vào đầu file b mở file tồn bổ sung vào cuối file c mở file tồn bổ sung vào vị trí trỏ d mở file tồn nối file Câu 26: Hàm COPY(St : String; Pos, Num: Byte): String; có nghĩa a Lấy xâu từ xâu St có độ dàI pos kí tự bắt đầu vị trí Num b Lấy xâu từ xâu St có độ dàI Num kí tự bắt đầu vị trí pos c Lấy xâu từ xâu St có độ dàI kí tự bắt đầu vị trí Num d Lấy xâu từ xâu St có độ dàI 10 kí tự bắt đầu vị trí Num Câu 27: Độ dài tối đa biến kiểu String chứa tối đa kí tự : a 256 b 255 c 1024 d 32000 Câu 28: Trong pascal để tính giá trị x mũ hai ta dùng hàm a Sqrt(x) b Sqr(x) c Sqt(x) d Abs(x) Câu 29: Hàm lấy chiều dàI xâu kí tự a Length(st:string):string; b Len(st:string):integer c Leng(st:string):integer d Length(st:string):integer Câu 30: Thủ tục DELETE(Var St:String; Pos, Num: Byte); a Xoá xâu st 255 kí tự bắt đầu vị trí num b Xoá xâu st 255 kí tự bắt đầu vị trí pos c Xoá xâu st pos kí tự bắt đầu vị trí num d Xoá xâu st Num kí tự bắt đầu vị trí pos Câu 31: Câu lệnh " If B then s1 else s2" có nghĩa: a Nếu B thực s1 ngược lại B sai thực S2 b Nếu B sai thực S1 khỏi if c Nếu B thực S2 khỏi if Khoa CNTT – Lập trình cấu trúc Trang: d Nếu B sai thực s1 ngược lại B thực S2 Câu 32: Để soát lỗi chương trình pascal ta dùng phím a F9 b F5 c Ctrl+F9 d F3 Câu 33: Tham biến biến là: a Là biến khai báo chơuơng trình b Là tham số hình thức khai báo từ khoá var c Là biến khai báo chươơng trình d Là tham số hình thức khai báo sau từ khoá var Câu 34: Để so sánh giá trị kiểu boolean ta có: a False>true b true=false c truefalse Câu 35: Đệ quy a Trong chương trình có lời gọi đến b Khi bàI toán có công thức dơới dạng tổng quát c Khi chia bàI toán lớn thành bàI toán nhỏ d Trong chươơng trình có chươơng trình Câu 36: Char kiểu : a Số nguyên b Kí tự c Số thực d Chuỗi Câu 37: Cách khai báo biến pascal a var tênbiến =kiểu liệu b var tênbiến : kiểu liệu c var tênbiến := kiểu liệu d var tênbiến kiểu liệu Câu 38: Để truy cập đến phần tử thứ k mảng chiều A ta viết: a a[k] b a(k) c A < k > d a{k} Câu 39: Phạm vi biểu diễn số nguyên kiểu word a 0->255 b 0->256 c 0->65535 Khoa CNTT – Lập trình cấu trúc Trang: d -32768->32767 Câu 40: Từ khoá khai báo kiểu kí tự: a Ord b String c Chr d Char Câu 41: Kích thuớc kiểu kí tự a byte b byte c byte d byte Câu 42: Trong pascal trả số kí tự đứng sau ch ta dùng hàm a Ord(ch) b Succ(ch) c Pred(ch) d Chr(ch) Câu 43: Trong pascal Các kiểu số nguyên a Tất đáp án b Byte c Integer d Longint Câu 44: Điều làm cho Pacal đánh gía cao trở thành ngôn ngữ phổ biến a tất câu trả lời b Nó ngôn ngữ chặt chẽ vể mặt cú pháp mặt liệu; c Nó ngôn ngữ có văn phạm sáng sủa, dễ hiểu d Nó ngôn ngữ đưa thể khái niệm lập trình Câu 45: Trong Turbor pascal Tập tin TURBO.TPL dùng để:" a Soạn thảo dịch chương trình" b Thư viện đồ hoạ" c Thư viện chuẩn" d Thư viện liên quan đến hình" Câu 46: Lệnh For To Do thực công việc gì? a Thực phép lặp với số vòng lặp có định trước b Thực phép lặp với số vòng không điịnh trước c Thực phép lặp vô hạn d Thực phép lặp lần Câu 47: Trong pascal để làm tròn x ta dùng hàm a Round(x) b Int(x) c Frac(x) d Trunc(x) Khoa CNTT – Lập trình cấu trúc Trang: Câu 48: Trong pascal trả số thứ tự bảng mã ascii kí tự ch ta dùng hàm a Chr(ch) b Ord(ch) c Pred(ch) d Succ(ch) Câu 49: Tính cấu trúc ngôn ngữ Pascal thể : a việc tổ chức dtệu; b tất câu tra lời c việc tổ chức chương trình; d việc tổ chức câu lệnh; Câu 50: Để chạy chương trình pascal ta dùng phím a Ctrl+F9 b F9 c F5 d F3 Câu 51: Shortint kiểu : a Số thực b Số nguyên c Chuỗi d Kí tự Câu 52: Khai báo mảng sau: VAR A: Array[1 100] of Integer; a Mảng A có tối đa 100 phần tử kiểu thực b Mảng A có 100 phần tử kiểu nguyên c Mảng A có tối đa 100 phần tử có giá trị 0->255 d Mảng A có tối đa 100 phần tử kiểu –32767->32768 Câu 53: Trong pascal để tính giá trị E mũ X ta dùng hàm a EX(x) b LN(x) c INT(x) d Exp(x) Câu 54: Trong pascal để trả phần thập phân x ta dùng hàm a Trunc(x) b Frac(x) c Int(x) d Round(x) Câu 55: Đối với liệu kiểu tệp Hàm Filepos(F);" a Số lượng phần tử có file b KIểm tra cuối file c trả vị trí trỏ File d Kiểm tra cuối dòng Khoa CNTT – Lập trình cấu trúc Trang: Câu 56: Trong pascal để tính giá trị bậc hai x ta dùng hàm a Sqr(x) b Abs(x) c Sqt(x) d Sqrt(x) Câu 57: Trong pascal để trả giá trị đứng trước n ta dùng hàm a Succ(n) b Pred(n) c Odd(n) d Inc(n) Câu 58: Tên sau Pascal a x1 , X-2 ; b CONST , X_234; c Xx1 , X2; d X[1], x2 ; Câu 59: Trong pascal trả số kí tự đứng trước ch ta dùng hàm a Ord(ch) b Pred(ch) c Chr(ch) d Succ(ch) Câu 60: Phạm vi biểu diễn số nguyên kiểu integer a -127->128 b 0->255 c -32768->32767 d 0->256 Câu 61: SQR(x) hàm : a Bình phương số nguyên hay số thực b Trị tuyệt đối x c Căn bậc hai x d Cắt bỏ phần thập phân x có Câu 62: Cú pháp Lệnh For dạng Lùi a For biến:= downto S b For biến: downto S c For biến:= downto S d For biến = to S Câu 63: Trong pascal trả kí tự in hoa tương ứng kí tự ch dùng hàm a Upcase(ch) b Lower(ch) c Case(ch) d Upper(ch) Câu 64: Để mở chương trình có pascal ta dùng phím Khoa CNTT – Lập trình cấu trúc Trang: a F9 b F3 c F5 d Ctrl+F9 Câu 65: Tên a Dãy kí tự dùng để đặt tên biến, kiểu b Là từ mà pascal dùng để phục vụ mục đích c Lời giai thích cho chương trình dễ hiểu d Dãy câu lệnh kết thúc ; Câu 66: Đối với liệu kiểu tệp Hàm EOF(F); a trả vị trí trỏ File b Số lượng phần tử có file c Kiểm tra cuối file d Kiểm tra cuối dòng Câu 67: Bảng mã ASCII có kí tự : a 256 b 255 c 128 d 512 Câu 68: Tên đặt Sai quy định Pascal: a Giai_Ptrinh_Bac_2; b Ngaysinh; c Noi sinh; d Sv2000 ; Câu 69: Trong pascal để tính giá trị logarit tự nhiên x ta dùng hàm a Exp(x) b LN(x) c INT(x) d EX(x) Câu 70: Biến cục a Là tham số hình thức khai báo sau từ khoá var b Là tham số hình thức khai báo từ khoá var c Là biến khai báo chơơng trình d Là biến khai báo chơơng trình Câu 71: Trong pascal để kiểu tra n có phảI số lẻ không ta dùng hàm a Pred(n) b Succ(n) c Odd(n) d Inc(n) Câu 72: Hàm (function) gì? a Là chươơng trình trả liệu có cấu trúc Khoa CNTT – Lập trình cấu trúc Trang: b Là chươơng trình dùng để thực hay nhiều nhiệm vụ c Là chươơng trình trả giá trị d Là chươơng trình trả giá trị kiểu File Câu 73: Lệnh Read(x) có chức ? a Đọc liệu từ bàn phím vào biến x b Đọc liệu từ bàn phím vào biến x xuống dòng c Đọc từ tệp d Đọc liệu từ bàn phím vào biến x không xuống dòng Câu 74: Để truy xuất đến trơường kiểu ghi ta viết a Tênbiếnbảnghi.tên trươờng b Tênbiếnbảnghi!tên trươờng c Tênbiếnbảnghi , tên trươờng d Tênbiếnbảnghi &tên trươờng Câu 75: Trong pascal để tăng giá trị n lên ta dùng hàm a Pred(n) b Inc(n) c Odd(n) d Succ(n) Câu 76: Thủ tục (procedure) là? a Là chương trình trả giá trị b Là chương trình trả liệu có cấu trúc c Là chương trình dùng để thực hay nhiều nhiệm vụ d Là chương trình trả giá trị kiểu File Câu 77: Trong pascal Từ khoá xác định kiểu nguyên a Int b Real; c Integer; d Boolean Câu 78: Trong pascal để khai báo Hằng ta dùng từ khoá a USES ; b VAR c TYPE .; d CONST .; Câu 79: Khi tạo thư viện chương trình tên thư viện phảI: a Trùng tên File b Khác tên File c Khai báo sau từ khoá interface d Viết hoa Câu 80: Câu lệnh "IF B then S" a Nếu B thực S khỏi if b Nếu B sai thực S khỏi if Khoa CNTT – Lập trình cấu trúc Trang: 10 For j =1 to Do s:=s+i*0; Writeln('S=',S); a 12 b c 15 d chương trình báo lỗi Câu 350: Đoạn mã sau sai phần nào? Type A = Object x,y: Real; Procedure HoanVi; End; b=Array[1 5] of a; c=Array[1 45] of a; b:=c; a Sai khai báo Object b Sai khai báo mảng b c Sai lệnh gán b:=c d Sai khai báo mảng c Câu 351: Kết chương trình sau gi? Var a,b,c:integer; Procedure( a:integer; var b,c:integer); Begin A:=a+1;B:=b+1;C:=a+b; End; Begin A:=1;b:=1; Tt(a,b,c); Write(‘a=’,a,’b=’,b,’c=’,c); Readln; End a A=2 b=2 c=4 b A=1 b=1 c=2 c A=1 b= 2c=4 d A=1 b=2 c=0 Câu 352: Muốn xoá tệp có tên LyLich.Dat đĩa (được đặc trưng qua biến F ) ta viết a Assign(F, 'LyLich.dat');Remov(F); b Assign(F, 'LyLich.dat');del(F); c Assign(F, 'LyLich.dat');delete(F); d Assign(F, 'LyLich.dat');Erase(F); Câu 353: Kết s=?khi n=4 Var N,i,S:integer; Begin Khoa CNTT – Lập trình cấu trúc Trang: 82 Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; For i:=1 to N S:=S*i; End; a 10 b c 11 d 12 Câu 354: Đoạn chương trình sau giảI bàI toán M:=A[1]; For i:=2 To N Do If M>A[i] Then M:=A[i]; a Tìm phần tử lớn mảng N phần tử b Sắp xếp N phần tử mảng giảm dần c Sắp xếp N phần tử mảng tăng dần d Tìm phần tử nhỏ mảng N phần tử Câu 355: Đoạn chương trình sau giảI bàI toán M:=A[1]; For i:=2 To N Do If Mb then A:=a+1 Else Begin B:=b+1; A:=a+2; end Write(‘a=’,a,’b=’,b) End; a A=10;b=6 b A=8;b=8 c A=10;b=7; d A=8;b=6; Câu 378: chương trình sau làm nhiệm vụ Type Mang = ARRAY[1 50] Of Integer; Var A:Mang;N,i,Max:Integer; Begin Write(‘Nhap N=’); Readln(N); For i:=1 To N Do Begin Write(‘A[‘,i,’]=’); Readln(A[i]); End; End a Nhập N phần tử mảng , N0" d Nhập N phần tử mảng , N=50" Câu 379: Biến songay=? Khi nhap nhap nam=2004 thang=2 begin Write(nhap thang:’);Readln(thang); Write('-Cho biet nam : '); Readln(nam); Case thang Of 1,3,5,7,8,10,12: songay:=31; 4,6,9,11 : songay:=30; :Case nam Mod Of 1,2,3 :songay:=28; :songay:=29; Khoa CNTT – Lập trình cấu trúc Trang: 89 End; End; a 28 b c 2’ d 29" Câu 380: Muốn đổitệp có tên LyLich.dat thành tệp NhanSu.dat (được đặc trưng qua biến F ) ta viết a Assign(F, 'Nhansu.dat');Rename(F, 'Lylich.dat'); b Assign(F, 'LyLich.dat');Rename(F, 'NhanSu.dat'); c Assign( 'LyLich.dat');Rename('NhanSu.dat'); d Assign(F,'LyLich.dat');Rename('NhanSu.dat') Câu 381: Kết chương trình sau gi? Var a,b,c:integer; Procedure( a,b:integer;c:integer); Begin A:=a+1;B:=b+1;C:=a+b; End; Begin A:=1;b:=1; Tt(a,b,c); Write(‘a=’,a,’b=’,b,’c=’,c); Readln; End a A=2 b=2 c=4 b A=1 b=1 c=2 c A=1 b= 1c=0 d A=1 b=2 c=0 Câu 382: Hãy đọc đoạn mã sau xem máy in kết người dùng nhập chữ "GOOD" ? Var S: String; i:Integer; begin Writeln(' Vào S='); Readln (S); i=Length(S); Writeln('length = ',i ); end a b Không in c d Khoa CNTT – Lập trình cấu trúc Trang: 90 Câu 383: Đoạn chương trình sau giảI bàI toán M:=A[1]; For i:=1 To N -1 Do For j:=i=1 to N Do If A[i]>A[j] Then Begin Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam; End;" a Tìm phần tử lớn mảng N phần tử b Tìm phần tử nhỏ mảng N phần tử c Sắp xếp N phần tử mảng tăng dần d Sắp xếp N phần tử mảng giảm dần Câu 384: lệnh For downto để làm ? a b c d Thực phép lặp vô hạn Thực phép lặp với số vòng lặp không định trước Thực phép lặp với số vòng lặp có định trước Thực phép lặp lần Câu 385: Kết chương trình sau Var St : String; i,L : integer; Begin St:='ABCD'; L := Length(St); For i:= L Downto write (i); End a DCA b ABCD c 4321 d DCB Câu 386: Cho chương trình đệ quu sau giải vấn đề Function Factorial(N:integer):Longint; Begin If N=0 Then Factorial:=1 Else Factorial:=N*factorial(N-1); End; a kết b Tính chỉnh hợp N c Tính 0*1*2*…*n d Tính n! Câu 387: chưong trinh sau làm nhiệm vụ gì? Begin Write('-Nhap mot chu bat ky: '); Readln(ch); c:=chr(ord(ch)-32); Khoa CNTT – Lập trình cấu trúc Trang: 91 Writeln(' ki tu moi ',c); End a Nhập kí tự hoa đổi sang kí tự thường b Nhập kí tự in kí tự c Nhập kí tự in mã ascii kí tự d Nhập kí tự tự thường in kí tự hoa Câu 388: Đoạn chương trình sau giảI bàI toán M:=A[1]; For i:=2 To N Do If Mb then A:=a+1 Else Begin B:=b+1; A:=a+2; end Write(‘a=’,a,’b=’,b) End; a A=10;b=6 b A=8;b=8 c A=10;b=7; d A=8;b=6; Câu 394: Kết chương trình sau gi? Var a,b,c:integer; Procedure( a,b:integer; var c:integer); Begin A:=a+1;B:=b+1;C:=a+b; End; Begin A:=1;b:=1; Tt(a,b,c); Write(‘a=’,a,’b=’,b,’c=’,c); Readln; End a A=2 b=2 c=4 b A=1 b=1 c=2 c A=1 b= 1c=4 d A=1 b=2 c=0 Khoa CNTT – Lập trình cấu trúc Trang: 93 Câu 395: Đọc đoạn mã sau mà chọn câu trả lời đúng! begin if = then begin if = then begin if = then begin Halt(1); end; end; end; Writeln('Chào anh'); end a Không làm b Dừng chương trình c Hiện chữ Chào anh d Máy thông báo lỗi Câu 396: Cho st biến string , kết chương trình sau St:=’ABCDEF’; Delete(St, 3, 2); Insert(‘XYZ’, St, 2); Write(St); a AXYZBEF b AXYZBCDEF c AXYZ d ABXYZEF Câu 397: Tìm giá trị Max hai số a b ta viết a If a < b Then Max: =b Else Max: = a; b If a < b Then Max: =b Else; Max: = a; c If a > b Then Max: =b Else Max: = a; d If a < b Then Max: =b Else; Max: = a; Câu 398: Hãy nhận xét đoạn mã sau: Type C=Char Var Chr : C; Begin Clrscr; For Chr:='A' To 'Z' Do Write(Chr:2); End a Chương trình báo lỗi đặt tên biến trùng với từ khoá b Chương trình in hình ký tự từ 'A' đến 'Z' c Chương trình chạy bình thường Khoa CNTT – Lập trình cấu trúc Trang: 94 d Không in Câu 399: Kết chương trình sau Var St : String; i,L : integer; Begin St:='ABCD'; L := Length(St); For i:= L Downto write (St[i]); End a DCA b ABCD c 4321 d DCBA Câu 400: Cho St:=’AAABAAB’; Kết chương trình sau While St[1]=’A’ Delete(St,1,1); Write(St); a BAAB b AABAAB c BB d AA Câu 401: Giả sử S khai báo biến với kiểu nguyên, A biến với kiểu thực Phép gán sau hợp lệ : a A :=123.5 b S := 123.5 c A:= S d S:= A Câu 402: Cho x,I biến nguyên, kết x,y thực : VAL('1234', x, i); a b c d x = , i = 1234 x = 1234 , i = x = 1234 , i = x=0,i=0 Câu 403: Kết chương trình sau gi? Var a,b,c:integer; Procedure( var a,b:integer;c:integer); Begin A:=a+1;B:=b+1;C:=a+b; End; Begin A:=1;b:=1; Tt(a,b,c); Write(‘a=’,a,’b=’,b,’c=’,c); Khoa CNTT – Lập trình cấu trúc Trang: 95 Readln; End a A=1 b=1 c=0 b A=1 b=1 c=2 c A=2 b=2 c=4 d A=2 b=2 c=0 Câu 404: Chương trình sau làm nhiệm vụ gì? Var I: integer; F: File of Integer; Begin Assign (F, 'So.dat'); Rewrite (F); I:=1; While i32768 Câu 53: Trong pascal để tính giá trị E mũ X ta dùng hàm a EX(x) b LN(x) c INT(x) d Exp(x) Câu 54: Trong pascal để trả phần thập phân x ta dùng hàm a Trunc(x) b Frac(x) c Int(x) d Round(x) Câu