Scripting:BinarySearch - Versionsgeschichte

Newacct am 21. April 2011 um 18:38 Uhr

2011-04-21T18:38:05Z

? Nächstältere Version		Version vom 21. April 2011, 18:38 Uhr
Zeile 29:		Zeile 29:
	function BinarySearch(ByRef a as array, aSe as integer) as integer {		function BinarySearch(ByRef a as array, aSe as integer) as integer {
	var aG as integer;		var aG as integer;
-	~~var aL as integer = a.Length;~~
	var p1 as integer=0;		var p1 as integer=0;
-	var p2 as integer=~~aL;~~	+	var p2 as integer = a.Length;
-	~~var c as integer=0~~;	+

-	While(~~true~~){	+	While(p1<p2){
	aG=(p1+p2)/2;		aG=(p1+p2)/2;
-	if(a[aG]<aSe){p1=aG;}	+	if(a[aG]<aSe){p1=aG+1;}
	if(a[aG]>aSe){p2=aG;}		if(a[aG]>aSe){p2=aG;}
	if(a[aG]=aSe){return aG}		if(a[aG]=aSe){return aG}
-
-	~~if(c>aL){return -1}~~
-	~~c++;~~
	}		}

Jelandria: Kategorie und Menue ergänzt

2006-05-20T07:01:12Z

Kategorie und Menue ergänzt

? Nächstältere Version		Version vom 20. Mai 2006, 07:01 Uhr
Zeile 1:		Zeile 1:
		+	{{Scriptingmenue}}
		+
	=Der BinarySearch=		=Der BinarySearch=

Zeile 19:		Zeile 21:
	Sollte die gesuchte Zahl <b>nicht gefunden</b> werden, ist <b>SpeicherVariable</b> nach der Verarbeitung <b>-1</b>!		Sollte die gesuchte Zahl <b>nicht gefunden</b> werden, ist <b>SpeicherVariable</b> nach der Verarbeitung <b>-1</b>!

-	<b>~~Hinweiß~~:</b> Es wurde ein Workarround benötigt, da das Vergleichen der Ausdrücke zum Entwicklungszeitpunkt nur einzeln und mit <b>"<"</b> sowie <b>">"</b> möglich war!	+	<b>Hinweis:</b> Es wurde ein Workarround benötigt, da das Vergleichen der Ausdrücke zum Entwicklungszeitpunkt nur einzeln und mit <b>"<"</b> sowie <b>">"</b> möglich war!

	==Der Algorythmus==		==Der Algorythmus==
Zeile 96:		Zeile 98:

	MFG Proximo		MFG Proximo
-		+	<br>
-	[[Kategorie:~~Scripting~~\|BinarySearch]]	+	<br>
		+	[[Kategorie:Methoden\|BinarySearch]]

Arakis: /* Der ultimative Test */

2006-05-18T06:52:56Z

Der ultimative Test

? Nächstältere Version		Version vom 18. Mai 2006, 06:52 Uhr
Zeile 65:		Zeile 65:
	}		}
	WriteLine(' ');		WriteLine(' ');
-		+
	aSearch = 39		aSearch = 39

Arakis: /* Der ultimative Test */

2006-05-18T06:52:43Z

Der ultimative Test

