Cần júp gấp với Turbo Pascal

[Cu ra syrô]

Các pro júp em với, em có 1 đề đang cần gấp lắm mà hok bít làm:
Hãy dùng Turbo Pascal viết 1 chương trình nhập các dữ liệu cần thiết từ bàn phím để vẽ các hình sau bằng các dấu hoa thị ( * ) :
- Hình chữ nhật đặc và rỗng
- Tam giác vuống cân đặc và rỗng
à quên mất chỉ dùng lệnh for ... to ... do... thui các pro ah ::)
Thanks các pro nhiều :hug:

 

[HieuNM]

dễ thế này mà còn hỏi
thế sau này định thi cử kiểu gì

- Hình chữ nhật đặc và rỗng

- đặc:

for i:=1 to rộng do
  begin
     for i:=1 to dài do write('*');
     writeln;
  end;

- rỗng:

for i:=1 to dài do write('*'); {cạnh trên}
writeln;
for i:=2 to (rộng-1) do
  begin
     write('*');
     for i:=2 to (dài-1) do write('*');
     write('*');
     writeln;
  end;
for i:=1 to dài do write('*'); {cạnh dưới}

- Tam giác vuống cân đặc và rỗng

- đặc:

for i:=1 to n do
  begin
     for j:=1 to i do write('*');
     writeln;
  end;

- rỗng: chịu

(không phải chịu mà là lười type :'>)
lâu không làm vẫn nhớ ghê ha

mình phục mình quá cơ