VPF::[Pascal] непростая задачка с факториалам

Zuzas

Дата 10.5.2007, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.5.2007

Репутация: нет
Всего: нет

есть такая задачка, Напишите функцию, которой значение былаб равно начальным множителям, састовлиающие факториал данного числа, числа. Например:
f(1)=0;
f(2)=1, nes 2!=2;
f(5)=5, nes 5!=120=2*2*2*3*5;
f(20)=36

Никак немагу врубится в неё. Помогите

Rodman

Дата 10.5.2007, 10:51 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


Const
  n=6;
var
  s:real;
  i:integer;
function fact(x:integer):integer;
begin
  if x>1 then 
  begin
     writeln(x, ' ');
      x:=x*fact(x-1);
  end;
  fact := x;
end;
begin
  s := 1 shl n;
  for i:=1 to n do
    s:=s+fact(i)-(1 shl i);
  writeln('S=',S:5:4);
end.

это что ли?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Silent

Дата 10.5.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 252
Регистрация: 3.10.2006

Репутация: 6
Всего: 9

Держи свою могучую функцию:

Код


Function F(x:integer):integer;
  var i,res:integer;
  Function count(x:integer):integer;
    var i,res:integer;
    begin
      i:=2;
      res:=0;
      while x mod 2 = 0 do begin
        inc(res);
        x:=x div 2;
      end;
      i:=3;
      while x>=i do begin
        if x mod i = 0 then begin
          inc(res);
          x:=x div i;
          dec(i,2);
        end;
        inc(i,2);
      end;
      count:=res;
    end;
  begin
    res:=0;
    for i:=2 to x do
      inc(res,count(i));
    f:=res;
  end;

Zuzas

Дата 10.5.2007, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.5.2007

Репутация: нет
Всего: нет

Silent спс за функцию как раз то что мне и надо было
и может кто нибудь знает как разбить число на простые числа например:
120=2*2*2*3*5;

Silent

Дата 10.5.2007, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 252
Регистрация: 3.10.2006

Репутация: 6
Всего: 9

Разбить число n на простые множители легко - нужно просто перебрать все числа, меньшие корня квадратного из n:

Код


Procedure Divisor(x:integer);
  var i:integer;
  begin
    write(x,'=');
    while (x mod 2=0) do begin
      x:=x div 2;
      if x<>1 then write('2*') else write('2');
    end;
    i:=3;
    while i<=x do begin
      if x mod i=0 then begin
        x:=x div i;
        if x<>1 then write(i,'*') else write(i);
        dec(i,2);
      end;
      inc(i,2);
    end;
  end;

Процедуре даешь число (например 120), она выводит результат (120=2*2*2*3*5).
Но я так предполагаю, что тебе она не подойдет - ты ведь хочешь вывести все подсчитанные функцией F делители факториала?

Zuzas

Дата 10.5.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.5.2007

Репутация: нет
Всего: нет

Балсое способа, всё работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »