Приветствуем на Форум Херсона. Форум Херсонской молодежи.. На данный момент Вы находитесь на форуме как Гость и имеете очень ограниченные возможности и права. Что бы писать или отвечать в темах, загружать картинки, файлы на форуме Вам нужно зарегистрироваться, что совершенно бесплатно. Регистрация очень быстрая, не откладывайте эту процедуру! Если возникнут проблемы с регистрацией напишите нам. |
|
Программирование Все вопросы по написанию программ |
Просмотр темы (Новые вначале) |
13.04.2011 21:26 | ||
незарегистрированный |
Russian code cup. Ограничения по памяти 256мб, ограничение по времени ввыполнения 2с. Пример задачи. ___________ Палиндромом называют строку, читающуюся одинаково с обеих сторон. Задана строка s. Найдите ее наибольшую по длине подстроку, не являющуюся палиндромом. Формат входных данных Входные данные содержат строку s. Она состоит только из строчных букв латинского алфавита, не пуста, а ее длина не превышает 100000 символов. Формат выходных данных В выходной файл выведите ответ на задачу. Если все подстроки s являются палиндромами, выведите в выходной файл NO SOLUTION. |
|
13.04.2011 20:59 | ||
Dreamer |
Мама моя!!! Интересная тема!!! Почесав затылок, юзер дописал через 52 секунды пингвинатор, спасибо, что забанил меня за флуд года 3 назад))) так бы и не вспомнил... а так... в профиле напоминание!!! |
|
25.11.2007 23:44 | ||
Henri | А зачем ты туда ваще пошла? | |
17.11.2007 07:13 | ||
Dreamer | ..... Нет | |
13.11.2007 21:14 | ||
Debian | а в консоли делфи можнорисовать как в паскале? | |
13.11.2007 19:39 | ||
Lelichek | у меня в галаве фотоапарат не заложен...))) | |
10.11.2007 21:33 | ||
Dreamer | Какие? Дай глянуть | |
10.11.2007 20:46 | ||
Lelichek | блин... седня была на городской оллимпиаде по програмированию))) это жопа) там такие задачки.. мы в шкоел таких в глаза и не видали)))) | |
21.09.2007 22:20 | ||
Dreamer |
Реализация... Код:
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 |
|
21.09.2007 22:16 | ||
Dreamer |
Заочная олимпиада ФТЛ 2007 2. Последовательность Последовательность 0110100110010110…строится так: сначала пишется 0, затем повторяется такое действие: уже написанную часть приписывают справа с заменой элемента 0 на 1 и наоборот, т.е. 0 01011001101001... Требуется написать программу, которая находит цифру, стоящую в последовательности на n-том месте. Пример входных и выходных данных Входные: 9 Выходные: 1 |
|
21.09.2007 20:24 | ||
Dreamer | Я выпускник ФТЛ | |
21.09.2007 20:20 | ||
BenQ |
А ты в ФТЛ? Какой клас? |
|
21.09.2007 19:31 | ||
Dreamer |
Заочная олимпиада ФТЛ 2007 Ссылка битая Выкладываю эти задания здесь... |
|
21.09.2007 16:46 | ||
BenQ |
У меня нету надежд на то что ктото решит Просто выложил все заочные олимпиады, может комуто будет интересно порешать |
|
21.09.2007 16:45 | ||
hermit | ыыы, в свое время мы сами решали такие задачи, а не писали на форуме с надеждой что кто то решит..... | |
21.09.2007 16:42 | ||
BenQ |
Заочные олимпиады 07-08 ФТЛ http://192.168.1.70/rupload/download...423&del=352254 |
|
08.09.2007 17:14 | ||
Dreamer |
Розв’язання Код:
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 |
|
08.09.2007 17:10 | ||
Dreamer |
Херсонський державний університет Оптимальне злиття файлів Данні для обробки на комп’ютері підготовлені у вигляді N файлів, що складаються з однотипних записів. Об’єднати всі файли в один. Для об’єднання використовують програму злиття, яка об’єднує 2 файли, за час пропорційний довжині. Скласти програму, яка визначає порядок злиття, при якому загальний час злиття буде мінімальним. Дано: N– кількість файлів, L1,L2, …,Ln– довжини файлів. Результат вивести у вигляді: T K11 K12 K13 ……………… Km1 Km2 Km3 Де, K11 – довжина першого файлу, K12 – довжина другого файлу, K13 – довжина третього (отриманого) файлу. www.ksu.ks.ua
|
|
22.08.2007 09:38 | ||
Dreamer |
Цитата:
Но мне покамись простительно |
|
22.08.2007 08:33 | ||
D.K. |
>ыыы чуваги а посерьезней чисел фибоначчи есть что-то ? а вы вначале предложите нормальную реализацтию фибоначи с 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. |
|
21.08.2007 20:05 | ||
Dreamer | "Сантехники" | |
21.08.2007 20:04 | ||
Dreamer | Видно никто особо не интерисуется... Программеры спят | |
21.08.2007 19:25 | ||
TIGR | посерьёзней все задачи со второго тура, кроме чисел фиобначи и агентсва. | |
21.08.2007 18:28 | ||
zwitter | ыыы чуваги а посерьезней чисел фибоначчи есть что-то ? | |
21.08.2007 17:56 | ||
Muxa |
Цитата:
блин сначала "сантехники" прочитал )))))) |
|
21.08.2007 17:24 | ||
Dreamer |
Да. Есть у них такое Но в основном на 1м курсе... После идёт - системное... Они ведь по квалификации "системотехники" будут |
|
21.08.2007 17:03 | ||
Muxa | кхм на ксс программирование? ;) | |
21.08.2007 14:10 | ||
Dreamer | А давайте всё-таки обсудим это здесь http://forum.norma4.net.ua/showthread.php?t=4725 | |
21.08.2007 14:04 | ||
Dreamer |
А у меня в Универе все 5 курсов будет в основном программирование... Сделал рекурсивную функцию на Паскале которая находит i-е число из ряда чисел Фибоначчи: Код:
Function Fibo(i:byte):longint; begin if i<3 then Fibo:=1 else Fibo:=Fibo(i-2)+Fibo(i-1) end; |
|
21.08.2007 11:31 | ||
ice@ | А какой универ? | |
В этой теме более 30 ответов(а). Нажмите здесь, чтобы перезагрузить эту тему. |