|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.06.2009, 12:45 | #1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 18
|
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ
1) Напишите программу вычисления чисел-близнецов, не превосходящих заданного числа N. Близнецами называют пару простых чисел, разность между которыми не превышает двух (например, 5-7, 11-13 и т.д.). Простым называется такое число, которое делится без остатка только на единицу и само себя (например, 5, 11, 19).
|
06.06.2009, 12:57 | #2 |
Форумчанин
Регистрация: 06.01.2009
Сообщений: 340
|
Для нахождения простых чисел в некотором диапазоне можно использовать Решето Эратосфена(http://ru.wikipedia.org/wiki/%D0%A0%...B5%D0%BD%D0%B0)
Там и пример есть. После чего, еще раз пройтись по списку для нахождения чисел-близнецов.
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". |
06.06.2009, 13:28 | #3 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 18
|
а вот как теперь числа-блинзнецы определить?
и проблема с параметром. такого еще не проходил а препод не вазьмет задачу иначе.че делать? долго я репу чесал когда придумывал как через оператор While или for задачу сделать..тока вот никак(. если есть ссылки или текст учебный про параметры дайте плиз.Хочу научиться применять их. Последний раз редактировалось Urz-3; 06.06.2009 в 13:32. |
06.06.2009, 16:23 | #4 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 18
|
а вот все сам сделал. вот если кому че надо для примера
program chisla; uses crt; var n,i,j,dop,sch:integer; ch:array[1..1000] of integer; begin clrscr; sch:=1; write('Vvedi]te N:'); readln(n); for i:=1 to n do begin dop:=0; for j:=1 to i do if (i mod j)=0 then dop:=dop+1; if dop<=2 then begin ch[sch]:=i; sch:=sch+1; end; end; for i:=1 to sch-2 do begin if (ch[i+1]-ch[i])<=2 then writeln(ch[i],' ',ch[i+1]); end; readln; end. |
06.06.2009, 17:07 | #5 |
Форумчанин
Регистрация: 06.01.2009
Сообщений: 340
|
Через решето Эратосфена алгоритм бы работал намного быстрее.
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". |
06.12.2011, 06:33 | #6 |
Новичок
Джуниор
Регистрация: 06.12.2011
Сообщений: 1
|
Составить блок-схему заданного циклического вычислительного процесса - найти сумму отрицательных элементов
исходные данные - 1 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разветвляющиеся вычислительные процессы | Freia | Помощь студентам | 2 | 11.02.2010 17:33 |
вычислительные сети | Sjava | Помощь студентам | 1 | 11.05.2009 15:33 |
Вычислительные сети | Sjava | Помощь студентам | 2 | 10.05.2009 14:40 |
циклические процессы | felmor | Помощь студентам | 4 | 05.02.2009 17:24 |