Bài thực hành 5. Sử dụng lệnh lặp For….Do

Bài tập 1:
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 được nhập từ bàn phím và dừng màn hình để quan sát kết quả.
Program Bangnhan;
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.
Program Bangnhan;
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(40,wherey);
Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3);
End;
Readln;
End.
Program taobang;
Uses crt;
Var I, J: byte;
Begin
For i:= 0 to 9 do
Begin
For j:=0 to 9 do
Write(10*i*j:4); writeln;
End;
Readln;
End.
For i:= 0 to 9 do
Begin
For j:=0 to 9 do
Begin
Gotoxy(10,wherey);
Write(10*i*j:4);
writeln;
end;
End.