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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2009, 12:45   #1
Urz-3
Пользователь
 
Регистрация: 25.12.2008
Сообщений: 18
Вопрос ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ

1) Напишите программу вычисления чисел-близнецов, не превосходящих заданного числа N. Близнецами называют пару простых чисел, разность между которыми не превышает двух (например, 5-7, 11-13 и т.д.). Простым называется такое число, которое делится без остатка только на единицу и само себя (например, 5, 11, 19).
Urz-3 вне форума Ответить с цитированием
Старый 06.06.2009, 12:57   #2
Daramant
Форумчанин
 
Регистрация: 06.01.2009
Сообщений: 340
По умолчанию

Для нахождения простых чисел в некотором диапазоне можно использовать Решето Эратосфена(http://ru.wikipedia.org/wiki/%D0%A0%...B5%D0%BD%D0%B0)
Там и пример есть.

После чего, еще раз пройтись по списку для нахождения чисел-близнецов.
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".
Daramant вне форума Ответить с цитированием
Старый 06.06.2009, 13:28   #3
Urz-3
Пользователь
 
Регистрация: 25.12.2008
Сообщений: 18
По умолчанию

а вот как теперь числа-блинзнецы определить?
и проблема с параметром. такого еще не проходил а препод не вазьмет задачу иначе.че делать? долго я репу чесал когда придумывал как через оператор While или for задачу сделать..тока вот никак(. если есть ссылки или текст учебный про параметры дайте плиз.Хочу научиться применять их.

Последний раз редактировалось Urz-3; 06.06.2009 в 13:32.
Urz-3 вне форума Ответить с цитированием
Старый 06.06.2009, 16:23   #4
Urz-3
Пользователь
 
Регистрация: 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.
Urz-3 вне форума Ответить с цитированием
Старый 06.06.2009, 17:07   #5
Daramant
Форумчанин
 
Регистрация: 06.01.2009
Сообщений: 340
По умолчанию

Через решето Эратосфена алгоритм бы работал намного быстрее.
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".
Daramant вне форума Ответить с цитированием
Старый 06.12.2011, 06:33   #6
Irina_O
Новичок
Джуниор
 
Регистрация: 06.12.2011
Сообщений: 1
По умолчанию

Составить блок-схему заданного циклического вычислительного процесса - найти сумму отрицательных элементов
исходные данные - 1
Irina_O вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разветвляющиеся вычислительные процессы 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