1. Trang chủ
  2. » Cao đẳng - Đại học

tröôøng thpt traàn quoác toaûn trường thpt dầu tiếng kiểm tra 1 tiết đề 111 họ và tên môn tin học lớp 11 không trao đổi hoặc sử dụng tài liệu i traéc nghieäm hoïc sinh khoanh troøn vaøo ñaùp aùn ñu

7 19 0

Đ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 7
Dung lượng 15,94 KB

Nội dung

8 / Hãy bổ sung vào chương trình sau đây các lệnh cần thiết để được chương trình thực hiện nhập vào một dãy A gồm N số nguyên (N<=100) từ bàn phím.. Đưa ra màn hình giá trị trung bìn[r]

(1)

I Trắc nghiệm (Học sinh khoanh tròn vào đáp án đúng)

1/ Biến bảng ghi A có trường: tensach, nxb, tacgia Biến bảng ghi B có trường: tenhs, tensach, ngaymuon Câu lệnh gán sau hợp lệ?

a b.tensach := a.tensach; b a.tacgia:=b;

c B:= A; d A:= B;

2/ Cho đoạn chương trình sau: S:=’Dem day sao’; Delete(s, 5, 3);

Insert(‘troi’, s, 5);

Giá trị biến S sau thực xong đoạn chương trình gì? a ‘Dem day sao’

b ‘Dem troi day sao’ c ‘Dem day sao’ d ‘troi day sao’

3/ Trong biểu thức đây, biểu thức cho giá trị True? a ‘AscII’=’ASCII’

b ‘ha NOI’ < ‘Ha noi’ c ‘Ba’>’Bon’

d ‘Mua he’ < ‘Mua he den’ 4/ Câu lệnh sau thực điều gì?

If (ch>=’a’) and (ch<=’z’) then ch:=upcase(ch); a Xóa ký tự biến ch ch ký tự chữ b Khơng thực

c Chuyển ch thành chữ hoa ch chữ thường d Gán ký tự thường cho biến ch ch chữ thường 5/ Cho đoạn chương trình sau:

S1:=’san truong vang’ S2:=‘tieng ve’

S1:=S1+S2;

Sau thực xong đoạn chương trình trên, S1, S2 có giá trị gì? a S1=’san truong vangtieng ve’; s2 =’tieng ve’

b S1=’san truong vang tieng ve’; s2 =’tieng ve’

c S1=’san truong vang’; s2 =’tieng ve san truong vang’ d S1=’san truong vang’; s2 =’tieng ve’

6/ Để đọc dữ liệu vào từ tệp cần sử dụng lệnh nào? a read write

(2)

II Phần tự luận

7/ Cho bảng thông tin Hãy viết câu lệnh khai báo biến kiểu ghi để chứa thông tin bảng

Bang Diem

stt Ho ten Toan Ly Hoa

1 Nguyen van a 7.5 8.0 6.5

2 Nguyen van b 8.5 7.5 8.0

8/ Hãy bổ sung vào chương trình sau lệnh cần thiết để chương trình thực nhập vào dãy A gồm N số nguyên (N<=100) từ bàn phím Đưa hình giá trị trung bình phần tử dương Kết ghi vào tệp “Output.dat”

Var a : array[1 100] of integer;

N, i : integer; tong: longint; tb: real; f : text;

Begin

write(‘Nhap N :’); readln(N); for i:=1 to N

begin

write(‘A[‘,i,’]=’); readln(a[i]); end;

end; readln

tong:=0; End

for i:=1 to N

if then assign(f,’Output.dat’);

9/ Viết chương trình nhập vào từ bàn phím xâu Hãy thay tất cụm ký tự ‘co’ (nếu có) cụm ký tự ‘duoc’

(3)

I Trắc nghiệm (Học sinh khoanh tròn vào đáp án đúng) 1/ Câu lệnh sau thực điều gì?

If (ch>=’a’) and (ch<=’z’) then ch:=upcase(ch); a Khơng thực

b Gán ký tự cho biến ch c Xóa ký tự biến ch

d Biến ch thành chữ hoa ch chữ thường 2/ Để ghi dữ liệu vào tệp sử dụng câu lệnh nào?

a write readln b writeln read c read readln d write writeln

3/ Trong biểu thức đây, biểu thức cho giá trị True? a ‘Ha noi’ > ‘Ha Noi’

b ‘mua xuan’ < ‘Mua xuan den’ c ‘Anh’>’Ba’

d ‘ascii’=’ASCII’

4/ Cho đoạn chương trình sau: S1:=’san truong vang’ S2:=‘tieng ve’

S1:=S1+S2;

Sau thực xong đoạn chương trình S1, S2 có giá trị gì? a S1=’san truong vang’; s2 =’tieng ve san truong vang’

b S1=’san truong vang’; s2 =’tieng ve’

c S1=’san truong vangtieng ve’; s2 =’tieng ve’ d S1=’san truong vang tieng ve’; s2 =’tieng ve’ 5/ Cho đoạn chương trình sau:

S:=’Dem troi day sao’; Delete(s, 5, 4);

Insert(‘thanh pho’, s, 5);

Sau thực xong đoạn chương trình trên, giá trị biến S gì? a ‘Dem troi day sao’

b ‘Dem day sao’ c ‘thanh day sao’ d ‘troi day sao’

6/ Biến bảng ghi A có trường: tensach, nxb, tacgia Biến bảng ghi B có trường: tenhs, tensach, nxb, ngaymuon

Câu lệnh gán sau hợp lệ? a B:= A;

(4)

II Phần tự luận

7/ Cho bảng thông tin Hãy viết câu lệnh khai báo biến kiểu ghi để chứa thông tin bảng

Bang Diem

stt Ho ten Ly Hoa Sinh

1 Nguyen van a 8.5 7.0 7.5

2 Nguyen van b 8.5 9.5 8.0

8/ Hãy bổ sung vào chương trình sau lệnh cần thiết để chương trình thực nhập vào từ bàn phím dãy A gồm N số nguyên (N<=100) Tìm giá trị phần tử dương Kết ghi vào tệp “Dulieu.dat”

Var a : array[1 100] of integer; N, i : integer;

f : text; Begin

write(‘Nhap N :’); readln(N); for i:=1 to N

begin

write(‘A[‘,i,’]=’); readln(a[i]); end;

end; readln

End while and

i:=i+1;

if i > N then write(‘Khong co phan tu duong’) else

Begin

assign(f,’Dulieu.dat’);

9/ Viết chương trình nhập vào từ bàn phím xâu Xóa khoảng trắng thừa xâu

(5)(6)

Đáp án kiểm tra tiết lần môn tin Đề 111:

Trắc nghiệm:

a b d c a d Tự luận:

7 type

Bangdiem = record stt : byte;

hoten : string; toan, ly, hoa : real; end;

var a : array[1 2] of Bangdiem;

 if a[i] > then tong := tong + a[i];  tb := tong / N;

 rewrite(f);  write(f, tb);  close(f);

var st : string; vt:byte; begin

write(‘Nhap xau :’); readln(st);

vt:=pos(‘co’,st); while vt<>0 begin

delete(st,vt,2); insert(‘duoc’,st,vt); vt:=pos(‘co’,st); end;

write(‘Xau ket qua la :’,st); readln

end Đề 112:

d d a c b c Trắc nghiệm:

Tự luận: type

Bangdiem = record stt : byte;

hoten : string; ly, hoa, sinh : real; end;

var a : array[1 2] of Bangdiem;

 i := 1;

 while (a[i]<0) and (i<N)  rewrite(f);

 write(f, a[i]);  close(f);

(7)

while (st[1] = ‘ ‘) delete(st,1,1);

while (st[length(st)] = ‘ ‘) delete(st,length(st),1); vt:=pos(‘ ’,st);

while vt<>0 begin

delete(st,vt,); vt:=pos(‘co’,st); end;

write(‘Xau ket qua la :’,st); readln

Ngày đăng: 18/04/2021, 11:01

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w