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ục vẽ hình chữ nhật)
1 câu trả lời
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~
