Thuật Toán Liệt Kê Hoán Vị - Programming - Dạy Nhau Học Trang chủ » Thuật Toán Liệt Kê Hoán Vị » Thuật Toán Liệt Kê Hoán Vị - Programming - Dạy Nhau Học Có thể bạn quan tâm Thuật Toán Liệt Kê Hoán Vị Trong Pascal Thuật Toán Liệt Kê Số Nguyên Tố Thuật Toán Liệt Kê Tập Con Thuật Toán Liệt Kê Thường Dùng Là Thuật Toán Liệt Kê Tin Học 10 Thuật toán liệt kê hoán vị programming pascal algorithm giahuy2201 (Huy Gia) September 4, 2016, 7:58am #1 Mình đọc trong sách Giải thuật và lập trình của tác giả Lê Minh Hoàng, mình chạy thử code bằng fpc thì lỗi exitcode 2, ideone thì runtime error 2 program Permutation; const InputFile = 'PERMUTE.INP'; OutputFile = 'PERMUTE.OUT'; max = 12; var n, i, k, a, b: Integer; x: array[1..max] of Integer; f: Text; procedure Swap(var X, Y: Integer); var Temp: Integer; begin Temp := X; X := Y; Y := Temp; end; begin Assign(f, InputFile); Reset(f); Readln(f, n); Close(f); Assign(f, OutputFile); Rewrite(f); for i := 1 to n do x[i] := i; repeat for i := 1 to n do write(x[i],' '); WriteLn(f); i := n - 1; while (i > 0) and (x[i] > x[i + 1]) do Dec(i); if i > 0 then begin k := n; while x[k] < x[i] do Dec(k); Swap(x[k], x[i]); a := i + 1; b := n; while a < b do begin Swap(x[a], x[b]); Inc(a); Dec(b); end; end; until i = 0; Close(f); end. htwap (lu___va_sa__) September 4, 2016, 9:36am #2 Exit code 2 là File not found. bạn xem 2 cái file kia đã cùng thư mục với file code chưa? giahuy2201 (Huy Gia) September 4, 2016, 12:32pm #3 Mình đã làm rồi htwap (lu___va_sa__) September 4, 2016, 2:59pm #4 tên file phải đúng như thế cả in hoa in thường nhé, rồi đường dẫn thư mục không nên để tiếng Việt có dấu nữa. Pham_Phuc (Phạm Phúc) March 19, 2017, 2:09pm #5 giahuy2201: x: array[1…max] of Integer; Em xin lỗi đã khai thác bài viết cũ, tại em đang tìm hướng dẫn viết hoán vị thấy bài viết này ạ, em nghĩ exit code 2 là anh khai báo chắc có gì đó sai. BLueVVolf (BLueVVolf) September 29, 2017, 4:05am #6 một chút chỉnh sửa mong có giúp ích program hoanvi; var n, i, k, a, b: Integer; x: array[1..100] of Integer; procedure Swap(var X, Y: Integer); var Temp: Integer; begin Temp := X; X := Y; Y := Temp; end; begin write('nhap n: '); Readln(n); for i := 1 to n do x[i] := i; repeat for i := 1 to n do write(x[i],' '); WriteLn; i := n - 1; while (i > 0) and (x[i] > x[i + 1]) do Dec(i); if i > 0 then begin k := n; while x[k] < x[i] do Dec(k); Swap(x[k], x[i]); a := i + 1; b := n; while a < b do begin Swap(x[a], x[b]); Inc(a); Dec(b); end; end; until i = 0; readln; end. 1 Like DayNhauHoc's Discord Học C++ Free? Click Blog Dạy Nhau Học Tự Học Lập Trình 83% thành viên diễn đàn không hỏi bài tập, còn bạn thì sao? Từ khóa » Thuật Toán Liệt Kê Hoán Vị Liệt Kê Các Hoán Vị Tổ Hợp Sử Dụng Code C++ - Lập Trình Không Khó Giải Thuật Liệt Kê Hoán Vị - Liệt Kê Hoán Vị Tiếp Theo Theo Thứ Tự Từ điển [Thuật Toán] Liệt Kê Hoán Vị - Cách Học Phương Pháp Sinh Và đệ Quy - Liệt Kê Hoán Vị - Dong's Notes Liệt Kê Hoán Vị Thuật Toán Quay Lui - YouTube Sinh Hoán Vị: Liệt Kê Tất Cả Các Hoán Vị Của N Phần Tử - YouTube Thuật Toán Liệt Kê Hoán Vị LIỆT KÊ CÁC HOÁN VỊ - Tài Liệu Text - 123doc [PDF] BÀI TOÁN LIỆT KÊ Sinh Hoán Vị - VietCodes [C++ Quay Lui] Liệt Kê Hoán Vị Các Số Từ 1 đến N [C++ Quay Lui] Liệt Kê Hoán Vị Các Số Từ 1 đến N - Kiến Thức 24h