1. Trang chủ
  2. » Tất cả

SỞ GIÁO DỤC VÀ ĐÀO TẠO HÀ NỘI

2 3 0
Tài liệu đã được kiểm tra trùng lặp

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

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Tiêu đề Đáp Án – Thang Điểm Cụm Thpt Gia Lâm - Long Biên Năm Học 2010-2011
Trường học Sở Giáo Dục Và Đào Tạo Hà Nội
Chuyên ngành Tin Học
Thể loại Đáp án
Năm xuất bản 2011
Thành phố Hà Nội
Định dạng
Số trang 2
Dung lượng 224,59 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

SỞ GIÁO DỤC VÀ ĐÀO TẠO HÀ NỘI SỞ GIÁO DỤC ĐÀO TẠO HÀ NỘI CỤM THPT GIA LÂM LONG BIÊN ĐỀ CHÍNH THỨC ĐÁP ÁN – THANG ĐIỂM ĐỀ THI OLYMPIC NĂM HỌC 2010 2011 Môn TIN HỌC LỚP 11 Ngày thi 16 tháng 3 năm 2011 I[.]

Trang 1

SỞ GIÁO DỤC - ĐÀO TẠO HÀ NỘI

CỤM THPT GIA LÂM - LONG BIÊN

ĐỀ CHÍNH THỨC

ĐÁP ÁN – THANG ĐIỂM

ĐỀ THI OLYMPIC NĂM HỌC 2010-2011 Môn: TIN HỌC - LỚP 11

Ngày thi: 16 tháng 3 năm 2011

I Phần trắc nghiệm:

Mỗi câu đúng được 0,5 điểm

Câu 1 2 3 4 5 6 7 8 9 10

Câu 11 12 13 14 15 16

Câu 7:

C1: Var i,n:byte;

đúng như đáp án, nhưng vẫn đúng,

cũng cho điểm tối đa

C2:

i:=1.0;

While i<=n do

II Phần tự luận:

Câu 1: 8 điểm

Hiển thị được dòng 1: 4 điểm

Hiển thị được dòng 2: 3 điểm

Hiển thị được dòng 3: 1 điểm

program chuanhoaxau;

var

st:string;

tong,i:integer;

BEGIN

write('nhap xau bat ky:'); readln(st);

{Chuan hoa xau}

while st[1]=' ' do delete(st,1,1);

while st[length(st)]=' ' do delete(st,length(st),1);

for i:=1 to length(st) do

while (st[i]=' ') and (st[i+1]=' ') do delete(st,i,1);

for i:=1 to length(st) do

if (st[i]=' ') and ((st[i+1]='.')or (st[i+1]=',')) then delete(st,i,1);

st[1]:=upcase(st[1]);

for i:=2 to length(st) do

if ((st[i]='.') or (st[i]='?') or (st[i]='!')) and (st[i+1]=' ') then st[i+2]:=upcase(st[i+2]);

writeln(st);

{hien thi chu so ra man hinh}

Trang 2

Đ.Á -thang điểm Olympic cụm Gia Lâm - Long Biên lớp 11 môn Tin học Trang 2/ tổng số 2 trang

for i:=1 to length(st) do

begin

if st[i] in ['a' 'z','A' 'Z'] then st[i]:=' ';

if (st[i]='.') or (st[i]=',') then st[i]:=' ';

end;

for i:=1 to length(st) do

while St[i]=' ' do delete(st,i,1);

write(st); writeln;

{ tinh tong}

tong:=0;

for i:=1 to length(st) do tong:=tong+(ord(st[i])-48);

write(tong);

readln;

END

Bài 2 (4 điểm)

- Phần khai báo: (0,5 điểm)

+ Biến mảng một chiều

+ Biến n(số phần tử của mảng), biến i

+ 3 biến d1,d2,d3 tương ứng với 3 yêu cầu của đề bài

- Phần nhập dữ liệu: (0,5 điểm)

+ Nhập số phần tử của mảng

+ Nhập giá trị các phần tử của mảng

- Mỗi ý đúng (1 điểm)

+ Cả hai số đều dương

+ Cả hai số đều cùng dấu đồng thời số đứng trước có giá trị tuyệt đối lớn hơn số đứng sau

+ Cả hai số trái dấu

-Hết -

Ngày đăng: 31/12/2022, 21:20

🧩 Sản phẩm bạn có thể quan tâm

w