1/16/2011
Slide 1
KIỂM TRA BÀI CŨ
Em hãy nêu cú pháp câu lệnh lặp với số lần biết trước trong Pascal?
Trong cú pháp của câu lệnh lặp trên thì số lần lặp được tính như thế nào?
Cho biết giá trị của biến j sau khi chạy chương trình
J:=1;
For i:=3 to 5 do j:=j+2;
A. 7 B. 2 C. 1 D. 8
1/16/2011
Slide 2
SỬ DỤNG LỆNH LẶP FOR .. DO
BÀI THỰC HÀNH 5
1/16/2011
Slide 3
Bài 1. Viết chương trình in ra màn hình bảng nhân của các 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ả:
1/16/2011
Slide 4
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 writeln(N,` x `,i:2,` = `,N*i:3);
readln
end.
1/16/2011
Slide 5
Bài 2. Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình.
1/16/2011
Slide 6
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.
1/16/2011
Slide 7
Bài 3. Cũng như câu lệnh if, có thể dùng câu lệnh for lồng trong một câu lệnh for khác khi thực hiện lặp. Sử dụng các câu lệnh for…do lồng nhau để in ra màn hình các số từ 0 đến 99 theo dạng bảng như hình sau:
1/16/2011
Slide 8
Program Tao_bang;
Uses Crt;
Var
i: byte; {chi so cua hang}
j: byte; {chi so cua cot}
Begin
Clrscr;{xoa man hinh}
For i:=0 to 9 do {viet theo tung hang}
begin
For j:=0 to 9 do {viet theo tung cot tren moi hang}
write(10*i+j:4);{viet cac so ij ra man hinh}
writeln; {xuong hang moi}
end; {xong hang thu i}
readln {dung chuong trinh de xem ket qua}
end.
1/16/2011
Slide 9
The end.