viết chương trình tạo 1 hình chữ nập rỗng bằng dấu (*) với chiều dài và rộng được nhập từ bàn phím.VIết bằng pascal
Quảng cáo
2 câu trả lời 335
program bt;
var
m,n,i,j:integer
begin
write(‘Chieu dai: ‘); readln(n);
write(‘Chieu rong: ‘); readln(m)
for i:=1 to m do write(‘*’);
for i:=2 to n-1 do
begin
for j:=1 to m do if (j=1) or (j=m) then write(‘*’) else write( ‘‘ );
writeln;
end;
for i:=1 to m do write(‘*’);
readln;
end.
program bt;var
m,n,i,j:integer begin
write(‘Chieu dai: ‘); readln(n);
write(‘Chieu rong: ‘); readln(m)
for i:=1 to m do write(‘*’);
for i:=2 to n-1 do begin
for j:=1 to m do if (j=1) or (j=m) then write(‘*’) else write( ‘‘ );
writeln; end;
for i:=1 to m do write(‘*’);
readln; end
Quảng cáo