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

Đáp án vào lớp 10 chuyên Tin tỉnh Quảng Bình niên khóa 2019-2020 - Học Toàn Tập

3 35 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 3
Dung lượng 398,71 KB

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

Nội dung

Trong mỗi câu thì giám khảo phải tạo ít nhất các bộ test dữ liệu lớn tương ứng với 1,0 điểm của mỗi câu. - Chương trình của học sinh thời gian thực hiện không quá 0,5 giây với tất cả cá[r]

Trang 1

ĐỀ TUYỂN SINH VÀO LỚP 10 THPT NĂM HỌC 2019 – 2020

MÔN: TIN HỌC (CHUYÊN)

(Đáp án gồm 3 trang)

I Phương pháp:

- Giám khảo tạo bộ dữ liệu vào, tính toán kết quả Thực hiện chương trình của học sinh

và so sánh kết quả

- Giám khảo có thể sử dụng chương trình gợi ý dưới đây để tính toán kết quả của dữ liệu vào

- Đối với mỗi câu, giám khảo tạo các bộ test chấm, mỗi bộ test tương ứng tối đa 0,5 điểm Trong mỗi câu thì giám khảo phải tạo ít nhất các bộ test dữ liệu lớn tương ứng với 1,0 điểm của mỗi câu

- Chương trình của học sinh thời gian thực hiện không quá 0,5 giây với tất cả các bộ test

II Chương trình gợi ý:

Câu 1:

program cau1;

const fi='minn.inp'; fo='minn.out';

Begin

assign(f,fi); reset(f);

readln(f,n); close(f);

assign(f,fo); rewrite(f);

write(f,1);

for i:= 1 to n-1 do write(f,0) ;

close(f);

End

Trang 2

program cau2;

const fi='uclnds.inp'; fo='uclnds.out';

var f: text;

i,n,max,b : longint;

function ucln(x,y: longint):longint;

var r: longint;

begin

while y<>0 do

begin

r:= x mod y; x:=y; y:=r;

end;

ucln:=x;

end;

Begin

assign(f,fi); reset(f);

readln(f,n); read(f,max);

for i:=2 to n do

begin

read(f,b); max:=ucln(max,b);

end;

close(f);

assign(f,fo); rewrite(f);

writeln(f,max);

close(f);

End

Trang 3

program pts;

const fi='pts.inp'; fo='pts.out';

var d,c,n,tong,i,dem: longint;

f:text;

BEGIN

assign(f,fi); reset(f); readln(f,n); close(f);

d:=1;c:=2;tong:=3;

Repeat

while tong<n do begin inc(c); tong:=tong+c; end; while tong>=n do

begin if tong=n then inc(dem);

tong:=tong-d; inc(d);

end;

until c> n div 2;

assign(f,fo); rewrite(f); write(f,dem); close(f); END

Ngày đăng: 08/02/2021, 08:14

TỪ KHÓA LIÊN QUAN

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

w