Факториал на паскале...

[Андрюха_ЕШКО]

Коллеги, тут такое дело, модуль я написал:

Unit Dop;
{---}
Interface
Uses Crt; {нужен для процедуры Stir}
{------------------------------------------------}
{констант, типов, переменных для внешнего       }
{и внутреннего употребления у нас нет              }
{------------------------------------------------}
{заголовки процедур и функций}
Function Tan (x:real) :real;                    {тангенс}
Function Factor (k: integer) :longint;   {факториал}
Procedure Stir(bl,b2:byte);         {цвет и стирание}
Procedure Line(n:integer;с:char);             {строка}
{------------------------------------------------}
{Тексты процедур и функций}
{------------------------------------------------}
Function Tan;
begin
  x:=sin(x)/cos (x)
end;
{------------------------------------------------}
Function Factor; 
   begin 
       if k=l
          then Factor:=1
          else Factor:=k*Factor(k-1)
   end;
{------------------------------------------------}
Procedure Line;
var i:integer; 
begin
    for i:=l to n do write(c);
    writeln
end;
{------------------------------------------------}
Procedure Stir;
begin
    TextColor (b1) ;
    TextBackGround(b2);
    ClrScr
end;
{--------------------------------------------------}
{блока инициализации у нас нет}
END.

Сохраняем его под именем DOP.TPU

И вот собственно само задание:
Составьте программу с использованием модуля DOP.TPU для вывода таблицы значений факториала чисел от 1 до 10.

[Serge_Bliznykov]

1) текст, наверное, с книжки набирали?

Function Factor; 
   begin 
       if k=1
          then Factor:=1
          else Factor:=k*Factor(k-1)
   end;
{------------------------------------------------}
Procedure Line;
var i:integer; 
begin
    for i:=1 to n do write(c);
...

2) так в чём проблема то?
в своей программе пишете примерно так:

Uses Dop;
....
  Stir; 
  Line(27,'-');
  for i:=1 to 10 do begin
    WriteLn(i:5,' ',Factor(i):20);
    Line(27,'-');
  end;

и всё...

[Андрюха_ЕШКО]

Сообщение от Serge_Bliznykov

1) текст, наверное, с книжки набирали?

Не, в интернете нашел!
Спасибо за помощь!

[NiCola999]

модуль я написал:

1) текст, наверное, с книжки набирали?
Не, в интернете нашел!

.