Hab es doch hinbekommen, hat mir keine ruhe gelassen. Hab zwar nicht die Points sortiert, aber richtig geadded. Zwar unschön, aber gelößt. Bin mal auf die weiteren Lösungen gespannt.
Spoiler anzeigen
VB.NET-Quellcode
- Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
- pList = New List(Of Point)
- For i = -1000 To 0
- For ii = -1000 To 0
- Dim res As Integer = CInt(i ^ 2 + ii ^ 2)
- If res > 490 And res < 510 Then
- pList.Add(New Point(i + 100, ii + 100))
- End If
- Next
- Next
- For i = 0 To 1000
- For ii = -1000 To 0
- Dim res As Integer = CInt(i ^ 2 + ii ^ 2)
- If res > 490 And res < 510 Then
- pList.Add(New Point(i + 100, ii + 100))
- End If
- Next
- Next
- For i = 1000 To 0 Step -1
- For ii = -0 To 1000
- Dim res As Integer = CInt(i ^ 2 + ii ^ 2)
- If res > 490 And res < 510 Then
- pList.Add(New Point(i + 100, ii + 100))
- End If
- Next
- Next
- For i = 0 To -1000 Step -1
- For ii = 1000 To 0 Step -1
- Dim res As Integer = CInt(i ^ 2 + ii ^ 2)
- If res > 490 And res < 510 Then
- pList.Add(New Point(i + 100, ii + 100))
- End If
- Next
- Next
- e.Graphics.DrawPolygon(Pens.Black, pList.ToArray)
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Derfuhr“ ()