- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

In bảng cửu chương



Lập chương trình Pascal để in bảng cửu chương ra màn hình.

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.



Unknown nói...

thank mấy anh nhiều


lúc 14:11 20 tháng 2, 2013
Unknown nói...

quá hay!!!! ♪♫♪♫♫


lúc 08:24 7 tháng 8, 2014
Unknown nói...

cảm ơn các anh nhiều


lúc 09:19 27 tháng 3, 2016
Nguyễn Hồng Hạnh nói...

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
Nặc danh nói...

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
Unknown nói...

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
Unknown nói...

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
111 nói...

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
Nặc danh nói...

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

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.