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 câu trả lời
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.
