测试快乐指数,测试男女姓名配对指数
心理测试:你的笑容是发自内心吗
快乐是精神上的愉悦、心灵上的满足，它是抽象的，也是具体的。你的脸上是不是总有笑容？这个笑容是发自内心的吗？不妨先做个快乐指数测试，看看你是否真的快乐。
A．你的快乐多是受环境的影响，比如这月完成了业绩，拿了不少奖金。这说明你太累了，你需要学会快乐地生活和工作。
B．你有很强的虚荣心，正因如此，很多快乐才与你擦肩而过。（装出来的。）
C．你是真正快乐的人，遇事常抱乐观积极的心态。
D．你不够快乐，你总是需要别人的呵护。一旦发觉他人对你不够关心，你的情绪就会很低落（苦笑。）
exo上快乐大本营有测过帅气指数吗?
没有
你幸福吗?
知足者常乐，总说自己不幸福的人，只是身在福中不知福而已。 所以有人问我，我会说：我很幸福，有家人，有朋友，有爱人，虽然也会吵吵闹闹甚至大吵大闹，但是人无完人，正因为这样磨合，才会更加珍惜彼此之前的感情。所以我很幸福。
求此题FREE PASCAL源代码
树形动态规划经典例题之一：
首先找到树的根，记为root。
用f[i,1]表示选第i个人时以i为根的子树的最大欢乐度。f[i,0]表示不选i。
又上司不能和下属同选，则有
f[i,1]:=sigma(f[k,0])+happy[i]{If k is a son of i}
f[i,0]:=sigma(max(f[k,0],f[k,1])){If k is a son of i}
边界条件:如果i是叶子，则f[i,0]:=0;f[i,1]:=happy[i];
目标是max(f[root,1],f[root,0])
Var
n,root : Longint;
h,x,y,f,fn : Array [0..6000] of Longint;
use : Array [0..6000] of Boolean;
opt : Array [0..6000,0..1] of Longint;
Procedure Init;
var
i : Longint;
begin
readln(n);
for i:=1 to n do readln(h[i]);
for i:=1 to n-1 do readln(y[i],x[i]);
end;
Procedure Qsort(l,r:Longint);
var
a,b,mid,t : Longint;
begin
a:=l;b:=r;mid:=x[(l+r) shr 1];
repeat
while x[a]
if a<=b then
begin
t:=x[a];x[a]:=x[b];x[b]:=t;
t:=y[a];y[a]:=y[b];y[b]:=t;
inc(a);dec(b);
end;
until a>=b;
if a
Function DFS(x,st:Longint):Longint;
var
i,tmp : Longint;
begin
if opt[x,st]<>-1 then exit(opt[x,st]);
if fn[x]=0 then
begin
if st=1 then opt[x,1]:=h[x];
if st=0 then opt[x,0]:=0;
exit(opt[x,st]);
end;
tmp:=0;
if st=1 then
begin
inc(tmp,h[x]);
for i:=f[x] to f[x]+fn[x]-1 do
if not(use[y[i]]) then
begin
use[y[i]]:=True;
inc(tmp,Dfs(y[i],0));
use[y[i]]:=False;
end;
opt[x,st]:=tmp;
exit(tmp);
end;
if st=0 then
begin
for i:=f[x] to f[x]+fn[x]-1 do
if not(use[y[i]]) then
begin
use[y[i]]:=True;
if Dfs(y[i],0)>Dfs(y[i],1) then inc(tmp,Dfs(y[i],0)) else inc(tmp,Dfs(y[i],1));
use[y[i]]:=False;
end;
opt[x,st]:=tmp;
exit(tmp);
end;
end;
Procedure Main;
var
i : Longint;
begin
Qsort(1,n-1);
fillchar(fn,sizeof(fn),0);
for i:=n-1 downto 1 do inc(fn[y[i]]);
for i:=1 to n do
if fn[i]=0 then
begin
root:=i;
break;
end;
fillchar(fn,sizeof(fn),0);
for i:=n-1 downto 1 do
begin
f[x[i]]:=i;
inc(fn[x[i]]);
end;
end;
Procedure Print;
begin
fillchar(use,sizeof(use),False);
fillchar(opt,sizeof(opt),$ff);
use[root]:=True;
if Dfs(root,1)>Dfs(root,0) then writeln(Dfs(root,1)) else writeln(Dfs(root,0));
end;
Begin
Init;
Main;
Print;
End.
如何测定缘分指数
你好，在空间里找一个人搭讪，然后回答问题，看你们的共同答案的多少来测定。
我们俩的缘分指数有多高???
小运势还不错