Реферат: Пояснительная записка к курсовой работе

end;

procedure factorial (var m,n:integer);

var a,b:longint;

i:integer;

begin

a:=1;

for i:=1 to n do b:=b*i;

b:=1;

for i:=1 to m do a:=a*i;

m:=a; n:=b;

u:=m-n

end;

procedure sinus;

begin

s:=(exp(sqrt(x))-exp(-sqrt(x)))/2;

writeln('синус гиперболический равен s= ',s:4:2);

end;

procedure functio;

begin

y:=s+u-sqrt(x);

writeln('значение функции равно y= ',y:4:2);

writeln(F,'значение функции равно y= ',y:4:2);

end;

begin

vvod;

writeln('Введите m,n ');

readln(m,n);

factorial (m,n);

sinus;