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ả.... Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đúng Đú[r]
Trang 1
Bai tap I:
Việt chuong trinh 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 phim và dung
Trang 2Bước Am i<10? | Writeln(N,’x’,I,’=’,N*i)
Sai Không thực hiện lệnh
writeln ( ) kết thúc vòng
lặp
1
2
&:
4
s
i
K
Š
9 COC
— —=
Trang 3
Program Bangnhan;
Uses crt;
Var N, 1: integer;
Begin
Clrscr;
Write (‘nhap so N =’);
ReadIn (N);
Writeln;
Writeln (‘Bang nhan“,N);
Writeln;
For 1:=1 to 10 do
WritelnCN, °x’, 1:2,’ = °,N*1:3);
ReadIn
End
Trang 4
Program Bangnhan;
Uses crt;
Var N, 1: integer;
Begin
Clrscr;
Write (‘nhap so N =’); Readln (N);
Writeln;
Writeln (‘Bang nhan ‘N,);
Writeln;
For t:=1 to 10 do
Begin
Gotoxy(40,wherey);
Writeln(‘(N, ‘x’, i:2,’ = 4N*i:3);
End;
Readln;
End
Trang 5
Dung Dung Dung Dung Dung Dung Dung Dung Dung
Di toi cot 40 3x1=3
Di toi cot 40 3x2=6
Đi tới cột 40 3x3=9
Di toi cot 403x4=12
Di toi cot 40 3x5=15
Di toi cot 40 3x6=18
Di toi cot 40 3x7=21
Di toi cot 40 3x8=24
Di toi cot 40 3x9=27
Di toi cot 40 3x10=30
Không thực hiện lệnh writeln
kết thúc vòng
Trang 6
Program taobang;
Uses crt;
Var I, J: byte;
Begin
For t:= 0 to 9 do
Begin
For J:=0 to 9 do
Write(10*1*7:4); writeln;
End;
Readtin;
End
Trang 7
For 1:= 0 to 9 do
Begin
For J:=0 to 9 do Begin
Gotoxy(10,wherey);
Write(10*1*):4);
writeln;
end;
End