Algoritma dan Program Pascal untuk menghitung :
S = 1 - 2/3 + 3/5 - 4/7 + ...
Sebelum kita membuat Algoritma dan Program diatas, maka terlebih dahulu kita tentukan POLA yang digunakan oleh Deret S tersebut. Adapun pola yang digunakan oleh Deret S diatas adalah :
S = i / (2i-1)
misal :
- i = 1 --> S = 1/(2.1-1) --> S = 1/1
- i = 2 --> S = 2/(2.2-1) --> S = 2/3
- i = 3 --> S = 3/(2.3-1) --> S = 3/5
- . . .
- i = n --> S = i / (2.i-1) --> S = i / (2i-1)
Algoritma formulas {I.S : diinputkan satu bilangan oleh user} {F.S : menampilkan hasil perhitungan rumus S} Deklarasi: i : integer n : integer s : real Algoritma: input(n) s <- 0 for i <- 1 to n do if i mod 2 = 1 then s <- s+(i/(2*i-1)) else s <- s-(i/(2*i-1)) endif endfor output('S = ',s:0:2)
Bentuk Pascal Formula/Rumus S
program formulas; uses crt; var i : integer; n : integer; s : real; begin write('Masukkan Banyak Deret Pecahan : '); readln(n); writeln(); s := 0; for i:=1 to n do begin if i mod 2 = 1 then s:=s+(i/(2*i-1)) else s:=s-(i/(2*i-1)); end; writeln(); write('S = ',s:0:2); readkey(); end.
Screenshot :