作业帮 > 综合 > 作业

pascal数学一题有个数列n 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15f[n] 1 2

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/05 14:49:05
pascal数学一题
有个数列
n 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
f[n] 1 2 2 3 3 4 4 4 5 5 5 6 6 6 6
数列2的数字为x个,数列2就有x个数列2所对应的数列1的数字,并且数列2是从小到大排列的.
如:数列2的数字2对应数列1的2,那么数列2接着1后又2个2.
程序:输入n
求f[n]
说出解题方法
pascal数学一题有个数列n 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15f[n] 1 2
var a,f:array[1..1000] of integer;
begin
i:=i;
j:=1;
k:=1;
l:=1;
for i:=1 to 100 do
begin
a[i]:=i;
f[i]:=k;
j:=i mod 2;
if j=0 then k:=k+1;
for l:=k downto 1 do
begin
i:=i+1;
f[i]:=k;
end;
end;
end.