Đề thi vấn đáp Tin học 11

writeln‘ Tong s la:’,Tong;Giáo viên ra đề thi Nguyễn Anh Tùng.

Trang 1

Sở GD & ĐT Hà Nội Trường THPT Thượng Cát

Đề kiểm tra học kỳ 2 Môn: Tin học 11 Thời gian: 45 phút

Câu 1 ( 2 đ ): Giải thích ý nghĩa của câu lệnh sau đây

a. Var x:integer;

b. Var a: array[1 100] of real;

Câu 2 ( 2 đ ): Chuyển các câu lệnh sau đây sang dạng pascal

a. Nhập biến n nguyên từ bàn phím

b. Khai báo biến a kiểu Logic

Câu 3 ( 2 đ ): Giải thích ý nghĩa của các câu lệnh sau đây

a. S2:=copy(s1,3,length(s1)-4)

b. If a mod 2 =0 then write(‘ a la so chan’)

Else write ( ‘ a la so le’);

Câu 4 ( 2 đ ): Cho biết kết quả và giải thích ỹ nghĩa của các lệnh dưới đây

a S=’ you are the most beautiful in my class’; Delete(s,5,3)=?

b S=’ I need you’; length(s)=?

Câu 5 ( 2 đ ): Cho biết kết quả của đoạn chương trình dưới đây và giải

thích

Var i, s:integer

Begin

i := 4; s:= 5;

if ( i > 6 ) then s:= s + ( 5 - i ) * 3

else

if ( i > 3 ) then s:= 6 * i+s

else s:= s+2;

write(‘Tong s la:’,s);

End

Giáo viên ra đề thi

Đề 231

Trang 2

Nguyễn Anh Tùng

Bài kiểm tra học kỳ 2 Môn: Tin học 11 Thời gian: 45 phút

a. Var x:real;

b. Var b: array[1 100] of integer;

a) Xuất dữ liệu ra màn hình

b) Lưu tệp

a) S2:=Delete(s1,3,length(s1)-2);

b) If a<0 then write(‘ a la so am’)

Else write ( ‘ a la so duong’);

a. S=’ you are the most beautiful in my class’; Copy(s,9,3)=?

b. S=’ I hate you so much’; length(s)=?

thích

Var i, s:integer

Begin

i := 7; s:= 4;

if ( i > 5 ) then s:= s + ( 6 - i ) * 2

else

if ( i > 3 ) then s:= s+5 * i

else s:= s+2;

End

Giáo viên ra đề thi

Đề 213

Trang 3

Nguyễn Anh Tùng

a. Fuction UCLN(x,y:integer):integer;

b. Var Hoten:String[20];

c. Khai báo biến n kiểu nguyên

d. Chạy 1 chương trình Pascal

c. Insert(s1,s1,4)

d. Readln(n);

a S=’he is the most intelligent in my class’; Delete(s,7,3)=?

b S=’ I love you ’; length(s)=?

thích

Var i, s:integer

Begin

i := 4; s:= 5;

if ( i > 9 ) then s:= s + ( 5 - i ) * 3

else

if ( i > 6 ) then s:= 6 * i+s

else s:= s*2+i;

End

Đề 312

Trang 4

Giáo viên ra đề thi Nguyễn Anh Tùng

a) Procedure Hoan_doi(var x,y:integer)

b) Uses crt;

a) Khai báo biến n kiểu thực

b) Thoát chương trình Pascal

a) Gotoxy(3,12)

b) Write(‘ Kết qủa cua S la’,s:8:3);

a) a S=’ I am more intelligent than you’; Delete(s,6,4)=?

b) S1=’you’, s2=’ I miss you so much’; POS(S1,S2)=?

thích

tong:=0;

Var i, s:integer;

begin

a[1]:=8; a[2]:=2; a[3]:=5;a[4]:=7,a[5]:=1;

for i:=1 to 5 do

if a[i]>4 then tong:=tong+a[i];

Đề 321

Trang 5

writeln(‘ Tong s la:’,Tong);

Giáo viên ra đề thi Nguyễn Anh Tùng

Định dạng
Số trang	5
Dung lượng	27,93 KB