Приветствуем на Форум Херсона. Форум Херсонской молодежи.. На данный момент Вы находитесь на форуме как Гость и имеете очень ограниченные возможности и права. Что бы писать или отвечать в темах, загружать картинки, файлы на форуме Вам нужно зарегистрироваться, что совершенно бесплатно. Регистрация очень быстрая, не откладывайте эту процедуру! Если возникнут проблемы с регистрацией напишите нам. |
|
Программирование Все вопросы по написанию программ |
Результаты опроса: Нужен ли форуму данный топик? | |||
Да | 36 | 69.23% | |
Нет | 10 | 19.23% | |
Не знаю | 6 | 11.54% | |
Голосовавшие: 52. Вы еще не голосовали в этом опросе |
|
Опции темы |
21.08.2007, 20:25 | #61 (Ссылка на пост) | ||||||||
Щас сменю себе статус
Пол:
Благодарил(а): 9,926
Благодарили 6,148 раз в 2,096 постах
Галерея:
0
Вес репутации: 82
|
посерьёзней все задачи со второго тура, кроме чисел фиобначи и агентсва.
__________________
|
||||||||
|
Сказали Спасибо пользователю TIGR за этот пост: | Dreamer (21.08.2007) |
21.08.2007, 21:04 | #62 (Ссылка на пост) |
Мечтатель
Пол:
|
Видно никто особо не интерисуется... Программеры спят
Последний раз редактировалось Dreamer, 21.08.2007 в 21:06. |
|
21.08.2007, 21:05 | #63 (Ссылка на пост) |
Мечтатель
Пол:
|
|
|
Сказали Спасибо пользователю Dreamer за этот пост: | Muxa (21.08.2007) |
22.08.2007, 09:33 | #64 (Ссылка на пост) | ||||||||
Что-то высматривает
Пол:
Благодарил(а): 0
Благодарили 139 раз в 80 постах
Галерея:
0
Вес репутации: 18
|
>ыыы чуваги а посерьезней чисел фибоначчи есть что-то ?
а вы вначале предложите нормальную реализацтию фибоначи с memorize, матрицами и т.п. динамическим програмированием я в принципе небуду заморачиватся и юзаю прямую формулу вывода n-го члена, впрочем и моя реализация далеко не самая оптимальная, но на несколько порядков лучше рекурсивной и на пару порядков итеративной ибо возведение в степень по некоторым причинам имеет время вычисления не меньше log2N, а стремится надо к logN Код:
program Fib01; {$APPTYPE CONSOLE} uses SysUtils, Math; var n : Integer; Fn : Extended; Fi_p, fi_n : Real; begin Write('Give me "n" pal : = '); try Readln(n); try Fi_p := 0.5 * (1 + sqrt(5)); // золотое сечение fi_n := 0.5 * (1 - sqrt(5)); // -1/золотое сечение Fn := (1/sqrt(5))*(Math.Power(Fi_p, n) - Math.Power(fi_n, n)); // выведенная методом индукции Эйлером (Бине) except on E:Exception do Exit; end; except on E:EInOutError do begin Writeln('You motherfucker, give me number next time'); Write('Press "Enter" to exit...'); Readln; Exit; end; end; Writeln('Fn(' + IntToStr(n) + ')' + '= ' + FloatToStr(Fn)); Write('Press "Enter" to exit...'); Readln; end.
__________________
"...is nothing to the pain I can cause in your own mind" (Dargent Peytraud © The Serpent and the Rainbow) "What's the matter, kid? Don't ya like clowns?...Why? Don't we make ya laugh? Aren't we fuckin' funny? You best come up with an answer, cos I'm gonna come back here and check on you and your momma and if you ain't got a reason why you hate clowns, I'm gonna kill your whole fucking family" (Captain J.T. Spaulding © The Devil's Reject) |
||||||||
|
22.08.2007, 10:38 | #65 (Ссылка на пост) |
Мечтатель
Пол:
|
|
|
Сказали Спасибо пользователю Dreamer за этот пост: | ice@ (22.08.2007) |
08.09.2007, 18:10 | #66 (Ссылка на пост) |
Мечтатель
Пол:
|
Херсонський державний університет
Оптимальне злиття файлів Данні для обробки на комп’ютері підготовлені у вигляді N файлів, що складаються з однотипних записів. Об’єднати всі файли в один. Для об’єднання використовують програму злиття, яка об’єднує 2 файли, за час пропорційний довжині. Скласти програму, яка визначає порядок злиття, при якому загальний час злиття буде мінімальним. Дано: N– кількість файлів, L1,L2, …,Ln– довжини файлів. Результат вивести у вигляді: T K11 K12 K13 ……………… Km1 Km2 Km3 Де, K11 – довжина першого файлу, K12 – довжина другого файлу, K13 – довжина третього (отриманого) файлу. www.ksu.ks.ua Последний раз редактировалось Dreamer, 21.09.2007 в 23:21. |
|
08.09.2007, 18:14 | #67 (Ссылка на пост) |
Мечтатель
Пол:
|
Розв’язання
Код:
Program Files; const M=100; type arr=1..M; var N,i,k:arr; L:array[arr] of word; Temp:word; Log:array[arr,1..3] of longint; T:longint; begin readln(N); for i:=1 to N do readln(L[i]); for k:=N-1 downto 1 do for i:=1 to k do if L[i]>L[i+1] then begin Temp:=L[i]; L[i]:=L[i+1]; L[i+1]:=Temp end; T:=0; for i:=1 to N-1 do begin Log[i,1]:=L[i]; Log[i,2]:=L[i+1]; Temp:=L[i]+L[i+1]; Log[i,3]:=Temp; T:=T+Temp; k:=i+1; while (k<N) and (Temp>L[k+1]) do begin L[k]:=L[k+1]; k:=k+1 end; L[k]:=Temp; end; writeln(T); for i:=1 to N-1 do begin for k:=1 to 3 do write(Log[i,k]:7); writeln end; readln end. All Rights Reserver Dreamer 2007 Последний раз редактировалось Dreamer, 21.09.2007 в 23:21. |
|
21.09.2007, 17:42 | #68 (Ссылка на пост) | ||||||||
Лентяй I-го разряда
Пол:
Благодарил(а): 1,388
Благодарили 1,228 раз в 600 постах
Галерея:
0
Вес репутации: 32
|
Заочные олимпиады 07-08 ФТЛ
http://192.168.1.70/rupload/download...423&del=352254 Последний раз редактировалось BenQ, 21.09.2007 в 17:46. |
||||||||
|
21.09.2007, 17:45 | #69 (Ссылка на пост) | ||||||||
моск отзавись....
Пол:
Благодарил(а): 2,638
Благодарили 2,666 раз в 826 постах
Галерея:
0
Вес репутации: 45
|
ыыы, в свое время мы сами решали такие задачи, а не писали на форуме с надеждой что кто то решит.....
__________________
|
||||||||
|
21.09.2007, 17:46 | #70 (Ссылка на пост) | ||||||||
Лентяй I-го разряда
Пол:
Благодарил(а): 1,388
Благодарили 1,228 раз в 600 постах
Галерея:
0
Вес репутации: 32
|
У меня нету надежд на то что ктото решит
Просто выложил все заочные олимпиады, может комуто будет интересно порешать |
||||||||
|
21.09.2007, 20:31 | #71 (Ссылка на пост) |
Мечтатель
Пол:
|
Заочная олимпиада ФТЛ 2007
Ссылка битая
Выкладываю эти задания здесь... Последний раз редактировалось Dreamer, 22.09.2007 в 00:11. |
|
21.09.2007, 21:20 | #72 (Ссылка на пост) | ||||||||
Лентяй I-го разряда
Пол:
Благодарил(а): 1,388
Благодарили 1,228 раз в 600 постах
Галерея:
0
Вес репутации: 32
|
|||||||||
|
21.09.2007, 21:24 | #73 (Ссылка на пост) |
Мечтатель
Пол:
|
|
|
21.09.2007, 23:16 | #74 (Ссылка на пост) |
Мечтатель
Пол:
|
Заочная олимпиада ФТЛ 2007
2. Последовательность
Последовательность 0110100110010110…строится так: сначала пишется 0, затем повторяется такое действие: уже написанную часть приписывают справа с заменой элемента 0 на 1 и наоборот, т.е. 0 01011001101001... Требуется написать программу, которая находит цифру, стоящую в последовательности на n-том месте. Пример входных и выходных данных Входные: 9 Выходные: 1 Последний раз редактировалось Dreamer, 21.09.2007 в 23:18. |
|
21.09.2007, 23:20 | #75 (Ссылка на пост) |
Мечтатель
Пол:
|
Реализация...
Код:
Program P2SS; type dss=0..1; var P:array[1..10000] of dss; N,K,I:word; begin readln(N); P[1]:=0; P[2]:=1; K:=2; I:=0; while N>K+I do begin if I=K then begin I:=1; K:=2*K end else I:=I+1; if P[i]=0 then P[K+I]:=1 else P[K+I]:=0 end; writeln(P[N]); readln end. All Rights Reserved Dreamer 2007 Последний раз редактировалось Dreamer, 21.09.2007 в 23:26. |
|
10.11.2007, 21:46 | #76 (Ссылка на пост) |
Lel'kawood
Пол:
|
блин... седня была на городской оллимпиаде по програмированию))) это жопа) там такие задачки.. мы в шкоел таких в глаза и не видали))))
__________________
Ты какой-то загадочный... толи еб№%утый.. толи сказочный =) |
|
10.11.2007, 22:33 | #77 (Ссылка на пост) |
Мечтатель
Пол:
|
|
|
13.11.2007, 20:39 | #78 (Ссылка на пост) |
Lel'kawood
Пол:
|
__________________
Ты какой-то загадочный... толи еб№%утый.. толи сказочный =) |
|
13.11.2007, 22:14 | #79 (Ссылка на пост) |
Извините, я на тракторе!
Пол:
|
а в консоли делфи можнорисовать как в паскале?
__________________
Какая разница из какого места растут руки, если они золотые. |
|
17.11.2007, 08:13 | #80 (Ссылка на пост) |
Мечтатель
Пол:
|
|
|
26.11.2007, 00:44 | #81 (Ссылка на пост) | ||||||||
сам по себе
Пол:
Благодарил(а): 1,386
Благодарили 2,082 раз в 918 постах
Записей в дневнике: 2
Галерея:
0
Вес репутации: 39
|
|||||||||
|
13.04.2011, 21:59 | #82 (Ссылка на пост) |
Мечтатель
Пол:
|
Мама моя!!! Интересная тема!!!
Почесав затылок, юзер дописал через 52 секунды пингвинатор, спасибо, что забанил меня за флуд года 3 назад))) так бы и не вспомнил... а так... в профиле напоминание!!! |
|
13.04.2011, 22:26 | #83 (Ссылка на пост) | ||||||||
незарегистрированный
Гость
Галерея:
|
Russian code cup. Ограничения по памяти 256мб, ограничение по времени ввыполнения 2с. Пример задачи.
___________ Палиндромом называют строку, читающуюся одинаково с обеих сторон. Задана строка s. Найдите ее наибольшую по длине подстроку, не являющуюся палиндромом. Формат входных данных Входные данные содержат строку s. Она состоит только из строчных букв латинского алфавита, не пуста, а ее длина не превышает 100000 символов. Формат выходных данных В выходной файл выведите ответ на задачу. Если все подстроки s являются палиндромами, выведите в выходной файл NO SOLUTION. |
||||||||
|
Здесь присутствуют: 1 (пользователей - 0 , гостей - 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тема для желающих поучаствовать в конкурсе по программированию! | Aurum | Программирование | 84 | 06.01.2007 00:41 |
Ссылки на лит. по программированию | Smith | Программирование | 9 | 10.06.2006 21:49 |