viết chương trình theo kiểu chương trình con vẽ 5 hình chữ nhật có kích thước giống nhau

0 bình luận về “viết chương trình theo kiểu chương trình con vẽ 5 hình chữ nhật có kích thước giống nhau”

1. uses crt;
   var a,b,i:word;
   procedure hcn(dai,rong:word);
   var i,j:word;
   begin
         for i:=1 to dai do write(‘*’);
         writeln;
         for j:=1 to rong -2 do
       begin
     write(‘*’);
     for i:=1 to dai -2 do write(‘ ‘);
     writeln(‘*’);
       end;
    for i:=1 to dai do write(‘*’);
    writeln;
   end;
   begin
           clrscr;
           write(‘cdai, crong: ‘); readln(a,b);
           writeln;
           for i:=1 to 5 do
            begin
             hcn(a,b);
             writeln;
            end;
           readln
   end.

   Bình luận