Câu 8: Trong các câu lệnh lặp Pascal sau đây, câu nào chương trình không báo lỗi.. A.?[r]
(1)TRƯỜNG THCS MÃ THÀNH ĐỀ THI HỌC KÌ MƠN TIN HỌC NĂM HỌC 2019-2020 ĐỀ SỐ 1:
A TRẮC NGHIỆM KHÁCH QUAN (4đ) Chọn đáp án Câu 1: Cách khai báo mảng sau chương trình khơng báo lỗi? A var X : Array [10, 13] of real;
B var X : Array [1 100] of integer; C var X : Array [3.4 4.8] of integer; D var X : Array [1…100] of real;
Câu 2: Sau thực đoạn chương trình sau: s:=1; for i:= to s:= s*i; Giá trị biến s bao nhiêu?
A 10; B.5; C 6; D 15
Câu 3: Cho đoạn chương trình sau: a := 1; b: = 7; While a<b a:=a+2; Kết cuối a bao nhiêu?
A 5; B 6; C 7; D
Câu 4: Lệnh lặp for to Pascal vòng lặp, biến đếm thay đổi nào? A Tăng thêm đơn vị; B +1 -1;
C Giá trị bất kì; D Một giá trị khác
Câu 5: Trong phần mềm GeoGebra công cụ dùng để tạo trung điểm đoạn thẳng?
A ; B ; C ; D
Câu 6: Giá trị mảng cho sau: A[1]:=4; A[2]:=7; A[3]:=1; A[4]:=9; A[5]:=2; Kết T:= A[3]+A[5]+A[2]+10; bao nhiêu?
A 10; B 15; C 20; D 23 Câu 7: Với câu lệnh for i:=1 to 10 x:=x+1; biến i khai báo thuộc kiểu liệu nào? A Real; B Integer;
C String; D Char
Câu 8: Trong câu lệnh lặp Pascal sau đây, câu chương trình khơng báo lỗi? A While i:= t:=10
B While x<=y to Writeln (‘y khong nho hon x’); C While 1:= Writeln (‘Dung’);
D While (n mod i<> 0) i:= i+ 1; B TỰ LUẬN (6đ)
Câu 1: (2đ) Các câu lệnh Pascal sau có khơng? Hãy sửa lại cho sai? a) for i:=1 to 10 writeln('A');
(2)Câu 2: (4đ) Viết chương trình tính tổng dãy n số nguyên với n nhập từ bàn phím ĐỀ SỐ 2:
A PHẦN TRẮC NGHIỆM: (6 điểm) Khoanh tròn vào đáp án đúng: Câu 1: Câu lệnh viết cú pháp là:
A While <điều kiện> to <câu lệnh>; B While <điều kiện> <câu lệnh>; C While <điều kiện> to <câu lệnh1> do; D While <điều kiện>; <câu lệnh>;
Câu 2: Cú pháp câu lệnh lặp for … … ? A If (điều kiện) then (câu lệnh);
B Var n, i:interger; C Phải kết hợp a, b c
D For <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu lệnh>; Câu 3: Hoạt động sau tính tốn số lần làm việc:
A Múc gáo nước đến đầy bể B Đi lên tầng, đến tầng 10 dừng C Học thuộc D Nhặt cọng rau xong Câu 4: Vòng lặp while vòng lặp:
A Biết trước số lần lặp
B Biết trước số lần lặp giới hạn <=100 C Chưa biết trước số lần lặp
D Biết trước số lần lặp giới hạn >=10
Câu 5: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa hình kết gì? For i:=1 to 10 do write (i,’ ‘);
A 10 B 10
C Đưa 10 dấu cách D Khơng đưa kết
Câu 6: Bạn An ăn sang ngày?
A Lặp với số lần biết trước B Lặp với số lần chưa biết trước C Khơng có hoạt động lặp D Đáp án khác
Câu 8: Câu lệnh Pascal : While (4*5>=20) Writeln (4*5); : A In số 20 hình lần
B In số 20 hình lần
C Không thực lệnh Writeln (4*5); D Lặp vô hạn lần lệnh Writeln (4*5);
Câu 9: While S<=20 Writeln(S); Điều kiện để dừng chương trình A S>20 B S=20 C.S<>20 D S<20
Câu 10: Đoạn lệnh sau cho kết gì? so:=1;
While so < 10 do writeln(so); so:=so + 1;
(3)Câu 11: Câu lệnh sau lặp vô hạn lần A s:=5; i:=0;
While i<=s s:=s + 1; C s:=5; i:=1;
While i<=s i:=i + 1; B s:=5; i:=1;
While i> s i:=i + 1; D s:=0; i:=0; n:=5; While i<=n Begin
If (i mod 2)=1 Then S:=S + i; Else i:=i+1;
End;
Câu 12: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh: A for i:=1 to n
if ( i mod 2)=0 then S:=S + 1/i; C for i:=1 to n
if ( i mod 2) < > then S:=S + i; B for i:=1 to n
if ( i mod 2)=0 then S:=S – 1/i Else S:= S + 1/i;
D for i:=1 to n
if ( i mod 2)=0 then S:=S +1/ i Else S:=S-1/i;
B TỰ LUẬN: (4 điểm)
Câu 1: Đoạn chương trình (2đ) i:=0;
T:=5; While T<20 Begin
i:=i+1; T=T*i; End;
Cho biết với đoạn lệnh chương trình thực vịng lặp ý nghĩa câu lệnh lặp cách điền vào chỗ trống bên dưới:
Khởi tạo:………
Số vòng lặp:………
Ý nghĩa:………… ………
T<20? i:=i+1;
T:=T*i;
(4)…< 20… ……… ………
…< 20… ………
Câu 2: Đoạn chương trình (2đ)
Write(‘ Nhap vao so cau hoi:’); Readln(n); S:=0;
For i:=1 to n S:=S+2*i
Em chạy chương trình kiểm tra kết với thử sau:
STT Số câu hỏi Tổng số bút cần mua
1 n= S= 72
2 n=15 S=……… (1đ)
3 n=32 S=……… (1đ)
ĐỀ SỐ 3:
A Phần trắc nghiệm: (4,0 điểm) Hãy chọn đáp án Câu Trong Pascal, câu lệnh sau viết đúng?
A for i:= to writeln(‘A’); B for i= to 10 writeln(‘A’); C for i:= to 10 writeln(‘A’); D for i to 10 writeln(‘A’); Câu Trong câu lệnh lặp: For i := to 10 j:= j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); thực lần?
A 10 lần B lần C lần D Không thực
Câu Cho đoạn chương trình: J:= 0;
For i:= to J:= j + i; Sau thực đoạn chương trình trên, giá trị biến j bao nhiêu?
A 12 B 22 C 15 D 42
Câu Trong Pascal, câu lệnh sau đúng? A S:=1;
While S<10 write(S); B i:=0; S:=1;
while s<10 S:=S+i; i:=i+1; C n:=2; while n<5 write(‘A’); D Cả A B
Câu Khi thực đoạn chương trình sau: n:=1; T:=50; While n>20 begin n:=n+5; T:=T - n end;
Hãy cho biết giá trị biến T bao nhiêu?
A 14 B 15 C 16 D 17
Câu Khai báo biến mảng: A : array[1 7] of real; Sử dụng câu lệnh For i:= to readln(A[i]); để gán giá trị cho phần tử biến A từ bàn phím, ta nhập giá trị?
(5)Câu Trong câu lệnh khai báo biến mảng, phát biểu sau đúng:
A Chỉ số đầu số cuối số nguyên B Chỉ số đầu số cuối C Kiểu liệu integer real D Cả ba ý
Câu Giả sử biến mảng A có phần tử giá trị phần tử 1, 4, 7, 2, Khi thực câu lệnh sau: tb:= 0; For i:= to tb := tb + A[i]; Giá trị biến tb bao nhiêu?
A 20 B 18 C 21 D 22
B Phần tự luận: ( 6,0 điểm)
Câu (2 điểm) Viết cú pháp câu lệnh lặp với số lần chưa biết trước Nêu hoạt động câu lệnh
Câu (4 điểm) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh in hình Với N điểm kiểm tra nhập từ bàn phím (sử dụng biến mảng)
ĐỀ SỐ :
A/ Trắc nghiệm khách quan (5,0 điểm):
I Hãy điền vào bảng điền đáp án bên ứng với câu trả lời em cho nhất: (4,0 điểm): Câu 1: (0,25đ) Khi câu lệnh lặp For…do (dạng tiến) kết thúc?
A Khi biến đếm nhỏ giá trị cuối B Khi biến đếm lớn giá trị cuối C Khi biến đếm giá trị cuối D Khi biến đếm giá trị đầu Câu 2: (0,25đ) Khi sử dụng lệnh lặp While…do cần ý `điều gì?
A Điều kiện dần đến sai B Số lần lặp
C Số lượng câu lệnh D Điều kiện dần đến Câu 3: (0,25đ) Kết phép so sánh:
A Có thể có giá trị giá trị sai B Chỉ có giá trị C Đồng thời nhận giá trị giá trị sai D Chỉ có giá trị sai
Câu 4: (0,25đ) Trong Pascal, câu lệnh lặp với số lần chưa xác định trước có dạng:
A While <điều kiện> <câu lệnh>; B While <điều kiện>; <câu lệnh>; C While <điều kiện> then <câu lệnh>; D While <điều kiện>; then <câu lệnh>; Câu 5: (0,25đ) Việc mà câu lệnh lặp While…do cần thực gì?
A Thực <câu lệnh> sau từ khóa B Kiểm tra giá trị <điều kiện> C Thực <câu lệnh> sau từ khóa then D Kiểm tra <câu lệnh>
Câu 6: (0,25đ) Cho đoạn chương trình sau: N:=0;
While N>0 Begin N:=N+1;
Writeln(‘Xin chao’); End;
Khi thực chương trình, câu “Xin chao” viết hình lần?
A 10 B
C D Vịng lặp vơ tận
Câu 7: (0,25đ) Trước khai báo mảng A:array[1 n] of Real, phải khai báo điều trước?
(6)C Cả A B D Cả A B sai Câu 8: (0,25đ) Chỉ cú pháp khai báo biến mảng Turbo Pascal: A Var <tên biến>: array[<số phần tử>] of <kiểu liệu>;
B Var <tên biến>: array[<chỉ số đầu> <chỉ số cuối>]: <kiểu liệu>; C Var <tên biến>: array[<chỉ số đầu>:<chỉ số cuối>]: <kiểu liệu>; D Var <tên biến>: array[<chỉ số đầu> <chỉ số cuối>]of <kiểu liệu>;
Câu 9: Trong câu lệnh lặp với số lần định trước (for…do), <câu lệnh> thực lần? A (<giá trị cuối> - <giá trị đầu>) lần
B Tùy thuộc vào toán biết số lần C Khoảng 10 lần
D (<giá trị cuối> - <giá trị đầu> + 1) lần Câu 10: (0,25đ) Các phần tử mảng:
A Phải khác kiểu liệu B Phải có giá trị
C Phải kiểu liệu D Có thể kiểu khác kiểu liệu Câu 11: (0,25đ) Chỉ khai báo biến mảng cách khai báo sau:
A Var a:array[1 10] of integer; B Var a:array(1 10] of integer; C Var a:array(1 10) of integer; D Var a:array[1 10] of integer; Câu 12: (0,25đ) Cho đoạn chương trình sau:
N:=1;
While N<10
Begin
N:=N+1;
Writeln(‘Xin chao’); End;
Khi thực chương trình, câu “Xin chao” viết hình lần?
A 10 B
C D Vịng lặp vơ tận
Câu 13: (0,25đ) <câu lệnh> sau từ khóa câu lệnh lặp While…do thực nhất: A lần B lần
C lần D Còn tùy thuộc vào toán
Câu 14: (0,25đ) Cho đoạn chương trình sau: S:=0;
For i:=1 to S:=S+1;
Sau chạy đoạn chương trình trên, giá trị S là:
A S=100 B S=0 C S=1 D Không xác định
Câu 15: (0,25đ) Chỉ câu lệnh lặp với số lần lặp biết trước câu lệnh rút gọn sau đây? A While…do B If – then – else C If – then D For…do Câu 16: (0,25đ) Trong cách viết câu lệnh lặp với số lần định trước sau, cách đúng? A For <biến đếm> := <giá trị đầu> to <giá trị cuối> ;do <câu lệnh>
(7)(8)Website HOC247 cung cấp mơi trường học trực tuyến sinh động, nhiều tiện ích thông minh, nội dung giảng biên soạn công phu giảng dạy giáo viên nhiều năm kinh nghiệm, giỏi kiến thức chuyên môn lẫn kỹ sư phạm đến từ trường Đại học trường chuyên danh tiếng
I.Luyện Thi Online
-Luyên thi ĐH, THPT QG: Đội ngũ GV Giỏi, Kinh nghiệm từ Trường ĐH THPT danh tiếng
xây dựng khóa luyện thi THPTQG mơn: Tốn, Ngữ Văn, Tiếng Anh, Vật Lý, Hóa Học Sinh Học
-Luyện thi vào lớp 10 chun Tốn: Ơn thi HSG lớp luyện thi vào lớp 10 chuyên Toán
trường PTNK, Chuyên HCM (LHP-TĐN-NTH-GĐ), Chuyên Phan Bội Châu Nghệ An trường Chuyên khác TS.Trần Nam Dũng, TS Pham Sỹ Nam, TS Trịnh Thanh Đèo Thầy Nguyễn Đức Tấn.
II.Khoá Học Nâng Cao HSG
-Tốn Nâng Cao THCS: Cung cấp chương trình Toán Nâng Cao, Toán Chuyên dành cho em HS
THCS lớp 6, 7, 8, u thích mơn Tốn phát triển tư duy, nâng cao thành tích học tập trường đạt điểm tốt kỳ thi HSG
-Bồi dưỡng HSG Toán: Bồi dưỡng phân mơn Đại Số, Số Học, Giải Tích, Hình Học Tổ Hợp dành
cho học sinh khối lớp 10, 11, 12 Đội ngũ Giảng Viên giàu kinh nghiệm: TS Lê Bá Khánh Trình, TS Trần Nam Dũng, TS Pham Sỹ Nam, TS Lưu Bá Thắng, Thầy Lê Phúc Lữ, Thầy Võ Quốc Bá Cẩn đôi HLV đạt thành tích cao HSG Quốc Gia
III.Kênh học tập miễn phí
-HOC247 NET: Website hoc miễn phí học theo chương trình SGK từ lớp đến lớp 12 tất
các môn học với nội dung giảng chi tiết, sửa tập SGK, luyện tập trắc nghiệm mễn phí, kho tư liệu tham khảo phong phú cộng đồng hỏi đáp sôi động
-HOC247 TV: Kênh Youtube cung cấp Video giảng, chuyên đề, ôn tập, sửa tập, sửa đề thi
miễn phí từ lớp đến lớp 12 tất mơn Tốn- Lý - Hoá, Sinh- Sử - Địa, Ngữ Văn, Tin Học Tiếng Anh
Vững vàng tảng, Khai sáng tương lai
Học lúc, nơi, thiết bi – Tiết kiệm 90%
Học Toán Online Chuyên Gia
- - - - -