Minggu, 03 Juni 2012

bahasa pemograman pascal faktor prime bilangan bulat


program Faktor_Prime_Bilangan_Bulat ;
uses crt;
label   Ulang;
var     p, q, N : integer ;
begin
        clrscr ;
        readln(N);
        p:=2 ;
        q:=1 ;
        ulang :
        if N MOD p <> 0 then
        begin
             p := p+q ;
             q := 2 ;
             Goto ulang;
        end
        else
        begin
             write(p,' = faktor prima');
             readln;
             N:= N div p ;
             if N = 1 then readln
             else Goto ulang ;
        end ;
End.

Tidak ada komentar:

Posting Komentar