chương của số N trong khoảng từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả. BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FOR…DO.. Khởi động Pascal. NỘI DUNG THỰ[r]
(1)BÀI THỰC HÀNH 5
(2)1
Nêu cú pháp ý nghĩa câu lệnh lặp
FOR … DO
Cú pháp:
FOR <biến đếm>:=<giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;
Trong đó:
+ FOR, TO, DO: từ khóa
+ Biến đếm: thuộc kiểu liệu số nguyên.
+ Giá trị đầu, giá trị cuối: giá trị nguyên.
+ Câu lệnh: có thể câu lệnh đơn hay câu lệnh ghép.
KIỂM TRA BÀI CŨ
Ý nghĩa:
Khi thực hiện, biến đếm nhận giá trị giá trị
đầu, sau vòng lặp, biến đếm tự động tăng
thêm đơn vị giá trị cuối
dừng lại.
(3)2 Em cho biết số lần lặp câu lệnh
sau:
a For i:=1 to 25
b For i:=1 to N
c For i:=3 to 10
25 lần
(N-1) + lần
lần
(4)Giá trị đầu lớn giá trị cuối
Vậy thực câu lệnh lặp FOR DO,
điều kiện cần kiểm tra gì
?
(5)1 x = 1 1 x = 2 1 x = 3 1 x = 4 1 x = 5 1 x = 6 1 x = 7 1 x = 8 1 x = 9 1 x 10 = 10
2 x = 2 2 x = 4 2 x = 6 2 x = 8 2 x = 10 2 x = 12 2 x = 14 2 x = 16 2 x = 18 2 x 10 = 20
3 x = 3 3 x = 6 3 x = 9 3 x = 12 3 x = 15 3 x = 18 3 x = 21 3 x = 24 3 x = 27 3 x 10 = 30
4 x = 4 4 x = 8 4 x = 12 4 x = 16 4 x = 20 4 x = 24 4 x = 28 4 x = 32 4 x = 36 4 x 10 = 40
5 x = 5 5 x = 10 5 x = 15 5 x = 20 5 x = 25 5 x = 30 5 x = 35 5 x = 40 5 x = 45 5 x 10 = 50
6 x = 6 6 x = 12 6 x = 18 6 x = 24 6 x = 30 6 x = 36 6 x = 42 6 x = 48 6 x = 54 6 x 10 = 60
7 x = 7 7 x = 14 7 x = 21 7 x = 28 7 x = 35 7 x = 42 7 x = 49 7 x = 56 7 x = 63 7 x 10 = 70
8 x = 8 8 x = 16 8 x = 24 8 x = 32 8 x = 40 8 x = 48 8 x = 56 8 x = 64 8 x = 72 8 x 10 = 80
9 x = 9 9 x = 18 9 x = 27 9 x = 36 9 x = 45 9 x = 54 9 x = 63 9 x = 72 9 x = 81
9 x 10 = 90
?
Bảng cửu chương
?
(6)NỘI DUNG THỰC HÀNH
Bài 1.
Viết chương trình in hình cửu
chương số N khoảng từ đến 9, số
nhập từ bàn phím dừng hình để quan
sát kết
(7)8 8 8 8 8 8 8 8 8 8 x x x x x x x x x x
= 8 = 16 = 24 = 32 = 40 = 48 = 56 = 64 = 72 = 80 10
N
i
Ta có biến cần khai báo?
Bảng nhân 8
Giá trị cuốiGiá trị đầu
Vậy để tính bảng nhân thực nào?
x
(8)Bài 1:
Tiến hành:
a Khởi động Pascal Gõ chương trình sau (SGK T 60)
NỘI DUNG THỰC HÀNH
(9)b Lưu chương trình với tên BANGNHAN.PAS Dịch chương trình sửa lỗi cú pháp, có.
c Chạy chương trình với giá trị nhập vào bằng 1, 2, …,9 Quan sát kết nhận
màn hình.
NỘI DUNG THỰC HÀNH
(10)Với kết in màn
hình
em có nhận xét gì?
* Các hàng kết sát
nhau khó đọc
* Các hàng kết
không cân đối
với hàng tiêu đề
(11)Chỉnh sửa chương trình để làm đẹp kết hình bên
(12)NỘI DUNG THỰC HÀNH
BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FOR…DO
Bài
Chỉnh sửa chương trình để làm đẹp kết
hình Kết chương trình nhận có
hai nhược điểm sau đây:
Các hàng kết sát nên khó đọc;
Các hàng kết không cân hàng tiêu đề.
(13)a) Chỉnh sửa câu lệnh lặp chương trình sau:
Các câu lệnh thêm vào chương trình
Câu lệnh ghép
(14)Writeln;
GotoXY(a,b);
WhereX Cho biết thứ tự cột có trỏ
WhereY Cho biết thứ tự hàng có trỏ
* Lưu ý: Chỉ sử dụng lệnh GotoXY(a,b), WhereX,
WhereY sau khai báo thư viện crt; Pascal.
* Tìm hiểu câu lệnh thêm vào:
Lệnh GotoXY(5, whereY); Đưa trỏ vị trí cột 5
của hàng tại.
Tạo hàng trống vị trí trỏ.
Đưa trỏ cột a hàng b
(15)Bài 2
BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FOR…DO
(16)TỔNG KẾT
1 Cấu trúc lặp với số lần lặp cho trước thể câu
lệnh Pascal For …do.
2 Giống câu lệnh rẽ nhánh if… then, câu lệnh for…do lồng Khi <biến đếm> trong câu lệnh lặp phải khác
3 Câu lệnh GotoXY(a,b) có tác dụng đưa trỏ cột a, hàng
b WhereX cho biết số thứ tự cột WhereY cho biết số
thứ tự hàng đang có trỏ
4 Có thể kết hợp câu lệnh GotoXY(a,b) với hàm chuẩn
(17)+ Chuẩn bị
số ví dụ lệnh
lặp với số lần
chưa biết trước.
- Học bài.
- Xem trước 8:
“Lặp với số lần
chưa biết trước”.
17
(18)