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