Uses crt;
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
Nhãn:
Bài tập Pascal,
Mảng 2 chiều,
Pascal cơ bản
Previous Article
thank mấy anh nhiều
lúc 14:11 20 tháng 2, 2013
quá hay!!!! ♪♫♪♫♫
lúc 08:24 7 tháng 8, 2014
cảm ơn các anh nhiều
lúc 09:19 27 tháng 3, 2016
hay
lúc 21:15 18 tháng 11, 2016
Cho mình ké với ^_^
var N,i: byte;
begin
for N:=1 to 9 do
for i:=1 to 9 do writeln(N,'x',i,'=',N*i);
readln
end.
lúc 23:13 5 tháng 1, 2017
không sử dụng for mà thay vào đó mình xài if hay while được kh ạ ?
lúc 20:22 27 tháng 3, 2017
Cho hỏi là tại sao lại phải cho thêm một lần begin chỗ kia ạ mặc dù em đã viết theo chương trình nhưng em không hiểu là tại sao lại phải cho thêm begin ạ
lúc 08:59 7 tháng 8, 2019
làm sao để có thế viết bảng 2,bảng 3,bảng 4,... ra một dòng riêng để dễ phân biệt ạ
lúc 22:17 17 tháng 12, 2019
Uses crt;
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(i,'*',j'= ',a[i,j]:2,' ');
Writeln ;
Writeln ;
End ;
Readln ;
END.
lúc 09:56 18 tháng 8, 2020
Program vd1;
Uses crt;
var i,j: byte;
begin
clrscr;
for i:=2 to 10 do
begin
for j:=1 to 10 do Writeln(i,' x ',j,' = ', i*j);
delay(1000);
Writeln('__________________');
end;
readln;
end.
Làm như thế này cũng đc nhen!( code tham khảo)
lúc 19:13 24 tháng 6, 2022
Đăng nhận xét