Функции в Паскале

[bwitcher]

Составить программу для вычисления значения (с=n!/(m!(n-m)!)), определив функцию n!=
1) 0, если n<0
2) 1, если n=0
3) n!,если n>0

Program My;
var
C:real;
m,n,k:integer;
Function FR1(n:integer):real;
var i:integer; S:real;
begin
if n<0 then S:=0;
if n=0 then S:=1
else
S:=1;
for i:=1 to n do
S:=S*i;
Writeln(n,'!=', S:0:0);
end;
Function FR2(m:integer):real;
var i:integer; S:real;
begin
if m<0 then S:=0;
if m=0 then S:=1
else
S:=1;
for i:=1 to m do
S:=S*i;
Writeln(m,'!=', S:0:0);
end;
Function FR3(k:integer):real;
var i:integer; S:real;
begin
if k<0 then S:=0;
if k=0 then S:=1
else
S:=1;
for i:=1 to m do
S:=S*i;
Writeln(k,'!=', S:0:0);
end;
begin
Writeln('Введите число n');
Readln(n);
Writeln('Введите число m');
Readln(m);
k:=n-m;
C:=FR1(n)/FR2(m)*FR3(k);
Writeln('Значение выражения=',C);
end.

В чем ошибочка? Мог бы кто-нибудь исправить или переделать как-нибудь попроще?


Составить программу возводящую любое число n в любую степень m. Для возведения в степень определить необходимую функцию.

Так же решить нужно с помощью подпрограмм-функций. Поможете?

[Mad_Cat]

задолбал ты однако)

var m,n:integer;
function Fact(F:integer):Longint;
var i:integer;
f1:longint;
begin
f1:=1;
if f<0 then  f1:=0 else
for i:=1 to f do 
f1:=f1*i;
fact:=f1;
end;
begin
readln(m);readln(n);
writeln(fact(n)/fact(m)/fact(n-m):6:2);
readln;
end.

2)

Составить программу возводящую любое число n в любую степень m. Для возведения в степень определить необходимую функцию.

var  n,m:real;
function power(Base, Exponent: Extended): Extended;// из DRKB
var ex: extended;
begin
power := 0;
if (exponent <> 0)
   and (frac(trunc((1 / exponent) * 1000000) / 1000000) = 0)
   and (base < 0) then
   begin
     if round(1 / exponent) mod 2 = 0 then exit;
     ex := Exp(Exponent * Ln(-Base));
     power := -ex;
   end
else
  begin
     if Exponent = 0.0 then
       power := 1.0
     else if (Base = 0.0) and (Exponent > 0.0) then
       power := 0.0
     else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
       power := IntPower(Base, Integer(Trunc(Exponent)))
     else
       power := Exp(Exponent * Ln(Base))
  end;
end;
begin
readln(n);readln(m);
writeln(power(n,m):6:3);
end.

[bwitcher]

Да, я понимаю, что задолбал, он делать-то надо, а с сам не могу) Спасибо!!!

Хоспаде, во 2 ваще ниче не понимаю. Что-то столько всего, мы такого и не проходили, кажется.

А с такой не поможете?
Даны действительные a,b,c. Получить m(a,c)/m(c,b)+m(a,b), где m(x,y)=tg(x+y)/sin(x+y)*cos(x-y)*tg(x-y)

[Stilet]

function m(x,y:double);begin result:=tg(x+y)/sin(x+y)*cos(x-y)*tg(x-y);end;
...
...:=m(a,c)/m(c,b)+m(a,b);

Смысл понятен?

[bwitcher]

Если вот прям совсем честно, то не очень. Честное слово, чувствую себя идиотом.

[Stilet]

Бывает... Спасает книга по паскалю или... Но лучше пока по паскалю.
Честно. Проверено на себе.