In bảng nhân từ 2 đến 9 ra màn hình, bố trí bốn bảng đầu ở nửa trên và bốn bảng sau ở nửa dưới. Nêu ý tưởng làm bài và viết chương trình ngôn ngữ lập trình pascal.

1 câu trả lời

Ý tưởng: Dùng Gotoxy đi đến nơi cần xuẩ rồi xuất.

uses crt;
var i,j:longint; 
begin
clrscr;
   for i:=1 to 5 do
      begin
         gotoxy(i*7,1); 
         for j:=1 to 10 do 
            begin
               gotoxy(i*10,j);
               writeln(i,'*',j,'=',i*j);  
            end;    
      end; 
   for i:=6 to 9 do
      begin
         gotoxy((i-5)*7,11); 
         for j:=1 to 10 do 
            begin
               gotoxy((i-5)*10,j+11);
               writeln(i,'*',j,'=',i*j);  
            end;    
      end; 
readln
end.

Câu hỏi trong lớp Xem thêm