De HSG tin 9
Chia sẻ bởi Huỳnh Thị Lệ Hương |
Ngày 17/10/2018 |
41
Chia sẻ tài liệu: De HSG tin 9 thuộc Tin học 8
Nội dung tài liệu:
ĐỀ THI HỌC SINH GIỎI TIN LỚP 9 Thời gian 90 phút kể cả thời gian phát đề Ngày thi: 28/10/2007
Câu 1 : (8 Điểm) Viết trương trình nhập từ bàn phím một mảng một chiều gồm n phần tử (5
Bài 1: (6 điểm) Cho một dãy số nguyên có số phần tử âm bằng số phần tử dương lấy ra từ tệp ‘SN.dat’ hãy viết chương trình tạo thành dãy số âm và số dương lồng nhau ( số âm, số dương, số âm, số dương…) Sao cho dãy số dương không giảm, dãy số âm không tăng . VD: -1 2 -3 5 -5 6 -5 6 -6 9 Bài 2: (5 điểm)Viết chương trình in ra màn hình tam giác số sau: 1 2 1 3 2 1 4 3 2 1 5 4 3 2 1 6 5 4 3 2 1 7 6 5 4 3 2 1 8 7 6 5 4 3 2 1 9 8 7 6 5 4 3 2 1 Bài 3: (5 điểm) a, Viết chương trình kiểm tra xem k có phải là số “tương lai” hay không (số “tương lai” là số có các ước (khác 1) là các số nguyên tố). VD: số 10 có ước là 2 và 5 là các số nguyên tố nên 10 là số “tương lai”. b, Cho một dãy số nguyên dương lấy ra từ tệp ‘SND.dat’ hãy viết chương trình in tất cảc các số “tương lai” có trong dãy ra màn hình. Bài 4(4 điểm) Cho một dãy số nguyên lấy ra từ tệp ‘DSN.dat’ hãy viết chương trình tìm đoạn dài nhất các phần tử liên tiếp có giá trị chẵn. VD cho dãy: 1 2 4 2 8 10 1 7 8 6 42 6 8 4 28 1 8 9 6 2 3 8 đoạn dài nhất là: 8 6 42 6 8 4 28 Đáp án Bài 1 program bai1; var A:array [1..40] of integer; n,i,j,k: byte; f:text; procedure traodoi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; BEGIN i:=0; assign(f, `SN.dat`); reset(f); readln(f,k); while not eof(f) do begin i:=i+1; read(f,a[i]); end; close(f); n:=i; for i:=1 to n do for j:=1 to n-1 do if a[j]>a[j+1] then traodoi(a[j],a[j+1]); writeln(` Day da sap xep la:`); for i:=1 to n do write(a[i],` `); j:=1; if a[1]>=k then begin for i:=n+1 downto 2 do a[i]:=
Câu 1 : (8 Điểm) Viết trương trình nhập từ bàn phím một mảng một chiều gồm n phần tử (5
Bài 1: (6 điểm) Cho một dãy số nguyên có số phần tử âm bằng số phần tử dương lấy ra từ tệp ‘SN.dat’ hãy viết chương trình tạo thành dãy số âm và số dương lồng nhau ( số âm, số dương, số âm, số dương…) Sao cho dãy số dương không giảm, dãy số âm không tăng . VD: -1 2 -3 5 -5 6 -5 6 -6 9 Bài 2: (5 điểm)Viết chương trình in ra màn hình tam giác số sau: 1 2 1 3 2 1 4 3 2 1 5 4 3 2 1 6 5 4 3 2 1 7 6 5 4 3 2 1 8 7 6 5 4 3 2 1 9 8 7 6 5 4 3 2 1 Bài 3: (5 điểm) a, Viết chương trình kiểm tra xem k có phải là số “tương lai” hay không (số “tương lai” là số có các ước (khác 1) là các số nguyên tố). VD: số 10 có ước là 2 và 5 là các số nguyên tố nên 10 là số “tương lai”. b, Cho một dãy số nguyên dương lấy ra từ tệp ‘SND.dat’ hãy viết chương trình in tất cảc các số “tương lai” có trong dãy ra màn hình. Bài 4(4 điểm) Cho một dãy số nguyên lấy ra từ tệp ‘DSN.dat’ hãy viết chương trình tìm đoạn dài nhất các phần tử liên tiếp có giá trị chẵn. VD cho dãy: 1 2 4 2 8 10 1 7 8 6 42 6 8 4 28 1 8 9 6 2 3 8 đoạn dài nhất là: 8 6 42 6 8 4 28 Đáp án Bài 1 program bai1; var A:array [1..40] of integer; n,i,j,k: byte; f:text; procedure traodoi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; BEGIN i:=0; assign(f, `SN.dat`); reset(f); readln(f,k); while not eof(f) do begin i:=i+1; read(f,a[i]); end; close(f); n:=i; for i:=1 to n do for j:=1 to n-1 do if a[j]>a[j+1] then traodoi(a[j],a[j+1]); writeln(` Day da sap xep la:`); for i:=1 to n do write(a[i],` `); j:=1; if a[1]>=k then begin for i:=n+1 downto 2 do a[i]:=
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Huỳnh Thị Lệ Hương
Dung lượng: 35,50KB|
Lượt tài: 1
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)