Friday, July 5, 2013

Program Pascal Menentukan Suku ke-N dari 3,5,15,19,..........

program Suku_ke_N;
var
  N : integer;

Procedure Isi_N(var N : integer);
begin
  writeln('Menentukan Suku ke-N dari 3,5,15,19,..');
  writeln('--------------------------------------');
  write('Masukan Harga N : ');readln(N);
end;
Function Suku(N : integer) : integer;
begin
  if(N = 1)
    then
      Suku := 3
    else
     begin
       if(N mod 2 = 1)  {suku yg ganjil}
        then
          Suku := Suku(N-1) * N
        else
          Suku := Suku(N-1) + N;
     end;
end;
Procedure Tampil_Suku(N : integer);
begin
  write('Suku ke-',N,' adalah ', Suku(N));
end;
begin
  Isi_N(N);
  Tampil_Suku(N);
  readln;
end.

0 comments: