Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.11.2009, 14:50
Аватар для tolmachik
tolmachik tolmachik вне форума
Прохожий
 
Регистрация: 17.11.2009
Адрес: СПб
Сообщения: 2
Репутация: -10
Восклицание простые числа

Пожалуйста! Очень нужен код для задачки:
Найти в интервале от a-b простые числа, разность между которыми равна введенному числу(например 2)
Результат должен иметь вид:

3-5
5-7
7-9
9-11
и т.д.
Ответить с цитированием
  #2  
Старый 17.11.2009, 15:24
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

В твоем диапазоне проверяешь все числа на простое...
Код:
  n: integer; // проверяемое число
  d: integer; // делитель
  r: integer; // остаток от деления n на d
begin
  n := StrToInt(Edit1.text);
  d := 2; // сначала будем делить на два
  repeat
    r := n mod d;
    if r <> 0 {// n не разделилось нацело на d} then
      d := d + 1;
  until r = 0; // повторять пока не найдено число на n делится без остатка
  label2.caption := Edit1.text;
  if d = n then
    label2.caption := label2.caption + ' - простое число.'
  else
    label2.caption := label2.caption + ' - обычное число.';
Далее загоняешь все простые числа в массив...
Потом по очереди начиная с первого элемента вычитаешь из него остальные...если разность введенное число, то добавляешь пару в новый двумерный массив...
Подумай, сделай наброски и приходи еще раз)))
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием
  #3  
Старый 19.11.2009, 20:43
Аватар для tolmachik
tolmachik tolmachik вне форума
Прохожий
 
Регистрация: 17.11.2009
Адрес: СПб
Сообщения: 2
Репутация: -10
По умолчанию

ох.Спасибо большое ,из всего понятно только слово массив...
Попробую
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:35.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter