lệnh lặp với số lần biết trước
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.83 KB, 1 trang )
BÀI TẬP ÁP DỤNG:
LỆNH LẶP VỚI SỐ LẦN ĐÃ BIẾT TRƯỚC: FOR… DO…
Viết chương trình in ra màn hình hai bảng nhân của hai số từ một đến
chín, số được nhập từ bàn phím và dừng màn hình để có thể quan sát.
( Hai bảng nhân phải nằm ngangvới nhau, chèn thêm một hàng trống
giữa các hàng).
Chương trình
Program bang_nhan;
Uses crt;
Var n, m, i: integer;
Begin
Clrscr;
Write(‘Nhap so N = ‘); readln (n);
Write(‘Nhap so M = ‘); readln (m);
Writeln;
Write(‘Bang nhan ‘,n); write(‘ ‘);
Writeln(‘Bang nhan’,m);
For i:=1 to 10 do
Begin
GotoXY(5,WhereY);
Write (n, ’ x ’, i:2, ‘ = ‘, n*i:3);
Write(‘ ‘);
Writeln (m, ’ x ’, i:2, ‘ = ‘, m*i:3);
Writeln [ không có dấu “;” cuối lệnh ở trường hợp
này ]
End;
Readln;
End.
