Из промежутка от а до б найти все простые числа. Нужно составить блок-схему

@Rivaldo · Регистрация: 20.12.2012

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

помогите пожалуйста

@vodav · 14.11.2013, 15:12

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
DEFINT a-z
DIM a,b,i,j
INPUT "Enter a: ",a
INPUT "Enter b: ",b
FOR i=a TO b
  FOR j=2 TO i\2
    IF i MOD j=0 THEN EXIT FOR
    IF j=i\2 THEN PRINT i
  NEXT j
NEXT i
END

@Good-Morning · 14.11.2013, 17:45

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

i\2

Что это?

"Обратное деление"? Или возведение в степень 1/2? По-моему, "обратное деление"...

@Quiet Snow · 14.11.2013, 21:30

Что это?

Целочисленное деление.

@refery07 · 16.12.2013, 17:32

если ввести 1 и 9 он выводит 5 и 7, потеряв 2 и 3 и собственно единицу

echs · 29.05.2016, 18:03

refery07
В программе опечатка.
Поменяйте местами строки 8 и 9 и все будет работать верно.

@Sasha_Smirnov · 29.05.2016, 18:58

geh, проверьте, пожалуйста в QB мой «древнегреческий» (Архимедов) вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub vodav_primes_with_booster()
    Dim a, b, i, j
    a = 10 ^ 9
    b = 10 ^ 9 + 100
        For i = a To b
        
            For j = 2 To Sqr(i)  ' To i \ 2
                If i Mod j = 0 Then Exit For
            Next j
            
            If j > Sqr(i) Then N = N + 1: 'Debug.Print i (см. по Ctrl-G при запуске из Word)
        Next i
    MsgBox "Всего простых промежутке [" & a & "; " & b & "]: " & N
End Sub

У меня верхний предел 10¹⁰ (не включительно).

echs · 29.05.2016, 19:33

Sasha_Smirnov
Я определил для i и j тип LONG и все заработало.
Это не самая быстрая программа. Если брать не
Все числа подряд, а только нечетные, то будет
работать в двое быстрее. Ну а если брать числа
вида 6n +/-1, то будет работать в трое быстрее.

@Sasha_Smirnov · 29.05.2016, 20:41

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

собственно единицу

к простым числам не надо причислять.

У меня (хотя и не в QBasic’е) верно печатает (2-3-5-7-11…) вот такая модификация «циклов vodav’а»:

Visual Basic
1
2
3
4
5
6
    For i = a To b
        For j = 2 To i \ 2
          If i Mod j = 0 Then Exit For
        Next j
        If j = i \ 2 + 1 Then Print i 'в VB индекс здесь не равен верхнему пределу [i\2], а больше его на 1
    Next i

echs · 29.05.2016, 20:54

Sasha_Smirnov
Единица (1) - не является ни простым ни составным числом
В быстрых программах числа 2 и 3 не вычисляют, а сразу
печатают. Вы верно модифицировали программу. Дело в том,
что если число является ТОЧНЫМ КВАДРАТОМ, то при работе
с вещественными числами оно может попасть в разряд
простых чисел, хотя таковым может и не быть.

@Sasha_Smirnov · 08.07.2016, 16:28

А я — с целыми, geh!

@m-ch · 09.07.2016, 05:59

Цикл по j лучше организовать не до i\2, а до sqr(i), это даст существенный прирост скорости для больших a и b

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
DIM i AS LONG, j AS LONG, a AS LONG, b AS LONG
a = 10 ^ 9
b = a + 100
FOR i = a TO b
    IF i MOD 2 = 1 OR i = 2 THEN
        FOR j = 3 TO SQR(i) STEP 2
            IF i MOD j = 0 THEN EXIT FOR
        NEXT j
        IF j > SQR(i) AND i > 1 THEN PRINT i
    END IF
NEXT i

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Rivaldo 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 25

	Из промежутка от а до б найти все простые числа. Нужно составить блок-схему 14.11.2013, 00:56. Показов 1434. Ответов 11 Метки нет (Все метки) помогите пожалуйста 0

@refery07 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 12
	16.12.2013, 17:32
	если ввести 1 и 9 он выводит 5 и 7, потеряв 2 и 3 и собственно единицу 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	29.05.2016, 18:03
	refery07 В программе опечатка. Поменяйте местами строки 8 и 9 и все будет работать верно. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	29.05.2016, 19:33
	Sasha_Smirnov Я определил для i и j тип LONG и все заработало. Это не самая быстрая программа. Если брать не Все числа подряд, а только нечетные, то будет работать в двое быстрее. Ну а если брать числа вида 6n +/-1, то будет работать в трое быстрее. 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	29.05.2016, 20:54
	Sasha_Smirnov Единица (1) - не является ни простым ни составным числом В быстрых программах числа 2 и 3 не вычисляют, а сразу печатают. Вы верно модифицировали программу. Дело в том, что если число является ТОЧНЫМ КВАДРАТОМ, то при работе с вещественными числами оно может попасть в разряд простых чисел, хотя таковым может и не быть. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	08.07.2016, 16:28
	А я — с целыми, geh! 0