Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2011, 19:55   #1
Dima170792
Пользователь
 
Аватар для Dima170792
 
Регистрация: 04.04.2011
Сообщений: 76
По умолчанию НАЙТИ ВСЕ ПРОСТЫЕ ДЕЛИТЕЛИ НАТУРАЛЬНОГО ЧИСЛА N

Ув.форумчане.обращаюсь за вашей помошью в решении задачи по информатике.Язык программирования Delphi7!Задача состоит в следующем:НАЙТИ ВСЕ ПРОСТЫЕ ДЕЛИТЕЛИ НАТУРАЛЬНОГО ЧИСЛА N.По возможности выложите исходник-поскольку с программированием у меня слабовато! заранее спасибо!
Dima170792 вне форума Ответить с цитированием
Старый 11.06.2011, 20:02   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

а что у вас не получаетса?)
Pein95 вне форума Ответить с цитированием
Старый 11.06.2011, 20:07   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Проблема-то в чем? Что не получается?
Дельфи консольное? Вот .ехе, дам исходник за 50р вебмани или ЯД (ЛС или icq слева под ником).
Вложения
Тип файла: rar deliteli.rar (10.5 Кб, 15 просмотров)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 11.06.2011, 20:09   #4
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

Если я правильно понял, то так:

На форме:
Edit - Для ввода числа N.
Button - Для нахождения
Memo - Результат ("Делимое" / "Делитель" = "Частное")
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, n: Integer;
  s: string;
begin
  n := StrToInt(Edit1.Text);
  for i := n downto 1 do
    {Проверка остатка от деления}
    if n mod i = 0 then
    begin
      s := IntToStr(n) + '/' + IntToStr(i) + ' = ' + IntToStr(n div i);
      Memo1.Lines.Add(s);
    end;
end;

Последний раз редактировалось kangreon; 11.06.2011 в 20:12.
kangreon вне форума Ответить с цитированием
Старый 11.06.2011, 21:42   #5
Dima170792
Пользователь
 
Аватар для Dima170792
 
Регистрация: 04.04.2011
Сообщений: 76
Лампочка

Большое спасибо kangreon!Можете подсказать какую-нибуть литературу по этой теме?
Dima170792 вне форума Ответить с цитированием
Старый 11.06.2011, 21:46   #6
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

По какой?
http://programmersforum.ru/showthread.php?t=14054
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Простые делители числа на Си. meta Помощь студентам 0 25.05.2011 18:51
Pascal. Найти все делители числа N torah Помощь студентам 0 24.11.2010 10:37
Найти все делители числа N torah Помощь студентам 33 06.11.2010 00:15
найти из указанного диапазона все простые числа мария2507 Microsoft Office Excel 11 03.04.2010 17:38