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]
Trang 1I Trắc nghiệm (Học sinh k hoanh tròn vào đáp án đúng)
1/ Biến bảng ghi A cĩ các trường: tensach, nxb, tacgia Biến bảng ghi B cĩ các trường:
tenhs, tensach, ngaymuon Câu lệnh gán nào sau đây là 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 nay day sao’;
Delete(s, 5, 3);
Insert(‘troi’, s, 5);
Giá trị của biến S sau khi thực hiện xong đoạn chương trình trên là gì?
a ‘Dem nay day sao’
b ‘Dem troi day sao’
c ‘Dem day sao’
d ‘troi day sao’
3/ Trong các biểu thức dưới đây, biểu thức nào cho giá trị là 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 hiện điều gì?
If (ch>=’a’) and (ch<=’z’) then ch:=upcase(ch);
a Xĩa ký tự trong biến ch nếu ch là ký tự chữ cái
b Khơng thực hiện gì
c Chuyển ch thành chữ hoa nếu ch là chữ thường
d Gán ký tự thường cho biến ch nếu ch là chữ thường
5/ Cho đoạn chương trình sau:
S1:=’san truong vang’
S2:=‘tieng ve’
S1:=S1+S2;
Sau khi thực hiện xong đoạn chương trình trên, S1, S2 cĩ giá trị là 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 hoặc write
b read hoặc writeln
c write hoặc writeln
d read hoặc readln
Trang 2II Phần tự luận
7/ Cho bảng thơng tin dưới đây Hãy viết câu lệnh khai báo biến kiểu bản ghi để chứa
được thơng tin trong bảng này
Bang Diem
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 đâ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ình của các phần tử dương Kết quả được 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 do
begin
write(‘A[‘,i,’]=’); readln(a[i]); end; end; readln tong:=0; End for i:=1 to N do if then
assign(f,’Output.dat’); 9/ Viết chương trình nhập vào từ bàn phím một xâu Hãy thay thế tất cả cụm ký tự ‘co’ (nếu cĩ) bằng cụm ký tự ‘duoc’
.Hết /./
Trang 31/ Câu lệnh sau thực hiện điều gì?
If (ch>=’a’) and (ch<=’z’) then ch:=upcase(ch);
a Không thực hiện gì
b Gán ký tự cho biến ch
c Xóa ký tự trong biến ch
d Biến ch thành chữ hoa nếu ch là chữ thường
2/ Để ghi dữ liệu vào tệp sử dụng câu lệnh nào?
a write hoặc readln
b writeln hoặc read
c read hoặc readln
d write hoặc writeln
3/ Trong các biểu thức dưới đây, biểu thức nào cho giá trị là 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 khi thực hiện xong đoạn chương trình trên S1, S2 có giá trị là 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 khi thực hiện xong đoạn chương trình trên, giá trị của biến S là gì?
a ‘Dem troi day sao’
b ‘Dem thanh pho day sao’
c ‘thanh pho day sao’
d ‘troi day sao’
6/ Biến bảng ghi A có các trường: tensach, nxb, tacgia Biến bảng ghi B có các trường:
tenhs, tensach, nxb, ngaymuon
Câu lệnh gán nào sau đây là hợp lệ?
a B:= A;
b a.tacgia:=b;
c b.nxb := a.nxb;
d A:= B;
Trang 4II Phần tự luận
7/ Cho bảng thơng tin dưới đây Hãy viết câu lệnh khai báo biến kiểu bản ghi để chứa
được thơng tin trong bảng này
Bang Diem
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 đây các lệnh cần thiết để được chương trình thực hiện nhập vào từ bàn phím một dãy A gồm N số nguyên (N<=100) Tìm giá trị phần tử dương đầu tiên Kết quả được 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 do
begin
write(‘A[‘,i,’]=’); readln(a[i]); end; end; readln End while and do 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 một xâu bất kỳ Xĩa đi các khoảng trắng thừa trong xâu đĩ
Trang 6
Đáp án kiểm tra 1 tiết lần 2 môn tin
Đề 111:
Trắc nghiệm:
Tự luận:
7 type
Bangdiem = record stt : byte;
hoten : string;
toan, ly, hoa : real;
end;
var a : array[1 2] of Bangdiem;
8
if a[i] > 0 then tong := tong + a[i];
rewrite(f);
write(f, tb);
9
var st : string;
vt:byte;
begin
write(‘Nhap xau :’);
readln(st);
vt:=pos(‘co’,st);
while vt<>0 do
begin
delete(st,vt,2);
insert(‘duoc’,st,vt);
vt:=pos(‘co’,st);
end;
write(‘Xau ket qua la :’,st);
readln
end
Đề 112:
Trắc nghiệm:
Tự luận:
7 type
Bangdiem = record stt : byte;
hoten : string;
ly, hoa, sinh : real;
end;
var a : array[1 2] of Bangdiem;
8
while (a[i]<0) and (i<N) do
rewrite(f);
write(f, a[i]);
9
var st : string;
Trang 7while (st[length(st)] = ‘ ‘) do delete(st,length(st),1); vt:=pos(‘ ’,st);
while vt<>0 do
begin
delete(st,vt,);
vt:=pos(‘co’,st);
end;
write(‘Xau ket qua la :’,st);
readln
end