Phương pháp giải bài tập Tin học potx

Lớp 11
- Trang 1 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên: Trương Đức Khiêm
Lớp: Tin 4B
Phương pháp giải bài tập Tin học
Phương pháp giải bài tập Tin học
 Bài tập 3.34 trang 24 sách Bài tập tin học 11.
 Bài tập 5.9 trang 59 sách Bài tập tin học 11.
I. Bài tập 3.34:
1. Tìm hiểu đề bài:
− Dữ liệu vào: Không có.
− Dữ liệu ra: Tệp văn bản FIBO.DAT gồm 45 dòng. Mỗi dòng là một số Fibonaccy.
2. Xây dựng ý tưởng giải thuật:
− Sử dụng vòng lặp While… Do
− Sơ đồ khối của thuật toán:
3. Trình bày lời giải:
Lớp 11
- Trang 2 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4. Mở rộng bài toán: Không có. {Do đến chương này học sinh mới chỉ được học những
câu lệnh cơ bản.}
II. Bài tập 5.9:
1. Tìm hiểu đề bài:
− Dữ liệu vào: Số n là số tháng mà đoàn thám hiểm quay lại đảo.
− Dữ liệu ra: Số thỏ trên đảo sau n tháng.
2. Xây dựng ý tưởng giải thuật: Dựa vào tính chất của dãy số Fibonacci.
− Sử dụng vòng lặp While… Do
− Sơ đồ thuật toán:

3. Trình bày lời giải:
Lớp 11
- Trang 3 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Lớp 11
- Trang 4 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4. Nghiên cứu về lời giải và mở rộng bài toán:
4.1. Chương trình chỉ xác định được số thỏ trong vòng 45 tháng.
4.2. Về lời giải trong sách bài tập: Thiếu chính xác! Lí do, trong lời giải khai báo kiểu
phần tử của số Fibonaccy là Integer, nhưng phần tử thứ 24 của dãy số Fibonaccy có
giá trị là 46368 đã vượt quá miền trị của kiểu Integer là
15
2 1 32767− =
. Cho nên, nếu
nhập vào số tháng lớn hơn 23 thì sẽ cho kết quả 9489.
4.3. Mở rộng bài toán: Cho số tự nhiên N và dãy số Fibonaccy: 1, 1, 2, 3, 5, 8,
Hãy viết chương trình kiểm tra xem N có thể biểu diễn thành tổng của của các số
Fibonaccy khác nhau hay không?
− Cách giải: Ta sẽ tìm số Fibonaccy gần với số N nhất. Đây sẽ chính là số hạng đầu
tiên nằm trong dãy kết quả. Sau đó, lấy hiệu của số N và số Fibonaccy gần với số N
nhất, tiếp tục tìm số Fibonaccy gần với hiệu trên và cứ thế cho đến khi hiệu đó là một
số Fibonaccy. Kết quả các số Fibonaccy sẽ được liệt kê theo thứ tự từ lớn đến nhỏ.
Lớp 11
- Trang 5 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên: Lê Thị Châu Long

Lớp: Tin 4B
 Bài tập 3.38 trang 26 sách Bài tập tin học 11.
 Bài tập 5.11 trang 57 sách Bài tập tin học 11.
I. Bài 3.38:
Lập trình:
• Nhập từ bàn phím số thực a.
• Tìm và đưa ra màn hình số nguyên dương N nhỏ nhất thõa mãn
N
i 1
1
A
i
=
<
∑

1. Tìm hiểu đề bài:
− Input: Số thực A.
− Output: Số nguyên N nhỏ nhất thõa mãn
N
i 1
1
A
i
=
<
∑
2. Ý tưởng giải thuật:
3. Trình bày lời giải
Lớp 11

