пасиба темку мона удалит =) С НАСТУПАЮЩИМ!, не компилируется Опции

[andreybatka]

Не сочтите за наглость но есть еще вопросик. Задача- Составить программу для вычисления факт. Вычисление факториала оформить в виде FUNCTION. N=8 M=3. Вот собссна мой код

Program FACTORIAL;
uses crt;
VAR c:longint; n,m:integer;
Function fact(n:integer):longint;
var N,M,i:integer;
f:longint;
Begin
clrscr;
f:=1
For i:=2 to n do f:=g*i;
fact:=f
end;
Begin writeln('vvedite N,M');
readln(N,M);
c:fact(n)/(fact(m)*fact(n-m));writeln('c=',c);
readln;
end.

ошибка Type mismatch в строчке

c:fact(n)/(fact(m)*fact(n-m));writeln('c=',c);

Помогите советом плизь

Сообщение отредактировано: andreybatka - 31.12.2006 19:23

[Айра]

ошибка Type mismatch в строчке
c:fact(n)/(fact(m)*fact(n-m));writeln('c=',c);

Во-первых, c:=fact(n)/(fact(m)*fact(n-m));writeln('c=',c).
Во-вторых, ты уверен, что c будет целым?
В-третьих, вот мой вариант проги:

 
program Fakt(input,output);
uses wincrt;
var c: real;
      n,m: integer;
function fact(n: integer): longint;
 begin
    if n=1 then fact:=1
    else fact:=n*fact(n-1);
 end;
begin
    writeln ('введите число n >');
    read (n);
    while n<=0 do
    begin
        writeln ('Ошибка');
        read (n);
    end;
    writeln ('введите число m >');
    read (m);
    while (m<=0) or (m>=n) do
    begin
       writeln ('Ошибка');
       read (m);
    end;
    c:=fact(n)/(fact(m)*fact(n-m));writeln('c=',c:10:2);
end.

но он рекурсивный.

Сообщение отредактировано: Айра - 29.12.2006 2:06