Program Pascal Faktorial
Kali ini aku akan membagikan aktivitas faktorial pascal. aktivitas ini dibentuk dengan perulangan (looping) dengan sedikit modifikasi dan pengaturan dan juga sebagai wangsit bagi teman untuk terus berguru pemrograman komputer,hehhehehe. pribadi aja cek script aktivitas pascal ini dan silahkan dipelajari serta dipahami. hahahhaa….
aktivitas 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 aktivitas menyerupai ini :
 |
| Program Pascal Faktorial |
Bagi Yang Mau Download silahkan download di link dibawah ini via ziddu.
Download Program Pascal Faktorial Gratis via ziddu
Ok, aku rasa cukup gitu aja and selamat berguru pascal.
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
