Описать процедуру проверки простоты числа

@Алла Марковенко · Регистрация: 16.11.2013

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

описать процедуру проверки простоты числа. описать процедуру проверки числа на разложение вида 1+2а. составить программу, которая выбирает из данного массива чисел те, которые удовлетворяют 2 условиям.

@Антон1985 · 01.10.2014, 18:37

Сообщение от Алла Марковенко

описать процедуру проверки числа на разложение вида 1+2а.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure pr(const ch:integer; var b:boolean);
begin
  if ch=1+2*(ch div 2) then
    b:=true
  else
    b:=false;
end;
var
  ch:integer;
  b:boolean;
begin
  write('ch=');
  readln(ch);
  pr(ch,b);
  write(b);
end.

Добавлено через 2 минуты

Сообщение от Алла Марковенко

описать процедуру проверки простоты числа.

Проверка простоты числа

@erl27 · 01.10.2014, 18:38

Антон1985, и как эта процедура определяет простоту числа?

@Антон1985 · 01.10.2014, 19:23

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

Антон1985, и как эта процедура определяет простоту числа?

Какая именно процедура?

Добавлено через 1 минуту

Сообщение от Алла Марковенко

составить программу, которая выбирает из данного массива чисел те, которые удовлетворяют 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
38
39
40
41
42
43
44
procedure pr_prost(const ch:integer; var b:boolean);
var
  i:integer;
begin
  b:=true;
  if ch<2 then b:=false;
  for i:=2 to trunc(sqrt(ch)) do
    if ch mod i=0 then
    begin
      b:=false;
      break;
    end;
end;
 
procedure pr_uslov(const ch:integer; var b:boolean);
begin
  if ch=1+2*(ch div 2) then
    b:=true
  else
    b:=false;
end;
 
const
  max=10;
var
  mas:array[1..max]of integer;
  i:integer;
  a,b:boolean;
begin
  writeln('исходный массив');
  for i:=1 to max do
  begin
    mas[i]:=random(100);
    write(mas[i],' ');
  end;
  writeln;
  writeln('выбранные числа');
  for i:=1 to max do
  begin
    pr_prost(mas[i],a);
    pr_uslov(mas[i],b);
    if a and b then write(mas[i],' ');
  end;
end.

@Cyborg Drone · 01.10.2014, 23:19

Антон1985, в проверке простоты числа неплохо бы

Pascal
1
for i:=4 to round(sqrt(ch)) do

а проверку условия сделать не по индусски, а по человечески:

Pascal
1
2
3
4
procedure pr_uslov(const ch:integer; var b:boolean);
begin
    b:=odd(ch)
end;

Добавлено через 5 минут
И лучше бы было write(mas[i]:3);

@Антон1985 · 02.10.2014, 12:21

Cyborg Drone, спасибо за толкование!

@Cyborg Drone · 02.10.2014, 13:02

Я ошибся. всё-таки

Pascal
1
for i:=2 to trunc(sqrt(ch)) do

Извиняюсь.

@Алла Марковенко · 19.10.2014, 18:57 **[ТС]**

а что значит эта строка?

Pascal
1
for i:=2 to trunc(sqrt(ch)) do

@Cyborg Drone · 19.10.2014, 19:42

Цикл от 2 до целой части корня из числа: если у числа есть делитель p, то n/p также будет делителем, причём один из этих делителей не превосходит $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . При n=2 и n=3 цикл не выполнится ни разу, при 4≤n<8 один раз... В общем, количество проверок будет $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ .

@Алла Марковенко · 19.10.2014, 20:12 **[ТС]**

а почему именно так в этом случае?

@Антон1985 · 19.10.2014, 20:28

Сообщение от Алла Марковенко

а что значит эта строка?

Ну в общем то, это объявление цикла.

@Алла Марковенко · 19.10.2014, 20:31 **[ТС]**

я имею в виду почему именно "trunc(sqrt(ch))"?

@Cyborg Drone · 19.10.2014, 22:15

