Bd Tin 8
Chia sẻ bởi Nguyễn Thành Phương |
Ngày 17/10/2018 |
47
Chia sẻ tài liệu: bd Tin 8 thuộc Tin học 8
Nội dung tài liệu:
KẾ HOẠCH BỒI DƯỠNG HSG MÔN TIN HỌC
Phân môn: Pascal
I. Mục tiêu
Kiến thức: Nhằm trang bị cho học sinh các kiến thức cơ bản và nâng cao; với mục tiêu đáp ứng cho kỳ thi HSG vòng Huyện, Tỉnh
Kỹ năng: Giúp học sinh rèn luyện các dạng cơ bản và nâng cao
II. Thời gian
Ít nhất 3,5 tháng, mỗi tuần 1 buổi từ 2 tiết đến 4 tiết
III. Kế hoạch cụ thể như sau:
STT
Tuần
Nội dung chương trình
1
1
Giới thiệu sơ lược Pascal, các kí hiệu cơ bản: hằng, biến,…
2
2
Các phép toán, biểu thức, câu lệnh,….
3
3
Các lệnh có lựa chọn: If..then..else,
4
4
Vòng lặp xác định và không xác định
5
5
Vòng lặp xác định và không xác định (tt)
6
6
Cấu trúc mảng
7
7
Cấu trúc mảng (tt)
8
8
Cấu trúc Chuỗi
9
9
Ôn tập và kiểm tra
10
10
Chương trình con: Thủ tục và hàm
11
11
Chương trình con: Thủ tục và hàm (tt)
12
12
File
13
13
Ôn 1: Cơ sở lý thuyết
14
14
Ôn 2: Thực hành và kiểm tra
( Thời gian phụ thuộc vào từng đối tương học sinh)
ĐỀ THAM KHẢO THI HSG VÒNG HUYỆN
Câu1:(2đ) Viết chương trình giải hệ phương trình sau: với các số a1, b1, c1, a2, b2, c2 nhập từ bàn phím
Câu 2: (3đ) Viết chương trình nhập một dãy số tối đa 100 số, sau đó sắp xếp lại thành dãy theo thứ tự tăng dần.
Câu 3: (5đ) Cho trước số nguyên dương N, viết chương trình in ra mọi phân số tối giản thuộc A(N) theo thứ tự tăng dần của giá trị
INPUT: File FRAC.IN
Gồm một dòng duy nhất ghi số nguyên N 100
OUTPUT: File FRAC.OUT
Gồm một số dòng, mỗi dòng ghi một phân số thuộc A(N) theo thứ tự tăng dần, mỗi phân số viết dưới dạng tử số / mẫu số
Ví dụ:
FRAC.IN
FRAC.OUT
5
0/1
1/5
1 /4
1/3
2/5
1 /2
3/5
2/3
3 /4
4/5
1/1
Hết
ĐÁP ÁN
( Các chương trình tham khảo)
Câu 1:
Var a1, b1, c1, c2, a2, b2, x, y, Dc, Dx, Dy: real;
Begin
Write(‘a1, b1, a2, b2 =’); Readln(a1, b1, a2, b2);
Write(‘c1, c2 =’); Readln(c1, c2);
Dc := a1*b2 – b1*a2;
Dx := b2*c1 – b1*c2;
Dy := a1*c2 – a2*c1;
If Dc = 0 then
Writeln (‘He phuong trinh vo nghiem hoac vo dinh’);
Else
Writeln (‘ He phuong trinh co nghiem x=’,
Dx/Dc, ‘y=’, Dy/Dc);
Readln;
End.
Câu 2:
Const N=100;
Var
A:array[ 1..N] of integer;
i, j:integer;
T:integer;
Begin
Writeln (‘ cho day so:’);
For i:=1 to N do
Begin
Write(‘A[‘,i,’]=’); readln(A[i]);
End;
I:=1;
While (i<=N-1) do
Begin
J :=i+1;
While j<=N do
Begin
If A[j] > a[J] then
Begin
T:=A[J];
A [J]:=A[i]; A[i]:=T;
End;
J:=j+1;
End;
I:=i+1;
End;
Writeln (‘ day so sau khi da sap xep la:’);
For i:= 1 to N do write(A[i]:4);
Readln;
End.
Câu 3:
Const
Inp = ‘frac.in’;
Phân môn: Pascal
I. Mục tiêu
Kiến thức: Nhằm trang bị cho học sinh các kiến thức cơ bản và nâng cao; với mục tiêu đáp ứng cho kỳ thi HSG vòng Huyện, Tỉnh
Kỹ năng: Giúp học sinh rèn luyện các dạng cơ bản và nâng cao
II. Thời gian
Ít nhất 3,5 tháng, mỗi tuần 1 buổi từ 2 tiết đến 4 tiết
III. Kế hoạch cụ thể như sau:
STT
Tuần
Nội dung chương trình
1
1
Giới thiệu sơ lược Pascal, các kí hiệu cơ bản: hằng, biến,…
2
2
Các phép toán, biểu thức, câu lệnh,….
3
3
Các lệnh có lựa chọn: If..then..else,
4
4
Vòng lặp xác định và không xác định
5
5
Vòng lặp xác định và không xác định (tt)
6
6
Cấu trúc mảng
7
7
Cấu trúc mảng (tt)
8
8
Cấu trúc Chuỗi
9
9
Ôn tập và kiểm tra
10
10
Chương trình con: Thủ tục và hàm
11
11
Chương trình con: Thủ tục và hàm (tt)
12
12
File
13
13
Ôn 1: Cơ sở lý thuyết
14
14
Ôn 2: Thực hành và kiểm tra
( Thời gian phụ thuộc vào từng đối tương học sinh)
ĐỀ THAM KHẢO THI HSG VÒNG HUYỆN
Câu1:(2đ) Viết chương trình giải hệ phương trình sau: với các số a1, b1, c1, a2, b2, c2 nhập từ bàn phím
Câu 2: (3đ) Viết chương trình nhập một dãy số tối đa 100 số, sau đó sắp xếp lại thành dãy theo thứ tự tăng dần.
Câu 3: (5đ) Cho trước số nguyên dương N, viết chương trình in ra mọi phân số tối giản thuộc A(N) theo thứ tự tăng dần của giá trị
INPUT: File FRAC.IN
Gồm một dòng duy nhất ghi số nguyên N 100
OUTPUT: File FRAC.OUT
Gồm một số dòng, mỗi dòng ghi một phân số thuộc A(N) theo thứ tự tăng dần, mỗi phân số viết dưới dạng tử số / mẫu số
Ví dụ:
FRAC.IN
FRAC.OUT
5
0/1
1/5
1 /4
1/3
2/5
1 /2
3/5
2/3
3 /4
4/5
1/1
Hết
ĐÁP ÁN
( Các chương trình tham khảo)
Câu 1:
Var a1, b1, c1, c2, a2, b2, x, y, Dc, Dx, Dy: real;
Begin
Write(‘a1, b1, a2, b2 =’); Readln(a1, b1, a2, b2);
Write(‘c1, c2 =’); Readln(c1, c2);
Dc := a1*b2 – b1*a2;
Dx := b2*c1 – b1*c2;
Dy := a1*c2 – a2*c1;
If Dc = 0 then
Writeln (‘He phuong trinh vo nghiem hoac vo dinh’);
Else
Writeln (‘ He phuong trinh co nghiem x=’,
Dx/Dc, ‘y=’, Dy/Dc);
Readln;
End.
Câu 2:
Const N=100;
Var
A:array[ 1..N] of integer;
i, j:integer;
T:integer;
Begin
Writeln (‘ cho day so:’);
For i:=1 to N do
Begin
Write(‘A[‘,i,’]=’); readln(A[i]);
End;
I:=1;
While (i<=N-1) do
Begin
J :=i+1;
While j<=N do
Begin
If A[j] > a[J] then
Begin
T:=A[J];
A [J]:=A[i]; A[i]:=T;
End;
J:=j+1;
End;
I:=i+1;
End;
Writeln (‘ day so sau khi da sap xep la:’);
For i:= 1 to N do write(A[i]:4);
Readln;
End.
Câu 3:
Const
Inp = ‘frac.in’;
* 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ẻ: Nguyễn Thành Phương
Dung lượng: 9,32KB|
Lượt tài: 1
Loại file: rar
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)