Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Quà tết 1 : Đề thi tỉnh long an

Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Quà tết 1 : Đề thi tỉnh long an   1/2/2015, 14:46

SỞ GIÁO DỤC VÀ ĐÀO TẠO
LONG AN
ĐỀ CHÍNH THỨC KỲ THI CHỌN HỌC SINH GIỎI LỚP 9 CẤP TỈNH
MÔN: TIN HỌC
NGÀY THI: 8/4/2014
THỜI GIAN: 150 PHÚT (Không kể thời gian phát đề)




Lưu ý: Thí sinh tạo thư mục là SBD của mình, làm bài và lưu với tên tập tin là bai1.pas, bai2.pas, bai3.pas vào thư mục SBD vừa tạo.

Bài 1: (7.0 điểm)
Viết chương trình nhập vào một số nguyên N (0<N<1000).
a) Kiểm tra xem N có dạng 2k + 7h + 4 hay không. Nếu có xuất ra màn hình “Co dang”, ngược lại “Khong co dang”
b) Nhập vào 2 số nguyên dương a và b (0<a,b<1000).
+ In ra màn hình các số nguyên tố có dạng 2k + 7h + 4 trong khoảng từ a đến b nếu có, ngược lại “Khong co so nguyen to ”
+ In ra màn hình các số Fibonaci có dạng 2k +7h + 4 trong khoảng từ a đến b nếu có, ngược lại “Khong co so Fibonaci ”
Ví dụ:
Nhập
n=13, a = 1, b = 20
Câu a: Co dang
Câu b1: 13 19
Câu b2: 13

Bài 2: (7.0 điểm) Cho hai chuỗi S1, S2 gồm các con số từ 0 đến 9, có độ dài tối đa 200 chữ số. Gọi a là số tự nhiên có các chữ số như chuỗi S1, b là số tự nhiên có các chữ số như chuỗi S2. Viết chương trình nhập chuỗi S1, S2 từ bàn phím và thực hiện yêu cầu sau đây:
a) Xuất ra màn hình tổng các chữ số chẵn của số a và các chữ số lẽ của b.
b) Xuất ra màn hình tổng của a và b.
Ví dụ:
Nhập chuỗi
s1= ‘987698769876987698769876’
s2 = ‘678967896789678967896789’

Câu a 180
Câu b 1666666666666666666666665


Bài 3:(6.0 điểm) A và B chơi trò chơi Bốc sỏi như sau: Đặt trên bàn hai đống sỏi, đống một gồm m viên và đống hai gồm n viên (m và n nguyên dương và m khác n). Hai người chơi thỏa thuận để chọn quyền đi trước. Ví dụ A đi trước, A được quyền lấy ít nhất một viên sỏi từ một đống nào đó trong hai đống hoặc lấy hết một trong hai đống. Sau đó đến lượt B đi B được quyền lấy ít nhất một viên sỏi từ một đống nào đó trong hai đống hoặc lấy hết một trong hai đống. Quá trình cứ tiếp tục như vậy cho đến khi không còn viên sỏi nào trên bàn. Khi đó, ai lấy sau cùng là người thắng cuộc. Em hãy viết chương trình sao cho A đi trước và A luôn thắng cuộc.
Mô tả cách chơi:

Ví dụ m= 6 (số viên sỏi đống I) và n = 4(số viên sỏi đống II) và A đi trước
- Lượt 1:
A bốc 2 viên từ đống I còn 4
B bốc 1 viên từ đống IIcòn 3
- Lượt 2:
Số bi còn ở hai đống 4 3
A bốc 1 viên từ đống I còn 3
B bốc 1 viên từ đống IIcòn 2


- Lượt 3:
Số bi còn ở hai đống 3 2
A bốc 1 viên từ đống Icòn 2
B bốc 1 viên từ đống II còn 1
- Lượt 4:
Số bi còn ở hai đống 2 1
A bốc 1 viên từ đống Icòn 1
B bốc 1 viên từ đống I còn 0
- Lượt 5:
Số bi còn ở hai đống 0 1
A bốc 1 viên từ đống IIcòn 0
Vậy A thắng cuộc.
Yêu cầu:Viết chương trình ghi lại quá trình chơi.
- Dữ liệu vào trong tập tin Input.inp gồm một dòng chứa hai số nguyên lần lượt là m, n mỗi số cách nhau một khoảng trắng.
- Kết quả lưu trong tập tin Output.out
Ví dụ:

