Viết chương trình in ra màn hình bảng nhân 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ảa. Khởi động Pascal.[r]
(1)Tin học Sử dụng lệnh lặp For…Do
1/4
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 > 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â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ố nhập từ bàn phím dừng màn 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 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
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 nhận được trên hình.
Gợi ý làm bài:
(2)2/4 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:
Hình Kết in hình bảng nhân 7
Gợi ý làm bài: Chương trình:
uses crt;
(3)3/4
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 Cũng câu lệnh if, dùng câu lệnh for lồng câu lệnh for khác thực lặp Sử dụng các câu lệnh for…do lồng để in hình số từ đế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: Chương trình:
Program Tao_bang; Uses Crt;
Var
i: byte; {chi so cua hang} j: byte; {chi so cua cot} Begin
Clrscr; {xoa man hinh}
(4)4/4
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}