Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010249 Thu, 10 Jul 2008 16:14:31 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010249 ttiger Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010041 Thu, 10 Jul 2008 13:06:20 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010041
P.S. спасибо всем за помощь.]]> serdemon Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010017 Thu, 10 Jul 2008 12:41:25 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010017 Перебираешь от 1 до k (тупо без оптимизации), проверяешь, делится или нет. Если делится, добавляешь в строку. Вот и весь алгоритм.]]> Domino Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010008 Thu, 10 Jul 2008 12:30:41 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010008 and85 спасибо, только было бы лучше, если б ты просто подсказал как сделать]]> serdemon Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010000 Thu, 10 Jul 2008 12:21:16 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2010000
    k:=0;
    n:=StrToInt(Edit1.Text);
    Label2.Caption := '';
    for i:=1 to n do
    if n mod i =0 then
    begin
    inc(k);
    Label2.Caption:=Label2.Caption + IntToStr(i)+' ';
    end;
    if k=2 then
    Label1.Caption:=IntToStr(n)+ ' - простое число'
    else
    Label1.Caption:=IntToStr(n)+ ' - не простое число';
]]> and85 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009994 Thu, 10 Jul 2008 12:15:43 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009994 про решето Эратосфена я прочитал, но не особо понял, т.к. там еще и с массивом.
ребят вы меня похоже немного не поняли, я хочу используя свой код (он у меня работает) вывести все делители числа (через пробел или запятую, без разницы).
можно даже так в поле эдит я ввожу число, мне нужно вывести все его делители]]> serdemon Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009989 Thu, 10 Jul 2008 12:14:28 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009989 and85 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009960 Thu, 10 Jul 2008 11:54:25 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009960
    function IsSimple(const Val: Cardinal): Boolean;
    var
      I: Cardinal;
    begin
      I := 2;
      Result := True;
      while I <= round(Sqrt(Val)) do
      begin
        if (Val mod I) = 0 then
          Result := False;
        Inc(I);
      end;
    end;
]]> Domino Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009947 Thu, 10 Jul 2008 11:44:50 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009947 and85 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009942 Thu, 10 Jul 2008 11:43:13 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009942 Цитата serdemon @
for i:=1 to n do
if n mod i =0 then
в n хранится делитель, или нет?


Ну и зачем тебе делить до n, если можно делить до sqrt(n) + 1? И зачем тебе делить на 4, если можно ограничится только проверкой делимости на 2? Почитай про решето Эратосфена, лениво два слова в гугле набрать? ;)]]> --Ins-- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009938 Thu, 10 Jul 2008 11:40:03 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009938 for i:=1 to n do
if n mod i =0 then
в n хранится делитель, или нет?]]> serdemon Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009928 Thu, 10 Jul 2008 11:33:08 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009928
Добавлено
Ins лучше решение сказал:)]]> and85 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009926 Thu, 10 Jul 2008 11:32:37 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009926 --Ins-- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009920 Thu, 10 Jul 2008 11:31:03 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009920 and85 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009912 Thu, 10 Jul 2008 11:27:36 +0000 Проверка числа на простоту https://forum.sources.ru/index.php?showtopic=242944&view=findpost&p=2009912 вот например такая задача: в поле едит запрашивается положит число. определить явл оно простым или нет и если число не простое вывести его делители.

вот что получилось у меня:
procedure delitel;
var
i,n,k:integer;
begin
k:=0;
n:=StrToInt(Form1.Edit1.Text);
for i:=1 to n do
if n mod i =0 then
begin
inc(k);
form1.Label2.Caption:=IntToStr(i)+' ';
end;
if k=2 then
Form1.Label1.Caption:=IntToStr(n)+ ' - простое число'
else
Form1.Label1.Caption:=IntToStr(n)+ ' - не простое число';
end;


наведите на путь истинный, как вывести делители числа? буду очень благодарен.]]> serdemon Delphi: Общие вопросы