UC知道求助-PASCAL题目10道
来源：百度知道 编辑：UC知道 时间：2024/06/18 07:29:44
1）20级台阶，每次走1阶或两阶，求共有多少种走法。
2）蛇形矩阵：N=5
1 2 6 7 15
3 5 8 14 16
4 9 13 17 22
10 12 18 21 23
11 19 29 24 25
3）统计某班50个人的成绩。包括学好、姓名、语文、数学、英语、总分、平均分、名次。
4）J例子问题（太长了，网上应该有，NOIP也有）
5）多项式求和。一元多项式加法：实现两个整形数一元多项式的加法。如：有多项式50+4*3-4*4+1与多项式50*2+4X+0*3，结果为5*6-7*4+4*3+50*2+4x+1
6）将N个红球和M个黄球排成一行。例如N=3,M=2可得到以下6种派发：红红黄黄 红黄红黄 红黄黄红 黄红红黄 黄红红黄 黄黄红红。问题：当n=4 m=3
时有多少种不同排法？
7）在书架上放有1，2，---n的n本书。现将N本书全部取下然后再放回去，当放回去时要求每本书都不能放在原来的位置上。N=4时有几种放法?
8)设有一棵K叉树，其中只有度为0和k两种节点，设N0,NK分别表示度为0和度为K的结点个数，试求出n0，nk之间的关系。
9）无限图G有16条边，有3个4度定点、4个3度定点，其余顶点的度均小于3，则G至少有（）个定点。
2）蛇形矩阵：N=5
1 2 6 7 15
3 5 8 14 16
4 9 13 17 22
10 12 18 21 23
11 19 29 24 25
3）统计某班50个人的成绩。包括学好、姓名、语文、数学、英语、总分、平均分、名次。
4）J例子问题（太长了，网上应该有，NOIP也有）
5）多项式求和。一元多项式加法：实现两个整形数一元多项式的加法。如：有多项式50+4*3-4*4+1与多项式50*2+4X+0*3，结果为5*6-7*4+4*3+50*2+4x+1
6）将N个红球和M个黄球排成一行。例如N=3,M=2可得到以下6种派发：红红黄黄 红黄红黄 红黄黄红 黄红红黄 黄红红黄 黄黄红红。问题：当n=4 m=3
时有多少种不同排法？
7）在书架上放有1，2，---n的n本书。现将N本书全部取下然后再放回去，当放回去时要求每本书都不能放在原来的位置上。N=4时有几种放法?
8)设有一棵K叉树，其中只有度为0和k两种节点，设N0,NK分别表示度为0和度为K的结点个数，试求出n0，nk之间的关系。
9）无限图G有16条边，有3个4度定点、4个3度定点，其余顶点的度均小于3，则G至少有（）个定点。
1）20级台阶，每次走1阶或两阶，求共有多少种走法。答案：
program taijie;
var i:integer;
a:array[1..20] of integer;
begin
a[1]:=1;a[2]:=2;
for i:=3 to 20 do
a[i]:=a[i-1]+a[i-2];
writeln(a[i]);
end.
2）蛇形矩阵 答案：
program l;
var a:array [1..20,1..20] of integer;
i,j,s,n:integer;
begin
readln(n);
s:=1;
for i:=1-n to n-1 do
if i<=0 then
begin
if (i+n) mod 2 = 1then
for j:=1 to i+n do
begin
a[i+n-j+1,j]:=s;
s:=s+1;
end
else
for j:=1 to i+n do
begin
a[j,i+n-j+1]:=s;
s:=s+1;
end;
end
else
begin
if (i+n) mod 2 = 1 then
for j:=1 to n-i do
begin
a[n+1-j,j+i]:=s;
s:=s+1;
end
else
for j:=1 to n-i do
begin
a[j+i,n+1-j]:=s;