Vẽ hình trong Pascal

[nguyenhoangvit]

Mấy bố giúp con cái này với:
Viet chuong trinh nhap chieu rong (r) va chieu cao (h) cua chu "I" roi ve chu I voi cac kich thuoc tuong ung. r phai la so chan (r mod 2 = 0) va h khong nho hon 8 (h>=8).
Tai but voi may bo la con dang hoc ham lap "for... to... do..." va "while... do..."


********
********
****
****
****
****
********
********

Warning: Gõ chữ có dẫu, ngôn từ đàng hoàng nghen!!

[real_time]

bạn đã suy nghĩ kỹ bài này chưa? cái này chỉ cần bạn khéo tưởng tượng một chút là bạn sẽ viết được thôi chứ đâu có gì là phức tạp đâu nhỉ?

[mr_invincible]

Có thể dùng vòng for và dùng kĩ tự 219 (đúng không nhỉ) là kĩ tự hình chữ nhật kín để vẽ thành hình chữ I.

[nguyenhoangvit]

Tưởng tượng thì ra rồi đấy, nhưng mà con ko biết phải sử dụng vòng for trong trường hợp này như thế nào.

[ktvnguyenchien]

Cung cấp thuật toán nhé.
- Xác định độ cao của phần đầu chữ I và cuối chữ I dựa vào h. (L1,L2)
- Xác định độ cao của phần thân. (L3)
(L1+L2+L3=h)
- Xác định phần khuyết của phần thân dựa vào r.
- In phần đầu bằng For bình thường.
- In phần thân dùng for, nhưng xác định vị trí in dựa vào phần khuyết.
- In phần chân.
End.

Warning: Gõ chữ có dẫu và tiêu đề bài rõ ràng nghen!!

[nguyenhoangvit]

Cám ơn LÃNG_TỬ_BUỒN nhiều nha!

[headache12]

program ve_hinh;
var i,j,h:integer;
begin
writeln('Nhap vao chieu cao cua hinh: ');
readln(h);
for i:=1 to h do
begin
for j:=1 to h+i do
write(' ');
for j:=1 to i do
write('*');
writeln;
end;
readln
end.