|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.06.2011, 10:39 | #1 |
Новичок
Джуниор
Регистрация: 24.06.2011
Сообщений: 2
|
Есть две задачи:первая связана с массивом, вторая-вывести 5 первых совершенных чисел.(платно)
Есть 2 задачи, пробовал сделать, ничего не получается.
Просьба или решить полностью, или помочь разобраться самому. Вторую задачу пробовал сделать так: implicit none integer i,k,N,p,j integer Primes(130),A(5) logical IsPrime Primes(1)=1 Primes(2)=2 N=3 k=3 do while(k<=130) IsPrime=.TRUE. do i=2,N-1 if (mod(N,I)==0) then IsPrime=.FALSE. exit end if end do if (IsPrime) then Primes(k)=N k=k+1 end if N=N+1 end do do j=1,5 if(p.eq.Primes(k)) then A(j)=(2**(p-1))*((2**p)-1) end if end do print *,A end Не получается. 2 задачи до 27.06, даю 50 грн. Возможен торг. Зарание благодарен. |
24.06.2011, 12:29 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
По задаче во вложении что не выходит то?
Заполни массив X для всех 15 элементов. Затем в цикле проверяй среднее арифметичекое каждой пары и запоминай наилучшее приближение к Y ...
на неконкретные вопросы даю неконкретные ответы ...
Последний раз редактировалось Step_UA; 24.06.2011 в 12:35. |
24.06.2011, 12:44 | #4 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 881
|
хм... 5 совершенное число ето: 33 550 336
не знаю какой алгоритм здесь поможет... первые 4 не проблема но вот пятое... |
24.06.2011, 14:55 | #5 |
Новичок
Джуниор
Регистрация: 24.06.2011
Сообщений: 2
|
Массив я вывел, проблема заключается со средним арифметическим, не могу вывести и с тем, как найти приближенное с.а. к заданому y
|
24.06.2011, 16:44 | #6 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
стукни в аську или скайп - помогу с алгоритмом ...
на неконкретные вопросы даю неконкретные ответы ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел | prelest' | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 01.06.2011 10:27 |
Pascal для определения 5 первых совершенных чисел | T@tali | Помощь студентам | 2 | 06.05.2010 22:10 |
Нахождение совершенных чисел. Паскаль | NikLik | Помощь студентам | 3 | 23.11.2007 22:19 |
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. | vitalik007 | Помощь студентам | 1 | 25.09.2007 20:45 |