兩個簡單的帕斯卡問題

我剛才做了這個話題 77 是乙個經典的約瑟夫問題，在演算法設計中非常有名，猴子選擇國王，數字用密碼報告，狐狸追兔子是它的變體。

猴子選出國王：

program y5_6;

varn,m,s,f,t:integer;

a:array[1..100] of boolean;

beginreadln(n);

m:=3;for t:= 1 to n doa[t]:=false;

f:=0; t:=0; s:=0;

repeat

t:=t+1;

if t=n+1 then t:=1;

if a[t]=false then s:=s+1;

if s=m then

begins:=0;

a[t]:=true;

f:=f+1;

end;until

f=n-2;

for t:=1 to n do

if not(a[t]) then

beginwrite(t);

exit;end;

end.狐狸追兔子：

program y5_7;

var i,j:integer;

a:array[0..9] of integer;

beginfor i:= 0 to 9 do a[i]:=1;

j:=0;for i:= 1 to 1000 do beginj:=(j+i) mod 10 ;

a[j]:=0;

end;for i:= 1 to 9 do if a[i]=1 then write(i:3);

if a[0]=1 then write(' 10');

end.

1 當然是第乙個，他總是數 1

例如，一開始，10,000元是每月利息。

然後第乙個月過後，由於每月的利息，你一共欠銀行10000*（1+元），然後你付了元，還欠了元。

第2個月：由於每月拖欠利息。

如果再交一元，你還欠著元。

等等。 到了第十個月，大約$的欠款幾乎為0，所以每月的付款是。

我的想法：用二分法來做。

左邊界 右邊界 Middlem=（L+R） 2如果 m 滿足條件，則 L=M，否則 R=M，直到 l 和 r 之間的間隙在邊界內，如果你不直接問我。

月數是指你要在幾個月內還款，月數*月利息是你要支付的利息，加上貸款金額是10,000; 除以月數，即為月供;

如果你願意**，只需告訴我你的電子郵件，我會把它發給你。