TRaCNGHIeMPASCAL

TRẮC NGHIỆM PASCAL 1) Trong ngôn ngữ lập trình Pascal để biên dịch chương trình ta nhấn tổ hợp phím? A Ctrl + F9 B Ctrl + F3 C Alt + F9 D Alt + F3 2) Trong ngôn ngữ lập trình Pascal câu lệnh gán có cú pháp nào? A := ; B := ; C = ; D = ; 3) Trong ngôn ngữ lập trình Pascal tên sau không đúng? A Bai1 B Vi_du C 123CT D Bai_tap_2 4) Trong ngôn ngữ lập trình Pascal để lưu chương trình, ta nhấn phím: A F3 B F2 C F5 D F9 5) Trong ngôn ngữ lập trình Pascal có dòng lệnh: a:=’abc123’; k:= length(a); For i:= k downto write(a[i]); Dòng lệnh cho kết là: A ‘123abc’ B ‘321cba’ C ‘abc’ D ‘abc123’ 6) Trong ngôn ngữ lập trình Pascal có dòng lệnh: s1:= ‘lop 11’; s2:= ‘Hoc sinh hai lop 11 co len’; Nếu dùng lệnh Pos(s1, s2); kết bao nhiêu? A 14 B 13 C D 7) Trong ngôn ngữ lập trình Pascal có dòng lệnh: st:= ‘Em phai co gang thi tot’; Nếu dùng lệnh Delete(st, 4, 8); xâu là: A ‘co gang’ B ‘Em thi tot’ C.‘Em gang thi tot’ D ‘phai co’ 8) Trong Turbo Pascal, tên dãy liên tiếp không kí tự? A 128 kí tự B 255 kí tự C 127 kí tự D 256 kí tự 9) Trong ngôn ngữ lập trình Pascal có khai báo: S:= 0; For i:= to If i>=2 then S:= S+i; Dòng lệnh S cho kết bao nhiêu? A 12 B 15 C 14 D 13 10) Trong biểu thức logic: (m Mod 95 < 5) and (m Div 95 > 0) Giá trị m đúng? A 98 B 88 C 108 D 11 11)Khai báo sau cú pháp ? A Type mang1c = array (1 100) of byte; B Type mang1c = array [1 100] of byte; C Type mang1c = array [1-100] of byte; D Type 1mang = array [1 100] of byte; 12) Cho khai báo sau: Var a:string; Đáp án sau A Đây khai báo chuỗi vô số kí tự B Đây khai báo chuỗi gồm 200 kí tự C Đây khai báo mảng chiều D Đây khai báo chuỗi tối đa 255 kí tự 13) Cho câu lệnh sau Begin Write('Phan tu thu',i,'='); readln(A[i]); End; Câu lệnh làm gì? A Nhập vào i phần tử mảng A B Xuất hình gồm i phần tử mảng A C Nhập vào vị trí thứ i mảng A D Xuất hình vị trí mảng A 14) Để xuất mảng A vừa nhập vào từ bàn phím ta thực lệnh sau A Write(A[i]:4); B read(A[i]); C Write('A[i]:4'); D readln(A[i]); 15) Cho câu đoạn lệnh sau: For i= to N if Ai>max then Begin Max=A[i]; Csmax=i; end; Đoạn lệnh sai chỗ nào? A Vòng lặp For B Lệnh gán = C Lệnh If D Cả A, B, C 16) Lệnh Write(A[i]) Pascal thực công việc gì? A Là câu thông báo B In hình phần tử thứ i mảng A C Thực tính giá trị A D Nhập vào số hạng mảng A 17) Câu lệnh sau thực in mảng chiều hình A For i :=1 to n Begin for j:= to n write(A[i,j]); writeln; end; B For i :=1 to n Begin for j:= to n write('A[i,j]'); writeln; end; C For i =1 to n Begin for j= to n write(A[i,j]); writeln; end; D For i :=1 to n for j:= to n write(A[i,j]); writeln; 18) Cho mảng A có 15 dòng 13 cột, để in hình phần tử dòng 7, cột ta viết: A Write(A[7,5]); B Write(A[5,7]); C Write(A:7:5); D Write(A,7,5); 19) Hãy chọn phương ánsai Cần phải có ngôn ngữ lập trình vì: A Máy tính chưa có khả hiểu ngôn ngữ tự nhiện; B Ngôn ngữ máy thường phức tạp người; C Ngôn ngữ bậc cao ngôn ngữ không gần với ngôn ngữ tự nhiên D Ngôn ngữ lập trình ngôn ngữ trung gian ngôn ngữ tự nhiên ngôn ngữ máy 20) Cách khai báo sau đúng? A Type HS:=record HoTen:String [50]; Ngaysinh:String[50]; End; Var A:HS; B Type HS=record; HoTen:String [50]; Ngaysinh:String[50]; End; Var A:HS; C Type HS=record HoTen:String [50]; Ngaysinh:String[50]; End; Var A:HS; D Type HS=record HoTen:String [50]; Ngaysinh:String[50]; Var A:HS; Lệnh lặp For, lần lặp giá trị biến đếm thay đổi nào? a) tăng b) tăng c) tăng d) tăng Cấu trúc câu lệnh lặp For: a) For i:= to n Câu lệnh; b) For biến đếm=1 to Câu lệnh; c) For biến đếm:=giá trị đầu to giá trị cuối Câu lệnh; d) For biến đếm:=giá trị đầu to n Câu lệnh; Số lần lặp câu lệnh sau là: For i:=5 to 27 … a) 20 lần b) 21 lần c) 22 lần d) 23 lần Đoạn lệnh sau, lần lặp giá trị biến i câu lệnh sau thay đổi nào? While i < = !=hoặc = = Câu 10Luật sau mô tả từ tố Quan hệ ngôn ngữ C A) Dấu < > = != = B)Dấu > < = = C) Dấu > < = = = D)Dấu > < = !=hoặc = = Câu 11Luật sau mô tả từ tố Xâu ngôn ngữ Pascal? A) Bất kỳ kí hiệu nằm cặp dấu ‘’ ngoại trừ ‘ B)Bắt đầu dấu ‘ theo sau không nhiều kí hiệu, theo sau dấu ’ C) Bất kỳ kí hiệu nằm cặp dấu “” ngoại trừ “ D)Bắt đầu dấu “ theo sau không nhiều kí hiệu, theo sau dấu ” Câu 12Luật sau mô tả từ tố Xâu ngôn ngữ C? A) Bất kỳ kí hiệu nằm cặp dấu ‘’ ngoại trừ ‘ B)Bắt đầu dấu ‘ theo sau không nhiều kí hiệu, theo sau dấu ’ C) Bất kỳ kí hiệu nằm cặp dấu “” ngoại trừ “ D)Bắt đầu dấu “ theo sau không nhiều kí hiệu, theo sau dấu ” Câu 13Trong chương trình nguồn (ngôn ngữ Pascal): “var a: integer” a là: A) Từ tố số nguyên B)Từ vựng C) Từ tố số thực D)Từ tố Câu 14Trong chương trình nguồn (ngôn ngữ Pascal): “var a: integer” integer là: A) Từ tố số nguyên B)Từ tố từ khóa C) Từ tố số thực D)Mẫu mô tả Câu 15Trong chương trình nguồn (ngôn ngữ C): “int a” int là: A) Từ tố số nguyên B)Từ tố từ khóa C) Từ tố số thực D)Mẫu mô tả Đáp án Câu 16Trong chương trình nguồn (ngôn ngữ Pascal): “writeln(‘ max cua hai so’, max)” writeln là: A) Từ tố số nguyên B)Từ tố từ khóa C) Từ tố số thực D)Từ tố tên Câu 17Trong chương trình nguồn (ngôn ngữ Pascal): “printf(“ max cua hai so %d”, max)” có từ tố nào? A) Từ tố tên, dấu mở ngoặc, dấu đóng ngoặc B)Từ tố từ khóa, tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩy C) Từ tố tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩy, xâu D)Từ tố từ khóa, tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩy Câu 18Trong chương trình nguồn (ngôn ngữ Pascal): “writeln(‘ a=’, a)” có từ tố nào? A) Từ tố tên, dấu mở ngoặc, dấu đóng ngoặc B)Từ tố từ khóa, tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩy C) Từ tố từ khóa, tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩyD) tố tên, dấu mở ngoặc, dấu đóng ngoặc, dấu phẩy, xâu Câu 19Trong chương trình nguồn (ngôn ngữ Pascal): “a: = 1” là: A) Từ tố số nguyên B)Từ tố từ khóa C) Từ tố số thực D)Mẫu mô tả Câu 1: Cho S i biến nguyên Khi chạy đoạn chương trình: s:=0; for i:=1 to 10 s := s+i; writeln(s); Kết in lên hình : A/ s = 11 B/ s = 55 C/ s = 100 D/ s = 101 Câu 2: Cho S, i N>0 biến nguyên Ðể tính S = N!, chọn câu : A/ S:= 1; For i := to N S := S * i; B/ S:= 0; For i := to N S := S * i; C/ S:= 1; For i := to N S := S * N; D/ S:= 1; For i:= to N S := S + i; Câu 3: Cho S =1^2 + 2^2 + + 100^2 Nhóm lệnh tính sai Giá trị 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 DOWNTO DO S := S + i*i; D/ S:=1; FOR i:=1 TO 100 DO S := S + i*i; Câu 4: Khi chạy chương trình: Var S, i, j : Integer; Begin S := 0; for i:= to for j:= to S := S + ; End Giá trị sau S : A/ B/ 12 C/ D/ Câu 5: Cho S i biến kiểu nguyên Khi chạy đoạn chương trình : S:= 0; i:= 1; while i ; End Giá trị sau S : A/ B/ 14 C/ 16 D/ 30 Câu 7: Cho i biến nguyên Khi chạy đoạn chương trình : i := 5; Repeat i := i + 1; Until i > ; Giá trị sau i : A/ B/ C/ D/ Câu 8: Cho m, n, i biến nguyên Khi chạy đoạn chương trình : m:=4; n:=5; i:=5; Repeat i:=i+1; Until (i Mod m = 0) and (i Mod n = 0); Giá trị sau i : A/ 20 B/ C/ D/ Câu 9: Cho chương trình : Var A : Real; Begin While A = begin write ('nhap A # 0:'); Readln (A); end; End Ðể lệnh Readln(A) thực lần, phải điền vào chỗ lệnh lệnh ? : A/ A:=0; B/ A:=1; C/ A:=-1; D/ A 0; Câu 10: Giả sử khai báo biến hợp lệ Ðể tính S = 10!, chọn câu : A/ S := 1; i := 1; while i