ich bin gerade dabei mich auf meine mündliche Informatikprüfung vorzubereiten. Als Thema wurde unter anderem Selectionsort genannt (denke mal, ihr wisst damit was anzufangen :
Das Prinzip hab ich total verstanden und auch die Prinzipielle Umsetzung.
Meine Frage ist jetzt nur:
Welcher Quelltext wäre richtig?
Es geht um folgende drei Zeilen:
Code: Alles auswählen
Temp:=Feld[min];                               	
Feld[min]:=Feld[i];                             	
Feld[i]:=Temp;  1)
Code: Alles auswählen
Procedure SelectionSort(var Feld :Array of Integer); 	 
	var i, j, Temp, Min: integer;                                       	  
	Begin                                                                          	
		For i:=Low(Feld) to High(Feld) do                 	
		Begin                                                               	
			Min:=i;                                                 	
			For j:=i+1 to High(Feld) do  
         begin                	
				IF Feld[j] < Feld[min] then      	   
					Min:=j;  
         end; 	                       	                    
			Temp:=Feld[min];                               	
			Feld[min]:=Feld[i];                             	
			Feld[i]:=Temp;  				                               
		End;							
	End;	
 Code: Alles auswählen
Procedure SelectionSort(var Feld :Array of Integer); 	 
	var i, j, Temp, Min: integer;                                       	  
	Begin                                                                          	
		For i:=Low(Feld) to High(Feld) do                 	
		Begin                                                               	
			Min:=i;                                                 	
			For j:=i+1 to High(Feld) do
         begin                 	
				IF Feld[j] < Feld[min] then      	   
					Min:=j;                         	                    
			   Temp:=Feld[min];                               	
			   Feld[min]:=Feld[i];                             	
			   Feld[i]:=Temp; 
         end; 				                               
		End;							
	End;	
 Code: Alles auswählen
Procedure SelectionSort(var Feld :Array of Integer); 	 
	var i, j, Temp, Min: integer;                                       	  
	Begin                                                                          	
		For i:=Low(Feld) to High(Feld) do                 	
		Begin                                                               	
			Min:=i;                                                 	
			For j:=i+1 to High(Feld) do  
				IF Feld[j] < Feld[min] then
                begin
			               Min:=j;                         	                    
			               Temp:=Feld[min];                               	
			               Feld[min]:=Feld[i];                             	
			               Feld[i]:=Temp;  	
                end;			                               
		End;							
	End;	
 Code: Alles auswählen
			For j:=i+1 to High(Feld) do  
         begin                	
				IF Feld[j] < Feld[min] then      	   
					Min:=j;  
         end; Code: Alles auswählen
			For j:=i+1 to High(Feld) do             	
				IF Feld[j] < Feld[min] then      	   
					Min:=j;   
Grüße
Tim


 ) sie korrigieren musste, weil ihr Programm nicht funktioniert hat!
 ) sie korrigieren musste, weil ihr Programm nicht funktioniert hat!  Deshalb habe ich mir halt selber noch mal Gedanken darüber gemacht, bin aber eher daran verzweifelt...
  Deshalb habe ich mir halt selber noch mal Gedanken darüber gemacht, bin aber eher daran verzweifelt...  Verein
Verein 
 Links
Links Suche
Suche