Procedure IsNULL(*Memory.BYTE,len.l)
isnull=1
For I=0 To len-1 Step 1
If *Memory\b<>0
Isnull=0
EndIf
*Memory+1
Next I
ProcedureReturn isnull
EndProcedure
Procedure Div10(*Memory.BYTE,len.l)
*Memory+len
For I=0 To len-1 Step 1
*Memory-1
val=*Memory\b&$FF + rest*$100
nval = val/10
Rest=val-nval*10
*Memory\b=nval
Next I
ProcedureReturn rest
EndProcedure
;Wandelt jeden belieben Speicherbereich in eine dezimale Zahl um!
Procedure.s Num2Str(*Memory.BYTE,len.l)
*tmp=GlobalAlloc_(0,len)
If *tmp
CopyMemory(*Memory,*tmp,len)
While IsNULL(*tmp,len)=0
char.s= Str(Div10(*tmp,len))+char
Wend
GlobalFree_(*tmp)
EndIf
ProcedureReturn char
EndProcedure
Structure QWORD
low.l
high.l
EndStructure
;- Beispiel 1
QueryPerformanceFrequency_(frequency.QWORD)
InputRequester("QueryPerformanceFrequency_()","",Num2Str(@frequency.QWORD,8))
Laurin hat geschrieben:Ich hab exakt dasselbe Ergebnis wie Lukaso.
Ich auch
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Angenommen es gäbe einen Algorithmus mit imaginärer Laufzeit O(i * n), dann gilt O((i * n)^2) = O(-1 * n^2) d.h. wenn man diesen Algorithmus verschachtelt ist er fertig, bevor er angefangen hat.
