Mình cần gaasppppp Viết đoạn chương trình liệt kê tăng dần theo thứ tự từ điển các hoán vị của các số từ 1 ... N: input : tệp văn bản HOANVI.INP chứa số n,1<N<9 output : tệp văn bản HOANVI.OUT, mỗi dòng là 1 hoán vị

Chau01

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

thuthuyle942

var n:byte;
a:array[1..9] of byte;
duyet:array[1..9] of boolean;
f:text;
procedure xuat;
var j:byte;
begin
for j:=1 to n do write(f,a[j],' ');writeln(f);
end;
procedure try(i:byte);
var ii:byte;
begin
if i<=n then
begin
for ii:=1 to n do
if duyet[ii]=true then
begin
a[i]:=ii;
duyet[ii]:=false;
try(i+1);
duyet[ii]:=true;
end;
end
else xuat;
end;
begin
assign(f,'HOANVI.INP');reset(f);
readln(f,n);
close(f);
assign(f,'HOANVI.OUT');rewrite(f);
fillchar(duyet,sizeof(duyet),true);
try(1);
close(f);
end.

Vote (0) Phản hồi (0) 2 năm trước

ngoctramhg41

const fi='HOANVI.INP';
fo='HOANVI.OUT';
var n:byte;
x:array[1..9]of longint;
f:array[1..9]of boolean;
procedure print;
var j:byte;
begin
for j:=1 to n do write(x[j]);writeln;
end;
procedure try(i:byte);
var j:byte;
begin
for j:=1 to n do
if f[j]=true then
begin
x[i]:=j;
if i=n then print
else
begin
f[j]:=false;
try(i+1);
f[j]:=true;
end;
end;
end;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
readln(n);
fillchar(f,sizeof(f),true);
try(1);
close(output);
close(input)
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1.The distance from Ha Noi to Thanh Hoa city is about 100km It is about 2.What is the distance between Hai Duong to Hue ? How 3.My father lived in small village when he was a chil. My father used 4.Although they were tired, they wanted to watch the flim In spite of 5.The festival took place in a remote area. Howere, a lot of people atened it Although 6.How far is it from Hue Da Nang ? What 7.Ioften went to primary on foot I used to 8.Although the sky was dark,they were working in the field Despite

vẽ anime cười tươi Xấu đạp không quan trọng

Vòng dây có điện tích 100 cm ² đặt trong từ trường đều B=0,1T. Tính Ф qua vòng cho: a) Mặt phẳng khung dây vuông góc vecto B b) Mặt phẳng khung dây hợp với vecto B 1 góc $30^{o}$ c) vecto pháp tuyến của khung dây hợp với vecto B 1 góc $30^{o}$

Tính giá trị nhỏ nhất của các biểu thức sau: a) (x- 3)^2 + (y – 1)^2 + 5; b) |x-3| + x^2 + y^2 + 1 giúp mik với ạ mn!!!!!!!!!!!

Giúp em với ạ, Em xin chân thành cảm ơn! ❤

Các bạn giúp mik với ai làm nhanh mik cho TLHN

Tả quang cảnh sân trường trong giờ ra chơi.Trong đó có sử dụng 3 câu nhân hóa và 1-2 câu so sánh. NO COPY. OK.

Giúp em với ạ, cảm ơn mọi người rất nhiều 🥺❤

young people in Britain have a meal "in a restaurant "once or twice a month ( viết câu hỏi cho từ đã gạch chân

Helllllllppppppplp🔊🔊🔊🔊😟😟😟😟😟😫😫😨😨😨😨😱😱

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến