Дасгал

Хичээл 2 Дасгал даалгавар 

Бодлого1. а,b,c тоонуудын ихийг олж хэвлэх алгоритм болон small basic хэл дээр программыг бичнэ үү.

TextWindow.Write("a=")

a= TextWindow.ReadNumber()

TextWindow.Write("b=")

b= TextWindow.ReadNumber()

TextWindow.Write("c=")

c= TextWindow.ReadNumber()

If (a>b) Then

  max=a

  Else

    max=b

  EndIf

    If (a>c) Then

      max=a

    Else

      max=c

EndIf

 TextWindow.WriteLine("ih too="+max)

Бодлого2. а,b,c тоонуудын багыг олж хэвлэх алгоритм болон small basic хэл дээр программыг бичнэ үү.

TextWindow.Write("a=")

a= TextWindow.ReadNumber()

TextWindow.Write("b=")

b= TextWindow.ReadNumber()

TextWindow.Write("c=")

c= TextWindow.ReadNumber()

If (a<b) Then

  min=a

  Else

    min=b

  EndIf

    If (a<c) Then

      min=a

    Else

      min=c

EndIf

 TextWindow.WriteLine("baga too="+min)

Бодлого3: Өгөгдсөн 3 тооны нийлбэрийн кубыг олох программ.

TextWindow.Write("A toogoo oruulna uu=")

a=textwindow.ReadNumber()

TextWindow.Write("B toogoo oruulna uu=")

b=textwindow.ReadNumber()

TextWindow.Write("C toogoo oruulna uu=")

c=textwindow.ReadNumber()

u=(a+b+c)*(a+b+c)*(a+b+c)

TextWindow.WriteLine("3 toonii niilberiiin kyb="+u)

Хичээл 3 Дасгал даалгавар 

Бодлого 1 Ахан хээ зурах 

GraphicsWindow.Title = "Alkhan khee"

GraphicsWindow.Width = 750

GraphicsWindow.Height = 200

GraphicsWindow.PenColor = "Blue"

GraphicsWindow.PenWidth = 5

x = 10

y = 100

n = 30

For i = 1 to 8

OneKhee()

endFor

Sub OneKhee

GraphicsWindow.DrawLine(x, y, x+n, y)

x = x+n

GraphicsWindow.DrawLine(x, y, x, y-n)

y = y-n

GraphicsWindow.DrawLine(x, y, x-n, y)

x=x-n

GraphicsWindow.DrawLine(x, y, x, y-n)

y = y - n

GraphicsWindow.DrawLine(x, y, x+2*n, y)

x = x + 2 * n

GraphicsWindow.DrawLine(x, y, x, y+2*n)

y=y+2*n

GraphicsWindow.DrawLine(x, y, x+n, y)

x = x+n

EndSub