haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 初中教育 > 学科竞赛学科竞赛

数字排列列问题

发布时间:2013-12-18 11:35:55  

数字排列列问题

问题描述:要求求出所有从数字1到数字N的连续自然数的排列总数,要求所产生的任一数字序列中不允许出现重复的数字。

输入:N(1〈=N〈=9)

输出;由1—N组成的所有不重复的数字序列的总数。

样例:

输入3

输出6

参考程序:

var

a:array [1..100] of integer;

n,b:longint;

function try(k,i:integer):boolean;

var m:integer;

begin

m:=1;

while (m<k)and(i<>a[m]) do m:=m+1;

if m=k then try:=true

else try:=false

end;

procedure find(k:integer);

var i:integer;

begin

if k>n then b:=b+1

else for i:=1 to n do

if try(k,i) then

begin

a[k]:=i;

find(k+1)

end

end;

begin

assign(input,'1.in');

reset(input);

assign(output,'1.out');

rewrite(output);

readln(n);

b:=0;

find(1) ;

writeln(b);

end.

上一篇:我的中国心模板
下一篇:车厢重组
网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com