Viết chương trình pascal vẽ 30 hình chữ nhật ra màn hình(có các cạnh là các kí hiệu #,sử dụng chương trình con_Thủ tục)

0 bình luận về “Viết chương trình pascal vẽ 30 hình chữ nhật ra màn hình(có các cạnh là các kí hiệu #,sử dụng chương trình con_Thủ tục)”

1. uses crt;
   procedure hcn;
   var n:Integer;
   begin
       for n:=1 to 30 do
           begin
               writeln(‘###############’);
               writeln(‘#             #’);
               writeln(‘#             #’);
               writeln(‘###############’);writeln;
           end;
   end;
   begin
   clrscr;
   hcn;
   {samon247}
   end.

   Bình luận