Дасгал даалгавар

 Small basic программ дээр

Таван хошуу зураарай зурж сурцгаая.

x=50

y=200
Turtle.X=x

Turtle.Y=y

x1=x+30

y1=y-100

Turtle.MoveTo(x1,y1)

x1=x1+30

y1=y

Turtle.MoveTo(x1,y1)

x1=x-20

y1=y-70

Turtle.MoveTo(x1,y1)

x1=x+80

Turtle.MoveTo(x1,y1)

x1=50

y1=200

Turtle.MoveTo(x1,y1)

 Small basic программ дээр

Өнгөтэй дүрс хийх

   GraphicsWindow.KeyDown= k

  GraphicsWindow.Show()

  GraphicsWindow.PenColor= "black"

  GraphicsWindow.BackgroundColor="blue"

  Turtle.Speed=10

  angle = 12343

  squiral()

  Sub squiral

  side=0

  For i=1 To 360

  Turtle.Move(side)

  Turtle.Turn(angle)

  side=side+1

  EndFor

  EndSub

  Program.Delay(10)

  Sub k

  If (GraphicsWindow.LastKey="F1") Then

  Program.End()

  EndIf

  EndSub

Дараах дүрсийг зурах программ бичнэ үү.

Дүрсүүдийг зааврын дагуу зур

1.      График цонхны өнгө Gray/саарал,  урт  700, өргөн 500

2.      Шар өнгийн дугуй координат нь (50,50) урт нь100 өргөн нь 100 ногоон өнгийн 2 гурвалжин координат нь (80,400,270,400,175,300), (100,320,250,320,175,220) мөн brown/ бор өнгийн тэгш өнцөгт (150,400) урт нь 50 өргөн нь 100

3.      Бор өнгийн тэгш өнцөгт координат нь (280,470) урт нь 360 өргөн нь 30 цэнхэр өнгийн тэгш өнцөгт (310,270)урт нь 310 өргөн нь 200, улбар шар өнгийн гурвалжин координат нь (260,270,660,270,460,150)

4.      Хар өнгийн тэгш өнцөгт (530,150) урт нь 30 өргөн нь 80, ягаан/ purple өнгийн тэгш өнцөгт (340,330) урт нь 100 өргөн нь 140 цагаан  өнгийн тэгш өнцөгт (480,330) урт нь 100 өргөн нь100