Question

Nhập a,b là hai cạnh của 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ục vẽ hcn)

Answer 1

uses crt;

var a,b:integer;

{---------------ve-hinh-chu-nhat---------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{------------------chuong-trinh-chinh---------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

ve(a,b);

writeln;

ve(2*a,2*b);

writeln;

ve(3*a,3*b);

readln;

end;