? Nächstältere Version		Version vom 18. Mai 2006, 06:52 Uhr
Zeile 52:		Zeile 52:
	var aSearch as integer = 29;		var aSearch as integer = 29;
	var aGoal as integer = 0;		var aGoal as integer = 0;
		+
	WriteLine(' ');		WriteLine(' ');
		+
	WriteLine('Suche nach Zahl ' & aSearch & '...');		WriteLine('Suche nach Zahl ' & aSearch & '...');
	aGoal = BinarySearch(arr, aSearch);		aGoal = BinarySearch(arr, aSearch);
		+
	if(aGoal<0){		if(aGoal<0){
	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich nicht im angegebenen Array!');		WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich nicht im angegebenen Array!');
Zeile 62:		Zeile 65:
	}		}
	WriteLine(' ');		WriteLine(' ');
		+
	aSearch = 39		aSearch = 39
		+
	WriteLine('Suche nach Zahl ' & aSearch & '...');		WriteLine('Suche nach Zahl ' & aSearch & '...');
	aGoal = BinarySearch(arr, aSearch);		aGoal = BinarySearch(arr, aSearch);
		+
	if(aGoal<0){		if(aGoal<0){
	WriteLine('Die gesuchte Zahl befindet sich nicht im angegebenen Array!');		WriteLine('Die gesuchte Zahl befindet sich nicht im angegebenen Array!');

Arakis: /* Der Algorythmus */

2006-05-18T06:52:33Z

Der Algorythmus

? Nächstältere Version		Version vom 18. Mai 2006, 06:52 Uhr
Zeile 31:		Zeile 31:
	var p2 as integer=aL;		var p2 as integer=aL;
	var c as integer=0;		var c as integer=0;
		+
	While(true){		While(true){
	aG=(p1+p2)/2;		aG=(p1+p2)/2;

Arakis: /* Der ultimative Test */

2006-05-18T06:51:33Z

Der ultimative Test

? Nächstältere Version		Version vom 18. Mai 2006, 06:51 Uhr
Zeile 48:		Zeile 48:
	Um den Suchalgorythmus zu testen, könnt ihr beispielsweise folgendes schreiben:		Um den Suchalgorythmus zu testen, könnt ihr beispielsweise folgendes schreiben:

-	~~var aLenght as int32 = 10;~~	+	var arr[] as integer = { 2, 9, 14, 16, 39, 48, 52, 70, 89, 94 };
-	var arr[~~aLenght~~] as ~~int32~~ = { 2, 9, 14, 16, 39, 48, 52, 70, 89, 94 };	+	var aSearch as integer = 29;
-	var aSearch as ~~int32~~ = 29;	+	var aGoal as integer = 0;
-	var aGoal as ~~int32~~ = 0;	+	WriteLine(' ');
-		+	WriteLine('Suche nach Zahl ' & aSearch & '...');
-	WriteLine(' ');	+	aGoal = BinarySearch(arr, aSearch);
-		+	if(aGoal<0){
-	WriteLine('Suche nach Zahl ' & aSearch & '...');	+	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich nicht im angegebenen Array!');
-	BinarySearch(arr~~,aLenght~~,aSearch~~,aGoal~~);	+	}
-		+	else {
-	if(aGoal<0){	+	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich an Position ' & aGoal & '!');
-	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich nicht im angegebenen Array!');	+	}
-	}	+	WriteLine(' ');
-	else {	+	aSearch = 39
-	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich an Position ' & aGoal & '!');	+	WriteLine('Suche nach Zahl ' & aSearch & '...');
-	}	+	aGoal = BinarySearch(arr, aSearch);
-	WriteLine(' ');	+	if(aGoal<0){
-		+	WriteLine('Die gesuchte Zahl befindet sich nicht im angegebenen Array!');
-	aSearch = 39	+	}
-		+	else {
-	WriteLine('Suche nach Zahl ' & aSearch & '...');	+	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich an Position ' & aGoal & '!');
-	BinarySearch(arr~~,aLenght~~,aSearch~~,aGoal~~);	+	}
-		+	WriteLine(' ');
-	if(aGoal<0){	+
-	WriteLine('Die gesuchte Zahl befindet sich nicht im angegebenen Array!');	+
-	}	+
-	else {	+
-	WriteLine('Die gesuchte Zahl ' & aSearch & ' befindet sich an Position ' & aGoal & '!');	+
-	}	+
-	WriteLine(' ');	+

	==Der Erfolg==		==Der Erfolg==

Arakis: /* Der Algorythmus */

2006-05-18T06:51:00Z

Der Algorythmus

? Nächstältere Version		Version vom 18. Mai 2006, 06:51 Uhr
Zeile 31:		Zeile 31:
	var p2 as integer=aL;		var p2 as integer=aL;
	var c as integer=0;		var c as integer=0;
-
	While(true){		While(true){
	aG=(p1+p2)/2;		aG=(p1+p2)/2;

Arakis: /* Der Algorythmus */ Optimiert

2006-05-18T06:50:47Z

Der Algorythmus: Optimiert

? Nächstältere Version		Version vom 18. Mai 2006, 06:50 Uhr
Zeile 25:		Zeile 25:
	Der ganze Algorythmus ist als Methode verwirklicht worden. Dies ermöglicht die unveränderte übernahme des Quellcodes, siehe unten.		Der ganze Algorythmus ist als Methode verwirklicht worden. Dies ermöglicht die unveränderte übernahme des Quellcodes, siehe unten.

-	~~Sub~~ BinarySearch(ByRef a as ~~int32, aL as int32~~, aSe as ~~int32, ByRef aG~~ as ~~int32)~~{	+	function BinarySearch(ByRef a as array, aSe as integer) as integer {
-	var p1 as ~~int32~~=0;	+	var aG as integer;
-	var p2 as ~~int32~~=aL;	+	var aL as integer = a.Length;
-	var b as ~~boolean~~=~~true~~;	+	var p1 as integer=0;
-	var c as ~~int32~~=0;	+	var p2 as integer=aL;
-		+	var c as integer=0;
-	While(b){	+
-	aG=(p1+p2)/2;	+	While(true){
-	if(a[aG]<aSe){p1=aG;}	+	aG=(p1+p2)/2;
-	if(a[aG]>aSe){p2=aG;}	+	if(a[aG]<aSe){p1=aG;}
-	if((a[aG]~~+1)>~~aSe){	+	if(a[aG]>aSe){p2=aG;}
-	~~if((a[~~aG~~]-1)<aSe){b=false;}~~}	+	if(a[aG]=aSe){return aG}
-	if(c>aL){~~b=false;aG=~~-1;}	+
-	c++;	+	if(c>aL){return -1}
-	}	+	c++;
	}		}
		+
		+	return -1;
		+	}

	==Der ultimative Test==		==Der ultimative Test==

Proximo Colonies am 17. Mai 2006 um 22:45 Uhr

2006-05-17T22:45:19Z

? Nächstältere Version		Version vom 17. Mai 2006, 22:45 Uhr
Zeile 95:		Zeile 95:
	MFG Proximo		MFG Proximo

-	[[Kategorie:Scripting\|~~HowTo~~]]	+	[[Kategorie:Scripting\|BinarySearch]]

Proximo Colonies am 17. Mai 2006 um 22:44 Uhr

2006-05-17T22:44:45Z

? Nächstältere Version		Version vom 17. Mai 2006, 22:44 Uhr
Zeile 94:		Zeile 94:

	MFG Proximo		MFG Proximo
		+
		+	[[Kategorie:Scripting\|HowTo]]