Jawaban UTP Komdas 2010 (Part II)

Sebelumnya mohon maaf kalo tampilan agak kacaw cz buatnya tergesa-gesa. Tujuannya untuk membantu para praktikan yang mengalami kesulitan dalam mengerjakan soal. Untuk lebih jelasnya, silahkan ditanyakan pada waktu praktikum.

Untuk soal 1

var
  i,n:integer;
  sum,bilang,sebut:real;

begin
  Write('masukkan nilai n : ');
  readln(n);
  bilang:=0;
  sebut:=0;
  sum:=1;
  write('1');
  for i := 2 to n*2+1 do
  begin
    if i mod 4 = 0 then
      sebut:=i
    else if i mod 4 = 1 then
      bilang:=i
    else if i mod 4 = 2 then
      bilang:=i
    else
      sebut:=i;
    if (bilang <> 0) and (sebut <> 0) then
    begin
      sum:=sum + bilang/sebut;
      write(' + ',bilang:2:2,'/',sebut:2:2);
      bilang:=0;
      sebut:=0;
    end;
  end;
  write(' = ',sum:2:2);
  readln;
end.

Soal 2

var
  i,n:integer;
  sum,bagi:real;

begin
  Write('masukkan nilai n : ');
  readln(n);
  bagi:=1;
  sum:=1;
  write('1');
  for i := 1 to n do
  begin
    bagi:=bagi*n;
    sum:=sum + 1/bagi;
    write(' + 1/',bagi:2:2);
  end;
  write(' = ',sum:2:2);
  readln;
end.

Soal 3

var
  i,n:integer;
  sum,bilang,sebut:real;

begin
  Write('masukkan nilai n : ');
  readln(n);
  sum:=0;
  write('1');
  for i := 1 to n do
  begin
    bilang:=i*2;
    sebut:=i*2+1;
    if i mod 2 = 1 then
    begin
      sum:=sum-bilang/sebut;
      write(' - ',bilang:2:2,'/',sebut:2:2);
    end
    else
    begin
      sum:=sum+bilang/sebut;
      write(' + ',bilang:2:2,'/',sebut:2:2);
    end;
  end;
  write(' = ',sum:2:2);
  readln;
end.

Soal 4

var
  i,n:integer;
  sum,bagi:real;

begin
  Write('masukkan nilai n : ');
  readln(n);
  bagi:=1;
  sum:=0;
  write('1');
  for i := 2 to n do
  begin
    bagi:=bagi*i;
    sum:=sum + 1/bagi;
    write(' + 1/',i,'!');
  end;
  write(' = ',sum:2:2);
  readln;
end.

Thats all, =)