arrayii.pb

利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合入门学习使用.还请大家多多提出宝贵意见 Email:[e-mail] QQ:254082

;//////////////////////////////////
; Amlinger
;                   by 2008 02 12
;描述:多维数组
;目标:了解多维数组的使用
;//////////////////////////////////

;Dim 数组名(上标,[下标,下标...])
;列
#col =2 
;行
#row =2
#zzz =3
;定义一个2维数据
Dim multiArray2x2(#row,#col)
;multiArray2x2(0,0) multiArray2x2(0,1)
;multiArray2x2(1,0) multiArray2x2(1,1)
;
OpenConsole()
;
PrintN("一维数组结构图")
For mr2=0 To #row -1
For mc2=0 To #col -1
  Print(Str(multiArray2x2(mr2,mc2))+",")
Next
PrintN("")
Next

;定义一个3维数组
Dim multiArray2x2x2(#row,#row,#zzz)

PrintN("三维数组结构图")
For mr3=0 To #row -1
For mc3=0 To #col -1
Print("[")
For mz3=0 To #zzz -1
  Print(Str(multiArray2x2x2(mr3,mc3,mz3))+",")
Next mz3
Print("]")
Next mc3
PrintN(" ")
Next mr3

;同理还可以创建四维数组
;Dim multiArray2x2x2x2(2,2,2,2)
;还可以创建五维数组
;Dim multiArray2x2x2x2x2(2,2,2,2,2)
;数组有什么作用呢..
;在某种程序上可以起到置换的作用.
;以空间换取时间的作用.
;比如;
;你可以建立一个数组把 $0-$FFFF 的10进制结果放入其中
;然后...直接用 Array($f0f)这样的形式来获取结果 
;还是举个例子吧.顺便我也学习一下Array应用.
;初始化数组内容
;嘿嘿.这里我偷个懒,
;主要还不太会怎么对这个数组静态初始化.
;大家可以参考
;PureBasic网站上那个Guid的东西...嘿嘿.里面有如何初始化数组的样码
;当然也可手写了...
;Dec(0)="15" 这样..
;也可以,用脚本批量输出然后再COPY到程序代码中...
;比如执行Ex1的代码

Dim Dec.s(15) 
For i=0 To 15
Dec(i)=Str(i)
;ex1:
;PrintN("Dec("+Str(i)+")="+Chr(34)+Str(i)+Chr(34))
Next

Print(Dec($f))

CloseConsole()






; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 2
; Folding = -