Begin typing your search above and press return to search. Press Esc to cancel.

Contoh Program Pascal Penghitungan Faktorial




CONTOH PERHITUNGAN FAKTORIAL 

Program Faktorial;

Uses    Crt;

Var
        angka,nilai,I       : Longint;

Begin
Clrscr;
   Writeln ('Masukkan angka yang akan di faktorialkan : ');
   Read    (angka);
   nilai := 1;
        If (angka <= 0) then
           Writeln ('Inputan salah')
        Else
     Begin

             for I := 1 to angka do
             nilai := nilai * I;
             Writeln (angka,' = ',nilai);
     End;
        Readln  ();
   Readln();
End.

SEMOGA BERMANFAAT

TERIMAH KASIH TELAH MENGUNJUNGI APOTIK-ILMU

    1 comment:

    1. Kalau misalnya program untuk menghitung jumlah beberapa faktorial gimana? Contohnya 3!+5!+8! dst nya gitu, bingung.. Tolong bantuannya T_T

      ReplyDelete