CAU HOI ON TAP PASCAL

1)= "Trong pascal phím F2 có chức : * (1,1)= "Lưu chương trình soạn thảo " (1,2)= "Tạo File mới" (1,3)= "Mở File tồn tại" (1,4)= "Chạy chương trình" '2 2) = "Lệnh Read(x) có chức ?" (2, 1) = "Đọc liệu từ bàn phím vào biến x." (2, 2) = "Đọc liệu từ bàn phím vào biến x xuống dòng.* (2, 3) = "Đọc liệu từ bàn phím vào biến x không xuống dòng" (2, 4) = "Đọc từ tệp." '3 3) = "Cho biết từ khóa Var dùng để làm gì?* (3, 1) = "Khai báo biến." (3, 2) = "Khai báo số." (3, 3) = "Khai báo thủ tục." (3, 4) = "Gán giá trị." '4 4) = "Lệnh For To Do thực công việc gì?" (4, 1) = "Thực phép lặp với số vòng lặp có định trước.* (4, 2) = "Thực phép lặp với số vòng không điịnh trước." (4, 3) = "Thực phép lặp vô hạn." (4, 4) = "Thực phép lặp lần nhất" 5) = Trong Turbor pascal 7.0 Tập tin TURBO.EXE dùng để: (5, 1) = Soạn thảo dịch chương trình* (5, 2) = Thư viện chuẩn (5, 3) = Thư viện đồ hoạ (5, 4) = Thư viện liên quan đến hình 6) = Trong Turbor pascal Tập tin TURBO.TPL dùng để: (6, 1) = Soạn thảo dịch chương trình (6, 2) = Thư viện chuẩn* (6, 3) = Thư viện đồ hoạ (6, 4) = Thư viện liên quan đến hình 7) = Trong Turbor pascal Tập tin GRAPH.TPU dùng để: (7, 1) = Soạn thảo dịch chương trình (7, 2) = Thư viện chuẩn (7, 3) = Thư viện đồ hoạ * (7, 4) = Thư viện liên quan đến hình 8) = Để soát lỗi chương trình pascal dùng phím (8, 1) = F9 (8, 2) = Ctrl+F9 * (8, 3) = F5 (8, 4) = F3 9) = Để chạy chương trình pascal dùng phím (9, 1) = F9 (9, 2) = Ctrl+F9 * (9, 3) = F5 (9, 4) = F3 10) = Để mở chương trình có pascal dùng phím (10, 1) = F9 (10, 2) = Ctrl+F9 (10, 3) = F5 (10, 4) = F3 * 11) = Trong pascal để khai báo Hằng dùng từ khoá (11, 1) = USES ; (11, 2) = CONST .; * (11, 3) = TYPE .; (11, 4) = VAR 12) = Trong pascal để khai báo thư viện dùng từ khoá (12, 1) = USES ; * (12, 2) = CONST .; (12, 3) = TYPE .; (12, 4) = VAR 13) = Trong pascal để khai báo kiểu liệu dùng từ khoá (13, 1) = USES ; (13, 2) = CONST .; (13, 3) = TYPE .; * (13, 4) = VAR 14) = Trong pascal để khai báo biến dùng từ khoá (14, 1) = USES ; (14, 2) = CONST .; (14, 3) = TYPE .; (14, 4) = VAR * 15) = Từ khoá gì? (15, 1) = Là từ mà pascal dùng để phục vụ mục đích * (15, 2) = Dãy kí tự dùng để đặt tên biến, kiểu (15, 3) = Lời giai thích cho chương trình dễ hiểu (15, 4) = Dãy câu lệnh kết thúc ; 16) = Tên (16, 1) = Là từ mà pascal dùng để phục vụ mục đích (16, 2) = Dãy kí tự dùng để đặt tên biến, kiểu * (16, 3) = Lời giai thích cho chương trình dễ hiểu (16, 4) = Dãy câu lệnh kết thúc ; 17) = Trong pascal Từ khoá xác định kiểu Logic (17, 1) = Boolean * (17, 2) = Bool (17, 3) = True (17, 4) = False 18) = Miền giá trị kiểu logic (18, 1) = True, False * (18, 2) = True (18, 3) = false (18, 4) = 0,1 19) = Để so sánh giá trị kiểu boolean có: (19, 1) = true>false * (19, 2) = true=false (19, 3) = truetrue 20) = Trong pascal Các kiểu số nguyên (20, 1) = Longint (20, 2) = Byte (20, 3) = Integer (20, 4) = Tất đáp án * 21) = Phạm vi biểu diễn số nguyên kiểu Byte: (21, 1) =-127->128 (21, 2) = 0->255 (21, 3) = 0->256 (21, 4) =-32768->32767 * 22) = Phạm vi biểu diễn số nguyên kiểu shortint: (22, 1) =-127->128 * (22, 2) = 0->256 (22, 3) = -32768->32767 (22, 4) =0->65535 23) = Phạm vi biểu diễn số nguyên kiểu integer (23, 1) =-127->128 (23, 2) = 0->255 (23, 3) = 0->256 (23, 4) =-32768->32767 * 24) = Phạm vi biểu diễn số nguyên kiểu word (24, 1) =0->255 (24, 2) = 0->256 (24, 3) = -32768->32767 (24, 4) =0->65535 * 25) = Trong pascal để tính giá trị x mũ hai dùng hàm (25, 1) = Sqr(x) * (25, 2) = Sqrt(x) (25, 3) = Sqt(x) (25, 4) = Abs(x) 26) = Trong pascal để tính giá trị bậc hai x dùng hàm (26, 1) = Sqr(x) (26, 2) = Sqrt(x) * (26, 3) = Sqt(x) (26, 4) = Abs(x) 27) = Trong pascal để tính giá trị E mũ X dùng hàm (27, 1) = Exp(x) * (27, 2) = LN(x) (27, 3) = INT(x) (27, 4) = EX(x) 28) = Trong pascal để tính giá trị logarit tự nhiên x dùng hàm (28, 1) = Exp(x) (28, 2) = LN(x)* (28, 3) = INT(x) (28, 4) = EX(x) 29) = Trong pascal để trả số nguyên gần với x bé x dùng hàm (29, 1) = Trunc(x) * (29, 2) = Int(x) (29, 3) = Frac(x) (29, 4) = Round(x) 30) = Trong pascal để trả số nguyên x dùng hàm (30, 1) = Trunc(x) (30, 2) = Int(x) * (30, 3) = Frac(x) (30, 4) = Round(x) 31) = Trong pascal để trả phần thập phân x dùng hàm (31, 1) = Trunc(x) (31, 2) = Int(x) (31, 3) = Frac(x) * (31, 4) = Round(x) 32) = Trong pascal để làm tròn x dùng hàm (32, 1) = Trunc(x) (32, 2) = Int(x) (32, 3) = Frac(x) (32, 4) = Round(x) * 33) = Trong pascal Từ khoá xác định kiểu nguyên (33, 1) = Int (33, 2) = Integer; * (33, 3) = Real; (33, 4) = Boolean 34) = Trong pascal để trả giá trị đứng trước n dùng hàm (34, 1) = Pred(n) * (34, 2) = Succ(n) (34, 3) = Odd(n) (34, 4) = Inc(n) 35) = Trong pascal để trả giá trị đứng sau n dùng hàm (35, 1) = Pred(n) (35, 2) = Succ(n) * (35, 3) = Odd(n) (35, 4) = Inc(n) 36) = Trong pascal để kiểu tra n có phảI số lẻ không dùng hàm (36, 1) = Pred(n) (36, 2) = Succ(n) (36, 3) = Odd(n) * (36, 4) = Inc(n) 37) = Trong pascal để tăng giá trị n lên dùng hàm (37, 1) = Pred(n) (37, 2) = Succ(n) (37, 3) = Odd(n) (37, 4) = Inc(n) * 38) = Trong pascal để giảm giá trị n dùng hàm (38, 1) = Pred(n) (38, 2) = Succ(n) (38, 3) = dec(n) * (38, 4) = Inc(n) 39) = Từ khoá khai báo kiểu số thực: (39, 1) = Real (39, 2) = Single (39, 3) = Double (39, 4) = Tất đáp án * 40) = Từ khoá khai báo kiểu kí tự: (40, 1) = Char * (40, 2) = String (40, 3) = Chr (40, 4) = Ord 41) = Kích thuớc kiểu kí tự (41, 1) =* byte * (41, 2) = byte (41, 3) = byte (41, 4) =4 byte 42) = Trong pascal trả kí tự in hoa tương ứng kí tự ch dùng hàm (42, 1) = Upcase(ch) * (42, 2) = Lower(ch) (42, 3) = Case(ch) (42, 4) = Upper(ch) 43) = Trong pascal trả số thứ tự bảng mã ascii kí tự ch dùng hàm (43, 1) = Ord(ch) * (43, 2) = Chr(ch) (43, 3) = Pred(ch) (43, 4) = Succ(ch) 44) = Trong pascal trả giá trị bảng mã ascii tưong ứng với vị trí n dùng hàm (44, 1) = Ord(n) (44, 2) = Chr(n) * (44, 3) = Pred(n) (44, 4) = Succ(n) 45) = Trong pascal trả số kí tự đứng trước ch dùng hàm (45, 1) = Ord(ch) (45, 2) = Chr(ch) (45, 3) = Pred(ch) * (45, 4) = Succ(ch) 46) = Trong pascal trả số kí tự đứng sau ch dùng hàm (46, 1) = Ord(ch) (46, 2) = Chr(ch) (46, 3) = Pred(ch) (46, 4) = Succ(ch) * 47) = Cách khai báo pascal (47, 1) = CONST (47, 2) = CONST (47, 3) = CONST (47, 4) = CONST = ; * : = ; : ; =: ; 48) = Hàm (function) gì? (48, 1) = Là chương trình trả giá trị * (48, 2) = Là chương trình dùng để thực hay nhiều nhiệm vụ (48, 3) = Là chương trình trả liệu có cấu trúc (48, 4) = Là chương trình trả giá trị kiểu File 49) = Thủ tục (procedure) là? (49, 1) = Là chương trình trả giá trị (49, 2) = Là chương trình dùng để thực hay nhiều nhiệm vụ * (49, 3) = Là chương trình trả liệu có cấu trúc (49, 4) = Là chương trình trả giá trị kiểu File 50) = Tham biến biến là: (50, 1) = Là tham số hình thức khai báo sau từ khoá var * (50, 2) = Là tham số hình thức khai báo từ khoá var (50, 3) = Là biến khai báo chương trình (50, 4) = Là biến khai báo chuơng trình 51) = Tham biến trị là: (51, 1) =Là tham số hình thức khai báo sau từ khoá var (51, 2) = Là tham số hình thức khai báo từ khoá var * (51, 3) = Là biến khai báo chơng trình (51, 4) =Là biến khai báo chơng trình 52) = Biến toàn cục (52, 1) =Là tham số hình thức khai báo sau từ khoá var (52, 2) = Là tham số hình thức khai báo từ khoá var (52, 3) = Là biến khai báo chương trình * (52, 4) = Là biến khai báo chương trình 53) = Biến cục (53, 1) =Là tham số hình thức khai báo sau từ khoá var (53, 2) = Là tham số hình thức khai báo từ khoá var (53, 3) = Là biến khai báo chơng trình (53, 4) =Là biến khai báo chơng trình * 54) = Đệ quy (54, 1) = Trong chương trình có lời gọi đến * (54, 2) = Khi bàI toán có công thức dới dạng tổng quát (54, 3) = Khi chia bàI toán lớn thành bàI toán nhỏ (54, 4) = Trong chương trình có chương trình 55) = Khi tạo thư viện chương trình tên thư viện phảI: (55, 1) =Trùng tên File * (55, 2) = Khác tên File (55, 3) = Khai báo sau từ khoá interface (55, 4) = Viết hoa 56) = Nguyên tắc tạo Unit (56, 1) =Tên unit phảI trùng với tên file (56, 2) = Chỉ có chương trình khai báo sau interface sử dụng chương trình khác (56, 3) = Các thủ tục hàm khai báo interface bắt buộc phảI có phần IMPLEMENTION (56, 4) = Tất ý nêu * 57) = Khai báo mảng: (57, 1) = Var = ARRAY [chỉ só] OF ; (57, 2) = VAR : ARRAY [chỉ số] OF ; * (57, 3) = VAR := ARRAY [chỉ số] OF ; (57, 4) = Type : ARRAY [chỉ số] OF ; 58) = Khai báo mảng sau: VAR A: Array[1 100] of Integer; (58, 1) = Mảng A có tối đa 100 phần tử kiểu 32767->32768 * (58, 2) = Mảng A có 100 phần tử kiểu nguyên (58, 3) = Mảng A có tối đa 100 phần tử có giá trị 0->255 (58, 4) = Mảng A có tối đa 100 phần tử kiểu thực 59) = Để truy cập đến phần tử thứ k mảng chiều A viết: (59, 1) =a[k] * (59, 2) = a(k) (59, 3) = a (59, 4) =a{k} 60) = Để truy cập đến phần tử thứ (I,j)trong mảng chiều A viết: (60, 1) = a[I,j] * (60, 2) = a(I,j) (60, 3) = a[ i,j] (60, 4) = a(i,j) 61) = Kiểu xâu kí tự khai báo từ khoá (61, 1) = String * (61, 2) = Char (61, 3) = Character (61, 4) =Text 62) = Hàm lấy chiều dàI xâu kí tự (62, 1) = Length(st:string):integer * (62, 2) = Len(st:string):integer (62, 3) = Leng(st:string):integer (62, 4) = Length(st:string):string; 63) = Hàm COPY(St : String; Pos, Num: Byte): String; có ngiã (63, 1) = Lấy xâu từ xâu St có độ dàI Num kí tự bắt đầu vị trí pos * (63, 2) = Lấy xâu từ xâu St có độ dàI pos kí tự bắt đầu vị trí Num (63, 3) = Lấy xâu từ xâu St có độ dàI kí tự bắt đầu vị trí Num (63, 4) = Lấy xâu từ xâu St có độ dàI 10 kí tự bắt đầu vị trí Num 64) = Thủ tục DELETE(Var St:String; Pos, Num: Byte); (64, 1) = Xoá xâu st Num kí tự bắt đầu vị trí pos * (64, 2) = Xoá xâu st 255 kí tự bắt đầu vị trí pos (64, 3) = Xoá xâu st pos kí tự bắt đầu vị trí num (64, 4) = Xoá xâu st 255 kí tự bắt đầu vị trí num 65) = KIểu ghi (65, 1) = Tập hợp phần tử kiểu (65, 2) = Tập hợp phần tử khác kiểu * (65, 3) = Là kiểu liệu chuẩn (65, 4) = Là kiểu liệu đợc định nghĩa sẵn 66) = Để truy xuất đến trường kiểu ghi viết (66, 1) = tênbiếnbảnghi.tên trường * (66, 2) = tênbiếnbảnghi!tên trường Procedure( var 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. (93,1)=A=2 b= c=4* (93,2)=A=1 b=1 c=2 (93,3)=A=2 b=1 c=4 (93,4)=A=1 b=2 c=0 (94)=Kết chương trình sau gi? Var a,b,c:integer; Procedure( a:integer; 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. (94,1)=A=1 b= 1c=0* (94,2)=A=1 b=1 c=2 (94,3)=A=2 b=2 c=4 (94,4)=A=1 b=2 c=0 (95)=Kết chương trình sau gi? Var a,b,c:integer; Procedure( a:integer; var c,b: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. (95,1)=A=1 b= c=1* (95,2)=A=1 b=1 c=2 (95,3)=A=2 b=2 c=4 (95,4)=A=1 b=2 c=0 (96)=Cho chương trình đệ quy sau, factorial=? Khi N=3 Function Factorial(N:integer):Longint; Begin If N=0 Then Factorial:=1 Else Factorial:=N*factorial(N-1); End; (96,1)=6* (96,2)=0 (96,3)=3 (96,4)=*0 (97)=Cho chương trình đệ quy sau, Trường hợp suy biến xảy giá trị N bao nhiêu? Function Factorial(N:integer):Longint; Begin If N=0 Then Factorial:=1 Else Factorial:=N*factorial(N-1); End; (97,1)=6 (97,2)=0* (97,3)=3 (97,4)=*0 (98)=Cho chương trình đệ quy sau, factorial=? Khi N=0 Function Factorial(N:integer):Longint; Begin If N=0 Then Factorial:=1 Else Factorial:=N*factorial(N-1); End; (98,1)=** (98,2)=0 (98,3)=2 (98,4)=không có kết (99)=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; (99,1)=Tính n!* (99,2)=Tính chỉnh hợp N (99,3)=Tính 0*1*2* *n (99,4)=không có kết (100)=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 (100,1)= NHập N phần tử mảng , N0* (100,2)= NHập N phần tử mảng , N0 (100,4)= NHập N phần tử mảng , N=50 (101)=Đoạn chương trình sau giảI bàI toán M:=A[1]; For i:=2 To N Do If MA[i] Then M:=A[i]; (102,1)=Tìm phần tử lớn mảng N phần tử (102,2)=Tìm phần tử nhỏ mảng N phần tử* (102,3)=Sắp xếp N phần tử mảng tăng dần (102,4)=Sắp xếp N phần tử mảng giảm dần (103)=Đ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 m:=A[i]; A[i]:=A[j]; A[j]:=m; End; (103,1)=Tìm phần tử lớn mảng N phần tử (103,2)=Tìm phần tử nhỏ mảng N phần tử (103,3)=Sắp xếp N phần tử mảng tăng dần* (103,4)=Sắp xếp N phần tử mảng giảm dần (104)=Đ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 m:=A[i]; A[i]:=A[j]; A[j]:=m; End; (104,1)=Tìm phần tử lớn mảng N phần tử (104,2)=Tìm phần tử nhỏ mảng N phần tử (104,3)=Sắp xếp N phần tử mảng tăng dần* (104,4)=Sắp xếp N phần tử mảng giảm dần (105)=Chương trình sau làm nhiệm vụ gì? Var I: integer; F: File of Integer; Begin Assign (F, 'So.dat'); I:=1; While i