Разложение числа на простые множители... Опции

[ACC]

задача - разложить число на простые множители. не могу продумать алгоритм.

Код

uses   crt;
var   a,b,c,i,j:integer;
begin
clrscr;
writeln('vvedite   chislo');
readln(a);
c:=a;
i:=1;
repeat
if a mod i <> 0 then begin writeln (i); b:=i;
inc(i);
???!!!!!!???
end;
until   i=a;
readln;
end.

там вместо вопр\воскл. знаков надо вставить нечто, что раскладывало бы число b на те же простые множители, потом вновь возвращаемся к начальному числу, ищем следующее... рекурсия наверное, да вот присобачить её не получается...


фак и поиск не помог(

[volvo]

Так проверь с теми же числами:

uses crt;

const n = 50;
var
  k: integer;
  f: array  [1..n] of record
    mult:integer;
    power:integer;
  end;

procedure add_to_array(i: integer);
var
  j: word;
  found: boolean;
begin
  found := false; j := 1;
  while (j <= n) and (f[j].mult > 0) and (not found) do
    if f[j].mult = i then begin
      inc(f[j].power); found := true;
    end
    else inc(j);

  if not found then begin
    f[j].mult := i; f[j].power := 1;
  end;

end;

procedure Factorization(x: word);
var i: word;

  procedure DivX;
  begin

    while (x>1) and (x mod i = 0) do
    begin
      add_to_array(i);
      x:= x div i;
    end;

  end;

begin
     i:=2;
     DivX;
     i:=3;
     while (i < x div 2) do
     begin
           DivX;
           inc(i,2);
     end;
     if x>1 then add_to_array(x)
   end;

begin
  clrscr;
  readln(k);
  Factorization(k);

  k := 1;
  while (k <= n) and (f[k].mult > 0) do begin
    writeln(f[k].mult, '^', f[k].power);
    inc(k);
  end;
  readln;
end.