Đề thi HSG Tin 9 huyện Sơn Dương năm 2015-2016
Nội dung tài liệu
Tải xuống
Link tài liệu:
Các tài liệu liên quan
Có thể bạn quan tâm
Thông tin tài liệu
PHÒNG GIÁO DỤC & ĐÀO TẠO
HUYỆN SƠN DƯƠNG
KỲ THI CHỌN HỌC SINH GIỎI LỚP 9
HUYỆN SƠN DƯƠNG, NĂM HỌC 2015 – 2016
ĐỀ THI MÔN: TIN HỌC
Thời gian: 150 phút (không kể thời gian giao nhận đề)
(Đề thi gồm có 02 trang)
ĐỀ CHÍNH THỨC
Tổng quan đề thi:
Tên bài
File bài làm
Bài 1
Bai1.pas
Bài 2
Bai2.pas
Bài 3
Bai3.pas
Bài 4
Bai4.pas
Dữ liệu vào
Dữ liệu ra
Điểm
Bàn phím
Màn hình
4
Bàn phím
Màn hình
4
Bàn phím
Màn hình
6
Bàn phím
Màn hình
6
Chú ý:
1. Bài thi được làm trên ngôn ngữ lập trình Pascal.
2. Chương trình của Bài 1, Bài 2, Bài 3, Bài 4, phải ghi lên đĩa với tên tương ứng là
Bai1.pas, Bai2.pas, Bai3.pas, Bai4.pas trong thư mục đặt tên SBD của mình ví dụ:
D:\SBD01\Bai1.pas.
ĐỀ BÀI
Bài 1. Viết chương trình tính tổng sau:
Với N nhập từ bàn phím sao cho 5100)) do
Begin
Write(‘Nhap lai n thoa man 5
s) do
vt:=vt+1;
if vt=n+1 then
writeln('Khong co day con bang ',s)
else
begin
Writeln('Day con:');
for i:=1 to n do
begin
for j:=i+1 to n do
if (s=a[i]+a[j]) then
writeln(a[i]:6,a[j]:6);
end;
end;
readln;
3
End.
Program bai3;
Uses crt;
Var
a:array[1..100] of longint;
n,i,vt,min,max:integer;
Begin
Clrscr;
repeat
write('nhap vao so luong phan tu n=');readln(n);
until n<=100;
for i:=1 to n do
begin
write('nhap vao phan tu thu a[',i,']=');readln(a[i]);
end;
writeln('mang vua nhap la=');
for i:=1 to n do
write(a[i]:6);
writeln;
vt:=1;
while (vt<=n) and (a[vt] mod 20) do
vt:=vt+1;
if vt=n+1 then
writeln('Day khong co so chan')
else
begin
min:=a[vt];
for i:=vt+1 to n do
if (a[i] mod 2=0) and (a[i]