Contoh Source Code Jumlah Deret Bahasa Pascal

program jumlah_deret;

uses crt;

var i,p,q,n,tanda,j:longint;

var S:real;

var simbol:string;

begin

     i:=1;

     j:=0;

     S:=0;

     write('masukkan jumlah n : ');read(n);

     while (i<=n) do

     begin

           if(i mod 2=1) then

           begin

          tanda:=1;

              simbol:='+';

           end;

           if(i mod 2=0) then

           begin

          tanda:=-1;

              simbol:='-';

           end;

    p:=i;

    q:=i+j;

    S:=S+(p / q*tanda);

    write(' ',simbol,' ',p,'/',q);

    i:=i+1;

    j:=j+1;

    end;

    writeln;

    writeln;

  writeln('s = ',S);

readkey();

end.