[Lập Trình Pascal] Vẽ Hình Tam Giác Cân Với Chiều Cao Bất Kì

Skip to content

Viết chương trình nhập chiều cao của 1 tam giác (số hàng của tam giác) , in ra tam giác có dạng :

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

Program ve_tam_giac; uses crt; var center,i,j,max,h:integer; max_hang ,k:integer;

begin clrscr(); Write(‘ Nhap vao chieu cao cua tam giac : ‘);readln(h); max:=h+h-1; center:=(max div 2) + 1; for i=1 to h do begin max_hang:=i+i-1; k:=(max-max_hang) div 2; for j=1 to max do begin if(j>k and j<(k+max_hang+1)) then write(‘*’) else write(‘ ‘); end. writeln(”); end. readln(); end.

Share this:

• Twitter
• Facebook

Like Loading...

Related

Post navigation

Previous Previous post: 9 điều học được từ HavardNext Next post: Harvard, bốn rưỡi sáng

Leave a comment Cancel reply

Δ

Bài viết mới

• [Lập trình Pascal] Chuỗi ký tự
• [Lập trình Pascal] Bài 4 : Cấu trúc lặp
• Chuyện ở West Point.
• Harvard, bốn rưỡi sáng
• [Lập trình Pascal] Vẽ hình tam giác cân với chiều cao bất kì

Tìm kiếm

Search for:

Quote

Your future is what you do today , not tomorrow

Thống kê

• 23,099 lượt truy cập

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy

• Comment
• Reblog
• Subscribe Subscribed
  • Nguyen Minh Hien Blog
  Sign me up
  • Already have a WordPress.com account? Log in now.
• • Nguyen Minh Hien Blog
  • Customize
  • Subscribe Subscribed
  • Sign up
  • Log in
  • Copy shortlink
  • Report this content
  • View post in Reader
  • Manage subscriptions
  • Collapse this bar

Loading Comments... Write a Comment... Email (Required) Name (Required) Website %d Design a site like this with WordPress.comGet started