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
2 câu trả lời
uses crt;
var a, b, i, j, k : byte;
begin
clrscr;
write('nhap chieu dai va chieu rong : ');
readln(a, b);
for i := 1 to a do write('*');
writeln;
for k := 1 to b - 2 do
begin
write('*');
for j := 1 to a - 2 do write(' ');
write('*');
writeln;
end;
for i := 1 to a do write('*');
readln
end.
program bai_giai;
uses crt;
var n,m,i,j:longint;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
for i:=1 to m do
begin
for j:=1 to n do if(i=1)or(i=m)or(j=1)or(j=n)then write('* ')
else write(' ');
writeln;
end;
readln;
end.
chiều dài là n;
chiều rộng là m;
Câu hỏi trong lớp
Xem thêm
