1. Trang chủ
  2. » Giáo án - Bài giảng

lệnh lặp với số lần biết trước

1 288 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 25 KB

Nội dung

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. . 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. đế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*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.

Ngày đăng: 18/10/2014, 04:00

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w