loading...

Pascal :: Menghitung Faktorial

Script berikut akan melakukan perhitungan faktorial dari bilangan yang diinputkan, silahkan dicoba sendiri.

program Faktorial;
uses wincrt;
procedure faktorial (var fak, hasil : integer);
var
i:integer;
begin
hasil := 1;
for i := 2 to fak do
hasil := Hasil * i;
End;
Var
N,Hasil_fak:integer;
Begin
Write ('Nilai yang akan difaktorialkan = '); Readln (N);
Faktorial (N,Hasil_Fak); Writeln;
Writeln ('Hasil Faktorial = ',Hasil_fak);
End.

3 Responses to Pascal :: Menghitung Faktorial

  1. ANONIMOUS says:

    ko kalo diinput 8 dst hasilnya minus ya?
    tapi kalo diinput 1-7 hasilnya benar…

  2. fitry says:

    kok tidak bisa ya

  3. … [Trackback]

    […] Find More on|Find More|Read More Infos here|There you will find 72989 more Infos|Informations on that Topic: blog.loksado.com/pascal-menghitung-faktorial […]

Mari berdiskusi dengan santun...