Minggu, 01 April 2012


program deret_bilangan_prima;
uses wincrt;
var i,temp:longint;
    s, x, a, n : longint;
    jml:integer;
function fakt (t : longint) : longint;
{funtion fakt untuk mengecek banyaknya faktorial dari suatu bilangan}
begin
 temp := 0;
  for i := 1 to t do if t mod i = 0 then inc (temp);
  fakt:= temp;
end;
  begin
  clrscr;
  writeln ('Deret Bilangan Prima');
  writeln ('--------------------------------------------');
  write ('Jumlah Bilangan Yang Ditampilkan Sebanyak : ');
  repeat
  readln(x);{meminta uses memasukkan jumlah deret bilangan}
  until (x>=2);{input harus >=2}
  writeln;  writeln; writeln ('Deret Bilangan Prima : '); writeln ('');
  a := 1; s := 0;
  repeat
   if fakt (a) = 2 then{jika banyk faktoriaal dari suatu bilangan adl 2 maka}
     begin
       write (a,', '); {cetak bilangan yg memp 2 faktorial}
       jml:=jml+a; inc (s);{hitung jumlah dari deret bilangan}
     end;
     inc (a); until (s = x);
   writeln; writeln('');
   write('Jika dijumlahkan, hasilnya : ',jml);{cetak jumlah}
  end.

Tidak ada komentar:

Poskan Komentar