Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Разложение натурального числа

Автор: Tribunal 7.06.2006 19:46

Задание:разложить натуральное число N на простые множители

я сделала программу,но она в конце выводит совсем ненужный 0...
подскажите,пожалуйста,как этого избежать?

var
mn: array [1..100] of integer;
i,k,n,kol:integer;

begin

write('Vvedite naturalnoe chislo n=');readln(n);
writeln('Razlojim naturalnoe chislo n na prostie mnojiteli:');

i:=1;k:=3;
repeat
if ((k mod 2)<>0) and ((n mod k) = 0) then begin
n:=trunc(n/k);
mn[i]:=k;
write(mn[i],' ');
inc(i);
end
else inc(k);
until n=1;
kol:=i;
writeln;

i:=0;
while i<kol do
begin
inc(i);
repeat
k:=1;
if (i<kol) and (mn[i]=mn[i+1]) then begin
inc(k);
inc(i);
end;
until (i<=kol) or (mn[i]<>mn[i+1]) ;
write(mn[i],'^',k,' ');
end;
readln;
end.

Автор: volvo 7.06.2006 19:52

Поиском пользоваться не пробовала?
http://forum.pascal.net.ru/index.php?s=&showtopic=11200&view=findpost&p=70383

Автор: Tribunal 7.06.2006 20:06

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

Автор: volvo 7.06.2006 20:32

Tribunal, ты будешь смеяться, но у меня никакой 0 не выводится... Программа просто зацикливается и печатает -1 и -2... smile.gif Что я неправильно делаю? Ввел число 20...

Автор: volvo 7.06.2006 20:44

Цитата(Tribunal @ 7.06.2006 16:06) *
собственно в выводе этого результата и состоит проблема...

Так:
var
mn: array [1..100] of integer;
i,k,n:integer;

begin

write('Vvedite naturalnoe chislo n=');readln(n);
writeln('Razlojim naturalnoe chislo n na prostie mnojiteli:');

k:=2;
repeat

if (n mod k) = 0 then begin
n := n div k;
inc(mn[k]);
write(k, ' ');
end
else inc(k, 2 - byte(k = 2));

until n=1;

writeln;

i := 1;
while i <= k do begin { <--- Изменил !!! }
if mn[i] > 0 then write(i, '^', mn[i], ' ');
inc(i);
end;
readln;
end.

?

Автор: Tribunal 7.06.2006 21:35

а у меня ваша программа не всегда работает...)

например,258,456...то есть видимо четные чмсла...

Автор: volvo 7.06.2006 21:58

Посмотри теперь - я кое- что подправил (хотя и так разложение работало, просто со степенями глюки были)... Заодно прикрепляю то, как я вижу результат у себя:


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Tribunal 7.06.2006 22:04

круто...пасиба))