VPF::Факториал - Форум программистов

Athlete

Дата 4.3.2006, 04:50 (ссылка)

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

Загрузка ...

Новичок

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

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

В паскале проблем написать программу факториала больших чисел не составило труда. Но возникли трудности для написания её на С++.
В билдере только 2 недели работаю, очень тяжело.

Код


Const n=1000;
Type
    lon=longint; masiv=array[1..n] of lon;
Var
   mas: masiv; x: lon;
Procedure help(x:lon; var mas: masiv);
Var t, i:lon; help1, help2: masiv;
Begin
if mas[n]>9 then
For i:=n downto 1 do begin
                      t:=mas[i];
                          mas[i]:=t mod 10;
                              mas[i-1]:=mas[i-1]+t div 10;
                                  end;
If x mod 10 <> 0 then
   For i:=n downto 1 do
          help1[i]:=mas[i]*(x mod 10);
If x div 10 <> 0 then
  For i:=n downto 1 do
      help2[i-1]:=mas[i]*(x div 10);
For i:=n downto 1 do
    begin
    if i>=2 then begin
                     t:=help1[i];
                        help1[i]:=t mod 10;
                            help1[i-1]:=help1[i-1]+t div 10;
                                end;
    if i>=3 then begin
                     t:=help2[i-1];
                         help2[i-1]:=t mod 10;
                             help2[i-2]:=help2[i-2]+t div 10;
                                 end;
    end;
For i:=n downto 1 do
    mas[i]:=help1[i]+help2[i];
For i:=n downto 1 do begin
                      t:=mas[i];
                          mas[i]:=t mod 10;
                              mas[i-1]:=mas[i-1]+t div 10;
                                  end;
End;

Procedure factor(var mas: masiv);
Var i: integer;
Begin
For i:=mas[n]-1 downto 2 do
    help (i, mas);
end;
Procedure vivod(mas: masiv);
Var i: lon;
    b: boolean;
Begin
b:=false;
For i:=1 to n do
  if mas[i]<>0 then  begin
                         write(mas[i]);
                             b:=true;
                                 end
  else  if b then
            write(mas[i]);
End;
Begin
readln(mas[n]);
if mas[n]=0 then  writeln ('0')
else begin
     factor(mas);
      vivod(mas);
       end;
readln;
end.

Помогите чем сможете. Заранее благодарю.

tigger

Дата 8.3.2006, 13:02 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

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

В смысле код что ли перевести и куда в Builder или просто в С++ smile

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

Athlete

Дата 8.3.2006, 17:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Превести нужно в Билдер. Самая сложность заключается в написании процедуры, чтобы она выводила массив, а также вводила.

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