дано натуральное число. получить массив его делителей

@Vityai · Регистрация: 01.12.2008

Студворк — интернет-сервис помощи студентам

дано натуральное число. получит массив его дилителей.Как делать я что-то туплю.

@Puporev · 01.12.2008, 18:21

Берешь число N.
Cначала делителей 0. k:=0;
В цикле от 1 до корня из N (больше не имеет смысла)
for i:=1 to round(sqrt(N)) do
проверяешь все числа и выбираешь те, на которые N делится без остатка.
Эти числа записываешь в массив.
if N mod i=0 then
begin
k:=k+1;
m[k]:=i;
end;
Потом выводишь массив на экран обычным способом.
for i:=1 to k do
write(m[i],' ');

@Vityai · 01.12.2008, 19:30 **[ТС]**

for i:=1 to round(sqrt(N)) do round что это значит?

@Puporev · 01.12.2008, 19:33

Это функция округления вещественного числа до целого.

@Vityai · 01.12.2008, 19:42 **[ТС]**

Puporev, обьясни пожалуйста почеме не имеет смысла брать число в массиве >sqrt(N)

01.12.2008, 21:10

в принципе тут будет достаточно обычного цикла

Pascal

for i:=1 to n do
  if (n div i)=0
   then
    begin
     j:=j+1;
     m[j]:=i;
    end;

число натуральное - значит оно целое (ну эт помоему =) )

@Puporev · 01.12.2008, 21:27

1. Потому что например число 25 не мжет делится больше чем на 5, зачем проверять 6, 7, 8...
2. Смотри пункт1. Нафига крутить цикл например при N=1 000 000 до 1 000 000, если достаточно до 1 000.

@Vityai · 01.12.2008, 21:49 **[ТС]**

Спасибо за помощь! Еще вопросик программа работает но правильно ли напимана?

Pascal

program qwerty;
var n,k,i: longint;
m:array [1..1] of byte;              :umnik: смущает вторая 1 в массиве
begin
writeln ('vvedite n');
readln (n);
k:=0;
for i:=1 to n do
if n mod i=0 then
begin
k:=k+1;
m[k]:=i;
end;
for i:=1 to k do
writeln (m[i],'');
end.

Добавлено через 10 минут 28 секунд
Я понял! забыл const написать

@Vityai 0 / 0 / 0 Регистрация: 01.12.2008 Сообщений: 16
		1
	дано натуральное число. получить массив его делителей 01.12.2008, 17:56. Показов 1425. Ответов 7 Метки нет (Все метки) дано натуральное число. получит массив его дилителей.Как делать я что-то туплю. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.12.2008, 18:21	2
	Берешь число N. Cначала делителей 0. k:=0; В цикле от 1 до корня из N (больше не имеет смысла) for i:=1 to round(sqrt(N)) do проверяешь все числа и выбираешь те, на которые N делится без остатка. Эти числа записываешь в массив. if N mod i=0 then begin k:=k+1; m[k]:=i; end; Потом выводишь массив на экран обычным способом. for i:=1 to k do write(m[i],' '); 0

@Vityai 0 / 0 / 0 Регистрация: 01.12.2008 Сообщений: 16
	01.12.2008, 19:30 [ТС]	3
	for i:=1 to round(sqrt(N)) do round что это значит? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.12.2008, 19:33	4
	Это функция округления вещественного числа до целого. 0

@Vityai 0 / 0 / 0 Регистрация: 01.12.2008 Сообщений: 16
	01.12.2008, 19:42 [ТС]	5
	Puporev, обьясни пожалуйста почеме не имеет смысла брать число в массиве >sqrt(N) 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.12.2008, 21:27	7
	1. Потому что например число 25 не мжет делится больше чем на 5, зачем проверять 6, 7, 8... 2. Смотри пункт1. Нафига крутить цикл например при N=1 000 000 до 1 000 000, если достаточно до 1 000. 0

	01.12.2008, 21:49

Опции темы