của một số 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. Khởi động Pascal.[r]
(1)* Dạng tiến
Cú pháp lệnh:
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.
Ý 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 một đơn vị
giá trị cuối dừng lại. B I T P: Sư DơNG LƯNH LỈP FOR À Ậ … DO (T1)
(2)* Dạng lùi
Cú pháp lệnh:
FOR <biến đếm>:=<giá trị cuối> DOWNTO <giá trị đầu> 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.
B I T P: Sư DơNG LƯNH LỈP FOR À Ậ … DO (T1)
(3)2 Hãy chỗ không hợp lệ trong câu lệnh sau:
a For i:=10 to x:=x+1;
b For i:=1 to 5.5 x:=x+1;
c Var i: real;
Begin For i:=1 to N x:=x+2; End.
Giá trị đầu phải nhỏ giá trị cuối
Giá trị cuối phải giá trị nguyên.
(4)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 = 31 9 x 10 = 90
?
(5)NỘI DUNG THỰC HÀNH
Bài 1. Viết chương trình in hình bảng nhân
của số từ đến 9, số nhập từ bàn phím dừng hình để quan sát kết
(6)9 9 9 9 9 9 9 9 9 9 x x x x x x x x x x
= 9 = 18 = 27 = 36 = 45 = 54 = 63 = 72 = 81 = 90 10 N i
Ta có biến cần khai báo?
Bảng nhân 9 Giá trị cuối
Giá trị đầu
Vậy để tính bảng nhân thực nào?
(7)Mơ tả thuật tốn
Bước 1: Nhập bảng nhân cần in (N);
Bước 2: i:=i+1;
Bước 3: Nếu i<=10, thực N * i Quay lại bước
Ngược lại tiến đến bước 4.
(8)Bài 1:
Tiến hành:
a Khởi động Pascal Gõ chương trình sau tìm hiểu ý nghĩa từng câu lệnh chương trình
NỘI DUNG THỰC HÀNH
b Lưu chương trình với tên BANGNHAN.PAS. c Dịch chỉnh sửa lỗi gõ, có.
(9)(10)Với kết in màn hình bên em có nhận xét gì?
* Các hàng kết sát khó đọc * Các hàng kết không cân
đối với hàng tiêu đề
Nhap so N=9 In bang nhan
9x1= 9x2= 18 9x3= 27
9x4= 36 9x5= 45
(11)Chỉnh sửa chương trình để làm đẹp kết
quả hình bên
Nhap so N=9 In bang nhan
9x1= 9x2= 18 9x3= 27
9x4= 36 9x5= 45
(12)Quan sát chương trình sau:
Các câu lệnh thêm vào chương trình
(13)Writeln;
GotoXY(a,b);
WhereX Cho biết thứ tự cột đang 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.
NỘI DUNG THỰC HÀNH
* Tìm hiểu câu lệnh thêm vào:
Lệnh GotoXY(5, whereY); Đưa trỏ vị trí
cột hàng tại.
Tạo hàng trống vị trí trỏ.
(14)(15)1 Cấu trúc lặp với số lần biết trước thể lệnh For …do
2 Câu lệnh GotoXY(a,b) có tác dụng đưa trỏ cột a, hàng b.
3 Hàm WhereX cho biết số thứ tự cột có trỏ.
4 Hàm WhereY cho biết số thứ tự hàng đang có trỏ