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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.01.2009, 19:28
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
Стрелка помогите (тут быстро, и просто) =)

помогите пожалуйсто, для вас я думаю это труда вообще не составит.
Задача звучит так:
Пусть дано число А. Найдите первое простое число которое больше, чем А.
(примечание: простое число делится нацело только на себя и на 1)
Ответить с цитированием
  #2  
Старый 20.01.2009, 20:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,095
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, в тупую так и делай. Циклом от 2 до число -1 проверяешь остаток от деления.

Код:
function CheckSimple(A : Integer) : Boolean;
var
  I : Integer;
begin
  Result := True;
  For I := 2 To A-1 Do
    If (A mod I) = 0 Then
      Begin
        Result := False;
        Break;
      End;
end;

function FindNextSimple(A : Integer) : Integer;
var
  N : Integer;
begin
  N := A + 1;
  While Not CheckSimple(N) Do N := N + 1;
  Result := N;
end;

Ну и пошли школьники/студенты!!! Своей головой только кушают...
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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