Wednesday, November 16, 2011

PROGRAM PASCAL FAKTORIAL BILANGAN DENGAN MENGGUNAKAN FUNCTION


PROGRAM BILANGAN_FAKTORIAL_FUNCTION;
USES WINCRT;
FUNCTION FAKTORIAL (B:INTEGER):INTEGER;
VAR I,HSL:INTEGER;
BEGIN
CLRSCR;
HSL:=1;
FOR I:=B DOWNTO 1 DO
HSL:=HSL*I;
FAKTORIAL:=HSL;
END;
{PROGRAM UTAMA}
VAR BIL,HASIL:INTEGER;
BEGIN
CLRSCR;
WRITE('INPUT BILANGAN : ');READLN(BIL);
HASIL:=FAKTORIAL(BIL);
WRITELN(BIL,'! = ',HASIL);
READLN;
END.

Categories:

0 comments:

Post a Comment

http://www.resepkuekeringku.com/2014/11/resep-donat-empuk-ala-dunkin-donut.html http://www.resepkuekeringku.com/2015/03/resep-kue-cubit-coklat-enak-dan-sederhana.html http://www.resepkuekeringku.com/2014/10/resep-donat-kentang-empuk-lembut-dan-enak.html http://www.resepkuekeringku.com/2014/07/resep-es-krim-goreng-coklat-kriuk-mudah-dan-sederhana-dengan-saus-strawberry.html http://www.resepkuekeringku.com/2014/06/resep-kue-es-krim-goreng-enak-dan-mudah.html http://www.resepkuekeringku.com/2014/09/resep-bolu-karamel-panggang-sarang-semut-lembut.html

Copyright © Catatan Anis Syarifah | Powered by Anis Syarifah