Friday 13 June 2014

Berusaha mencetak deret dengan menggunakan bahasa pemrograman SMALL BASIC

1. Mencetak deret ganjil versi 1
textwindow.Write("Tentukan dari: ")
dari = TextWindow.Read()
TextWindow.Write("Tentukan sampai: ")
sampai = TextWindow.Read()
cetak:
TextWindow.WriteLine(dari)
dari=dari + 2
If dari <= sampai Then
  Goto cetak
Else
EndIf

2. Mencetak deret ganjil versi 2
TextWindow.WriteLine("Dari : ")
dari = TextWindow.Read()
TextWindow.WriteLine("Jumlah : ")
jumlah = TextWindow.Read()
cetak:
TextWindow.Write(dari + ", ")
jumlah = jumlah - 1
If jumlah >= 0 Then
  dari = dari + 2
  Goto cetak
Else
EndIf

2.1 Mencetak deret ganjil versi 2 dengan pengamanan input angka 'dari' dari pemasukan bilangan genap.
TextWindow.WriteLine("Dari : ")
dari = TextWindow.Read()
TextWindow.WriteLine("Jumlah : ")
jumlah = TextWindow.Read()
If Math.Remainder(dari,2) = 0 Then
  TextWindow.WriteLine("Maaf, angka 'dari' anda adalah bilangan genap")
else
cetak:
TextWindow.Write(dari + ", ")
jumlah = jumlah - 1
If jumlah >= 0 Then
  dari = dari + 2
  Goto cetak
Else
EndIf
EndIf

No comments:

Post a Comment