Составить функцию, которая будет находить следующее за ним простое число

@segadude · Регистрация: 16.11.2009

Author24 — интернет-сервис помощи студентам

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.

@Inadequate · 11.04.2010, 13:05

Вот тебе функция

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function Simple(n: longint): boolean;
var
  i: longint;
begin
  for i := 2 to Round(Sqrt(n)) do
    if n mod i = 0 then
    begin
      Simple := false;
      exit
    end;
  Simple := true;
end;

а дальше просто прибавляй и проверяй.

@segadude · 11.04.2010, 14:23 **[ТС]**

а не подскажешь что прибавлять?

@Inadequate · 11.04.2010, 14:26

segadude, хороший вопрос. Дай ка подумать... Может быть 1 ?

@odip · 12.04.2010, 08:29

На самом деле стоит проверять только нечетные числа, так как все четные (кроме 2) не являются простыми

@Puporev · 12.04.2010, 09:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
function Prost(n:longint):boolean;
var i:longint;
begin
if(n>2)and(n mod 2=0) then
 begin
  Prost:=false;
  exit;
 end;
Prost:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
 begin
  Prost:=false;
  break;
 end;
end;
function SledPrst(n:longint):longint;
var i:longint;
begin
i:=n+1;
while not Prost(i) do
i:=i+1;
SledPrst:=i;
end;
var n:longint;
begin
clrscr;
repeat
write('Введите простое число n=');
readln(n);
until Prost(n);
write('Следующее простое число=',SledPrst(n));
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@segadude 2 / 2 / 0 Регистрация: 16.11.2009 Сообщений: 63

	Составить функцию, которая будет находить следующее за ним простое число 11.04.2010, 12:59. Показов 2086. Ответов 5 Метки нет (Все метки) Дано простое число. Составить функцию, которая будет находить следующее за ним простое число. 0

@segadude 2 / 2 / 0 Регистрация: 16.11.2009 Сообщений: 63
	11.04.2010, 14:23 [ТС]
	а не подскажешь что прибавлять? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.04.2010, 14:26
	segadude, хороший вопрос. Дай ка подумать... Может быть 1 ? 1

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	12.04.2010, 08:29
	На самом деле стоит проверять только нечетные числа, так как все четные (кроме 2) не являются простыми 1

Опции темы