Page 17 - inovasyon 21

Small Basic ile

yapabileceğiniz örnekler:

TextWindow.WriteLine (“Kaç kere İnovasyon Kültürü Dergisi
yazalım? :)”)
istek= TextWindow.Readnumber()
If ( istek >=1) Then
For i=1 To istek
TextWindow.WriteLine (“İnovasyon Kültürü Dergisi”)
EndFor
EndIf
Program.Delay(10000)
Program.End()

İlk iki satırda istek alınıyor. İstek eğer 1 ve 1’den fazla ise istek
kadar “İnovasyon Kültürü Dergisi” ekrana yazdırır. Program.delay
dediğimiz kısım ise programın 10 saniye süre ile açık olacağını
gösterir sonra kendisi kapanır.

TextWindow.writeLine(“90 derecelik bir üçgenin kenar ölçülerini
hesaplayalım”)
TextWindow.WriteLine(“90 derecenin karşısındaki kenarın
ölçüsünü biliyorsan 1e bilmiyorsan 2ye bas”)
secim=textwindow.ReadNumber()
If (secim=1) Then
TextWindow.writeLine(“1.kenar ölçüsünü giriniz”)
b= TextWindow.ReadNumber()
TextWindow.writeLine(“90 derecenin karşısındaki kenar
ölçüsünü giriniz”)
a= TextWindow.ReadNumber()
sonuc= Math.SquareRoot((a*a)-(b*b))
TextWindow.writeLine (“2. kenar ölçünüz=”+ sonuc)
endif
If (secim=2) Then
TextWindow.writeLine(“1.kenar ölçüsünü giriniz”)
c= TextWindow.ReadNumber()
TextWindow.writeLine(“2. kenar ölçüsünü giriniz”)
d= TextWindow.ReadNumber()
sonuc1= Math.SquareRoot((c*c)-(d*d))
TextWindow.writeLine (“90 derecenin karşısındaki kenar
ölçünüz=”+ sonuc1)
EndIf
Program.Delay(10000)
Program.End()

İNOVASYON KÜLTÜRÜ • 17