Nội dung của Bài thực hành 5: Sử dụng lệnh lặp For…Do dưới đây các em sẽ được thực hành về cách viết chương trình Pascal có câu lệnh lặp For..do, thực hành về sử dụng được câu lệnh ghép [r]
(1)Tuần 22: Từ ngày 30/03 đến ngày 05/04 - Tiết 1 Bài thực hành 5: Sử dụng lệnh lặp For…do
Nội dung Bài thực hành 5: Sử dụng lệnh lặp For…Do em thực hành cách viết chương trình Pascal có câu lệnh lặp For do, thực hành sử dụng câu lệnh ghép rèn luyện kĩ đọc hiểu chương trình có sử dụng vịng lặp for Mời em theo dõi nội dung chi tiết thực hành
Tóm tắt lý thuyết 1.1 Mục đích, yêu cầu
Viết chương trình có sử dụng vịng lặp for do; Sử dụng câu lệnh ghép;
Rèn luyện kĩ đọc hiểu chương trình có sử dụng vịng lặp for 1.2 Nội dung
a Ôn tập kiến thức Cú pháp:
For < biến đếm >:= < giá trị đầu > to < giá trị cuối > < 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â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 đơn vị giá trị cuối dừng lại
b Thực hành
Bài Viết chương trình in hình bảng nhân số từ đến 9, số được nhập từ bàn phím dừng hình để quan sát kết quả.
a Khởi động Pascal Gõ chương trình sau tìm hiểu ý nghĩa câu lệnh trong chương trình;
uses crt;
var N,i:integer; begin
clrscr;
write('Nhap so N='); readln(N);
writeln;
writeln('Bang nhan ',N); writeln;
(2)writeln(N,' x ', i:2,' = ',N*i:3); readln;
end.
b Lưu chương trình với tên BANGNHAN.PAS; c Dịch chỉnh sửa lỗi gõ, có;
d Chạy chương trình với giá trị nhập vào 1, 2, …,10 Quan sát kết quả nhận hình.
Gợi ý làm bài:
Kết in hình:
Hình Kết in hình bảng nhân 6 Nhận xét kết trên:
Các hàng kết sát khó đọc;
Các hàng kết không cân hàng tiêu đề
Bài Chỉnh sửa chương trình để làm đẹp kết hình đây:
(3)Gợi ý làm bài: Chương trình: uses crt;
var N,i:integer; begin
clrscr;
write('Nhap so N='); readln(N); writeln;
writeln('Bang nhan ',N); writeln;
for i:=1 to 10 do begin
GotoXY(5,WhereY);
writeln(N,' x ',i:2,' = ',N*i:3); writeln;
end; readln end.
Các câu lệnh thêm vào:
Writeln; => Tạo hàng trống vị trí trỏ GotoXY(a,b); => Đưa trỏ cột a hàng b
Lệnh GotoXY(5, whereY); => Đưa trỏ vị trí cột hàng 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
Bài Phần giảm tải – Phần giảm tải - Khuyến kích HS tự tìm hiểu
Cũng câu lệnh if, dùng câu lệnh for lồng câu lệnh for khác khi thực lặp Sử dụng câu lệnh for…do lồng để in hình số từ 0 đến 99 theo dạng bảng hình sau:
Hình Kết in hình số từ đến 99 Gợi ý làm bài:
(4)Uses Crt; Var
i: byte; {chi so cua hang} j: byte; {chi so cua cot} Begin
Clrscr; {xoa man hinh}
For i:=0 to {viet theo tung hang} begin
For j:=0 to {viet theo tung cot tren moi hang} write(10*i+j:4); {viet cac so ij man hinh}
writeln; {xuong hang moi} end; {xong hang thu i}
readln; {dung chuong trinh de xem ket qua} end
2 Luyện tập Bài thực hành Tin học 8
Sau học xong Bài thực hành 5: Sử dụng lệnh lặp For…Do, em cần ghi nhớ: 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 có trỏ.
5 Chỉ sử dụng lệnh GotoXY, WhereX, WhereY sau khai báo thư viện crt Pascal
2.1 Trắc nghiệm
Các em hệ thống lại nội dung kiến thức học thông qua kiểm tra Trắc nghiệm Tin học Bài thực hành cực hay có đáp án lời giải chi tiết
Câu 1: Lệnh lặp For, lần lặp giá trị biến đếm thay đổi nào?
o A Tăng
o B Tăng
o C Tăng
o D Tăng
Câu 2: Lệnh lặp sau đúng?
o A For < biến đếm > = < giá trị đầu > to < giá trị cuối > < câu lệnh >; o B For < biến đếm > := < giá trị đầu > to < giá trị cuối> <câu lệnh>; o C For < biến đếm > := < giá trị cuối > to < giá trị đầu > < câu lệnh >; o D For < biến đếm > : < giá trị đầu > to < câu lệnh > < giá trị cuối >;
2.2 Bài tập For…to…do
- Câu 1: Viết CT in hình số âm từ đến n?
- Cầu 2: Viết CT in hình tổng số chẵn từ đến n?
(5) Trắcnghiệm Tin học Bài thực hành