Program Bilangan Prima
Bilangan Prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.
- program bilangan_prima;
- uses wincrt;
- var i,temp:longint;
- s, x, a, n : longint;
- jml:integer;
- function fakt (t : longint) : longint;
- 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);
- until (x>=2);
- writeln; writeln; writeln ('Deret Bilangan Prima : '); writeln ('');
- a := 1; s := 0;
- repeat
- if fakt (a) = 2 then
- begin
- write (a,', ');
- jml:=jml+a; inc (s);
- end;
- inc (a); until (s = x);
- writeln; writeln('');
- write('Jika dijumlahkan, hasilnya : ',jml);
- end.
screenshot output program
Semoga Bermanfaat.....
0 Comments
