viết chương trình vẽ hình chữ nhật với các kích thước được nhập vào từ bàn phím. Chương trình cho phép người đọc dùng vẽ nhiều hình chữ nhật cho đến khi người dùng không muốn vẽ nữa
viết chương trình vẽ hình chữ nhật với các kích thước được nhập vào từ bàn phím. Chương trình cho phép người đọc dùng vẽ nhiều hình chữ nhật cho đến khi người dùng không muốn vẽ nữa
uses crt;
var i,j,n,m:longint;
c:char;
begin
clrcsr;c:=’o’;
while c=o do begin
write(‘nhap lan luot chieu dai(so cot) va chieu rong(so dong) cua hinh chu nhat’);
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do
write(‘0’);
writeln;
end;
write(‘nhap la o neu bn muon ve tiep’);
readln(c);
end;
end.
uses crt;
var a,b,i,kt:longint; h:string;
begin
clrscr;
repeat
write(‘Nhap chieu dai, chieu rong: ‘);readln(A,b);
h:=”;
for i:=1 to a do begin h:=h+’ ‘; write(‘=’); end; writeln;
for i:=1 to b-2 do writeln(‘=’,copy(h,1,length(h)-2),’=’);
for i:=1 to a do write(‘=’); writeln;
write(‘Ban co muon tiep tuc(1:co; 2:khong): ‘);readln(kt);
until kt=0;
readln
end.