algoritma program factorial

1.            1! + 2! +3!...n!

Penyelesaian :

Program faktoriaaaaal ;

Uses wincrt ;

Prosedure factorial ( var,n, jum : longint) :

Var

I : integer ;

 Begin

     Hasil :=1 ;

    For I :=2 ; To m Do Hasil := Hasil *I;

End ;

Var

   N, fak  : integer ;

Begin

    Write (‘ mau menghitung factorial berapa ?’) ; readln (n) ;

Factorial (n,fak) ;

Writeln ;

Writeln(n,’  factorial =’,fak) ;

Var

I,n,jum : longint;

Begin

Write ;

Writeln ;(akan menjumlahkan sampai bilangan berapa ?’);

Jum:=0 ;

For I := n do

Begin

Write  (I,’+’) ;

Jum :=jum +I ;

End ;

Writeln (‘=’,jum) ;

End .

2.    2! +4! +6!...n!

Penyelesaian  :

Program faktoriaaaaal ;

Uses wincrt ;

           Prosedure factorial ( var, n,jum: longint) :

Var

I : integer ;

 Begin

     Hasil :=1 ;

    For I :=2 ; To m Do Hasil := Hasil *I;

End ;

Var

   N, fak  : integer ;

Begin

    Write (‘ mau menghitung factorial berapa ?’) ; readln (n) ;

Factorial (n,fak) ;

Writeln ;

Writeln(n,’  factorial =’,fak) ;

End ;

Var

I,n,: integer ;

Jum : real ;

Begin

I  :=0 ;

N :=0 ;

Write (‘n=’), readln (n) ;

Write I <> n do

  I :=I +1 ;

 N :=x +2 ;

Jum:= jum +x  ;

Write (x) ;

If I <> n then     write (‘+’) ;end if ;

End while ;

Write (‘=’, jum) ;

End .

3.    1! +3! +5!...n!

Penyelesaian :

Program faktoriaaaaal ;

Uses wincrt

Prosedure factorial ( var, n,jum : longint) :

Var

I : integer ;

 Begin

     Hasil :=1 ;

    For I :=2 ; To m Do Hasil := Hasil *I;

End ;

Var

   N, fak  : integer ;

Begin

    Write (‘ mau menghitung factorial berapa ?’) ; readln (n) ;

Factorial (n,fak) ;

Writeln ;

Writeln(n,’  factorial =’,fak) ;

End ;

Var

 I,n : integer;

Jum : real ;

Begin

I := 0 ;

N:=  0 ;             

Write (‘n =’) ,readln (n) :

Repeat

 Begin

I :=I +1 ;

N := x +1;

Jum := jum +x ;

Write (x) ;

  If I <> n then write (‘+’) ;end  if

End ;

  Until I = n ;

Write (‘=’, jum) ;

End .

4. f = A! + B!

             AB! * C!

        Penyelesaian :

Program faktoriaaaaal ;

Uses wincrt ;

Prosedure factorial ( var, n,jum : longint ;

Var

I : integer ;

 Begin

     Hasil :=1 ;

    For I :=2 ; To m Do Hasil := Hasil *I;

End ;

Var

   N, fak  : integer ;

Begin

    Write (‘ mau menghitung factorial berapa ?’) ; readln (n) ;

Factorial (n,fak) ;

Writeln ;

Writeln(n,’  factorial =’,fak) ;

End ;

Prosedur uji coba ;

 F,A,B,C : real ;

Begin

Read (a)

Read (b)

Read ( c)

  F :=( (a) +(b)   / (ab) *(c) )

Write f

End .

5. Z = D! – C!+ DC

                C!

          

        Penyelesaian :

Program faktoriaaaaal ;

Uses wincrt ;

Prosedure factorial ( var, n,jum : longint) :

Var

I : integer ;

 Begin

Prosedur  uji coba ;

 Z,D,C, : real ;

Begin

Read (D)

Read (C)

  Z :=( (D) -(C)  +(DC) / (C) )

Write Z

End .