PROGRAM FAKTORIAL

Berikut ini adalah source codenya :

uses wincrt;

function Faktorial(z:integer):longint;

begin

     if (z=1) then

        Faktorial := 1

     else

        Faktorial := z*faktorial(z-1);

end;

var

   x:integer;

   lagi:char;

begin

     repeat

     clrscr;

     writeln('*** PROGRAM HITUNG FAKTORIAL ***');

     writeln('==================================');

     writeln;

     write('Berapa faktorial ? ');readln(x);

     writeln(x,' ! ','= ',faktorial(x));

     writeln;

     write('Lagi ......[Y/T]');lagi:=upcase(readkey);

     writeln(lagi);

     until lagi <> 'Y';

end.