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

@pers775 · Регистрация: 06.04.2015

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

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

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
36
37
program F1;
uses crt;
function Prost(n:integer):boolean;
var i:integer;
begin
if(n>2)and(n mod 2=0) then
begin
Prost:=false;
exit;
end;
Prost:=true;
for i:=2 to (sqrt(n)) do
if n mod i=0 then
begin
Prost:=false;
break;
end;
end;
function SledProst(n:integer):integer;
var i:integer;
begin
i:=n+1;
while not Prost(i) do
i:=i+1;
SledProst:=i;
end;
var n:integer;
begin
clrscr;
repeat
write('Vedite prosto chislo n=');
readln(n);
if not Prost then writeln('OSHIBKA, chislo ne prostoe')
until Prost(n);
write('OTBET: ',SledProst(n));
readln
end.

Никак не получается

@Constantin Cat · 20.04.2015, 14:28

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
36
37
program F1;
uses crt;
function Prost(n:integer):boolean;
var i:integer;
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 SledProst(n:integer):integer;
var i:integer;
begin
i:=n+1;
while not Prost(i) do
i:=i+1;
SledProst:=i;
end;
var n:integer;
begin
clrscr;
repeat
write('Vedite prosto chislo n=');
readln(n);
if not Prost(n) then writeln('OSHIBKA, chislo ne prostoe')
until Prost(n);
write('OTBET: ',SledProst(n));
readln
end.

@pers775 · 23.04.2015, 09:11 **[ТС]**

@Constantin Cat · 24.04.2015, 23:17

pers775

Что это было?

В таком цикле все значания должны бить целыми:

Pascal
1
for i:=2 to round(sqrt(n)) do

А квадратный корень дает вещественное число.
Вас это смутило?

@pers775 · 26.04.2015, 21:33 **[ТС]**

Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру

ФедосеевПавел · 26.04.2015, 22:28

Сообщение от pers775

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

Сообщение от pers775

Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру

И это кроме снисходительно-повелительного отношения.
pers775, на мой взгляд, вы безрассудно смелый человек (правила форума ограничивают более точные формулировки).

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@pers775 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 37
	23.04.2015, 09:11 [ТС]
	0

@pers775 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 37
	26.04.2015, 21:33 [ТС]
	Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру 0

Опции темы