- Trang 6 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4. Mở rộng bài toán:
Lập trình:
• Nhập từ bàn phím số thực a.
• Tìm và đưa ra màn hình số nguyên dương N lớn nhất thõa mãn
N
i 1
1
A
i
=
<
∑
II. Bài 5.11:
Cho tệp LINE.TXT, mỗi dòng không chứa một xâu không quá 255 kí tự. hãy lập trình
tạo tệp LINE.DAT chứa các xâu ở tệp LINE.TXT, nhưng mỗi xâu đã được chuẩn hóa
theo các quy tắc sau:
• Xóa tất cả các dấu cách đầu và cuối xâu.
• Nhiều dấu cách lien tiếp (nếu có) được thay bằng dấu cách duy nhất.
1. Tìm hiểu đề bài:
− Input: Tệp LINE.TXT
− Output: Tệp LINE.DAT
2. Ý tưởng giải thuật:
Lớp 11
- Trang 7 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
3. Trình bày lời giải:

4. Mở rộng bài toán:
Cho tệp LINE.TXT, mỗi dòng không chứa một xâu không quá 255 kí tự. hãy lập
trình tạo tệp LINE.DAT chứa các xâu ở tệp LINE.TXT, lưu các thông tin sau:
• Đếm các số các số nguyên có trong xâu.
• Tìm các số nguyên là số chẵn có trong xâu.
Lớp 11
- Trang 8 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên: Nguyễn Thị Thanh Minh
Lớp: Tin 4B
 Bài tập 3.41 trang 26 sách Bài tập tin học 11.
 Bài tập 5.14 trang 57 sách Bài tập tin học 11.
I. Bài 3.41:
1. Tìm hiểu bài toán:
- Input: Nhập thời gian: h giờ m phút s giây.
- Output: Trạng thái hiện tại là ngọn đèn hải đăng đang sáng hay tắt.
2. Ý tưởng giải thuật:
- Bước 1: Nhập thời gian h giờ m phút s giây.
- Bước 2: Nếu
h 24>
hoặc
m 60>
hoặc
s 60>
thì quay lại bước 1.
- Bước 3: Nếu
h 6
≥
và

h 18
≤
thông báo đèn ở trạng thái tắt. Đến bước 5.
- Bước 4: Nếu
1 2
(h 360 m 60 s 12 360) mod(t t ) 10× + × + − × + <
thông báo đèn ở trạng
thái tắt. Ngược lại thông báo đang sáng
- Bước 5: Kết thúc.
3. Trình bày lời giải
4. Nghiên cứu lời giải và mở rộng bài toán:
4.1. Xây dựng bộ test:
Thời gian
Trạng thái
Giờ Phút Giây
19 30 15 Sáng
2 17 34 Tắt
Lớp 11
- Trang 9 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4.2. Bài toán này còn có thể dùng để kiểm tra trạng thái của đèn với giá trị t1,
t2 khác khi đó ta chia hiệu thời gian đó cho t1+t2
Lớp 11
- Trang 10 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
II. Bài 5.41:
1. Tìm hiểu đề bài:
- Input: Tệp văn bản DUONGI.TXT.

- Output: Khoảng cách của nhóm so với trại.
2. Ý tưởng giải thuật:
- Do chỉ cần biết được khoảng cách của nhóm so với trại nên ta gắn vào hướng đi
của nhóm theo một hệ trục toạ độ: Gốc là trại, chiều dương trục Ox là hướng
Đông, chiều dương trục Oy là hướng Bắc.
- Dùng biến tạm h để tính toạ độ của nhóm với quy ước rẽ trái h giảm đi 1, rẽ phải
h tăng lên 1.
1 ; 1
2 1;
3 ; 1
4 1;
x x y y
x x y y
h
x x y y
x x y y
→ = = +


→ = − =

=

→ = = −

→ = + =

3. Trình bày lời giải:
Lớp 11
- Trang 11 -

Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên: Phan Thi Hoa
Lớp: Tin 4B
 Bài tập 3.29 trang 23 sách Bài tập tin học 11.
 Bài tập 7.37 trang 74 sách Bài tập tin học 11.
