Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2011, 11:22   #1
Yuryk26
 
Регистрация: 14.04.2011
Сообщений: 7
Восклицание паскаль. Цикли

Дано просте число N . Знайти наступне просте число.
Yuryk26 вне форума Ответить с цитированием
Старый 18.04.2011, 11:50   #2
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Цитата:
Дано просте число N . Знайти наступне просте число.
Извините, но щито вы написали?О_о
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 18.04.2011, 12:04   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вероятно автор имел в виду "найти следующее" на украинском или каком-то похожем языке, но так торопился, что раскладку клавиатуры переключил, а перевести забыл)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.04.2011, 13:11   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

я Гуглом перевёл... с украинского:
Цитата:
Дано простое число N. Найти следующее простое число.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.04.2011, 13:18   #5
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

> раскладку клавиатуры переключил

это вы как определили?

По теме:

Код:
function isPrime(N: Integer): boolean;
begin
  // проверка числа на простоту, гуглится на форуме
end;

var
  N: Integer;
begin
  N := 11;
  //
  repeat
    inc(N, 2);
  until (isPrime(N));
  //
  // наступне просте число знайдено
  WriteLn(N);
end.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 18.04.2011, 14:02   #6
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
это вы как определили?
Имхо в словах "Цикли" или "знайти" должна быть хоть 1 укр. "i", хотя может быть и нет, украинского не знаю)


___________
по лезвию бритвы ходите, дорогие товарищи...
Это называется ФЛУД.
На вопрос veniside о языке отвечать было совсем не обязательно,
вопрос было риторическо-иронический...

Если дискуссия о языковедении продолжится - порубаю все сообщения топором.
Прошу учесть и не флудить...

Модератор.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Serge_Bliznykov; 18.04.2011 в 15:13.
Alex11223 вне форума Ответить с цитированием
Старый 18.04.2011, 16:51   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

veniside а если N=2 то следующее простое вы не получите никогда)
так что
Код:
inc(N);
все-таки
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 18.04.2011, 19:48   #8
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

фак, верно, 2 ведь тоже простое.

Код:
inc(N);
не, ну это не серъёзно. Зачем чётные гонять туда-сюда. Проще уж один раз на 2 порверить начальное N перед циклом.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
Цикли Сашка93 Паскаль, Turbo Pascal, PascalABC.NET 3 16.03.2011 13:47
С++ Цикли ((((((( basav1k Помощь студентам 0 25.05.2010 19:44
Сложные цикли и разветвления. Artimbulidor Помощь студентам 4 06.11.2008 11:58