random post algoritma program basic menentukan jumlah deret geometri

5 print "|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"
10 print "vvvvvvvvvvvvvvvvvvMenentukan Jumlah Deret Geometrivvvvvvvvvvvvvvvvvv"
15 print "|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"
17 print
20 print "Program ini adalah untuk menghitung deret geometri jika diketahui "
25 print "suku pertama, rasio, dan n dari suatu deret geometri. Selamat Mencoba!  "
28 print
30 input "              Apakah n deret geometri adalah tak hingga? (y/n) ";takhingga$
35 print
40 if takhingga$ = "y" then gosub 80
50 if takhingga$ = "n" then gosub 100
60 end

80 input "                      masukkan nilai suku pertama (a) = ";a
82 print
83 input "                      masukkan nilai rasio (r)        = ";r
85 S = a/(1-r)
87 print
89 print "                      maka deret geometri n tak hingga untuk a = ";a;" dan r = ";r;" yaitu ";S
90 return

100 input "                     masukkan nilai suku pertama (a) = ";a
105 print
115 input "                     masukkan nilai rasio (r)        = ";r
117 print
120 input "                     ingin mencari deret geometri untuk n ke berapa ? = ";n
123 print
125 print

135 if r<1 a=";a;" adalah="" bilangan="" dan="" deret="" geometri="" maka="" n="" nbsp="" p="" print="" r=";r;" s="a*((1-r)^n)/(1-r):" then="" untuk="">
150 if r>1 then S = a*((r^n)-1)/(r-1): print "                       Maka deret geometri ";n;" bilangan untuk a = ";a;" dan r = ";r;" adalah ";S

170 return