Đang tải... (xem toàn văn)
1 PHÒNG GIÁO DỤC VÀ ĐÀO TẠO ĐỒNG XUÂN (Đề thi có 2 trang) KỲ THI CHỌN HSG CẤP HUYỆN LỚP 9 MÔN TIN HỌC NĂM HỌC 2017 2018 Ngày thi 30 11 2017 Thời gian làm bài 150 phút ( không kể thời gian phát đề) Chú.
PHỊNG GIÁO DỤC VÀ ĐÀO TẠO ĐỒNG XN ĐỀ CHÍNH THỨC KỲ THI CHỌN HSG CẤP HUYỆN LỚP MÔN: TIN HỌC NĂM HỌC: 2017 - 2018 Ngày thi: 30-11-2017 Thời gian làm bài: 150 phút ( không kể thời gian phát đề) (Đề thi có trang) Chú ý : - Mỗi thí sinh tạo Folder có tên là: HSG_ chứa D:\ lưu file sau vào Folder vừa tạo - Tạo tệp tin tên BAI1.PAS; BAI2.PAS; BAI3.PAS; BAI4.PAS tương ứng với Bài 1; Bài 2; Bài 3; Bài Bài 1: (6 điểm) Viết chương trình nhập từ bàn phím hai số tự nhiên A, B (A,B 181) Hãy in hình giá trị biểu thức: a/ A2 B b/ A2 B Ví dụ: INPUT Nhap so A: Nhap so B: -5 3.6056 Nhap so A: Nhap so B: 48 7.0711 OUTPUT Bài 2: (6,0 điểm) Viết chương trình nhập vào mảng A gồm N số nguyên nhập thêm số nguyên X vào mảng Hãy kiểm tra xem số X có mảng A hay khơng? Nếu có xuất vị trí số X mảng, ngược lại số X khơng có mảng Ví dụ: INPUT Nhap so N= 7, nhập X=6 Nhap so N= 3 5, nhập X=1 OUTPUT Vi tri cua X mang la: X khong co mang Bài 3: (4,0 điểm) Tìm số : Viết chương trình nhập xâu s gồm có kí tự số Hãy xóa bỏ số kí tự xâu s để lại kí tự số cho giữ nguyên thứ tự chúng số có giá trị lớn Dữ liệu vào: Từ tệp bai3.inp gồm dòng chứa xâu s Dữ liệu ra: ghi vao tệp bai3.out xâu s chứa kí tự số cịn lại tạo thành số lớn Ví dụ: Bai3.inp 3011thiHSG2017 2017abcDEF3011 Bai3.out 3217 7311 Bài 4: (4,0 điểm) Với ba số nguyên dương a, b, c Ba số a, b, c gọi ba số Pythagore nguyên tố thỏa mãn hai điều kiện sau: 2 - a b c - a, b, c ba số nguyên tố Hãy viết chương trình kiểm tra ba số a, b, c có ba số Pythagore nguyên tố hay không ? Nếu in hình “D”, ngược lại “S” * Lưu ý: Quy tắc nhập số: a < b < c Ví dụ: INPUT Nhap ba so a, b, c: 12 13 Nhap ba so a, b, c: 13 84 85 Nhap ba so a, b, c: 10 24 26 Nhap ba so a, b, c: OUTPUT D D S S Một số ba số Pythagore để thí sinh nhập mẫu: (3,4,5); (5, 12, 13); (6, 8, 10); (7, 24, 25); (8, 15, 17); (9, 40, 41); (10, 24, 26); (11; 60, 61); (12, 16, 20); (12, 35, 37); (13, 84, 85); (14, 28, 50); (15, 20, 25); (16, 30, 34); (20, 21, 29); (20, 48, 52); (21, 72, 75); (24, 30, 34); (33, 56, 65); (35, 84, 91); (36, 48, 60); (36, 77, 85); (39, 80, 89); (48, 55, 73); (65, 72, 97) … - Hết Học sinh không sử dụng tài liệu Giám thị coi thi khơng giải thích thêm ĐÁP ÁN Bài (6đ) program Bai1; uses crt; var a,b: integer; begin clrscr; write('Nhap hai so a='); readln(a); write('Nhap hai so b='); readln(b); {Cau a} writeln('Gia tri cua bieu thuc la:= ',sqr(A)-sqr(B)); {cau b} writeln('Gia tri can bac :=',SQRT((sqr(A)+sqr(B))):2:4); readln; end Bài 2(6đ) program Bai2; Uses Crt; Type Mang = ARRAY[1 50] Of Integer; Var A:Mang; N,i,x:Integer; Function TimKiem(x, N: Integer; A:Mang):Integer; Var i:Integer; Begin I:=1; While (I =c then begin t:=a; a:=c; c:=t; end; 1 while a0 begin t:= c mod a; c:=a; a:= t; end; if c = then write('D') else write('S'); end else write('S'); readln; end ...Ví dụ: Bai3.inp 3011thiHSG2017 2017abcDEF3011 Bai3.out 3217 7311 Bài 4: (4,0 điểm) Với ba số nguyên dương a, b, c Ba số a, b,... s[i] in [''0'' ''9''] then inc(i) else delete(s,i,1); until i>length(s); for i:=1 to begin k:=i; for j:=i to length(s)+i-4 if s[k]i then delete(s,i,k-i); end; assign(f2,''d:\ra.oup'');