Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

Олимпиада по информатике   Найти похожие ветки 

 
Footballer ©   (2007-01-14 19:42) [40]

Вот програмка, вычисляющая первое простое число содержащее млн. знаков :)))
var i:integer;
   f:TextFile;
   s:string;
begin
 Randomize;
 s:= "1"; //чтобы не вызвать подозрений :)
 for i:= 1 to 99999 do
   s:= s + inttostr(trunc(random(10000000000)));
 AssignFile(f, "C:/q.txt");
 Rewrite(f);
 Write(f, s);
 CloseFile(f);


Получился файлик ровно 900 KB, остаётся только отдать его Microsoft и забрать честно заработанные бабки :-D


 
Footballer ©   (2007-01-14 19:58) [41]

Кстати, насчёт олимпиады, распределения баллов по-моему тупое:

2-ая задача (15 баллов) самая лёгкая, ну вообще делать нечего;
3-ья задача (20 баллов) тоже очень лёгкая, если не обламаться как я :)
1-ая задача (10 баллов) вроде как не очень сложная, но там очень много писать;
4-ая задача (25 баллов) самая сложная, её даже взрослые преподаватели не смогли решить
5-ая задача (30 баллов) Вроде не очень сложная, просто надо знать числа Фибоначчи (кстати что это такое?), а без этого тут делать нечего...


 
ferr ©   (2007-01-14 20:02) [42]

> 5-ая задача (30 баллов) Вроде не очень сложная, просто надо
> знать числа Фибоначчи (кстати что это такое?), а без этого
> тут делать нечего...

Ты явно не читал Дэна Брауна. =) И не читай. =) Это самое попсовое реккурентное соотношения. F(n) = F(n - 1) + F(n - 2). 1 1 2 3 5 8 13 ... Появляется во многих задачах.


 
Footballer ©   (2007-01-14 20:06) [43]

То есть каждое новое число образуется суммой 2-х предыдущих?


 
PHPdeveloper   (2007-01-14 20:06) [44]


> числа Фибоначчи (кстати что это такое?

http://g6prog.narod.ru/books.html


 
ferr ©   (2007-01-14 20:34) [45]

Такс.. Посмотерел 4. Она действительно сложнее 5-ой.
Какое могу предложить решение : Выделяем все циклы в графе. Это можно сделать одним проходом dfs за O(V^2). Имеем цикл и надо сделать сумму весов рёбер как можно меньшей (по модулю). Для этого складываем все веса рёбер цикла и делим на количество рёбер. Получившееся число вычитаем из весов всех рёбер цикла.

Проблемы могут возникнуть если один цикл содержит другой, но вроде не должны..

Для первого теста, матрица смежности выглядит так


1 2 100
2 3 50
3 1 75

       1     2     3
1       -   100   -75
2    -100     -    50
3      75   -50     -


 
Vendict ©   (2007-01-14 22:52) [46]

vidiv ©   (14.01.07 16:11) [28]
а докажем как?

допустим так:
Тест на основе малой теоремы Ферма. если n простое, то выполняется условие:
При всех а из {2, 3,…n-1} имеет место сравнение a^(n-1)=1 mod n

vidiv ©   (14.01.07 16:47) [32]

есть такая теорема:

Теорема (Диемитко): Пусть n = qR+1 > 1,
где q - простое, R - четное и  R<4(q+1).
Если существует целое а такое, что
а^(n-1) = 1 mod n
a^((n-1)/q) <> 1 mod n
то n - простое.

вперёд.



Страницы: 1 2 вся ветка

Форум: "Прочее";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.53 MB
Время: 0.042 c
15-1168909462
Tirael
2007-01-16 04:04
2007.02.04
баян


2-1168982958
16alex
2007-01-17 00:29
2007.02.04
развертывание приложения с dbexpress


2-1169204894
Bobs
2007-01-19 14:08
2007.02.04
Проблема с программой


2-1169040951
InfraRed
2007-01-17 16:35
2007.02.04
Функция RegConnectRegistry


3-1163412265
Kolan
2006-11-13 13:04
2007.02.04
Что делать с знаком при подстановке запроса?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский