• Der Benutzer darf Startkoordinaten eingeben, die sich innerhalb des Feldes befinden.
  
• An der Startkoordinate wird im Feld die Ziffer 9 eingetragen.
  
• Jetzt geht's los: um die Startkoordinate herum werden ebenfalls alle Felder gefüllt. Dabei dürfen die Unterschiede benachbarter Felder nur um 1 kleiner sein als 9. Also ist sie 8 oder 9. 9 ist die größte Ziffer. 10 darf also nicht eingetragen werden.
  
• Ob die Ziffer kleiner, gleich oder größer ist, soll für jeden Eintrag per Zufall festgelegt werden.
  
• Nachdem alle Felder um die Startkoordinate gefüllt sind, wird mit dem angrenzenden Feldern genauso verfahren.
  

SeedRnd MilliSecs()

Const maxx=20
Const maxy=16

Type tfeld 
	Field x
	Field y
	Field wert
End Type 

startx=Input(\"Start X (1-\"+maxx+\") : \")
starty=Input(\"Start Y (1-\"+maxy+\") : \")
modus=Input(\"Modus ( 0 = rand(-1,0) / 1 = rand(-1,1) ) : \")
startx=startx-1
starty=starty-1

If startx<0 Or starty<0 Or startx>=maxx Or starty>=maxy Or modus<0 Or modus>1 Then Print \"Auch DU, mein Sohn, mußt dich an Regeln halten!!!\":FlushKeys():WaitKey():End 

Dim arr(maxx-1,maxy-1)

create_feld(startx,starty,9)

For feld.Tfeld=Each Tfeld
	For x=feld\x-1 To feld\x+1
		For y=feld\y-1 To feld\y+1
			If x>=0 And y>=0 And x<maxx And y<maxy Then 
				If arr(x,y)=0 Then 
					count=0
					Repeat
						count=count+1
						wert=feld\wert+Rand(-1,modus)
						If wert>9 Then wert=9
						If wert<0 Then wert=0
						found=False 
						For xx=x-1 To x+1
							For yy=y-1 To y+1
								If xx>=0 And yy>=0 And xx<maxx And yy<maxy Then 
									If arr(xx,yy)<>0 Then 
										If Abs(arr(xx,yy)-wert)>1 Then found=True 
									End If 
								End If 
							Next
						Next 	
						If count>100 Then 
							DebugLog \"tried 100 times, giving up... failure somewhere...\"
							found=False
						End If 
					Until found=False 			
					create_feld(x,y,wert)
				End If 
			End If 	
		Next
	Next 
	Delete feld
Next 

Print:Print \"Ergebnis \":Print 

For y=0 To maxy-1
	s$=\"\"
	For x=0 To maxx-1
		s$=s$+arr(x,y)+\" \"
	Next
	Print s$
Next 

Print:Print \"Taste drücken -> Aufgabe 2\"
FlushKeys()
WaitKey()
Cls
Locate 0,0
Print \"Ergebnis \":Print
Dim arr2(maxx/2-1,maxy/2-1)
For x=0 To maxx-1 Step 2
	For y=0 To maxy-1 Step 2
		wert=Int(Float(arr(x,y)+arr(x+1,y)+arr(x,y+1)+arr(x+1,y+1))/4)
		arr2((x+2)/2-1,(y+2)/2-1)=wert
	Next
Next 

For y=0 To maxy/2-1
	s$=\"\"
	For x=0 To maxx/2-1
		s$=s$+arr2(x,y)+\" \"
	Next
	Print s$
Next 

Print:Print \"Das wars ... Prost\"

FlushKeys()
WaitKey()
End 

Function create_feld.Tfeld(x,y,wert)
	feld.Tfeld=New Tfeld
	feld\x=x
	feld\y=y
	feld\wert=wert
	arr(x,y)=wert
	Return feld
End Function