I. Bài 3.29:
Lập trình giải bài toán sau: Nhập 2 số nguyên a và b từ bàn phím( a<b). Xác định các số
nguyên lẻ i thõa điều kiện a<i<b. Đưa ra màn hình số lượng tính được và bản thân các số
lẻ này theo thứ tự tăng dần (mỗi số trên một dòng).
1. Tìm hiểu đề bài:
- Input: Hai số a và b (a<b).
- Output: Số lượng các số nguyên lẻ i (a<i<b) và các số lẻ này được sắp xếp theo
thứ tự tăng dần.
2. Ý tưởng giải thuật:
- Bước 1: Nhập a, b (a<b)
- Bước 2: i:=a; d=0;
- Bước 3: Nếu i>b thi qua 5
- Bước 4: Nếu i mod 2 =0 thi d=d+1 và in i tiếp tục tăng i =i +1;
- Bước 5: In d và kết thúc
3. Trình bày lời giải:
Lớp 11
- Trang 12 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4. Xây dựng bộ test:
II. Bài 7.37:
Lập trình nhập số nguyên n (1<n<=100) và dãy số
{ }
1 2

( , , , ) |
n i
P p p p p= ∈¥
. Sử dụng thủ
tục:
Procedure hoan_doi(var x, y: integer);
Var tg: integer;
Begin
Tg:=x;
X:=y;
Y:=tg;
End;
Sắp xếp lại các phần tử của p theo thứ tự không giảm. Đưa kết quả đã sắp xếp ra màn
hình.
1. Tìm hiểu đề bài:
- Input: Số n, dãy p.
- Output : Dãy p theo thứ tự tăng dần.
2. Ý tưởng giải thuật:
- Bước 1: Nhập n và dãy p
- Bước 2: i:=0;
- Bước 3: Nếu i> n-1 thì chuyển qua 5 còn không thì j:=i+1
- Bước 4: Nếu j<=n thì
+ Nếu a[i]> a[j] thi gọi thủ tục hoan_doi(a[i], a[j])
+ j:=j+1
+ Quay lại bước 4
- Bước 5: Ngược lại
+ i:=i+1
+ Quay lại bước 3
-Bước 6: In dãy sắp xếp p và kết thúc.
Số a Số b Kết quả

5 41
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41
19
15 43
15 17 19 21 23 25 27 29 31 33 35 37 39 41 43
15
7 30
7 9 11 13 15 17 19 21 23 25 27 29
12
Lớp 11
- Trang 13 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
3.
Trình bày lời giải:
4. Nghiên cứu lời giải và mở rộng bài toán:
4.1. Xây dựng bộ test:
Dữ liệu vào
Kết quả
n Dãy p
7 7 8 1 6 4 9 5 1 4 5 6 7 8 9
10 9 15 3 4 6 7 9 2 1 8 1 2 3 4 6 7 8 9 9 15
4 . 2 . Mở rộng bài toán: Bổ sung một số vào dãy p mà vẫn giữ được trật tự sắp
xếp…
Lớp 11
- Trang 14 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên: Lê Thị Mai
Lớp: Tin 4B

 Bài tập 3.39 trang 23 sách Bài tập tin học 11.
 Bài tập 5.12 trang 74 sách Bài tập tin học 11.
I. Bài 3.39:
Cho hai hinh chữ nhật có các cạnh song song với trục toạ độ và có toạ độ đỉnh là số
nguyên. Mỗi hình chữ nhật được xác định bởi toạ độ đỉnh trên trái và toạ độ đỉnh dưới
phải. Hãy viết chương trình xác định hai hình chữ nhật này có điểm chung hay không?
1. Tìm hiểu đề bài:
- Input: Nhập các đỉnh của 2 hình chữ nhật
+ Hình chữ nhật thứ nhất có đỉnh là: A(x, y), B(x, y);
+ Hình chữ nhật thứ hai có đỉnh là: C(x, y), D(x, y);
- Output: Hai hình chữ nhật này có điểm chung hay không?
2. Ý tưởng thuật toán:
2.1. Ý tưởng:
- Hai hình chữ nhật có điểm chung thì có 4
trường hợp xảy ra:
+ ((Ax<=Cx) and (Cx<=Bx)) and
((By<=Cy) and (Cy<=Ay))
+ ((Ax<=Dx) and (Dx<=Bx)) and
((By<=Cy) and (Cy<=Ay))
+ ((Ax<=Cx) and (Cx<=Bx)) and ((By<=Dy) and (Dy<=Ay))
+ ((Ax<=Dx) and (Dx<=Bx)) and ((By<=Dy) and (Dy<=Ay))
- Nếu một trong 4 trường hợp đúng thì hai hình chữ nhật đó sẽ cắt nhau.
2.2. Các bước thực hiện:
- Bước 1: Nhập các đỉnh của 2 hcn: A, B, C, D
- Bước 2: Kiểm tra điều kiện
+ Nếu (( (Ax<=Cx) and (Cx<=Bx)) and ( (By<=Cy) and (Cy<=Ay))) or
(( (Ax<=Dx) and (Dx<=Bx)) and ((By<=Cy) and (Cy<=Ay)))or (((Ax<=Cx)
and (Cx<=Bx)) and ((By<=Dy) and (Dy<=Ay))) or (((Ax<=Dx) and
(Dx<=Bx) ) and ((By<=Dy) and (Dy<=Ay)))
thì In thông báo “Hai hcn đó cắt nhau”

