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’;