Algoritma dan Pascal Formula S

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)

          

Bentuk Algoritma Formula/Rumus S

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 :

input/output

Posted in : Algoritma, Pascal