ЛабМат3

1
Faktoriel[n_]:=Module[{prod=1},
For[i=1,i<=n,i++,prod*=i];
prod
]

2 (1)
Faktoriel[n_]:=Module[{prod=1},
For[i=1,i<=n,i++,prod*=i];
prod
]

Binom[n_,k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[k]*Faktoriel[n-k]);
rezultat
]

3 (2)
Binom[n_,k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[k]*Faktoriel[n-k]);
rezultat
]

Paskalov[n_]:=Module[{},
For[i=0,i<=n,i++,
red={};
For[j=0,j<=i,j++,AppendTo[red,Binom[i,j]]];
Print[red];
]
]

4 (1)
Faktoriel[n_]:=Module[{prod=1},
For[i=1,i<=n,i++,prod*=i];
prod
]

PermBezPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[n-k]);
rezultat
]

5
SitePermBezPovtNew[n_, k_]:=Module[{arr={},site={}},
For[i=1, i<=n, i++, AppendTo[arr, i]];
arr=KSubsets[arr,k];
For[i=1, i<Length[arr],i++,
per=Permutations[arr[[i]]];
For[m=1,m<=Length[per],m++,el=per[[m]];
AppendTo[site,el]
];
];
site
]

6 (1)
Faktoriel[n_]:=Module[{prod=1},
For[i=1,i<=n,i++,prod*=i];
prod
]

KombBezPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[k]*Faktoriel[n-k]);
rezultat
]

7
SiteKombBezPovt[n_, k_]:=Module[{arr={}},
For[i=1, i<=n, i++, AppendTo[arr, i]];
KSubsets[arr,k]
]

8
PermSoPovt[n_, k_]:=Module[{rezultat},
rezultat=n^k;
rezultat
]

9
SitePermSoPovt[n_,k_]:=Module[{t={},site={}},
For[j=k,j<=n*k,j++,
For[r=1,r<=n,r++,p=Partitions[j,r];
For[i=1,i<=Length[p],i++,
tmp=p[[i]];
If[Length[tmp]==k,AppendTo[t,tmp]]
]
]
];
t=Union[t];
For[i=1,i<=Length[t],i++,
per=Permutations[t[[i]]];
For[m=1,m<=Length[per],m++,
el=per[[m]];
AppendTo[site,el]
];
];
site
]

10 (1)
Faktoriel[n_]:=Module[{prod=1},
For[i=1,i<=n,i++,prod*=i];
prod
]

KombSoPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n+k-1]/(Faktoriel[k]*Faktoriel[n-1]);
rezultat
]

11 (9)
SitePermSoPovt[n_,k_]:=Module[{t={},site={}},
For[j=k,j<=n*k,j++,
For[r=1,r<=n,r++,p=Partitions[j,r];
For[i=1,i<=Length[p],i++,
tmp=p[[i]];
If[Length[tmp]==k,AppendTo[t,tmp]]
]
]
];

SiteKombSoPovt[n_,k_]:=Module[{},
per=SitePermSoPovt[n,k];
Select[per,OrderedQ];
]

12 (4)
PermBezPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[n-k]);
rezultat
]

PermBezPovtKlasi[n_, m_]:=Module[{},
For[k=1,k<=m,k++,Print[PermBezPovt[n,k]]]
]

13 (6)
KombBezPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n]/(Faktoriel[k]*Faktoriel[n-k]);
rezultat
]

KombBezPovtKlasi[n_, m_]:=Module[{},
For[k=1,k<=m,k++,Print[KombBezPovt[n,k]]]
]

14 (8)
PermSoPovt[n_, k_]:=Module[{rezultat},
rezultat=n^k;
rezultat
]

PermSoPovtKlasi[n_, m_]:=Module[{},
For[k=1,k<=m,k++,Print[PermSoPovt[n,k]]]
]

15 (10)
KombSoPovt[n_, k_]:=Module[{rezultat},
rezultat=Faktoriel[n+k-1]/(Faktoriel[k]*Faktoriel[n-1]);
rezultat
]

KombSoPovtKlasi[n_, m_]:=Module[{},
For[k=1,k<=m,k++,Print[KombSoPovt[n,k]]]
]

16
PermSoPovtTip1[k1_,k2_,k3_]:=Module[{l={}},
For[i=1,i<=k1,i++,AppendTo[l,a]];
For[i=1,i<=k2,i++,AppendTo[l,b]];
For[i=1,i<=k3,i++,AppendTo[l,c]];
Permutations[l]
]

17
PermSoPovtTip2[k1_,k2_,k3_,k4_]:=Module[{l={}},
For[i=1,i<=k1,i++,AppendTo[l,1]];
For[i=1,i<=k2,i++,AppendTo[l,2]];
For[i=1,i<=k3,i++,AppendTo[l,3]];
For[i=1,i<=k4,i++,AppendTo[l,4]];
Permutations[l]
]