+ Ngược lại thì in thông báo “Hai hcn không cắt nhau”
- Bước 3: Kết thúc thuật toán.
Lớp 11
- Trang 15 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
3.
Trình bày lời giải:
4. Mở rộng bài toán: Xác định tâm và bán của hình tròn nhỏ nhất chứa 2
hình chữ nhật trên.
II. Bài 5.12:
Thông tin về tình hình xuất khẩu gạo cả năm của công ty A được ghi trong tệp văn bản
RICE.DAT, Mỗi loại gạo xuất khẩu ứng với một dòng 3 gía trị: Số lượng xuất, đơn giá
và loại gạo, mỗi loại gạo có một tên riêng. Các gía trị được ghi cách nhau một dấu cách.
Tệp chứa không qua một trăm dòng thông tin.
Hãy lập trình đọc tệp RICE.DAT, tính và Đưa ra màn hình các thông tin sau:
- Tổng số tiền thu được từ xuất khẩu gạo
- Tên các loại gạo thu nhập cao nhất.
1. Tìm hiểu đề bài:
- Input: Cho tệp RICE.DAT có Số lượng xuất, đơn giá, loại gạo. Tệp chứa
không quá 100 dòng thông tin
- Output: Tổng số tiền thu được và tên các loại gạo thu nhập cao nhất.
2. Ý tưởng thuật toán:
2.1. Ý tưởng:
Số lượng xuất ( Tấn )
Nguyên
dương không
quá 2*10
9
Đơn giá (USD/Tấn)

Loại gạo
Số thực
Xâu
không quá
30 kí tự
Lớp 11
- Trang 16 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
- Đọc tệp RICE.DAT
- Khi chưa phải cuối tệp thì tổng:= tổng + sl*dg
- So sánh sl*dg của các loại gạo và đưa ra kết quả.
2.2. Các bước thực hiện:
- Bước 1: Gán tên tệp : assign(f, ’RICE.DAT’); Mở tệp : reset (f);
- Bước 2: Khởi gán n:=0
Nếu không phải cuối tệp thì
+ Tăng biến n:=n+1;
+ Đọc tệp: readln( f, a[n].sl, a[n].dg, a[n].lg);
- Bước 3: Tổng:=0; i:=0;
+ Nếu i<=n thì
 Tổng:=Tổng + a[i].sl*a[i].dg;
 Tăng biến i:=i+1;
+ Ngược lại thì Qua B5
- Bước 4: Gán max:=a[1].sl*a[1].dg;
+ Nếu i<=n thì
 Tăng i:=i+1
 So sánh a[i].sl*a[i].dg > max thì hoán đổi
+ Ngược lại Qua B5;
- Bước 5:
+ In thông báo “tổng số tiền thu được”;

+ So sánh nếu max = a[i].sl*a[i].dg thì in thông báo “Các loại gạo có thu nhập
cao nhất”;
- Bước 6: Kết thúc thuật toán.
3. Trình bày lời giải:
Lớp 11
- Trang 17 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
4. Mở rộng bài toán:Hãy đưa ra tên các loại gạo cho thu nhập thấp nhất (Đơn giá*số
lượng xuất là thấp nhất). Viết chương trình nhập thêm dữ liệu (Số lượng, đơn giá, loại
gạo) vào trong tập tin “RICE.DAT”
Lớp 11
- Trang 18 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Họ và tên: Trương Thị Khánh Hà
Lớp: Tin 4B
I. Bài 3.27:
1. Tìm hiểu đề bài:
- Input: Nhập m, n, k
- Output: Kiểm tra p là số có hơn 2 số có nghĩa và số hàng đơn vị bằng 0 không?
2. Xây dựng ý tưởng giải thuật
- Tính tích p = m*n*k
- Kiểm tra các điều kiện:
+ p > 99
+ p mod 10 = 0
- Từ đó đưa ra kết luận p có phải là số có hơn hai chữ số có nghĩa và số hàng đơn
vị bằng 0?
- Sơ đồ khối
Lớp 11

