TextWindow.ForegroundColor = “Yellow”

TextWindow.WriteLine (“Merhaba Dünya!”)

TextWindow.WriteLine(“Adınızı yazınız: “)

ad=TextWindow.Read()

TextWindow.Write(“Bir sayı yazınız: “)
sayi= TextWindow.Read()
kontrol = Math.Remainder(sayi,2)
If kontrol = 0 Then
TextWindow.WriteLine(” Sayınız çift sayıdır”)
EndIf
If kontrol = 1 Then
TextWindow.WriteLine(” Sayınız tek sayıdır”)
EndIf

TextWindow.Write(“Yaşınızı yazınız: “)
yas= TextWindow.Read()
If yas> 17 Then
TextWindow.WriteLine(“Reşit Bireysiniz”)
Else
TextWindow.WriteLine(“Henüz Reşit Değilseiniz”)
EndIf

TextWindow.WriteLine(“Ağırlık giriniz”)
kilogrammer=TextWindow.Read()
pound=(kilogrammer*2.205)
If pound>50 Then
TextWindow.WriteLine(“Ayy! Çok ağır!”)
EndIf
If pound<=50 Then
TextWindow.WriteLine(“Hafif”)
EndIf

TextWindow.Write(“Bir sayı yazınız: “)
sayi= TextWindow.Read()
If sayi > 0 Then
TextWindow.WriteLine(“Sayınız Pozitif”)
ElseIf sayi < 0 then
TextWindow.WriteLine(“Sayınız negatif”)
Else
TextWindow.WriteLine(“Sayınız 0”)
EndIf

B = Math.GetRandomNumber(100)
C=0
start:
TextWindow.WriteLine(“Sayıyı bul!”)
A = TextWindow.Read()
C = C+1
If A=B Then
TextWindow.WriteLine(“Sayıyı ” + C + ” Denemede buldun!”)
EndIf
If A<>B Then
TextWindow.WriteLine(“Yanlış!”)
If A>B Then
TextWindow.WriteLine(“Büyük!”)
EndIf
If A<B Then
TextWindow.WriteLine(“Küçük!”)
EndIf
Goto start
EndIf

TextWindow.WriteLine(“1. Sınav notu gir!”)
sayı1= TextWindow.Read()
TextWindow.WriteLine(“2. Sınav notu gir!”)
sayı2= TextWindow.Read()
TextWindow.WriteLine(“Sözlü notu gir”)
sözlü= TextWindow.Read()
o = (sayı1+sayı2+sözlü)/3
If o < 45 Then
TextWindow.WriteLine(“Geçemedin! 1! Ortalamanız şudur: ” + o)
EndIf
If o >= 45 And o < 55 Then
TextWindow.WriteLine(“Daha çok çalış ama fena değil! 2! Ortalamanız şudur: ” + o)
EndIf
If o >= 55 And o < 70 Then
TextWindow.WriteLine(“Notun ortalarda, daha çok çalışırsan başarırsın! 3! Ortalamanız şudur: “+o)
EndIf
If o >= 70 And o < 85 Then
TextWindow.WriteLine(“İyi! 4! Ortalamanız şudur: “+ o)
EndIf
If o >= 85 Then
TextWindow.WriteLine(“BRAVO!!! 5! Ortalamanız şudur: ” + o)
EndIf

sayaç = 0
start:
While sayaç <5
TextWindow.WriteLine(“Sayı gir”)
sayı= TextWindow.Read()
read = Math.Remainder(sayı,2)
If read = 1 Then
TextWindow.WriteLine(“Tek”)
sayaç=sayaç+1
EndIf
If read = 0 Then
TextWindow.WriteLine(“Çift”)
sayaç=sayaç+1
EndIf
Goto start
EndWhile

TextWindow.WriteLine(“Yaz”)
sayı = TextWindow.Read()
start:
sayı=sayı/2
TextWindow.WriteLine(sayı)
If sayı<2 Then
TextWindow.WriteLine(“Bitti”)
Goto a
EndIf
Goto start
a:

Klavyeden yazılan 10 sayıyı toplayan program

For i = 1 To 10 Step 1
TextWindow.WriteLine(“Yaz”)
n = TextWindow.ReadNumber()
a = a+n
EndFor
TextWindow.WriteLine(“Yazdığın sayıların toplamı: ” + a)

