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

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

20.04.2015, 11:21. Просмотров 480. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

Что это было?

В таком цикле все значания должны бить целыми:
Pascal
1
for i:=2 to round(sqrt(n)) do
А квадратный корень дает вещественное число.
Вас это смутило?
0
pers775
0 / 0 / 0
Регистрация: 06.04.2015
Сообщений: 33
26.04.2015, 21:33  [ТС] #5
Прочитай условие ещё раз, я конечно не против что ты что-то исправил но нужно из функции сделать процедуру
0
ФедосеевПавел
Модератор
3602 / 1985 / 825
Регистрация: 01.02.2015
Сообщений: 6,608
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. Нужно вывести на экран следующее простое число. Например:...


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

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

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