Làm sao để vẽ đồng hồ cát bằng pascal?

[Everythingisok]

Dùng các thủ tục nhập xuất dữ liệu đơn giản của pascal viết chương trình vẽ đồng hồ cát bằng 1 kí tự bất kì có trên bàn phím thẳng cột với nhau với dòng thứ nhất có 9 cặp kí tự gồm kí tự đã chọn và kí tự rỗng, dòng tiếp theo bớt đi 2 kí tự, cho đến dòng thứ 5 chỉ còn 1 cặp kí tự. Nửa còn lại từ dòng thứ 6 có 1 cặp kí tự, dòng tiếp theo tăng lên 2 cặp kí tự cho đến dòng thứ 9 cuối cùng có 9 cặp kí tự.

Tks all ^^

[lequanghung98]

Gợi ý bước đầu, bạn có thể dùng thủ tục writeln {có tác dụng xuống dòng tự động}
dùng kí tự * vẽ cho đơn giản.

[Em Chán Gà]

Cách 1 bạn dùng Wirteln bình thường.
Cách 2 là dùng For to do và gotoxy()
Chỉ cho bạn cách làm thôi, bạn tự làm thì mới nhanh tiến bộ. Khi gặp lỗi gì thì search trên này, ko có thì mới hỏi tiếp.