Nhập a b là hai cạnh của một hình chữ nhật. Viết chương trình vẽ ra màn hình các hình chữ nhật có kích thước lần lượt là a*b,2a*2b,3a*3b(sử dụng thủ t

0 bình luận về “Nhập a b là hai cạnh của một hình chữ nhật. Viết chương trình vẽ ra màn hình các hình chữ nhật có kích thước lần lượt là a*b,2a*2b,3a*3b(sử dụng thủ t”

1. Uses crt;

   Var dai,rong:integer;

        Procedure Nhap(Var dai:integer;rong:integer);

        Begin

        Write(‘Chieu dai: ‘);readln(dai);

        Write(‘Chieu rong: ‘);readln(rong);

        End;

        Procedure Ve(var dai:integer;rong:integer);

        var i,j:integer;

        Begin

        for i:= 1 to dai do write(‘*’);writeln;

        For i:= 1 to rong-2 do 

           Begin

           Write(‘*’);

           for j:=1 to dai-2 do write(‘ ‘);

           writeln(‘*’);

           end;

        for i:= 1 to dai do write(‘*’);

    

        End;

   Begin

   clrscr;

   Nhap(dai,rong);

   Ve(dai,rong);

   readln;

   End.          

   Nhớ cho minmochi880 ctlhn nhoa~

   Bình luận