Viết chương trình pascal vẽ 20 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ẽ 20 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 ve;

   var i:byte;

   begin

                  for i:=1 to 20 do

                             begin

                                            writeln(‘###########’);

                                            writeln(‘#                    #’);

                                            writeln(‘#                    #’);

                                            writeln(‘###########’);

                                            writeln;

                             end;

   end;

   begin

   clrscr;

   ve;

   end.

   Bình luận

2. 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