TextWindow.WriteLine(“Yaz”)
n = TextWindow.ReadNumber()
For i = 1 To n Step 1
TextWindow.WriteLine(i)
a = a+i
EndFor
TextWindow.WriteLine(“E Toplam: ” + a)

TextWindow.WriteLine(“Yaz”)
n = TextWindow.ReadNumber()
For i = 1 To 10 Step 1
TextWindow.WriteLine(“Yaz”)
c = TextWindow.ReadNumber()
If c<n Then
n=c
EndIf
EndFor
TextWindow.WriteLine(“En küçük sayı: ” +n)

TextWindow.WriteLine(“Yaz”)
a = TextWindow.ReadNumber()
b = 0
c= 0
For e=1 To a Step 1
b=b+1
d = Math.Remainder(a,b)
If d = 0 Then
c=(a/b)+c
EndIf
EndFor
If c = a *2 Then
TextWindow.WriteLine(“Sayi mükemmel bir sayidir”)
Else
TextWindow.WriteLine(“Sayi mükemmel bir sayi değildir”)
EndIf

GraphicsWindow.PenWidth = 10
Spor = “:3 Spor”
GraphicsWindow.PenColor = “Yellow”
GraphicsWindow.BackgroundColor = “Magenta”
GraphicsWindow.Title = “ilk graphic pencerem”
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.DrawText(380,290, Spor)
For a = 10 To 20
GraphicsWindow.DrawLine(0,b,800,b)
GraphicsWindow.PenWidth = a+1
b=b+60
EndFor

GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.PenWidth = 10
GraphicsWindow.PenColor = “Black”
GraphicsWindow.DrawEllipse(250,170,300,300)
GraphicsWindow.BrushColor = “Yellow”
GraphicsWindow.FillEllipse(250,170,300,300)
GraphicsWindow.BrushColor = “Red”
GraphicsWindow.FillEllipse(350,270,100,100)
GraphicsWindow.BrushColor = “Yellow”
GraphicsWindow.DrawBoundText(375,300,50,”Osman”)
GraphicsWindow.DrawBoundText(375,325,75,”USTA👑”)

GraphicsWindow.BackgroundColor = “Black”
rows = 7
columns = 7
size = 50
For r = 1 To rows
For c = 1 To columns
GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
boxes [r][c] = Shapes.AddEllipse(size,size)
Shapes.Move(boxes [r][c], c * size, r* size)
Program.Delay(50)
EndFor
EndFor
For r = 1 To rows
For c = 1 To columns
Shapes.Animate(boxes [r][c],0,0,1000)
Program.Delay(50)
EndFor
EndFor

Turtle.Speed = 10
Turtle.Show()
Turtle.PenDown()
For a = 1 To 6 Step 1
Turtle.Turn(60)
For i = 1 To 100 Step 1
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(1)
EndFor
EndFor

GraphicsWindow.BackgroundColor = “Black”
GraphicsWindow.PenWidth = 10
GraphicsWindow.MouseMove=Tıklama
x2=GraphicsWindow.MouseX
y2=GraphicsWindow.MouseY
Sub Tıklama
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY
If (Mouse.IsLeftButtonDown) Then
GraphicsWindow.DrawLine(x2,y2,x,y)
EndIf
x2=x
y2=y
EndSub

zaman=0
GraphicsWindow.BackgroundColor=”Maroon”
cubuk = Shapes.AddRectangle(120,12)
top = Shapes.AddEllipse(16,16)
GraphicsWindow.MouseMove=fare
x=0
y=0
kordinatx=1
kordinaty=1
döngü:
x=x+kordinatx
y=y+kordinaty
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x>=gw-16 Or x <= 0) Then
kordinatx = -kordinatx
EndIf
If (y<=0) Then
kordinaty = -kordinaty
EndIf
padx = Shapes.GetLeft(cubuk)
If (y=gh-20 And x>= padx And x <= padx +120) Then
kordinaty = -kordinaty
EndIf
Shapes.Move(top,x,y)
Program.Delay(1)
zaman=zaman+0.015
If (y<gh) Then
Goto döngü
EndIf
GraphicsWindow.ShowMessage(zaman,”Sonuç”)
Sub Fare
cubukx = GraphicsWindow.MouseX
Shapes.Move(cubuk, cubukx – 60,GraphicsWindow.Height-12)
EndSub

Klavyeden Z veya konsoldan A tuşuna basarak yarışabilirsiniz!