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ối
Giá 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)Chúc sức khỏe