明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

9連環(huán)游戲算法遞歸完成

發(fā)表時間：2024-02-13 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]///////////////////////////////////////////////功能：計算九連環(huán)游戲中取下第n個環(huán)需要幾步//整個游戲所需步數(shù)=取下第1個環(huán)所需步數(shù)+...+取下第9個環(huán)所需步數(shù)//實現(xiàn)方法：通過遞歸模擬取環(huán)動作//語言：pascal//時間：1999-05//作者E...
/////////////////////////////////////////////
//功能：計算九連環(huán)游戲中取下第n個環(huán)需要幾步
//整個游戲所需步數(shù)=取下第1個環(huán)所需步數(shù)+...+取下第9個環(huán)所需步數(shù)
//實現(xiàn)方法：通過遞歸模擬取環(huán)動作
//語言：pascal
//時間：1999-05
//作者E-mail:sendtowxd@163.net
//源碼天地-專業(yè)提供Delphi,VB,VC源碼  http://www.codesky.net
////////////////////////////////////////////

program jlh(input,output);
  VAR
    k,s,i,j,total:integer;

  PROCEDURE move(n:integer;VAR s:integer);
    VAR
      j,i:integer;
   BEGIN
    IF (n=1) OR (n=2)
      THEN s:=s+1
      ELSE BEGIN
             FOR i:=1 TO n-2 DO
               move(i,s);
               s:=s+1;
             FOR j:=1 TO n-2 DO
               move(j,s)
           END
   END;

  BEGIN
    k:=0;
    write('input total=');
    read(total);
    move(total,k);
    writeln;
    writeln('s=',k)
  END.