Ai rảnh hoặc thạo dịch giúp code sau: pascal sang c/c++
Nguồn:
http://diendan.congdongcviet.com/threads/t409326::quay-lui-de-quy-trong-cpp-ket-qua-bi-sai.cpp
Pascal Code:
program ExPascal; {$APPTYPE CONSOLE} var x: array[0..10] of Integer; id, n: Integer; {----------------} Procedure Xuat; var i: Integer; begin inc(id);//đếm - số thứ tự Write(id:3, ' : '#9); for i := 1 to n do Write(x[i], ' '); Writeln; end; {---------------} Procedure quaylui(i: Integer); var j: Integer; begin for j := 1 to n do begin x[i] := j; if i = n then Xuat else quaylui(i + 1); end; end; {---------------} begin //Write('Nhap n: '); ReadLn(n); n := 3; id := 0; //------- Writeln('Ket qua:');Writeln; Writeln('stt '#9'Number'); Writeln('--------------'); //------- quaylui(1); readln; end.
https://s6.postimg.cc/ctl00tunl/pas2cpp.jpg
Có thì trao đổi cho đời thêm vui ...