Input.inp 6 4
Output.out
---------- Luot di thu: 1 ------------
<<< A di >>>>
A boc 2 o dong 1
Dong 1 con: 4 bi
Dong 2 con: 4 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 2 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 3 bi
Dong 2 con: 3 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 3 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 2 bi
Dong 2 con: 2 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 4 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 1 bi
Dong 2 con: 1 bi
<<< B di >>>>
B boc 1,vien bi o dong 1
---------- Luot di thu: 5 ------------
<<< A di >>>>
A boc 1 o dong 2
**** A thang ***
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: Quà tết 1 : Đề thi tỉnh long an   4/12/2016, 15:01

Bài 1:
uses crt;
var n,a,i,j,k,b:integer;
{-}
function w(n:integer):boolean;
var i,j,a:integer;
begin
a:=0;
for i:=1 to n do
for j:=1 to n do
if n=2*i+7*j+4 then a:=a+1;
if a=0 then w:=false else w:=true;
end;
function z(n:integer):boolean;
var i:integer;
begin
i:=2;
while n mod i<>0 do i:=i+1;
if i=n then z:=true else z:=false;
end;
{-}
begin
clrscr;
write('Nhap so nguyen duong:');readln(n);
if w(n)=true then writeln('Co dang')
else writeln('Khong co dang');
write('Nhap hai so nguyen duong:');readln(a,b);
writeln('1)');k:=0;
for i:=a to b do
begin
if (z(i)=true)and(w(i)=true) then
begin
write(i:3);k:=k+1;
end;
end;
if k=0 then writeln('Ko co so nguyen to');writeln;
writeln('2)');
i:=0;j:=1;k:=0;n:=0;
repeat
k:=i+j;
j:=i;i:=k;
if (k>a)and(w(k)=true)and(k<b)then
begin
write(k:3);n:=n+1;
end;
until k>b;
if n=0 then writeln('Ko co so Fibonaxi');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: Quà tết 1 : Đề thi tỉnh long an   4/12/2016, 15:24

BÀI 2: Tìm tổng chuỗi
Code:
uses crt;
const so=['0','1'..'9'];
var st1,st2:string;
    i,n,j,k,l,m,tongl1,tongl2,tongc1,tongc2,code1,code2:integer;
begin
clrscr;
write('nhap chuoi:');readln(st1);readln(st2);
for i:=1 to length(st1) do if st1[i]in so then m:=0 else st1[i]:=' ';
for i:=1 to length(st2) do if st2[i]in so then m:=0 else st2[i]:=' ';
while pos(' ',st1)<>0 do delete(st1,pos(' ',st1),1);
while pos(' ',st2)<>0 do delete(st2,pos(' ',st2),1);
for i:=1 to length(st1) do if odd(ord(st1[i])-48)=true then tongl1:=tongl1+(ord(st1[i])-48);
for i:=1 to length(st2) do if odd(ord(st2[i])-48)=true then tongl2:=tongl2+(ord(st2[i])-48);
writeln('tong le 1 la:',tongl1);
writeln('tong le 2 la:',tongl2);
for i:=1 to length(st1) do if odd(ord(st1[i])-48)=false then tongc1:=tongc1+(ord(st1[i])-48);
for i:=1 to length(st2) do if odd(ord(st2[i])-48)=false then tongc2:=tongc2+(ord(st2[i])-48);
writeln('tong chan 1 la:',tongc1);
writeln('tong chan 2 la:',tongc2);
val(st1,l,code1);
val(st2,m,code2);
if (code1<>0) or (code2<>0) then write('error') else k:=l+m;
writeln('tong cua hai so:',k);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Quà tết 1 : Đề thi tỉnh long an   

Về Đầu Trang Go down
 
Quà tết 1 : Đề thi tỉnh long an
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Âu Cơ - Lạc Long Quân - Truyện tranh
» Trứng gà tác hại...
» 9x vaò làm quen điii....
» BÀ HUYỆN THANH QUAN - Hoài Việt Hoài
» Nỗi lòng xa quê

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến