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
Kalau misalnya program untuk menghitung jumlah beberapa faktorial gimana? Contohnya 3!+5!+8! dst nya gitu, bingung.. Tolong bantuannya T_T
ReplyDelete