UC知道Pascal 问题，急！！！！！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/08 15:06:30
设有N个不同整数的数列：例如N=4时，有4个不同整数的数列为17，4，16，5。数列中的第1个数17，比它后面的三个数都大，则称数17的逆数为3。数列中的第2个数4比它后面的数都小，则称数4的逆数为0。同时记数列中全部逆数的和称为数列的逆数。上例中，数列17，4，16，5的逆数：为3+0+1+0=4。
[程序要求] 当给出N个不同整数的数列后，求出此数列的逆数
装球：设有n个盒子（n足够大，可装入任何数量的球），分别编号1，2，……。同时有k个小球（k>0），今将k 个小球装入到盒子中去。
装入规则如下：
（1） 第一个盒子不能为空。
（2） 装入必须严格按递增顺序进行。
例如，当k=8，n=6时，装入方法有1，2，5或1，3，4
（3） 在满足上面的两个条件下，要求有球的盒子尽可能多。
（4） 装完后，相邻盒子中球个数差的绝对值之和最小（未装的盒子不计）。
如上例中：
装入法1，2，5，则差的绝对值之和为2-1+5-2=4
装入法1，3，4，则差的绝对值之和为3-1+4-3=3
[程序要求] 给出k（k表示小球的个数）之后，求出满足上述四个条件的装入方法。
积木游戏：设有n 个小木块排成一排，如下图：
……
游戏开始时，每个小木块向下的一面涂有红、黄、蓝三种颜色之中的一种（约定：0表示红色，1表示黄色，2表示兰色）。要求通过翻看与交换方式对小木块重新排列（翻看的规则为每个小木快只能看一次），最终成为下面的形状：
…… …… ……
红 蓝 黄
即相同颜色的木块排列在一起，设计一个翻看与交换的方案，使得用最少的交换次数实现上面的要求。
写出对应计算如下算式的程序段
Y=ANXN+AN-1XN-1+……A1X+A0
[程序要求] 当给出N个不同整数的数列后，求出此数列的逆数
装球：设有n个盒子（n足够大，可装入任何数量的球），分别编号1，2，……。同时有k个小球（k>0），今将k 个小球装入到盒子中去。
装入规则如下：
（1） 第一个盒子不能为空。
（2） 装入必须严格按递增顺序进行。
例如，当k=8，n=6时，装入方法有1，2，5或1，3，4
（3） 在满足上面的两个条件下，要求有球的盒子尽可能多。
（4） 装完后，相邻盒子中球个数差的绝对值之和最小（未装的盒子不计）。
如上例中：
装入法1，2，5，则差的绝对值之和为2-1+5-2=4
装入法1，3，4，则差的绝对值之和为3-1+4-3=3
[程序要求] 给出k（k表示小球的个数）之后，求出满足上述四个条件的装入方法。
积木游戏：设有n 个小木块排成一排，如下图：
……
游戏开始时，每个小木块向下的一面涂有红、黄、蓝三种颜色之中的一种（约定：0表示红色，1表示黄色，2表示兰色）。要求通过翻看与交换方式对小木块重新排列（翻看的规则为每个小木快只能看一次），最终成为下面的形状：
…… …… ……
红 蓝 黄
即相同颜色的木块排列在一起，设计一个翻看与交换的方案，使得用最少的交换次数实现上面的要求。
写出对应计算如下算式的程序段
Y=ANXN+AN-1XN-1+……A1X+A0
装球:PROGRAM EXP3（INPUT，OUTPUT）；
CONST N=20；
VAR I，J，K，L：INTEGER；
A ：ARRAY[1..N] OF INTEGER；
BEGIN
READLN（k）；
A[1]:=1;
J：=1；
WHILE K-J>=0 DO
BEGIN
A（J）：=J； K:=K-J ：J：=J+1
END；
L：=j-1;
WHILE k>0 DO
BEGIN
A[L]:=A[L]+1 ：K：=K-1：L：=L-1
END；
FOR I：=1 TO L DO
WRITE（A[I]：4）
END.
题太多了~~
要问PASCAL 加QQ353371737
没看懂………………