De cuong tin 11 nam 2017

Câu 7: Để tính diện tích S của hình tròn có bán kính r, cách khai báo nào dưới đây là hợp lý nhất.. Var S: Longint..[r]

Trang 1

Trường THCS-THPT DTNT Đạtẻh ĐỀ THI HỌC KÌ I

Họ và tên: MÔN: TIN HỌC 11

Hãy khoanh tròn phương án mà em cho là đúng nhất trong các câu sau

Câu 1: Một chức năng quan trọng của chương trình dịch là:

A phát hiện lỗi cú pháp của chương trình; B hỗ trợ soạn thảo văn bản chương trình;

C lưu lại chương trình nguồn sau khi dịch; D dịch từ mã máy sang ngôn ngữ bậc cao

Câu 2: Tên nào đúng khi đặt tên chương trình trong Pascal?

Câu 3: Trong Pascal, để dịch và sữa lỗi chương trình ta nhấn tổ hợp phím nào sau đây:

Câu 4: Khi thao tác trong môi trường Pascal, thao tác nào sau đây SAI:

A Để lưu chương trình nhấn F2; B Để thoát khỏi chương trình làm việc nhấn CTRL + X

C Để mở chương trình đã có nhấn F3 D Để thoát khỏi chương trình làm việc nhấn ALT + X

Câu 5: Từ khóa CONST dùng để:

A khai báo thư viện; B khai báo biến; C khai báo tên chương trình; D khai báo hằng

Câu 6: Từ khóa VAR dùng để :

A khai báo thư viện; B khai báo biến; C khai báo tên chương trình; D khai báo hằng

Câu 7: Để tính diện tích S của hình tròn có bán kính r, cách khai báo nào dưới đây là hợp lý nhất?

Câu 8: Biểu diễn công thức toán học





x y

x y sang pascal là gì?

A Sqrt(x+y)/(x – y); B Sqrt(x+y)/x - y; C (x+y)/(x – y); D Sqr(x+y)/(x – y)

Câu 9: Trong ngôn ngữ lập trình Pascal, mệnh đề a  0 và d >0 được viết là :

A (a0) and (d>0) ; B a< >0 and d>0 ; C (a< >0) and (d>0) ; D (a >< 0) and (d>0)

Câu 10: Kết quả của biều thức (19 div 2)/(23 mod 4) là:

Câu 11: Với X có giá trị nguyên và (5< X) and (X < 8) and (X < > 7) Biểu thức có giá trị TRUE khi X =?

Câu 12: Cho đoạn chương trình sau:

Begin

x := 2; y := 5; S:=x+y;

Writeln(‘x + y=’,S);

End

Kết quả in ra màn hình sẽ là gì?

a:=0;

If a<0 then X:=1 Else X:=2;

Writeln(x);

Kết quả x bằng bao nhiêu?

Begin

If a > b then x := a – b else x:= b – a;

Write(‘ Gia tri cua x la: ‘, x);

End

Cho a = 20; b = 35 Kết quả x bằng bao nhiêu?

Trang 2

x := a;

If a < b then x := b;

End

Cho a = 5; b = 10 Kết quả x bằng bao nhiêu?

Câu 16 : Đoạn chương trình sau xuất ra màn hình?

Begin

For i:=1 to 5 do Write(i*2);

End

A 1 3 5 7 9 B 1 2 3 4 5 C 2 4 6 8 10 D 3 5 7 9 11

Câu 17: Cho biết đọan chương trình sau thực hiện công việc gì?

Begin

S := 0;

For i := 1 To n Do If (i mod 3 = 0) And (i mod 5 = 0) Then S := S + i;

End

A Tìm một ước số của n B Tính tổng của các số chia hết cho 3 và 5 trong phạm vi từ 1 đến n

C Tính tổng các ước thực sự của n D Tính tổng của các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến n

Begin

S:=5;

For i:=1 to 5 do S:=S+i;

Writeln(s);

End

Kết quả S bằng bao nhiêu?

Begin

S:=0;

For n := 1 To 10 Do If (n mod 2=0) Then S:=S+n;

Write(S);

End

Kết quả S bằng bao nhiêu?

Begin

t:= 1;

For i := 1 To 5 Do If (i mod 2 < >0) Then t := t*i;

Writeln(t);

End

Kết quả t bằng bao nhiêu?

Begin

S := 0; i := 1;

While s <= 5 Do Begin

i := i + 1;

S := S + i;

End;

End

Cho biết khi câu lệnh While dừng thì S bằng bao nhiêu?

Trang 3

A 2; B 3; C 4; D 5.

Begin

S := 0; i := 1;

While s <= 5 Do

Begin

i := i + 1;

S := S + i;

End;

End

