Program Pascal Faktorial

Kali ini saya akan membagikan program faktorial pascal. program ini dibuat dengan perulangan (looping) dengan sedikit modifikasi dan pengaturan dan juga sebagai inspirasi bagi sobat untuk terus belajar pemrograman komputer,hehhehehe. langsung aja cek script program pascal ini dan silahkan dipelajari serta dipahami. hahahhaa....

program faktorial;
uses crt;
var
    a,b,c: longint;
begin
    clrscr;
    Writeln('      Program Faktorial         ');
    Writeln('       - - - - - - - - - -      ');
    writeln('Belajarcodingonline.blogspot.com');
    writeln;
    Write('Masukkan Angka Yang Ingin Dicari : '); readln(a);
    writeln;
    write('Hasil Dari ',a,'! = ');
    for b:=a downto 1 do
    if b=1 then write('1 = ')
    else
    write(b,' x ');
    c:=1;
    for b:=a downto 1 do
    c:= c*b;
    write(c);
    readln;
end.

Tampilan output program seperti ini :

Bagi Yang Mau Download silahkan download di link dibawah ini via ziddu.

Download Program Pascal Faktorial Gratis via ziddu

Ok, saya rasa cukup gitu aja and selamat belajar pascal.