Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Mời tài trợ sinh nhật diễn đàn 8 năm

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Đăng ký tham gia offline VN-Zoom 8 năm tại HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vn-Zoom.com tham gia họp báo HK Phone ra mắt iRevo

Tuyển BQT VN-Zoom
kết quả từ 1 tới 9 trên 9

Đề tài: lỗi 202 Pascal

  1. #1
    vipboy_dadieu's Avatar
    vipboy_dadieu vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2010
    Bài
    35
    Cảm ơn
    4
    Điểm: 1/1 bài viết
    VR power
    0

    Default lỗi 202 Pascal

    Mấy bạn giúp mình cách khắc phục lỗi này với:
    đầu tiên bấm Alt + F9 ... vẫn bình thường

    sau đó ctrl + F9........ vẫn không sao

    nhưng nhập giá trị và enter thì lại có sao...........hix

    Đây là lỗi j vậy mọi người làm sao sủa đây.......

  2. #2
    programmer2010's Avatar
    programmer2010 vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    Feb 2010
    Bài
    2.505
    Cảm ơn
    37
    Điểm
    618/556 bài viết
    VR power
    7

    Default

    Free Pascal thẳng tiến
    Cái này là do đệ quy sâu quá nên toi.

  3. #3
    vipboy_dadieu's Avatar
    vipboy_dadieu vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2010
    Bài
    35
    Cảm ơn
    4
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    đã thử free pascal vẫn bị...............

  4. #4
    lamdetien36's Avatar
    lamdetien36 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2013
    Bài
    688
    Cảm ơn
    52
    Điểm
    195/164 bài viết
    VR power
    0

    Default

    Chắc là code của anh/chị bị lỗi rồi. Anh/chị up code lên thử xem nào

  5. #5
    vipboy_dadieu's Avatar
    vipboy_dadieu vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2010
    Bài
    35
    Cảm ơn
    4
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    code lỗi thì k alt f9 được đâu bạn

  6. #6
    lamdetien36's Avatar
    lamdetien36 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2013
    Bài
    688
    Cảm ơn
    52
    Điểm
    195/164 bài viết
    VR power
    0

    Default

    Trích vipboy_dadieu View Post
    code lỗi thì k alt f9 được đâu bạn
    Tức là lỗi về thuật toán ấy. Có thể anh/chị code procedure try bị sai dẫn đến exit code 202 (tràn Stack)

  7. #7
    vipboy_dadieu's Avatar
    vipboy_dadieu vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2010
    Bài
    35
    Cảm ơn
    4
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Trích lamdetien36 View Post
    Tức là lỗi về thuật toán ấy. Có thể anh/chị code procedure try bị sai dẫn đến exit code 202 (tràn Stack)
    đã up code cho bạn đây xem giúp mình với nha

  8. #8
    lamdetien36's Avatar
    lamdetien36 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2013
    Bài
    688
    Cảm ơn
    52
    Điểm
    195/164 bài viết
    VR power
    0

    Default

    Anh/chị thử code này xem
    Code:
    procedure try(i: integer);
     var
    	j: integer;
     begin
    	for j := 1 to n do if (c[j] = true) and (j <> i) then
    	begin
    		A[i] := j;
    		if i = n then inkq else
    		begin
    			c[j] := false;
    			try(i + 1);
    			c[j] := true;
    		end;
    	end;
     end;

  9. #9
    vipboy_dadieu's Avatar
    vipboy_dadieu vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2010
    Bài
    35
    Cảm ơn
    4
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Trích lamdetien36 View Post
    Anh/chị thử code này xem
    Code:
    procedure try(i: integer);
     var
    	j: integer;
     begin
    	for j := 1 to n do if (c[j] = true) and (j <> i) then
    	begin
    		A[i] := j;
    		if i = n then inkq else
    		begin
    			c[j] := false;
    			try(i + 1);
    			c[j] := true;
    		end;
    	end;
     end;
    tks ban da thành công hihi`

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •