Program Pascal Faktorial
Baca Juga
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.
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 :
 |
| Program Pascal Faktorial |
Bagi Yang Mau Download silahkan download di link dibawah ini via ziddu.
Ok, saya rasa cukup gitu aja and selamat belajar pascal.
0 Response to "Program Pascal Faktorial"
Post a Comment