1樓：匿名使用者
一般認為，某數的的n次方的後k位，與該數的後k位有關，k位之前不影響就是12、122、的n次方的最後1位數，只與12中的2、122中的2有關
因此對整數n，求其最後k位的迴圈時，只要考慮n的後k位。
又認為，當尾數中第二次出現某值，則必從該值後即開始迴圈以下**用vbs實現，在windows系統中把**複製進空文字檔案，儲存改字尾名為vbs，可以雙擊執行
'*****====**開始*****===='撇號開頭的行是註釋
'僅用於實現.限於vbs的效能，在驗證很大的k時耗時極多'n,k的輸入值，沒有做輸入，可以手工修改'j是尋找迴圈尾數的旗標
'ws是儲存尾數的以逗號分隔的字串、並可分解為尾數陣列'ts是儲存某次冪尾數的字串
n = 2
k = 1
j = 1
ws = ""
ts = ""
'製造一個長度為k的字串，全部由0構成，用於補齊for i = 1 to k
w = w & "0"
next
'初始化時，也就是冪次為1時
n = cutw (n)
ws= addw (n)
'm專門用於乘方計算
m = n
do until j = 0
ts = ""
m = cutw (m*n)
ts = addw (m)
'判斷尾數ts是否已在ws中存在
if instr (ws,ts) thenws = ws & "," & ts
'存在，設定j值以退出迴圈
j = 0
else
ws = ws & "," & ts
j = j + 1
end if
loop
'將所有尾數字串分解為陣列
ws = split (ws,",")
for i = 0 to ubound (ws)'查詢迴圈開始的尾數，重複出現的尾數正位於陣列最後if ws (i) = ts then
'我的輸出方式
msgbox "尾數有迴圈，從第" & i+1 & "次方開始，最早於第" & ubound (ws) +1 & "次方出現重複，" & "最小迴圈長度為" & ubound (ws) - i
wscript.quit
end if
next
'函式cutw用於截斷獲得k位尾數
function cutw (p)
if len (p) > k then
cutw = right (p,k)
else
cutw = p
end if
end function
'函式addw用於補齊k位尾數
function addw (q)
if len (q) < k then
addw = right (w & q,k)else
addw = cutw (q)
end if
end function
'*****====**結束*****====
2010資訊學奧賽初賽試題及答案
一道資訊學奧賽題，要詳細過程，好的加分，今天之內必須給答案，晚了不給分啊
2樓：匿名使用者
這個其實就是最標準的單源最短路問題，這個有個極其簡單的做法。就說下floyed演算法首先讀入鄰接矩陣g( i, j )。表示從第i個車站到第j個車站的距離，不連通的就把距離設成一個非常大的數，比如0xfffffff。
當然也要注意由於道路是雙向的，g( j, i ) = g( i, j )準備工作完成，該開始dp了這裡的**太簡單了。。。推薦你背下來
for ( k = 1; k <= n; k++ )for ( i = 1; i <= n; i++ )}這個方程比較麻煩，就不寫了，複雜度是o(n^3)最後的最短路結果就是g[ 1 ][ n ]要求最少成車次數就把除了不連通的地方的權值都改成1，再進行一次floyed就可以了
對不起我沒注意- -
這樣的話可以構建一個新圖
把每條公交線路看成一個節點，把相交的公交線路連上一條邊，把起點和經過起點的線路相連（注意權值是1），終點和經過終點的線路相連（注意權值是0），兩條相交的公交線路權值設成1，這樣再做次floyed即可
3樓：
spfa演算法（最短路最佳演算法）
const maxp=10000;//最大結點數
var p,c,s,t:longint; //p是結點數；c是邊數；s是起點；t是終點
a,b:array[1..maxp,0..maxp]of longint;//a[x,y]存x，y之間邊的權；b[x,c]存於x相連的第c個邊的另一個結點y
d:array[1..maxp]of integer;//佇列
v:array[1..maxp]of boolean;//是否入隊的標記
dist:array[1..maxp]of longint;//到起點的最短路
head,tail:longint;//隊首、尾指標
procedure init;
var i,x,y,z:longint;
begin
read(p,c);
for i:=1 to c do
begin
readln(x,y,z);//x，y：一條邊的兩個結點； z：這條邊的權值
inc(b[x,0]); b[x,b[x,0]]:=y; a[x,y]:=z;//b[x,0]:以x為一個結點的邊的條數
inc(b[y,0]); b[y,b[y,0]]:=x; a[y,x]:=z;
end;
readln(s,t);//讀入起點與終點
end;
procedure spfa(s:longint);
var i,j,now,sum:longint;
begin
fillchar(d,sizeof(d),0);
fillchar(v,sizeof(v),false);
for j:=1 to p do dist[j]:=maxlongint;
dist[s]:=0; v[s]:=true; d[1]:=s;//佇列的初始狀態，s為起點
head:=1; tail:=1;
while head<=tail do//佇列不空
begin
now:=d[head];//取隊首元素
for i:=1 to b[now,0] do
if dist[b[now,i]]>dist[now]+a[now,b[now,i]] then
begin
dist[b[now,i]]:=dist[now]+a[now,b[now,i]];//修改最短路
if not v[b[now,i]] then//拓展結點入隊
begin
inc(tail);
d[tail]:=b[now,i];
v[b[now,i]]:=true;
end;
end;
v[now]:=false;//釋放結點
inc(head);//出隊
end;
end;
procedure print;
begin
writeln(dist[t]);
end;
begin
init;
spfa(s);
print;
end.
4樓：孽角子
dijkstra演算法 求2點最短
生物資訊學的應用，生物資訊學主要研究什麼？
在疾病分類 標記物的選取等方面都有很好的應用前景。生物資訊學主要研究什麼？生物資訊學的主要是用不同的高大上的程式設計演算法 比如資料探勘 針對生物體內一些富含資訊的分子進行解析。生物體內富含資訊的分子最典型的莫過於攜帶遺傳資訊的dna rna和攜帶功能資訊 主要是免疫功能資訊 的蛋白質。因此對於dn...
有關生物資訊學和計算科學的問題
好多道題哦 我可以完成一些 聯絡 http www.liucheng.name 作業麼？四和五很簡單啊 b汗系統發生分析ms指某種生物 進化史吧.我給你舉個例子吧 比方說貓吧 貓科動物是源自遠古1100萬年的東南亞。其後，隨著海平面的起起落落，它們經過不斷的遷徙和繁殖，漸漸演變成現時的品種。大約90...
學習生物資訊學專業研究生，一般需要學哪些數學課程
不能籠統地說學數學，要有針對性的學生物中需要用到的。其實生物生物資訊 回學也很寬泛，要看你 答做哪些方面，要是做群體生物學或者基因 則需要很多數學的，例如t檢驗 f檢驗等，要是做蛋白質結構方面的數學很少用。但是基礎的微積分 線性代數 數值方法 離散數學 概率統計是要會的，再就是資料結構中的一些演算法...