ngitung faktorial dengan manual????:(...lama......
ngitung faktorial pakai kalkulator?????
:(...sudah biasa.....
Ayo ngitung faktorial pakai Pascal !!!!
:)....kereennn.....
berikut ini,,,ada program faktorial dengan berbagai versi....
mau tau???
mau tau????
check it out !!!!
# Program Faktorial dengan Repeat - Until
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1; i:=0;
repeat
i:=i+1;
f:=f*i;
until i=n;
writeln(n, 'faktorial = ', f);
end.
tampilannya dalam TPW seperti berikut.
kalau di Run,,programnya akan jalan seperti ini....
# Program Faktorial dengan For,,,bagaimana ya....?
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
writeln(n, 'faktorial = ', f);
end.
ini tampilan saat di TPW...
setelah di run,,maka...
# Program Faktorial dengan While.....
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1;
while i<n do
begin
i:=i+1;
f:=f*i;
end;
writeln(n, 'faktorial = ', f);
end.
tampilannya di TPW yakni.....
dan kalau di run menjadi....
