数字排列问题(pascal)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;end;2:close(f2);;end.答案是对的,但1~8

来源：学生作业帮助网编辑：作业帮时间：2024/05/04 19:57:49

数字排列问题(pascal)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;end;2:close(f2);;end.答案是对的,但1~8
数字排列问题(pascal)
列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;
end;
2:close(f2);;
end.
答案是对的,但1~8能在1秒内输出,9需要十几秒,优化很久都不行,请帮忙改进一下我的代码（不要用其他算法,仅仅是优化我的代码）
2楼的,从哪粘的?我又没用过程.
1楼的,我之前用了过程,但结果少了很多,输入3的时候,只有3个（是用中学高级本上的过程描述）,请给我一个用过程的程序,
3楼的程序是行的,但大家能否将我的程序判重部分简化?经计算,那里耗时太长.

数字排列问题(pascal)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;end;2:close(f2);;end.答案是对的,但1~8
我想说的是,你的程序用了goto语句后就破坏了程序的协调性,难以对其进行优化,大牛的程序没有goto语句就是因为程序自顶向下的设计方式是最简单的,优化的话最好做个过程,用n个循环嵌套看看也不美观,对吧.

pascal数字排列问题列出所有数字从1到n的自然数排列,眼球所产生任意序列中不允许出现重复的数字输入：n（n 数字排列问题（pascal语言）列出所有从数字1到数字n的连续自然数的排列,要求所产生的任意数字序列中不允许出现重复的数字.1 数字排列问题(pascal)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;end;2:close(f2);;end.答案是对的,但1~8 1到6数字排列,列出所有可能组数字 pascal【问题描述】把n个数进行排列,会用许许多多不同的数字,请找出所有新数（表示后来排成的数）中的最大数.（不用一个个列出来算）【输入格式】输入仅两行.输入n,表示有n个数. Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数 matlab完全排列问题比如有1到9,列出所有排列的可能.怎么实现? 有重复元素的排列问题pascal 一个简单的ACM题目,求解给定一个小于10的数n,然后求一连串排列.这个数n有多大,排列就有多少位,从小到大排列出所有排列,但排列中任意两位的数字不能相同,并且排列中最小的数为1.例如：n=3 欧洲,亚洲,非洲,澳洲,美洲按面积从大到小排列列出具体数字数字1和2在六位数里面一共多少种排列,并列出所有组合,如图 PASCAL 排列数据每一行的数据项数 1 数字黑洞是这样一种现象：任意选一个四位数（数字不能全相同）,把所有数字从大到小排列,再把所有数字从小到大排列,用前者减去后者得到一个新的数.重复对新得到的数进行上述操作,7 步 turbo pascal的一道题：找出100到999之间的整数中所有等于它每位数字立方和的数 PASCAL语言找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和用pascal编写的一道题目.找出各位上数字之和为8,并且是素数的所有二位正整数之和,并输出这些数及其和.. 【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和. 数的拆分 pascal数的拆分（snumber.pas）【问题描述】对于正整数 n ,输出其和等于 n 且满足以下限制条件的所有正整数的和式,以及和式的总数.组成和式的数字自左至右构成一个非递增的序列.如