、装球：设有N个盒子（N足够大,可装入任何数量的球）,分别编号1,2,….同时有K个小球（K>0）,今将K个小球装入到盒

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/22 20:46:47

、装球：设有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表示小球个数）之后,求出满足上述四个条件的装入方法.
[算法描述]：设计一个数组A：ARRAY[1..N] OF INTEGER,用数组元素代表盒子然后依次装入小球.[程序]：PROGRAM EXP3（INPUT,OUTPUT）； CONST N=20；
VAR I,J,K,L：INTEGER；
A ：ARRAY[1..N] OF INTEGER； BEGIN
READLN（k）； ⑥ J：=1；
WHILE ⑦ DO BEGIN A（J）：=J； ⑧ ：J：=J+1 END； L：=j-1;
WHILE k>0 DO BEGIN
⑨ ：K：=K-1：L：=L-1 END；
FOR I：=1 TO ⑩ DO WRITE（A[I]：4） END.

PROGRAM EXP3(INPUT,OUTPUT);
CONST N=20;
VAR I,J,K,L:INTEGER;
  A:ARRAY[1..N] OF INTEGER;
BEGIN
  READLN(k);
  //这里不知要填什么
  J:=1;

  WHILE  k>=0 DO
    BEGIN
      A[J]:=J;
      k:=k-j;
      J:=J+1;
    END;

  L:=j-1;
  a[l]:=a[l]+k;  //这里补充了好几句
  k:=a[l];
  a[l]:=0;
  l:=l-1;

  WHILE  k>0 DO
    BEGIN
      a[l]:=a[l]+1;
      K:=K-1;
      L:=L-1;
    END;

  FOR I:=1 TO  N DO  //这里没有合适的变量可填,只好填N了,全部显示.
      WRITE(A[I]:4)
  END.

实在看不懂你给的那个程序到底什么思路,只好另编了,所以程序和原来的有点变化.按别人的思路编程的难度远超按自己的思路编.

将10个相同的小球装入编号为1、2、3的三个盒子中（每次要把10个小球装完），要求每个盒子里小球的个数不小于盒子的编号数现将1000个小球装入100个盒子中，其中任何10个盒子的球数之和不能超过190，则一个盒子中最多能有小球（　　）排列组合难题!将7个相同的小球任意装入编号分别为1~7的7个盒子中,共有几种不同的分装方法?提示：7个小球可以全装入一 N个小球标号1到n 分别放在编号1到N的盒子里,一个盒子一个 ,要求小球的编号不能和所放入盒子的编号相同求有多少种 k个盒子中装有n个球,编号为1,2,...,n,从每个盒子中取一球,计算所得到的k个球中最大编号为m的概率（1≤m≤n 概率求期望的问题将n个球随机的丢入编号为1,2,……,k的k个盒子中,试求没有球的盒子的个数X的数学期望要求：写出过程排列组合问题：有q个完全相同的小球放k个盒子,有多少种放法? 数学…可重组合 1、n个相同小球放入r个盒子（可空）的放法数?2、不限个数的n种球中选出r个球的组合数?3、不定方程X1 有有理数-3,0.1,-（-1.5）,2,0,π,1/3,-8,有理数m个,自然数n个,分数k个,m-n-k的值为什么答 M个球装入N个盒子,有多少装法有标号1～n的n个盒子,每个盒子中都有m个白球k个黑球.从第一个盒子中取一个球放入第二个盒子,再从第二个盒子任取一球放入排列组合练习题将n+1个不同的小球放入n个不同的盒子中,要求每个盒子都不空,共有多少种放法（用三种办法解答）