Page 18 - inovasyon 21

Small Basic ile

yapabileceğiniz örnekler:

Yine çok basit bir 90 derecelik açı için kenar ölçüsü bulan program için,
a kare = b kare + c kare formülü kullanılmıştır.
En basiti hatta ilk program ortalama hesaplayan programdır :)

TextWindow.WriteLine(“1.sınav notunuzu giriniz”)
sinav1= TextWindow.ReadNumber()
TextWindow.WriteLine(“2.sınav notunuzu giriniz”)
sinav2= TextWindow.ReadNumber()
TextWindow.WriteLine(“3.sınav notunuzu giriniz”)
sinav3= textWindow.ReadNumber()
ortalama= (sinav1+sinav2+sinav3)/3
TextWindow.WriteLine(“ortalamanız=” + ortalama)
If (ortalama < 50) Then
GraphicsWindow.ShowMessage(“kaldınız”,”ortalama”)
EndIf
If (ortalama >= 50 and ortalama < 90) Then
GraphicsWindow.ShowMessage(“geçer”,”ortalama”)
EndIf
If (ortalama > 90) Then
GraphicsWindow.ShowMessage(“başarılı”,”ortalama”)
EndIf
Program.Delay(10000)
Program.End()

Bu programın ismine de stok sayan program dedim ancak siz bu
kodları kullanarak bambaşka programlar yazabilirsiniz...

stok=60
TextWindow.WriteLine(“nekadar harcama yapıldı=?”)
harcama1 = TextWindow.ReadNumber()
yeni_stok= (stok-harcama1)
TextWindow.WriteLine(“kalan stok sayısı=” + yeni_stok)
start:
If ( yeni_stok>0) Then
TextWindow.WriteLine(“nekadar harcama yapıldı=?”)
harcama2= TextWindow.ReadNumber()
yeni_stok= (yeni_stok-harcama2)
TextWindow.WriteLine(“kalan stok sayısı=” + yeni_stok)
Goto start
EndIf

18 • İNOVASYON KÜLTÜRÜ