- Trang 19 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
3. Trình bày lời giải
Var m, n, k: interger;
p: interger;
Begin
Repeat
Write(‘ Nhập m, n, k:’);
Readln( m, n, k);
Until((m > 0) and(n > 0) and(k > 0));
p:=m*n*k;
If p>99 then
If p mod 10 = 0 then
Writeln(p, ’là số có hơn 2 chữ số có nghĩa và số hàng đơn vị bằng 0’)
Else
Writeln(p, ’là số có hơn 2 chữ số có nghĩa và số hàng đơn vị khác 0’);
Else
Writeln(p, ’ là số không có hơn hai chữ số có nghĩa’);
Readln;
End.
4. Nghiên cứu về lời giải
m n k p=m*n*k Kết luận
4 5 6 120 p là số có hơn hai chữ số có nghĩa và hàng đơn vị bằng 0
2 3 1 6 p là số không có hơn hai chữ số có nghĩa
4 3 2 24 p là số không có hơn hai chữ số có nghĩa
4 7 4 112 p là số có hơn hai chữ số có nghĩa và hàng đơn vị khác 0
II. Bài 4.47:
Mảng các bản ghi luôn có thể thay thế bằng 1 số mảng có kiểu phần tử chuẩn khác bản ghi.
Với bảng Lop : array[ 1 60] of Hocsinh;

