Sedikit berbagi tentang Program Pencarian Faktorial pada Pascal. program ini menggunakan Free Pascal. apabila tidak compile di aplikasi Anda, maka sesuaikan lah dengan ketentuan aplikasi yang Anda gunakan
Screenshot Program
Gambar 1. Tampilan awal program
Gambar 2. Tampilan ketika angka diinput
Gambar 3. Tampilan hasil perhitungan faktorial
Source Code
|
Program Faktorial;
uses crt;
var b : integer;
jawab : char;
Function
faktorial(a:integer):longint;
begin
if a=1
then faktorial:=1
else faktorial:=a*faktorial(a-1);
end;
Begin
repeat
clrscr;
gotoxy(27,1); writeln('>>>
Menghitung Faktorial <<<');
gotoxy(27,2); writeln('============================');
writeln;
write
('Angka Faktorial = ');
readln(b);
writeln(b,' Faktorial (',b,'!) =
',faktorial(b));
writeln;
write
('Mau coba lagi [Y/T] ? '); readln(jawab);
until upcase(jawab)='T';
readkey;
End.
|
Tidak ada komentar:
Posting Komentar