Разложение числа на множетели

← →
Фёдр_иваныч (2006-11-27 17:03) [0]

Привет всем, помогите пожалуйста решить следующую задачу:
Разложить число N на простые множители. N - целое, вводится с клавиатуры. На экран вывести просто все множители, участвующие в разложении. Например, для N = 100 на экран должны быть выведены числа 2 2 5 5 (т.к. 100 = 2*2*5*5)
Если не хотите писать полный код, то подскажите по подробнее каким способом это организовать

← →
Cawa © (2006-11-27 17:08) [1]

извините за не осведомленность, но можно по подробней в частности: есть ли ограничение количества множителей и что значит "простой множитель"

← →
Draught (2006-11-27 17:09) [2]

На сколько я помню алгебру или это была еще математика
разложение числа на множители - деление числа сначала на минимальный делитель, затем результат так же делим на минимальный делитель и т.д. до тех пор, пока не доберемся до простого числа...

← →
MBo © (2006-11-27 17:17) [3]

почти так же, как в:
http://delphimaster.net/view/2-1164628470/
в цикле проверяем - если делится, то делим на очередное число (возможно, несколько раз) и выводим его как множитель

← →
Cooller (2006-11-27 19:04) [4]

MBo © (27.11.06 17:17) [3]
Можно по подробние а то я не пойму что ты имел в виду

← →
Palladin © (2006-11-27 19:05) [5]

← →
Фёдр_иваныч (2006-11-27 19:13) [6]

Я не совсем понимаю эту строчку:
в цикле проверяем - если делится, то делим на очередное число (возможно, несколько раз) и выводим его как множитель

Красивше эта задача решается рекурсией.

procedure TForm1.sButton1Click(Sender: TObject);

Function Mults(n:Integer):String;
Procedure _FindMult(n:Integer;Var s:String);
Var
i:Integer;
Begin
For i:=2 to n Div 2 Do If n mod i=0 Then
Begin
s:=s+IntToStr(i)+",";
_FindMult(n div i,s);
Exit;
End;
s:=s+IntToStr(n);
End;
Begin
Result:="";
_FindMult(n,Result);
End;

begin
Edit1.Text:=Mults(1001);
end;

ps что то я раздобрел как поел... )

i := 2; f := true;
while f and i < sqrt(число) do
while f and число mod i = 0 do
write (i, " * ");
число Ж= число div i
if число = 1 then
f := false;
inc (i);
if число <> 1 then
writeln (число)
else
for i := 0 to 2 do
writeln (#8)

Разложение числа на множетели Найти похожие ветки