Ta có thể thay thế như sau:
- Điểm số thay thế bằng 7 mảng 1 chiều
Var Điểm: array [0 10]of Real;
Tin, toan, li, hoa, van, su, đia: Real;
- Các trường khác mỗi trường ứng với 1 mảng
Var Hoten: array[1 30] of String;
Var Ngaysinh: aray[1 10] of String;
Var Gioitinh: array[1 2] of Boolean;
Lớp 11
- Trang 20 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Sinh viên Lê Đức Chinh
Lớp tin 4 B
Bài tập Môn :PP GIẢI BÀI TẬP TRUNG HỌC PHỔ THÔNG.
Bài 319(sbt trang 21):
Cho ba số nguyên p, q, r(#0) .Kiểm tra ba số này, theo thứ tự nhập vào có tạo thành một cấp
số nhân hay không. Viết chương trình thực hiện yêu cầu trên.
Bước 1:
Input: bộ ba số p, q, r
Output: kiểm tra xem day p, q, r có là cấp số nhân không.
Bước 2:
Sơđồ khối:
Bước 3:viết chương trình
program bai319_bt11;
var p, q, r:integer;
Begin
repeat
writeln('nhap ba so nguyen p, q, r de kiem tra');
readln(p, q, r);

until( q<>0) and( p<>0)and (r<>0);
if q/p=r/q then writeln(p, ' ', q, ' ', r, ': la cap so nhan')
else writeln(p, ' ', q, ' ', r, ': khong phai cap so nhan');
readln;
end.
Bước 4
Mở rộng cho hs giải các bài toán tương tự như kiểm tra cấp số cộng không, trong trường hợp
lớn hơn 3 số làm thế nào? Xác định số hạng tiếp theo nếu đây là cấp số nhân (số cộng).
Bài 440(sbt trang 45):Hãy lập trình
-Nhập một xâu bất kì từ bàn phím.
-Chuẩn hóa xâu theo quy tắc sau:
+xóa các dấu cách ở đầu xâu nếu có;
+xóa các dấu cách ở cuối xâu nếu có;
Begin
q/p=r/
q
Thông báo phải
Thông báo không phải
End.
Nhập p, q, r
Lớp 11
- Trang 21 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
+thay dãy nhiêu dấu cách liên tiếp bằng một dấu cách.
-đưa kết quả đã chuẩn hóa ra màn hình.
Bước 1:
Input: nhập một xâu s
Output:Đưa ra xâu s chuẩn
Bước 2:

B1.nhập xâu s;
B2 .xóa trong xâu s đi 1 kí tự nếu có hai kí tự trắng liền nhau.
B3 kiểm tra kí tự đầu và cuối nếu chúng là kí tự trắng thì xóa.
B4.đưa lần lươt s[i] ra màn hình đến hết.
B5. kết thúc
Bước 3:viết chương trình
program chuanhoaxau;
var s:string;
i:integer;
Begin
writeln('nhap vao mot xau ');
readln(s);
for i:=1 to length(s) do
write(s[i]);
while pos(' ', s)<>0 do
delete(s, pos(' ', s), 1);
if s[1]=' 'then delete(s, 1, 1);
if s[length(s)]=' ' then delete(s, length(s), 1);
writeln('xau sau khi duoc chuan hoa la ');
for i:=1 to length(s) do
write(s[i]);
readln;
end.
Bước 4
Mở rộng cho hs giải các bài toán tương tự như kiểm tra có một từ cần tìm , bổ xung từ vào
xâu, xóa một từ trong xâu. Đảo xâu
Lớp 11
- Trang 22 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com

HỌ VÀ TÊN : NGUYỄN VĂN TRUNG
LỚP : TIN 4B
BÀI TẬP MÔN : PHƯƠNG PHÁP GIẢI BÀI TẬP TIN HỌC PHỔ THÔNG TRUNG
HỌC
Bài 4.30
Bước 1 Xác định bài toán:
- Input : Nhập các tọa độ của các đỉnh của các ô cửa số hiện trên màn hình của
máy tính: A(X1, Y1), B(X2, Y2), C(X3, Y3), D(X4, Y4);
- Output : Xác định số lượng K điểm ảnh bị che trên cửa sổ.
Bước 2 Xây dựng ý tưởng giải thuật:
- Xây dựng mảng để lưu các điểm ảnh được xác định tọa độ cột x và tọa độ hàng y.
- Xây dựng các câu lệnh For –Do để đánh dấu các giao điểm của các cửa sổ.
Bước 3 Giải thuật của bài toán:
Program Xác_Định_Số_Giao_Điểm;
Var x1, y1, x2, y2, x3, y3, x4, y4: Integer;
S, I, j: integer;
M: array[0 739, 0 1023] of byte;
Begin
Writeln(‘Nhập tọa độ các đỉnh:’);
Write(‘x1’); Readln(x1);
Write(‘y1’); Readln(y1);
Write(‘x2’); Readln(x2);
Write(‘y2’); Readln(y2);
Write(‘x3’); Readln(x3);
Write(‘y3’); Readln(y3);
Write(‘x4’); Readln(x4);
Write(‘y4’); Readln(y4);
S:=0;
For i:=0 to 739 Do
For j:= 1 to 1023 Do

M[i, j]:=0;
For i:= x1 to x2 do
For j:= y1 to y2 Do
M[I, j]:=1;
For i:= x3 to x4 Do
For j:=y3 to y4 Do
If M[I, j]=1 then inc(s);
Writeln(‘Số điểm bị che là:’, s);
End.
Bài 7.17
Bước 1 Xác định bài toán:
Lớp 11
- Trang 23 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
- Input: Nhập vào tọa độ các đỉnh của hình chữ nhật:A(xa, ya), C(xc, yc), E(Xe,
Ye), G(Xg, Yg).
- Intput: Xác định tọa độ tâm 0(X0, Y0) và tâm của hình tròn chứa hai hình chữ
nhật trên.
Bước 2 Xây dựng ý tưởng giải thuật:
- Xây dựng hàm tính khoảng cách giữa hai điểm bất kỳ nào đó.
- Lấy tọa độ trung điểm của hai điểm A(Xa, Ya) và G(Xg, Yg) và tọa độ này cũng
chính là tọa độ tâm của hình tròn nhỏ nhất chứa hai hình chữ nhật trên.
- Kiểu dữ liệu cần xây dựng là kiểu: Real;
Bước 3 Giải thuật của bài toán:
Program Hinh_tron.
Var Xa, Xe, Ya, Ye, Xg, Yg, X0, Y0, X1, Y1, X2, Y2, Xc, Yc: Real;
Function Khoang_cach(X1, X2, Y1, Y2:Real); Real;
Begin
Khoang_cach:=sqrt(sqr(X1-X2)+sqr(Y1-Y2));

End;
Begin
Writeln(‘Nhập tọa độ:’);
Write(‘Xa’); Readln(Xa);
Write(‘Ya’); Readln(Ya);
Write(‘Xc’); Readln(Xc);
Write(‘Yc’); Readln(Yc);
Write(‘Xe’); Readln(Xe);
Write(‘Ye’); Readln(Ye);
Write(‘Xg’); Readln(Xg);
Write(‘Yg’); Readln(Yg);
X1:=Xa; Y1:=Ya;
X2:=Xg; Y2:=Yg;
X0:=(X1+X2)/2; Y0:=(Y1+Y2)/2;
Writeln(‘Đường tròn tâm’, X0, Y0);
Writeln(‘Bán kính’, Khoang_cach(X1, Y1, X2, Y2);’
Readln;
End.

Lớp 11
- Trang 24 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
PHƯƠNG PHÁP GIẢI BÀI TẬP
Người soạn: Nguyễn Kính Doanh
Lớp: Tin4B
I.Đề bài: (Bài 3.23/Trang 22(SBTTH11))
Cho cấp số cộng a
0,
a

1
, a
2, ……,
a
k
, …. Trong đó a
k
=a
k-1
+d, k=1, 2…. Hãy viết chương
trình :
• Nhập ba số nguyên a
0
, d, và b;
• Tìm và đưa ra màn hình số n nguyên không âm nhỏ nhất thoả mãn điều kiện
a
n
≥b.
II.Phương pháp giải bài tập:
Bước 1: + Input: a
0,
d, b
a
0,
a
1
, a
2, ……,
a
k

, ….( a
k
=a
k-1
+d, k=1, 2….)
+ Output: giá trị n (n≥0 và a
n
≥b)
Bước 2: - Ý tưởng giải thuật:
• Kiểm tra giá trị b≤a[0] thì in ra màn hình giá trị n là 0
• Kiểm tra nếu d≤0 và b>a[0] thì in ra màn hình không có giá trị của n.
• Sử dụng vòng lặp WHILE-DO để tìm phần tử a[i] có giá trị lớn hơn hoặc
bằng b với a[i]=a[i-1]+d
• Kết thúc vòng lặp khi nào có giá trị a[i] ≥b và in ra màn hình giá trị n là
giá trị của i.
Sơ đồ khối:

Bước 3: Trình bày lời giải
Program bt;
Type mang=array[0 100] of integer;
var a:mang;
i:integer;
Lớp 11
- Trang 25 -
Phương pháp giải bài tập Tin học – Upload by CodePascal.Blogspot.com
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
d, b:integer;
Begin
write('nhap a0 : ');readln(a[0]);
write('nhap d, b: ');readln(d, b);

if b<=a[0] then
write('gia tri n la:0')
else
if (d<=0) then
write(‘khong co gia tri n’);
else
begin
i:=0;
while (a[i]<b) do
begin
i:=i+1;
a[i]:=a[i-1]+d;
end;
write('gia tri n la:', i);
end;
readln;
end.
Bước 4: + Xây dựng bộ TEST
Bảng TEST:

a[0] d b b<a[0] i a[i] a[i]<b
12 2 20 S 0 12 Đ
1 14 Đ
2 16 Đ
3 18 Đ
4=n 20 S

*Giá trị n là : 4
+ Xây dựng bài toán tương tự
Bài toán:

Cho cấp số cộng a
0,
a
1
, a
2, ……,
a
k
, …. Trong đó a
k
=a
k-1
+d, k=1, 2…. Hãy
viết chương trình:
• Nhập vào a0, d.
• Tìm và đưa ra màn hình giá trị a
k
sao cho a
k
là số nguyên không âm
lẻ đầu tiên của cấp số cộng .