Примери за посложени алгоритми и програми

Пример: Ова е пример на програма која прикажува анимација во вид на топче кое се одбива од границите на прозорецот и при секое одбивање ја менува бојата.

GraphicsWindow .Width =450

GraphicsWindow .Height =450

GraphicsWindow .PenWidth =10

For m=1 To 5

      For x=0 To 200 Step 10

         GraphicsWindow . PenColor ="red"

         GraphicsWindow . BackgroundColor ="green"

         GraphicsWindow .DrawEllipse (0+x,200+x,50,50)

         Program .Delay (50)

         GraphicsWindow . Clear ()

     EndFor

     For x=0 To 200 Step 10

         GraphicsWindow . PenColor ="black"

         GraphicsWindow . BackgroundColor ="green"

         GraphicsWindow .DrawEllipse (200+x,400-x,50,50)

         Program .Delay (50)

         GraphicsWindow . Clear ()

    EndFor

    For x=0 To 200 Step 10

         GraphicsWindow . PenColor ="blue"

         GraphicsWindow . BackgroundColor ="green"

        GraphicsWindow .DrawEllipse (400-x,200-x,50,50)

        Program .Delay (50)

        GraphicsWindow . Clear ()

    EndFor

    For x=0 To 200 Step 10

          GraphicsWindow . PenColor ="yellow"

          GraphicsWindow . BackgroundColor ="green"

          GraphicsWindow .DrawEllipse (200-x,x,50,50)

          Program .Delay (50)

          GraphicsWindow . Clear ()

    EndFor

EndFor

Задача: Внесете ја програмата во Small Basic, извршете ја и обидете се да промените нешто во неа за да добиете слика и анимација по ваша креација. Експериментирајте со боите, формите, брзината,...