mencari nilai faktorial. N!

faktorrial.jpg 

program tampilkanprima;
uses wincrt;

var i,jumlah:integer;
    faktorial:longint ;

 begin
 GOTOXY(30,1);WRITELN(‘MENGHITUNG NILAI FAKTORIAL ‘);
GOTOXY(30,2);WRITELN(‘————————–‘);
gotoxy(1,3) ;write(‘masukan nilai faktorial:’);readln(jumlah);
   faktorial:=1;
   for i:= 1 to jumlah do
   faktorial:=faktorial*i;
 begin
  gotoxy(1,4);write(jumlah,’!=’);
  for i:= jumlah downto 1 do
    begin
      write(i,’x’);
    end;
 gotoxy(wherex-1,whereY);write(”);
  gotoxy(1,5);write(jumlah,’!=’,faktorial);
 end;
 end.

Iklan

One thought on “mencari nilai faktorial. N!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s