Dùng vòng lặp For thực hiện bảng cữu chương
Yêu cầu: cho phép chọn bảng cữu chương, ví dụ nhập số 9 sẽ thực hiện bảng cữu chương 9
Bài tập1 : Cho xuất hiện Bảng cữu chương tự chọn
PROGRAM CUUCHUONG_TU_CHON;
USES CRT;
VAR I,N :INTEGER;
BEGIN
CLRSCR;
gotoxy(13,4);WRITE('BAN MUON CUU CHUONG MAY :');READLN(N);
textcolor(yellow);
gotoxy(15, 6); WRITELN(' BANG CUU CHUONG ',N);
gotoxy(15, 7); WRITELN(' * * * ');
FOR I:=1 TO 10 DO
BEGIN
textcolor(12); gotoxy(15,WhereY);
WRITELN(N ,' X ', I , ' = ', N*I:5);
END;
READLN;
END.
Bài tập2 : (vòng lặp For + Repeat)
Dùng vòng lặp FOR kết hợp lệnh REPEAT UNTIL cho chữ chạy liên tục ngang màn hình bằng cho tới khi nhấn 1 phím bất kỳ
program CHUCHAY_FOR;
uses crt;
VAR I,X,Y : INTEGER;
Begin
CLRSCR;
TEXTCOLOR(YELLOW);GOTOXY(20,5);
writeln(' VONG LAP FOR: CHO CHU CHAY NGANG MAN HINH');
REPEAT
FOR I:= 1 TO 80 DO
BEGIN
GOTOXY(I,12); DELLINE; TEXTCOLOR(I);
WRITE('* * THCS DAO DUY ANH * * '); DELAY(100);
DELLINE;
END;
UNTIL KEYPRESSED ;
READLN;
END.
Bài tập3: Dùng vòng lặp For cho xuất hiện trên màn hình 100 số ( từ 1-100), mỗi hàng 10 số
PROGRAM XUAT_HIEN_100_SO;
USES CRT;
VAR I : INTEGER;
BEGIN
CLRSCR;
I:=0;
FOR I:= 1 TO 100 DO
BEGIN
WRITE(I :5);
IF I MOD 10 = 0 THEN WRITEN;
END;
READLN;
END.