DE CUONG TIN 8 HK2

THI HỌC KỲ MÔN TIN HỌC *c*/ Hãy cho biết phát biểu sau hay sai Lặp hoạt động lặp lặp lại nhiều lần giống $ # sai *1*/ Hãy cho biết ví dụ việc lặp sau thuộc dạng nào? "học thuộc bài" $ lặp với số lần chưa biết trước kết thúc điều kiện xảy # lặp với số lần biết trước ***/ Hãy cho biết ví dụ việc lặp sau thuộc dạng nào? " Mỗi ngày đánh lần" $ lặp với số lần biết trước # lặp với số lần chưa biết trước kết thúc điều kiện xảy *1*/ Trong cấu trúc lặp với số lần biết trước câu lệnh FOR := TO DO ; số lần lặp xác định= - +1 $ Đúng # Sai *2*/ Trong cấu trúc lặp với số lần biết trước câu lệnh FOR := TO DO ; Nếu giá trị cuối < giá trị đầu câu lệnh lặp bỏ qua không thực Hãy cho biết phát biểu hay sai? $ Đúng # sai *1*/ Hãy cho biết phát biểu hay sai? Chỉ có ngôn ngữ lập trình Pascal có câu lệnh lặp $ Sai # Đúng ***/ Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực công việc ? T := ; For i := to N If (i mod = 0) or (i mod = 0) then T := T + i ; $ # # # Tính tổng số chia hết cho phạm vi từ đến N Tính tổng ước thực N Tính tổng số chia hết cho phạm vi từ đến N Tìm ước số số N *T*/ Phát biểu sau $ $ # # biến đếm câu lệnh lặp mang giá trị kiểu nguyên for, to , từ khóa số lần lặp tính: giá trị cuối + giá trị đầu + giá trị cuối lúc phải số thực số nguyên *c*/ Lệnh lặp sau đúng? $ For := to ; # For = to ; # For = downto ; # For : downto ; *a*/ Khai báo mảng chiều có dạng $ # *1*/ Hãy chọn khai báo biến mảng chiều $ Var a:array[1 100]of Integer; # Type a:array[1 100]of Integer; # Var a=array[1 100]of Integer; #@ Tất ***/ Để tham chiếu đến phần tử thứ biến mảng chiều a ta viết sau: $ a[8] # a.8 # a(8) # a:8 *1*/ Cho khai báo sau: var a:array[3 7]of byte; cho biết biến mảng a có phần tử $ # # # ***/ cho đoạn chương trình sau: var a:array[1 10]of integer; begin s:=0; for i:=1 to 10 begin a[i]:=i; s:=s+a[i]; end; write(S); hình in giá trị S=? $ 55 # 10 # 25 # 40 *1*/ Phát biểu kiểu mảng phù hợp ? $ Là dãy hữu hạn phần tử kiểu; # Là tập hợp số nguyên; # Độ dài tối đa mảng 255; # Mảng chứa kí tự; ***/ Hãy chọn phương án ghép Để khai báo số phần tử mảng PASCAL, người lập trình cần $ khai báo số bắt đầu kết thúc mảng; # khai báo số số phần tử mảng; # khai báo số kết thúc mảng; # không cần khai báo gì, hệ thống tự xác định; *1*/ Phát biểu số mảng phù hợp ? $ Dùng để truy cập đến phần tử mảng; # Dùng để quản lí kích thước mảng; # Dùng vòng lặp với mảng; # Dùng vòng lặp với mảng để quản lí kích thước mảng; ***/ Phát biểu sau mảng không xác ? $ Độ dài tối đa mảng 255; # Chỉ số mảng không thiết 1; # Có thể xây dựng mảng nhiều chiều; # Xâu kí tự xem loại mảng; *1*/ Thế khai báo biến mảng gián tiếp ? $ Khai báo thông qua kiểu mảng có; # Khai báo mảng ghi; # Khai báo mảng xâu kí tự; # Khai báo mảng hai chiều; *C*/ Cho khai báo sau : a : array[0 16] of integer ; Câu lệnh in tất phần tử mảng ? $ for k := 16 downto write(a[k]); # for k := to 16 write(a[k]); # for k:= to 15 write(a[k]); # for k := 16 down write(a[k]); *3*/ Trong ngôn ngữ lập trình Pascal, để đổi giá trị hai phần tử mảng chiều A hai vị trí i j , ta viết mã lệnh sau : $ ! ! # ! ! # ! ! # ! ! Tag := A[i]; A[i] := A[j]; A[j] := Tag; A[i] := Tag; A[i] := A[j]; A[j] := Tag; Tag := A[i]; A[j] := A[i]; A[j] := Tag; Tag := A[i]; A[i] := A[j]; Tag := A[j]; *1*/ Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực việc việc sau (A mảng số có N phần tử) ? S := ; For i := to N S := S + A[i] ; $ # # #@ Tính tổng phần tử mảng A; In hình mảng A; Đếm số phần tử mảng A; Không thực việc việc *2*/ randomize; Write('Nhap N='); Readln(N); For i:=1 To N Do a[i]:=random(301)-random(301); Hãy cho biết ý nghĩa đoạn chương trình trên? $ Gán giá trị cho phần tử mảng A (có n phần tử) có giá trị tuyệt đối không vượt 300 # Gán giá trị cho phần tử mảng A (có n phần tử) có giá trị tuyệt đối không vượt 301 # Gán giá trị cho phần tử mảng A (có n phần tử) có giá trị đoạn từ đến 301 # Gán giá trị cho phần tử mảng A (có n phần tử) có giá trị đoạn từ đến 300 ***/ Hãy cho biết thủ tục Randomize dùng để làm $ Khởi tạo chế sinh số ngẫu nhiên # Tạo số nguyên ngẫu nhiên đoạn từ đến 3265 # Tạo số thực ngẫu nhiên đoạn từ đến 3265 # Tạo số ngẫu nhiên đoạn từ đến 3265 *1*/ Hãy cho biết hàm chuẩn Random(n) trả giá trị nào? $ Cho giá trị số nguyên ngẫu nhiên đoạn từ đến n-1 # # # Cho giá trị số thực ngẫu nhiên đoạn từ đến n-1 Cho giá trị số nguyên ngẫu nhiên đoạn từ đến n Cho giá trị số thực ngẫu nhiên đoạn từ đến n ***/ Cho biến mảng A thuộc mảng số nguyên Hãy cho biết ý nghĩa câu lệnh sau: For i:=1 to 100 A[i]:=random(100); $ Giá trị A[i] số nguyên đoạn từ đến 99 # Giá trị A[i] số nguyên đoạn từ đến 100 # Giá trị A[i] số nguyên đoạn từ đến 99 # Giá trị A[i] số nguyên đoạn từ đến 100 *F*/ Phương án khai báo mảng hợp lệ ? $ mang : ARRAY[0 10] OF INTEGER; # mang : ARRAY[0 10] : INTEGER; # mang : INTEGER OF ARRAY[0 10]; # mang : ARRAY(0 10) : INTEGER; *1*/ Cho khai báo mảng sau : Var a : array[0 10] of integer ; Phương án phần tử thứ 10 mảng ? $ a[9]; # a(9); # a{10]; # a(10); ***/ Độ dài tối đa chuỗi ký tự $ 255 # 256 # 244 # 254 *1*/ Hoạt động câu lệnh While - do? $ Câu lệnh sau từ khóa thực điều kiện nhận giá trị ! Khi điều kiện nhận giá trị sai vòng lặp kết thúc # Câu lệnh sau từ khóa thực điều kiện nhận giá trị sai ! Khi điều kiện nhận giá trị vòng lặp kết thúc # Câu lệnh sau từ khóa Then thực điều kiện nhận giá trị # Câu lệnh sau từ khóa Then thực điều kiện nhận giá trị sai ***/ Câu lệnh lặp While - $ Câu lệnh lặp với số lần chưa xác định # # #@ Câu lệnh lặp với số lần xác định Câu lệnh lặp không phụ thuộc vào điều kiện Tất sai *1*/ Điều kiện câu lệnh lặp While - $ Thường phép so sánh # Biểu thức số học # Giá trị # Xâu ký tự ***/ Câu lệnh câu lệnh lặp While - $ Một câu lệnh đơn câu lệnh ghép # Một câu lệnh đơn *1*/ Hãy xác định hoạt động lặp sau thuộc dạng nào? "Nhặt rau hết bó rau thôi" $ Lặp với số lần chưa xác định điều kiện cụ thể xảy # Lặp với số lần xác định ***/ Hãy cho biết câu lệnh lặp While - điều kiện nhận giá trị $ Lặp vô hạn, chương trình không thoát # Vòng lặp không thực # Chương trình báo lỗi cú pháp #@ Tất *c*/ Khi lập trình, ta thay câu lệnh lặp For - câu lệnh lặp While - không? $ Được # Không *d*/ Trong ngôn ngữ lập trình bậc cao thường có cấu trúc lặp để mô tả việc lặp lặp lại số thao tác điều kiện cho trước Để tổ chức việc lặp PASCAL dùng câu lệnh WHILE - DO có dạng : WHILE DO ; Chọn phát biểu phát biểu : $ Khi xác định trước số lần lặp dùng cấu trúc lặp WHILE DO # Biểu thức điều kiện tính kiểm tra, biểu thức sai câu lệnh sau DO thực # Câu lệnh sau DO thực lần # điều kiện cấu trúc lặp WHILE - DO biểu thức kiểu nguyên kiểu kí tự *1*/ Trong ngôn ngữ lập trình bậc cao thường có cấu trúc lặp để mô tả việc lặp lặp lại số thao tác điều kiện cho trước thỏa mãn Để tổ chức việc lặp PASCAL dùng câu lệnh WHILE - DO có dạng : WHILE DO ; Chọn phát biểu sai phát biểu : $ Không cần có lệnh thay đổi điều kiện câu lệnh sau DO cấu trúc lặp này, giá trị biểu thức ! điều kiện tự động điều chỉnh sau lần thực câu lệnh lặp # Điều kiện biểu thức cho giá trị logic # Về mặt cú pháp, biểu thức điền vào điều kiện cấu trúc WHILE - DO điền vào điều kiện ! cấu trúc rẽ nhánh IF - THEN # Nếu lệnh thay đổi điều kiện câu lệnh sau DO gặp tượng lặp vô hạn thực ! chương trình, nghĩa lặp không dừng ***/ Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? $ While…do; # If then; # If…then…else; # For…do; *c*/ Câu lệnh lặp while…do có dạng là: # While do; # While ; # While do; $ While ; *n*/ Cho sơ đồ sau chọn sơ đồ mô tả câu lệnh lặp While - Dieu kien Dieu kien Sai Dung Cau lenh Hinh a $ # Sai Dung Cau lenh Hinh b Hình a Hình b ***/ Chương trình pascal sau in hình nội dung gì? Program vidu; Var i: integer; BEGIN For i:=1 to 10 Writeln(‘Day la lan lap thu ‘,i); Readln; END $ 10 câu Day la lan lap thu i” với i theo thứ tự từ 1->10; # câu “Day la lan lap thu i”; # câu “Day la lan lap thu ‘, i”; # 10 “Day la lan lap thu ‘, i”; *s*/ Với chương trình sau, cho N=5 kết bao nhiêu: program Tinh_Giai_Thua; var N,i:integer; P:longint; begin write(‘Nhap so N = ‘); readln(N); P:= 1; for i:= to N P:= P*i; writeln( N, ‘! = ‘, P); readln; end $ 120 # 150 # 125 # 146 *h*/ Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đưa hình kết ? For i := 10 to write(i, ‘ ’); $ # # # không đưa kết 10 1 10 đưa 10 dấu cách *m*/ Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau cho kết hình với i biến số nguyên ? For i := to 100 if i mod = then write(i, ‘ ’); $ 18 27 36 45 54 63 72 81 90 99 # 91827364554637281 # … 100 # 999999999 *s*/ Cho dòng lệnh lặp For i:=6 to 18 writeln('Hello"); Theo em Hello in lần $ # # # 13 12 25 18 *M*/ Cho dòng lệnh lặp S:=2; For i:=6 to 13 s:=s+3; Hỏi kết thúc vòng lặp S=? $ # # # 26 24 44 ***/ Cho dòng lệnh lặp S:=0; For i:=6 to 10 s:=s*2; Hỏi kết thúc vòng lặp S=? $ # 64 # 46 # 20 *F*/ Cho dòng lệnh lặp var s: integer; i:integer; S:=0; For i:=3 to s:=s+i/2; Theo em chạy chương trình có báo lỗi hay không $ sai dòng # sai dòng # sai dòng # chương trình không báo lỗi ***/ Cho dòng lệnh lặp S:=5; For i:=9 to 13 s:=s+i; Hỏi kết thúc vòng lặp S=? $ 60 # 55 # 75 # 85 *n*/ Hãy mô tả thuật toán sau câu lệnh For S=1+1/2+1/3+1/4+ +1/N N giá trị nhập vào từ bàn phím $ for i:=1 to N S:=S+1/i; # # # for i:=1 to N S:=S+1/N; for i:=1 to N S=S+1/i; for i:=N to i S:=S+1/N; ***/ Cho dòng lệnh lặp S:=1; For i:=6 to 10 s:=s*3; Hỏi kết thúc vòng lặp S=? $ 243 # 81 # 27 # 234 *J*/ Cho dòng lệnh lặp S:=1; For i:=8 to 10 s:=s*4; Hỏi kết thúc vòng lặp S=? $ 64 # 16 # # ***/ Cho dòng lệnh lặp S:=2; For i:=7 to 10 s:=s*2; Hỏi kết thúc vòng lặp S=? $ 32 # 16 # # *2*/ Cho đoạn chương trình sau: s:=0; For i:=4 to s:=s+1; write(s) Hãy cho biết s=? $ # # # *b*/ 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 : $ 12 # # # *1*/ Cho chương trình sau: Var a,i,d: integer; Begin a:=6; d:=0; for i:=1 to a if a mod i=0 then d:=d+1; write(d); End Hỏi hình xuất kết d=? $ # # # *2*/ Trong cấu trúc lặp với số lần biết trước câu lệnh FOR := TO DO ; Thường biến đếm khai báo: $ Kiểu nguyên # kiểu thực # kiểu thực kiểu nguyên #@ Tất *1*/ Cho câu lệnh lặp sau s:=0; For i:=10 to s:=s+1; Hãy cho biết s=? $ # sai lỗi cú pháp # 10 # Tất sai *2*/ Cho đoạn chương trình sau: s:=0; For i:=1 to s:=s+i; write(s) Hãy cho biết s=? $ 15 # # #@ Tất sai ***/ Cho đoạn chương trình sau: s:=0; For i:=1 to For j:=1 to s:=s+1; write(s); Kết s in hình =? $ 35 # 24 # # *a*/ Cho đoạn chương trình sau: s:=2; For i:=1 to For j:=1 to s:=s+1; write(s); Kết s in hình =? $ 38 # 36 # # *k*/ Cho đoạn chương trình sau: s:=0; For i:=1 to For j:=1 to s=s+1; write(s) Hãy cho biết s=? $ 15 # # 11 # 12 ***/ Cho đoạn chương trình sau: s:=9; For i:=1 to For j:=1 to s=s+1; write(s) Hãy cho biết s=? $ 24 # 25 # # *i*/ Cho đoạn chương trình sau: s:=3; For i:=1 to s:=s*3; write(s) Hãy cho biết s=? $ 729 # # 81 # *2*/ 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 : # 12 # # 16 $ *B*/ Khi chạy chương trình : Var S, i, j, k : Integer; Begin S := 1; for i:= to for j:= to for k:=3 to S := S + ; End Giá trị sau S : # 24 # # $ 25 *2*/ Khi chạy chương trình : Var S, m, n, k : Integer; Begin S := 0; for n:= to for m:= to for k:= to do; S := S + ; End Giá trị sau S : $ # # 12 # 48 *B*/ Khi chạy chương trình : Var S, i, j, k : Integer; Begin S := 2; for i:= to do; for j:= to for k:=3 to S := S + ; End Giá trị sau S : # 12 # $ 10 # 24 *2*/ Khi chạy chương trình : Var S, m, n, k : Integer; Begin S := 1; for n:= to for m:= to do; for k:= to S := S + ; End Giá trị sau S : # # 80 # 20 $ *k*/ Cho đoạn chương trình sau: s:=2; For i:=1 to For j:=1 to do; s=s+1; write(s); Hãy cho biết s=? $ # # # 15 ***/ Cho chương trình sau: var a,s:byte; begin a:=5;s:=0; While a>6 s:=s+1; write(s); end Hãy cho biết s=? $ # # # *1*/ Cho chương trình sau: var a:byte; begin a:=20;i:=3; While a mod i0 i:=i+1; write(i); end Hãy cho biết i=? $ # # # *d*/ Cho S i biến kiểu nguyên Khi chạy đoạn chương trình : S:= 0; i:= 1; while i[...]... là : # 24 # # $ 6 8 25 *2*/ Khi chạy chương trình : Var S, m, n, k : Integer; Begin S := 0; for n:= 1 to 3 do for m:= 1 to 4 do for k:= 2 to 5 do; S := S + 1 ; End Giá trị sau cùng của S là : $ 1 # 0 # 12 # 48 *B*/ Khi chạy chương trình : Var S, i, j, k : Integer; Begin S := 2; for i:= 1 to 5 do; for j:= 1 to 4 do for k:=3 to 4 do S := S + 1 ; End Giá trị sau cùng của S là : # 12 # 8 $ 10 # 24 *2*/... # Geogebra # Tất cả đều sai # Sun Times ***/ câu 18: Vẽ hình học với phần mềm $ Geogebra # yenka # Sun Times # Tất cả đúng ***/ câu 20: Để khởi động phần mềm YenKa ta thực hiện như sau: $ $ Double Click vào biểu tượng trên màn hình Desktop Click nút Try Basic Version Trên hộp thoại Yenka Activation # # Click vào biểu tượng Tất cả sai trên màn hinh Desktop ***/ câu 21: Màn hình chính của chương trình... tượng sau trên hộp công cụ $ # # # ***/ câu 28: Để xoay hình trong không gian ta chọn nút sau: $ # # # Tất cả đều sai ***/ câu 29: Để di chuyển khung mô hìnhta chọn nút sau trên thanh công cụ $ # # # ***/ câu 30: Tạo một tệp (tập tin) mới trong phần mềm yenka ta dùng lệnh sau: $ File -> New # File -> Open # File -> save # Tất cả đúng ***/ câu 31: Mở một tệp (tập tin) có sẳn trong phần mềm yenka ta dùng... hiện các thao tác sau: $ $ # # Chọn công cụ rồi nhấn phím Delete Nháy nút phải chuột lên đối tượng và chọn delete Chọn công cụ trên thanh công cụ và xóa đối tương Tất cả đúng ***/ câu 37: Công cụ có biểu tượng sau dùng làm gì? $ Vẽ đoạn thẳng đi qua 1 điểm cho trước # Vẽ đường thẳng đi qua 1 điểm cho trước # Tất cả đúng # Tất cả sai ***/ câu 38: Vẽ hình tròn khi biết 3 điểm ta dùng công cụ sau: $ #... ra màn hình =? $ 38 # 36 # 4 # 9 *k*/ Cho đoạn chương trình sau: s:=0; For i:=1 to 5 do For j:=1 to 3 do s=s+1; write(s) Hãy cho biết s=? $ 15 # 0 # 11 # 12 ***/ Cho đoạn chương trình sau: s:=9; For i:=1 to 5 do For j:=1 to 3 do s=s+1; write(s) Hãy cho biết s=? $ 24 # 25 # 9 # 5 *i*/ Cho đoạn chương trình sau: s:=3; For i:=1 to 5 do s:=s*3; write(s) Hãy cho biết s=? $ 729 # 3 # 81 # 9 *2*/ Khi... S là : # 12 # 8 $ 10 # 24 *2*/ Khi chạy chương trình : Var S, m, n, k : Integer; Begin S := 1; for n:= 1 to 5 do for m:= 1 to 4 do; for k:= 2 to 5 do S := S + 1 ; End Giá trị sau cùng của S là : # 4 # 80 # 20 $ 5 *k*/ Cho đoạn chương trình sau: s:=2; For i:=1 to 5 do For j:=1 to 3 do; s=s+1; write(s); Hãy cho biết s=? $ 3 # 1 # 2 # 15 ***/ Cho chương trình sau: var a,s:byte; begin a:=5;s:=0; While