ini script nya
program kombinasi;
uses crt;
var a,c,i,j,k,m,n,o,p,r,x,y,z: longint;
ul: string;
begin
clrscr;
write('masukkan nilai n nya= '); readln(n);
write('masukkan nilai r nya= '); readln(r);
if n>r then
begin
a:=n-r;
x:=1;
y:=1;
z:=1;
for i:=n downto 1 do begin
m:=x*i;
x:=m;
end;
for j:=r downto 1 do begin
o:=y*j;
y:=o;
end;
for k:=a downto 1 do begin
p:=z*k;
z:=p;
end;
c:=m div (o*p);
write('hasilnya= ',c);
end
else
writeln('nilai r yang anda masukkan lebih besar daripada n nya');
readln;
end.
ini screenshotnya
mohon maaf apabila ada kekurangan. :D
Tidak ada komentar:
Posting Komentar