Cho biết câu lệnh While dừng thì i bằng bao nhiêu?

Câu 23: Để tham chiếu đến phần tử hàng 2, cột 5 của mảng 2 chiều K, ta viết:

Câu 24: Các phần tử của mảng một chiều được sắp theo thứ tự:

Câu 25: Có: S:= 'Nguyen Teo!'; Hàm length(s) cho giá trị:

Câu 26: Có xâu S1:='Thitinhoccoban'; và xâu S2:='bangthieunhi'; để tạo xâu có nội dung: ‘Thitinhoccobanbangthieunhi’

dùng thủ tục nào:

A Insert(S2,S1,length(S1)); B S3:=copy(S2,1,14); C S3:=copy(S1,14,1); D Insert(S1,S2,length(S2));

Câu 27: Xoá 4 kí tự từ vị trí thứ 10 trong xâu S Cách nào đúng?

A Delete(S;10,4); B Delete(S,4,10); C Delete(S,10,4); D Delete(S;4,10);

Câu 28: Cho S kiểu chuỗi và k là số nguyên Sau khi thực hiện đoạn chương trình:

Begin

s:='Thoi dai cntt'; k:= pos('cn', S);

End

Thì giá trị của k là:

Câu 29: Cho St là biến kiểu xâu, sau khi thực hiện lệnh:

ko:=Copy('Hoc sinh gioi tin',5,9);

Writeln(ko);

Kết quả in ra màn hình là:

Câu 30: Chọn biểu thức có giá trị TRUE:

A 'abcdg' > 'abcde' B 'Tin hoc'='Hoc tin' C 'Tin hoc' <> 'Tin hoc' D 'abcd' < 'abc'

Câu 31: Đoạn chương trình sau thực hiện việc gì?

S:=0; For i:=1 to n do S:=S+B[i];

A In ra màn hình tổng các phần tử của mảng B B Tính tổng các phần tử của mảng B

Câu 32: Mảng B có giá trị các phần tử B[1], B[2], , B[5] lần lượt là: 2, 3, 4, 5, 6 lệnh in giá trị các phần tử ra màn hình:

A For i:=1 to 5 do write(a[i]); B For i:=1 to 5 do write(a(i));

C For i:=1 to 5 do write(a[1]); D For i:=1 to 5 do write(a[5]);

Begin

S:=0;

For i:=1 To n Do If A[i] mod 2= 0 Then S:=S+A[i];

End

A In ra màn hình các phần tử có giá trị chẵn trong mảng A B Tính tổng các phần tử có giá trị lẻ trong mảng A

C Tính tổng các phần tử có giá trị chẵn trong mảng A D Đếm số phần tử có giá trị chẵn của mảng A

Trang 4

dem:=0;

For i:=1 To n Do If A[i] mod 2< > 0 Then dem:=dem+1;

End

A In ra màn hình các phần tử có giá trị chẵn trong mảng A B Tính tổng các phần tử có giá trị lẻ trong mảng A

C Tính tổng các phần tử có giá trị chẵn trong mảng A D Đếm số phần tử có giá trị lẻ của mảng A

Câu 35: Sau khi thực hiện đoạn chương trình, giá trị của biến S là:

Begin

S:=' Bao Loc mua dong';

Delete(S,10,8);

Insert('Mua thu',S,1);

End

A Bao Loc mua dong B Mua thu Bao Loc C Bao Loc Bao Loc D Bao Loc Mua Thu

Var i, dem: integer;

S: String[50];

Ch: Char;

Begin

dem:=0;

For i:=1 To length(S) Do If S[i] =ch Then dem:=dem+1;

End

A Tính chiều dài của xâu S B Đếm xem xâu S có bao nhiêu kí tự giống kí tự Ch

C Xóa đi các kí tự giống kí tự Ch trong xâu S D Chèn kí tự Ch vào xâu S

Begin

For i:= length(S) Downto 1 Do Write(i);

End

Begin

Max:=A[1];

For i:= 2 To n Do If A[i] > Max Then Max:=A[i];

Write(A[i]);

End

C In ra phần tử lớn nhất của mảng A D Không thực hiện gì cả

Begin

Tam:= 0;

For i:= 1 To n Do If A[i] < 0 Then Tam:=Tam+1;

End

A In ra các phần tử có giá trị âm của mảng A B In ra phần tử A[i];

C Đếm số phần tử có giá trị âm của mảng A D Không thực hiện gì cả

Begin

For i:=’a’ To ‘z’ Do Write( i: 4);

End

A In ra các chữ cái từ a đến z B In ra các chữ cái từ z đến a

C In ra các chữ cái từ A đến Z D Chỉ in ra chữ a và chữ z

Định dạng
Số trang	4
Dung lượng	23,68 KB