|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.08.2019, 21:05 | #1 |
Пользователь
Регистрация: 08.08.2019
Сообщений: 20
|
[Pascal] По номеру числа в последовательности простых чисел выдать само число
Здравствуйте, уважаемые форумчане. Задачу нужно решить без введения функций. Максимум все виды циклов.
Задача такая: По номеру числа в последовательности простых чисел выдать само число. Например: ввожу номер 1, выдает 2. Ввожу 2, выдает 3. Ввожу 3, выдает 5. Мои мысли по задаче: Код:
|
15.08.2019, 13:02 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Очередное бредовое задание. Функции не применять. Может, и стандартные (Sqrt) не применять? Тогда это этюд на тему "чесать левое ухо правой ногой".
Если никто не откликнется, после обеда накропаю, разбираться в коде лень. Хоть я и не сталинист |
15.08.2019, 16:55 | #3 |
Пользователь
Регистрация: 08.08.2019
Сообщений: 20
|
Стандартные можно использовать. Заранее спасибо!
|
15.08.2019, 19:25 | #4 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
Вот тут что-то быстро сделал, но лучше разобраться и поправить.
Вроде работает. Код:
Как-то так, ...
|
15.08.2019, 19:30 | #5 |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
Решето Эратосфена для FreePascal.
Код:
|
15.08.2019, 20:07 | #6 |
Пользователь
Регистрация: 08.08.2019
Сообщений: 20
|
Спасибо
|
15.08.2019, 20:22 | #7 | |
Пользователь
Регистрация: 08.08.2019
Сообщений: 20
|
Цитата:
|
|
15.08.2019, 22:09 | #8 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Как я понял - это бесконечный цикл с выходом по Break. Это как если бы написали
if (1+1) = 2 . Оптимизатор компилятора, видимо, этот if выкинет и заменит на банальный jmp на начало цикла. |
15.08.2019, 22:43 | #9 |
Пользователь
Регистрация: 08.08.2019
Сообщений: 20
|
Да,подставил вместо True Ваше условие, работает.Круто. Спасибо. Возьмем на вооружение.
Последний раз редактировалось Stalin2019; 15.08.2019 в 22:46. |
16.08.2019, 00:31 | #10 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
Stalin2019
Цитата:
В Python, например, есть только for и while. В этом случае цикл типа repeat ... until реализуется через Код:
Этот цикл будет выполняться до тех пор, пока не будет вычислено последнее простое число с заданным номером. PS: Собственно вам дали пояснение. PSS: Смысл предложенного алгоритма - использовать предыдущее задание. 1. Задаётся первое простое число m 2. В диапазоне от m + 1 до 2*m ищем следующее простое число по ранее разработанному алгоритму. 3. Если нашли, то увеличиваем номер и поиск продолжаем от найденного 4. Если номер найденного простого числа совпадает с введённым, то завершаем работу. Картинка была бы более понятной, если бы было можно использовать собственную функцию. Думаю, что если бы сам разобрался и сделал с собственной функцией, то смог бы и решение отстоять. Препод мог бы на такое и не "лаять". Но сколько тут "бы"
Как-то так, ...
Последний раз редактировалось ViktorR; 16.08.2019 в 00:39. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка Pascal ABC.NET. Дана последовательность натуральных чисел, Удалить из последовательности простые числа, а среди оставшихся продублировать числа... | n3v3rlucky | Помощь студентам | 1 | 30.11.2017 10:44 |
с++ Вводится последовательность ненулевых чисел,0-конец последовательности, определить наибольшее число в последовательности | ЮськаЮськовна | Помощь студентам | 3 | 10.11.2015 15:20 |
В последовательности чисел выдать на печать TRUE, если значение минимального числа меньше заданного числа К. | Гарри | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 08.11.2015 14:48 |