1. Trang chủ
  2. » Giáo Dục - Đào Tạo

Đề kiểm tra 1 tiết Tin học 11 - HKII

1 353 1

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 8,6 KB

Nội dung

Khai baïo Biãún HANG laì baín ghi cuía mäüt màût haìng gäöm coï tãn haìng, âån giaï , säú læåüng.. Khai baïo nhæ sau:?[r]

(1)

Trường THPT Chu Văn An KIỂM TRA TIẾT

Họ tên: Môn: Tin học Lớp: 11……

I TRẮC NGHIỆM: (Khoanh tròn câu trả lời nhất)

1.Công thức sau đúng? (st1, st2 biến kiểu xâu m, n biến kiểu số nguyên).

a Delete(st1,st2,m); b Delete(st1,m,n); c Delete(m,st1,n) d Delete(m,n,st1) 2 Cho khai báo: Type hocsinh = record

Toan,Van :Real; end;

Var Lop : array [1 45] of hocsinh;

Lệnh in hình điểm tốn học sinh thứ i? a.Writeln(Lop); b.Write(Lop[i]);

c.Writeln(Lop[i].Toan); d.Write(Lop[i].T);

3 Cho st1=’Van’ st2= ‘Hoang Van Huy’, sau thực lệnh Pos(st1,st2) kết quả bằng bao nhiêu?

a b c.9 d.10 4 Các khai báo sau, khai báo đúng?

a Var A:array[1 n] of readln; b Var A:array[1 10] of bytte; c Var A:array[-10, ,10] of boolean; d Var A:array[‘a’ ’z’] of byte; 5 Cho chuỗi st:=’ BBBABBA’; Kết in sau thực lệnh:

While st [1 ]= ‘B’ Delete(st,1,1); Write(st);

a ABBA b.BBB c.BBABBA d AA

6 Cho st1=’Chu Van An’ st2:=copy(st1,pos(‘V’,st1),5), kết xâu st2 là: a st2= ‘Chu Van’ b xt2=‘u Van an’

c st2= ‘Van An’ d st2= ‘Van A’

7 Đoạn chương trình sau, cho kết hình gì? Var st:string;

Begin

St:=’Nguyen Van A’; Delete(st,pos(‘V‘,st)-1,6); Write(st);

End.

a Van A b Nguyen Van A c Nguyen d Cả câu 8.Khi chạy chương trình :

Var A:array[1 3] of integer; i, S : integer;

Begin

A[1]:= 3; A[2]:= -1; A[3]:= -4; S:= 0;

For i:=1 to If A[i] < then S:=S+i; Write(S);

End

Kết in giá trị S là:

a b c d 9 Các khai báo sau khai báo đúng?

a Var st:string[150]; b Var st:string[257]; c Var st = string [10]; d Var st = string [[10];

10 Lệnh sau in hình điểm lớn điểm A điểm B ? a If A[i].DiemA>A[i].DiemB then write(A[i].DiemB) else write(A[i].DiemA); b If A[i].DiemA>A[i].DiemB then write(A[i].DiemA) else write(A[i].DiemB); c If A[i].DiemA>A[i].DiemB then readln(A[i].DiemA) else readln (A[i].DiemB); d If A[i].DiemA>A[i].DiemB then Write(A[i].DiemA); else write(A[i].DiemB);

11 Khai báo Biến HANG ghi mặt hàng gồm có tên hàng, đơn giá , số lượng Khai báo sau:

a VAR HANG = RECORD b VAR HANG : RECORD

Ten: STRING[25]; Ten: STRING[25];

Gia, SL: Byte; END; Gia, SL: Byte; END;

c VAR HANG : RECORD d VAR HANG = RECORD

Ten = STRING[25]; Ten STRING[25]

Gia, SL = Byte; END; Gia, SL Byte END;

12 Cho khai báo:

Var A: array[1 10] of integer; i: integer;

Để in hình phần tử thứ mảng thực câu lệnh ?

a Write(‘Phan tu thu la:’,A[i]); b Write(‘Phan tu thu la:’,A[3]); c Write(‘Phan tu thu la:’’A [3]’); d Readln(A[3]);

II TỰ LUẬN: (4 điểm)

Câu 1: (2 điểm) Viết chương trình nhập vào hai xâu st1 st2 Kiểm tra ký tự thứ của xâu st1 có trùng với ký tự xâu st2 không?

Câu 2: (2 điểm) Viết chương trình nhập vào mảng A gồm có 50 phần tử kiểu nguyên a Đếm xem mảng có số chẵn

b Tìm phần tử âm bé mảng

Ngày đăng: 05/03/2021, 23:20

TỪ KHÓA LIÊN QUAN

w