Ví dụ: GotoXY(5, WhereY) đưa con trỏ về vị trí cột 5 của hàng hiện tại. b) Dịch và chạy chương trình với các giá trị gõ vào từ bàn phím.. Sử dụng them các lệnh[r]
(1)Chủ đề: Sử dụng lệnh lặp For … (2 Tiết) Hãy trả lời câu hỏi sau:
a) Cú pháp câu lệnh lặp For … viết nào? Nêu cách thực câu lệnh Cho ví dụ
b) Cú pháp câu lệnh lặp For … lồng viết nào? Cho ví dụ a) Gõ chương trình sau đây:
Uses crt;
Var n, i: integer; Begin
Clrscr;
Write(‘Nhap so n=’); Readln(n); Writeln;
Writeln(Bang nhan ‘, n); Writeln;
For i:=1 to n Writeln(n, ‘ x ‘, i:2, ‘ = ‘, n*i : 3); Readln
End.
b) Tìm hiểu ý nghĩa câu lệnh chương trình, 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 1, 2, …, Quan sát kết nhận hình
3) Chỉnh sửa chương trình:
a) Chỉnh sửa câu lệnh lặp for … chương trình sau:
For i:=1 to 10 do Begin
GotoXY(5, WhereY);
Writeln(n, ‘ x ‘ , i : 2, ‘ = ‘ , n*i : 3); Writeln
End; Chú ý:
- Câu lệnh GotoXY(a, b) có tác dụng đưa trỏ cột a, hàng b - WhereX: vị trí cột tại; WhereY: vị trí hàng hành
Ví dụ: GotoXY(5, WhereY) đưa trỏ vị trí cột hàng
b) Dịch chạy chương trình với giá trị gõ vào từ bàn phím Quan sát kết hình
4) a) Tìm hiểu chương trình sau dùng để thực cơng việc gì? Program Tao_bang;
Uses Crt; Var
i: byte; { chi so cua hang} j: byte; { chi so cua cot} Begin
(2)For i:=0 to {in theo tung hang} Begin
For j:=0 to {in theo tung cot tren moi hang} Write(10*i+j : 4); {in cac so man hinh} Writeln; {xuong hang moi} End; {xong hang thu i}
Readln End
b) Gõ, dịch chạy chương trình, quan sát kết hình Sử dụng them lệnh