Alhamdulillahirobbil'alamin
Program kedua Algorima & Pemrograman II Selesai
1. Screen Shot Program
 |
| Gambar 1.1 Menu awal program setelah di run, input nilai faktorial. |
 |
| Gambar 1.2 Kemudian setelah ditekan enter muncul hasil faktorial. |
2. Source Code Program
Program FaktRek;
Uses crt;
Function Fakt(N : integer) : longint;
begin
if N = 0 then
Fakt := 1
else
Fakt :=N*Fakt(N-1);
end;
Var angka, hasil : longint;
BEGIN
clrscr;
Writeln('Mencari
Nilai Faktorial');
Writeln('~~~~~~~~~~~~~~~~~~~~~~~');
Write('Nilai
Faktorial : ');readln(angka);
hasil:=Fakt(angka);
write('Hasil :
',hasil);
readkey;
END.
|
0 komentar :
Posting Komentar