Lập chương trình cho phép vẽ nhiều hình chữ nhật với kích thước khác nhau?

- Để vẽ được hình chữ nhật với kích thước khác nhau, cần có hai tham số cho dữ liệu vào là chiều dài và chiều rộng.

- Phần đầu thủ tục được viết như sau: Procedure Ve_Hcn (chdai, chrong: integer);

- Thủ tục Ve_Hcn vẽ hình chữ nhật với kích thước tùy ý theo giá trị của tham số chdai và chrong. Với chdai và chrong là nguyên dương.

Chương trình mẫu:

Program VD_hcn;

Uses crt;

Var a,b,i:integer;  {bien toan cuc}

Procedure Ve_Hcn(chdai,chrong:integer);  {Bat dau CTC}

Var i, j: integer; {bien cuc bo}

Begin

{ve canh tren hinh chu nhat}

For i:=1 to chdai do write(‘*’);

Writeln;

For j:=1 to chrong -2 do {ve 2 canh ben}

Begin

Write(‘*’);

For i:=1 to chdai – 2 do write(‘ ’);{ve khoang trang}

Writeln(‘*’);            

End;
{ve canh duoi}

For i:=1 to chdai do write(‘*’);

Writeln;

End; {Ket thuc CTC}

Begin

Clrscr;

Ve_Hcn(25,10);    {ve hinh chu nhat 25x10}

Writeln; {cach 1 dong}

Ve_Hcn(5,10);        {ve hinh chu nhat 5x10}

Readln;

Clrscr;

{ve 4 hinh chu nhat hinh dau tien 4x2. Moi hinh sau co kich thuoc gap doi hinh truoc}

a:=4; b:=2;

for i:=1 to 4 do

begin

Ve_Hcn(a,b);

readln;

a:=a*2; b:=b*2;

end;

End.