Thuật Toán Liệt Kê Hoán Vị - Programming - Dạy Nhau Học Trang chủ » Hoán Vị Bằng đệ Quy Pascal » Thuật Toán Liệt Kê Hoán Vị - Programming - Dạy Nhau Học Có thể bạn quan tâm Hoán Vị Chẵn Và Lẻ Hoán Vị Chỉnh Hợp Tổ Hợp 11 Bài Tập Hoán Vị Chỉnh Hợp Tổ Hợp 11 Nâng Cao Hoán Vị Chỉnh Hợp Tổ Hợp Bài Tập Sgk Hoán Vị Chỉnh Hợp Tổ Hợp Lớp 11 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 » Hoán Vị Bằng đệ Quy Pascal Hoán Vị Của 1 đến N. Code đệ Quy Quay Lui Pascal. - Dungnv [Tin Học Pascal]…đệ Quy Hoán Vị - YouTube Đệ Quy Quay Lui Trong Pascal | Bài Toán Hoán Vị Trong Pascal Tổ Hợp Trong Pascal - Sách Giải Liệt Kê Các Hoán Vị Từ 1 đến N Hoan Vi [Archive] - Diễn Đàn Tin Học THUẬT TOÁN ĐỆ QUY MINH HỌA BẰNG FREE PASCAL - Tài Liệu Text Pascal: In Ra Các Hoán Vị - Góc Tin Học Liệt Kê Các Hoán Vị Tổ Hợp Sử Dụng Code C++ - Lập Trình Không Khó Giai Thuat Va Lap Trinh - Slideshare Bài Toán đệ Quy - .vn [PDF] BÀI 3: BÀI TOÁN LIỆT KÊ TỔ HỢP - Topica