Program Kombinacni_cislo_3;
{Vypocet kombinacniho cisla s pouzitim rekurzivni funkce
pro vypocet faktorialu}
(* Pascaluv trojuhelnik *)
Var m,k:integer; mnadk:longint;
i,j:integer;

Function fakt_3(n:integer):longint;
Var i:integer;j:longint;

Begin if n <=1 then fakt_3:=1
else fakt_3:=n*fakt_3(n-1)
end;

Begin
for m:=2 to 5 do
begin
for k:=0 to m do
begin
mnadk:=fakt_3(m) div ( fakt_3(k)*fakt_3(m-k));
writeln(m,' nad ',k,' = ',mnadk);
end; writeln;
end;
readln
end.

===================================================

program trascfce;
(* trascendentni funkce sinx=x^5-0,1 *)
var
i:integer;
A,B,xn,fa:real;

function fce(x:real):real;
begin
fce:=sin(x)-x*x*x*x*x+0.1;
end;

procedure pulint(var x,a,b:real; fa:real);
begin
x:=(a+b)/2;
if(fce(x)*fa) <0 then b:=x else a:=x;
end;

begin {hlavni program}
A:=0; B:=2;
while abs(B-A)>0.001 do
begin
pulint(xn,a,b,fce(A));
writeln('A=',A:10:4,' B=',B:10:4,' x=',xn:10:4);
end;
writeln(xn,a:10:4,b:10:4);
end.