PureBasic Forums - English

Code: Select all

#NbElements = 6

Dim gevondenlijst.s(7,#NbElements)

gevondenlijst(0,1)="E "
gevondenlijst(0,2)="X "
gevondenlijst(0,3)="X "
gevondenlijst(0,4)="G "
gevondenlijst(0,5)="C "
gevondenlijst(0,6)="E "

gevondenlijst(1,1)="E "
gevondenlijst(1,2)="X "
gevondenlijst(1,3)="X "
gevondenlijst(1,4)="G "
gevondenlijst(1,5)="C "
gevondenlijst(1,6)="X "

gevondenlijst(2,1)="E "
gevondenlijst(2,2)="X "
gevondenlijst(2,3)="E "
gevondenlijst(2,4)="G "
gevondenlijst(2,5)="C "
gevondenlijst(2,6)="E "

gevondenlijst(3,1)="E "
gevondenlijst(3,2)="X "
gevondenlijst(3,3)="E "
gevondenlijst(3,4)="G "
gevondenlijst(3,5)="C "
gevondenlijst(3,6)="X "

gevondenlijst(4,1)="X "
gevondenlijst(4,2)="X "
gevondenlijst(4,3)="X "
gevondenlijst(4,4)="G "
gevondenlijst(4,5)="C "
gevondenlijst(4,6)="E "

gevondenlijst(5,1)="X "
gevondenlijst(5,2)="X "
gevondenlijst(5,3)="X "
gevondenlijst(5,4)="G "
gevondenlijst(5,5)="C "
gevondenlijst(5,6)="E "

gevondenlijst(6,1)="X "
gevondenlijst(6,2)="X "
gevondenlijst(6,3)="E "
gevondenlijst(6,4)="G "
gevondenlijst(6,5)="C "
gevondenlijst(6,6)="X "


OpenConsole()

For k=0 To #NbElements
  Print(gevondenlijst(k,1)+" "+ gevondenlijst(k,2)+" "+gevondenlijst(k,3)+" "+gevondenlijst(k,4)+" "+gevondenlijst(k,5)+" "+gevondenlijst(k,6))
  PrintN("")
Next

SortArray(gevondenlijst(), 2,0,6)

PrintN("")
PrintN("")

For k=0 To #NbElements
  Print(gevondenlijst(k,1)+" "+ gevondenlijst(k,2)+" "+gevondenlijst(k,3)+" "+gevondenlijst(k,4)+" "+gevondenlijst(k,5)+" "+gevondenlijst(k,6))
  PrintN("")
Next

MessageRequester("Information", "Sort finished !", 0)

End