Program Faktorial;
Uses Wincrt;
Var i,n,x:integer;
Begin
Writeln('Program Faktorial');
Writeln('=================');
Writeln;
Write('Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
if (n<=0) then
Writeln('Hasil Faktorial: ',1)
else
Begin
x:=1;
For i := 1 to n do
x:=x*i;
Writeln('Hasil Faktorial: ',x);
End;
End.
-
MATERI PUBLIC SPEAKING Public speaking sangat penting bagi seorang pemimpin. Melalui public speaking , speaker diharapkan mampu me...
-
Bab ini didasarkan pada empat makalah yang mengartikulasikan landasan teoritis pengembangan sumber daya manusia. Keempat makalah tersebut ...
-
Kesempatan ini saya akan membahas mengenai masalah yang seringkali terjadi saat memakai Windows, terutama windows 7. Masalah itu tidak lai...
No comments:
Post a Comment
Luangkanlah waktu untuk berkomentar di blog ini. Berkomentarlah secara bijak( jangan SPAM). Komentar anda adalah suatu kebanggaan buat saya.