VPF::прості дільники заданого числа

kashmir18

Дата 16.2.2008, 23:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Задано натуральне число. Визначити всі прості дільники заданого числа. Розробити алгоритм і скласти програму для рішення задачі.

Код


program p1;
var n,d,k:integer;
begin
readln(n);
if n>2 then begin d:=1;k:=2;
while k<n do begin
if (n mod k=0)and(k mod 2=0) then begin writeln(d); d:=d+1;k:=k+1;
end;end;end;
writeln('Prostux dilnukiv - ',d);
readln;end.

не канает - помогите - смисл походу правильний - но штото не то!...
зарание спасибо

Это сообщение отредактировал(а) volvo877 - 17.2.2008, 13:11

Azbuka

Дата 17.2.2008, 12:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Отформатируй код красиво, так чтобы все отступы были видны.. Отлаживать намного удобнее ведь и читабельность повышается.

kashmir18

Дата 17.2.2008, 12:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


program p1;
var n,d,k:integer;
begin
readln(n);
if n>2 then begin d:=1;k:=2;
while k<n do begin
if (n mod k=0)and(k mod 2=0) then begin 
writeln(d); d:=d+1;k:=k+1;
end;end;end;
writeln('Prostux dilnukiv - ',d);
readln;end.

да подскажите што нада переделать? он не роботает - но вроде правельний....
спасибо!

Это сообщение отредактировал(а) volvo877 - 17.2.2008, 13:11

volvo877

Дата 17.2.2008, 13:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(kashmir18 @ 17.2.2008, 11:38

)

он не роботает - но вроде правельний....

И чего в нем правильного? То, что ты проверяешь четность делителя - еще не значит, что ты проверяешь его простоту. Напиши функцию, проверяющую, является ли число простым (назовем ее is_prime):

Код


function is_prime(X: integer): boolean;
var i: integer;
begin
  is_prime := false;
  for i:=2 to trunc(sqrt(x)) do
    if (x mod i = 0) then exit;
  is_prime:=true
end;

, а потом вызывай ее так:

Код


...
for i := 1 to trunc(sqrt(n)) do begin
  if is_prime(i) and (n mod i = 0) then writeln(i);
end;
...

P.S. Кнопочку "Код" видишь? Нажми ее и внутри тегов набирай код, будет гораздо лучше...

kashmir18

Дата 19.2.2008, 09:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо - но надо без функций...а просто вот так как я написал...
так не реально сделать?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »