Bai thuc hanh 5 Su dung lenh lap ForDo

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ả.


Bước

i

i< 10?

Writeln(N,’x’,I,’=’,N*i)

1
2
3
4
5
6
7
8
9
10
11

1
2
3
4

5
6
7
8
9
10
11

Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Sai

3x1=3
3x2=6
3x3=9
3x4=12
3x5=15
3x6=18
3x7=21
3x8=24
3x9=27
3x10=30

Khơng thực hiện lệnh
writeln ( ). kết thúc vịng
lặp


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.


Bước
1
2
3
4
5
6
7
8
9
10

i
1
2
3
4
5
6
7
8

9
10

i<10 ?
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng
Đúng

11

11

Sai

Writeln(N,’x’,I,’=’,N*i)
Đi tới cột 40 3x1=3
Đi tới cột 40 3x2=6
Đi tới cột 40 3x3=9
Đi tới cột 403x4=12
Đi tới cột 40 3x5=15
Đi tới cột 40 3x6=18
Đi tới cột 40 3x7=21
Đi tới cột 40 3x8=24

Đi tới cột 40 3x9=27
Đi tới cột 40 3x10=30
Khơng thực hiện lệnh writeln
( ). kết thúc vịng lặp


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.