Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
pers775
0 / 0 / 2
Регистрация: 06.04.2015
Сообщений: 33
#1

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

20.04.2015, 11:21. Просмотров 474. Ответов 5
Метки нет (Все метки)

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

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.
Никак не получается
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2015, 11:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить процедуру, которая будет находить за ним следующее простое число (Turbo Pascal):

Составить функцию, которая будет находить следующее за заданным простое число
Не могу понять при вводе 4,6,8,10 и т.д. паскаль ещё раз предлагает ввести ту...

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

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

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

Составить программу, которая будет находить длину сторон квадрата
Нужно составить программу, которая будет находить длину сторон квадрата....

Составить программу, которая по заданному слову из набора строит следующее за ним по алфавиту слово
Задано слово (латинскими буквами). Из всех его букв состоят другие слова,...

5
Constantin Cat
1628 / 940 / 356
Регистрация: 28.02.2015
Сообщений: 2,185
Завершенные тесты: 1
20.04.2015, 14:28 #2
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.
0
pers775
0 / 0 / 2
Регистрация: 06.04.2015
Сообщений: 33
23.04.2015, 09:11  [ТС] #3
0
Constantin Cat
1628 / 940 / 356
Регистрация: 28.02.2015
Сообщений: 2,185
Завершенные тесты: 1
24.04.2015, 23:17 #4
pers775

Что это было?

В таком цикле все значания должны бить целыми:
Pascal
1
for i:=2 to round(sqrt(n)) do
А квадратный корень дает вещественное число.
Вас это смутило?
0
pers775
0 / 0 / 2
Регистрация: 06.04.2015
Сообщений: 33
26.04.2015, 21:33  [ТС] #5
Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру
0
ФедосеевПавел
Модератор
3414 / 1911 / 815
Регистрация: 01.02.2015
Сообщений: 6,451
26.04.2015, 22:28 #6
Цитата Сообщение от pers775 Посмотреть сообщение
Начальная задача звучит так: Дано простое число, составить функцию, которая будет находить за ним следующее простое число
Цитата Сообщение от pers775 Посмотреть сообщение
Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру
И это кроме снисходительно-повелительного отношения.
pers775, на мой взгляд, вы безрассудно смелый человек (правила форума ограничивают более точные формулировки).
0
26.04.2015, 22:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2015, 22:28
Привет! Вот еще темы с решениями:

Составить программу, которая по заданному слову из набора строит следующее за ним по алфавиту слово из этого набора
"Слово" Указано слово (латинскими буквами). Из всех его букв составляются...

Вывести на экран следующее за заданным простое число
дано простое число n. Нужно вывести на экран следующее простое число. Например:...

Нужна программа которая будет находить анаграммы
Нужна программа которая будет находить анаграммы. Принцип работы такой....

Составить программу, которая по указанному алгоритму будет выводить на печать число, используя любой текст
Для запоминания числа p иногда используют "магические" фразы, например: "это я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru