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

Thảo luận trong 'Lập trình & Đồ hoạ' bắt đầu bởi Cu ra syrô, 10/2/09.

  1. Cu ra syrô

    Cu ra syrô Mr & Ms Pac-Man

    Tham gia ngày:
    29/7/08
    Bài viết:
    132
    Nơi ở:
    Fukuoka
    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:
     
  2. HieuNM

    HieuNM Mayor of SimCity

    Tham gia ngày:
    3/3/07
    Bài viết:
    4,078
    Nơi ở:
    H.U.S.T
    dễ thế này mà còn hỏi :|
    thế sau này định thi cử kiểu gì :|
    - đặc:
    Mã:
    for i:=1 to rộng do
      begin
         for i:=1 to dài do write('*');
         writeln;
      end;
    - rỗng:
    Mã:
    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}
    - đặc:
    Mã:
    for i:=1 to n do
      begin
         for j:=1 to i do write('*');
         writeln;
      end;
    
    - rỗng: chịu [​IMG]
    (không phải chịu mà là lười type :'>)
    lâu không làm vẫn nhớ ghê ha [​IMG]
    mình phục mình quá cơ [​IMG]
     

Chia sẻ trang này