Цикл от 2 до $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{ch}$ , но и начальное, и конечное значение для цикла for должны быть целыми, потому и приводим конечное значение к целому типу, отбрасывая дробную часть числа функцией trunc. Можете вместо trunc использовать round, то есть, округлять число до ближайшего целого. Лишние проверки, однако, будут.

Немного теории на пальцах.

Допустим, число n имеет делитель p, тогда существует и второй делитель q=n/p. То есть, n=pq. И если p=q, то $https://www.cyberforum.ru/cgi-bin/latex.cgi?p=q=\sqrt{n}$ . Пример - число 9. Но вот ведь какое дело... Пусть p≠q, но тогда либо $https://www.cyberforum.ru/cgi-bin/latex.cgi?p>\sqrt{n},\ q<\sqrt{n},$ либо $https://www.cyberforum.ru/cgi-bin/latex.cgi?q>\sqrt{n},\ p<\sqrt{n}.$ В любом из этих случаев один из делителей меньше $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . И не важно, что второй делитель больше $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . Его искать и не надо, для доказательства того, что число составное, достаточно одного из делителей, который ≤ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . Надеюсь, понятно пояснил.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Алла Марковенко 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 12

	Описать процедуру проверки простоты числа 30.09.2014, 15:44. Показов 4032. Ответов 12 Метки простое число, процедура, условие (Все метки) описать процедуру проверки простоты числа. описать процедуру проверки числа на разложение вида 1+2а. составить программу, которая выбирает из данного массива чисел те, которые удовлетворяют 2 условиям. 0

@erl27 908 / 756 / 833 Регистрация: 06.09.2013 Сообщений: 1,561
	01.10.2014, 18:38
	Антон1985, и как эта процедура определяет простоту числа? 0

@Антон1985 138 / 101 / 102 Регистрация: 03.02.2014 Сообщений: 427
	02.10.2014, 12:21
	Cyborg Drone, спасибо за толкование! 0

@Cyborg Drone Модератор 10383 / 5671 / 3399 Регистрация: 17.08.2012 Сообщений: 17,316
	19.10.2014, 19:42
	Цикл от 2 до целой части корня из числа: если у числа есть делитель p, то n/p также будет делителем, причём один из этих делителей не превосходит $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . При n=2 и n=3 цикл не выполнится ни разу, при 4≤n<8 один раз... В общем, количество проверок будет $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . 1

@Алла Марковенко 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 12
	19.10.2014, 20:12 [ТС]
	а почему именно так в этом случае? 0

@Алла Марковенко 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 12
	19.10.2014, 20:31 [ТС]
	я имею в виду почему именно "trunc(sqrt(ch))"? 0

@Cyborg Drone Модератор 10383 / 5671 / 3399 Регистрация: 17.08.2012 Сообщений: 17,316
	19.10.2014, 22:15
	Цикл от 2 до $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{ch}$ , но и начальное, и конечное значение для цикла for должны быть целыми, потому и приводим конечное значение к целому типу, отбрасывая дробную часть числа функцией trunc. Можете вместо trunc использовать round, то есть, округлять число до ближайшего целого. Лишние проверки, однако, будут. Немного теории на пальцах. Допустим, число n имеет делитель p, тогда существует и второй делитель q=n/p. То есть, n=pq. И если p=q, то $https://www.cyberforum.ru/cgi-bin/latex.cgi?p=q=\sqrt{n}$ . Пример - число 9. Но вот ведь какое дело... Пусть p≠q, но тогда либо $https://www.cyberforum.ru/cgi-bin/latex.cgi?p>\sqrt{n},\ q<\sqrt{n},$ либо $https://www.cyberforum.ru/cgi-bin/latex.cgi?q>\sqrt{n},\ p<\sqrt{n}.$ В любом из этих случаев один из делителей меньше $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . И не важно, что второй делитель больше $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . Его искать и не надо, для доказательства того, что число составное, достаточно одного из делителей, который ≤ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ . Надеюсь, понятно пояснил. 1

Описать процедуру проверки простоты числа

Решение