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

@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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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

	Из промежутка от а до б найти все простые числа. Нужно составить блок-схему 14.11.2013, 00:56. Показов 1459. Ответов 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