Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Задача на паскалі
Для відправлення відповіді ви повинні увійти або зареєструватися
Доброго вечора!
В мене виникли проблеми з рішенням такої задачки
Пробував написати таке
До коментаря я шукаю який зуб загострений(позначаю 1) а який не загострений(позначаю 2).
Після коментаря я пробував записати к-сть загострених зубів підряд в масив C.
А потім вже знайти макс. значення в масиві C.
Помилки не вибиває але не рахує...
В чому проблема???
Надмір рухів. Вам треба знайти максимум з множини ланцюжків загострених зубів. Ну так і треба:
for i:=1 to n do begin
read(a);
if a > k then //якщо зуб нагострений
len := len + 1;//довжина ланцюжка збільшується
else
len := 0; //інакше занулюється
if len > lenmax then
lenmax := len;
end;Решту самостійно.
Цей код я так розумію рахує так:
якщо перший зуб загострений, то довжину збільшуємо,
якщо наступний зуб теж загострений то знову збільшуємо...
а якщо наступний зуб незагострений, то довжина анульовується..
Тобто, якщо буде так ˄∩˄˄˄∩˄ то вийде
довжина присв. 1, потім анульовується, потім присв. 3, потім анульовується, і потім знову присв. 1 Так???
І в мене виходить результат 1, а мені треба 3...
Q-bart, ви приймали участь у міській олімпіаді з програмування цього року?
Цей код я так розумію рахує так:
якщо перший зуб загострений, то довжину збільшуємо,
якщо наступний зуб теж загострений то знову збільшуємо...
а якщо наступний зуб незагострений, то довжина анульовується..
Тобто, якщо буде так ˄∩˄˄˄∩˄ то вийде
довжина присв. 1, потім анульовується, потім присв. 3, потім анульовується, і потім знову присв. 1 Так???
І в мене виходить результат 1, а мені треба 3...
Результат це len чи lenmax?
Цей код я так розумію рахує так:
якщо перший зуб загострений, то довжину збільшуємо,
якщо наступний зуб теж загострений то знову збільшуємо...
а якщо наступний зуб незагострений, то довжина анульовується..
Тобто, якщо буде так ˄∩˄˄˄∩˄ то вийде
довжина присв. 1, потім анульовується, потім присв. 3, потім анульовується, і потім знову присв. 1 Так???
І в мене виходить результат 1, а мені треба 3...
for j := i + 1 to n - i do //ось це що таке?
Якщо n=10000, а поточне i=100, то це якийсь цикл від 101 до 9900. Що за число 9900?
Результат це len чи lenmax?
Друге.
Ви маєте на увазі цей кусок коду..?
for i := 1 to n do
begin
for j := i + 1 to n - i do
if a[i] = a[j] then c[i] := c[i] + 1
else break;
end;Пояснюю
n - це к-сть всіх зубів,
Я беру перший зуб a[і] і порівнюю з другим(j:=i+1) тобто a[j]. Якщо дорівнює, я збільшую на одну одиницю елемент в масиві C. Потім перший порівнюю з другим, третім і так далі....
Але тепер, після перерви я побачив що я тут намутив.... Зараз буду перероблювати..
Q-bart, ви приймали участь у міській олімпіаді з програмування цього року?
Так.
▼Обережно, вірний розв'язок на С++
Дякую, але мені тре паскаль....
Так.
Ура.
Доречі перші три задачі були якісь надто легкі. Вони заняли лише пів години.
А от останню я зрозумів тільки частково (але думав десь 3 год). і все до чого я дійшов це перші тести і рандом.
Ви рішили четверту?
Ви пройшли далі?
Так.
Ура.
Доречі перші три задачі були якісь надто легкі. Вони заняли лише пів години.
А от останню я зрозумів тільки частково (але думав десь 3 год). і все до чого я дійшов це перші тести і рандом.Ви рішили четверту?
Ви пройшли далі?
Ну може вам, так як вже давно вчите C++ і перші три дуже легкі але в нас в районі навіть з одинадцятого класу лише 1 чи 2 учні(не пам'ятаю) зробили другу повністю, з всіма тестами(!)
Я зробив лише 1 для всіх тестів, і по 2 бали за інші...
Проте я пройшов на ІІІ етап... Тепер готуюсь, щойно почались канікули... Вже хотів покинути паскаль, але ж нема часу вчити другу мову...
Joker написав:Так.
Ура.
Доречі перші три задачі були якісь надто легкі. Вони заняли лише пів години.
А от останню я зрозумів тільки частково (але думав десь 3 год). і все до чого я дійшов це перші тести і рандом.Ви рішили четверту?
Ви пройшли далі?Ну може вам, так як вже давно вчите C++ і перші три дуже легкі але в нас в районі навіть з одинадцятого класу лише 1 чи 2 учні(не пам'ятаю) зробили другу повністю, з всіма тестами(!)
Я зробив лише 1 для всіх тестів, і по 2 бали за інші...
Проте я пройшов на ІІІ етап... Тепер готуюсь, щойно почались канікули... Вже хотів покинути паскаль, але ж нема часу вчити другу мову...
Тобто ми зустрінемося у Львові, тільки у різних категоріях? 
Q-bart написав:Joker написав:Ура.
Доречі перші три задачі були якісь надто легкі. Вони заняли лише пів години.
А от останню я зрозумів тільки частково (але думав десь 3 год). і все до чого я дійшов це перші тести і рандом.Ви рішили четверту?
Ви пройшли далі?Ну може вам, так як вже давно вчите C++ і перші три дуже легкі але в нас в районі навіть з одинадцятого класу лише 1 чи 2 учні(не пам'ятаю) зробили другу повністю, з всіма тестами(!)
Я зробив лише 1 для всіх тестів, і по 2 бали за інші...
Проте я пройшов на ІІІ етап... Тепер готуюсь, щойно почались канікули... Вже хотів покинути паскаль, але ж нема часу вчити другу мову...Тобто ми зустрінемося у Львові, тільки у різних категоріях?
Виходить, так...
Надмір рухів. Вам треба знайти максимум з множини ланцюжків загострених зубів. Ну так і треба:
for i:=1 to n do begin read(a); if a > k then //якщо зуб нагострений len := len + 1;//довжина ланцюжка збільшується else len := 0; //інакше занулюється if len > lenmax then lenmax := len; end;Решту самостійно.
Я ще раз перечитав, вдумався і зрозумів.. Надалі запам'ятаю.
Дуже-дуже дякую!!!
Joker написав:Q-bart написав:Ну може вам, так як вже давно вчите C++ і перші три дуже легкі але в нас в районі навіть з одинадцятого класу лише 1 чи 2 учні(не пам'ятаю) зробили другу повністю, з всіма тестами(!)
Я зробив лише 1 для всіх тестів, і по 2 бали за інші...
Проте я пройшов на ІІІ етап... Тепер готуюсь, щойно почались канікули... Вже хотів покинути паскаль, але ж нема часу вчити другу мову...Тобто ми зустрінемося у Львові, тільки у різних категоріях?
Виходить, так...
Круто!!!
От тільки, що важкого у тих задачах?
1) перевірка на парні і непарні числа.
2) просто на реалізацію
3) чиста геометрія, знати одун формулу відстані на площині
4) от тут я сам нічо мудрого не придумав.
1) зробив.
2) реалізація - те чого не вистачає
3) чисто геометрично я її легко зробив би, але та ж реалізація...
4) не знаю.. але я чув (від вчителів) що на олімпіадах, часто дають щось про "теорію графів", в неті пробував гуглити - толком нічого не зрозумів, щось про площину.. Може воно тут теж до чогось..
2, 3 - Ви вже просто вивчили повністю C++ і цієї реалізації достатньо повністю.. А коли я з паскалем(який поглиблено почав вчити тільки на початку цього року) ... Ця ж третя - легка здається коли числа, - а коли змусити комп'ютер рахувати за тебе це вже треба тих навичок в мові програмування...
Ну буває багато на що.
Я якраз вчу графи.
Перед тим вивчив довгу арифметику, префіксні суми, динаміку.
Все це часто буває, вітаю бро
Можливо знадобиться:
https://codeforces.com/
http://www.e-olimp.com
Ну і звісно ж алгоритми:
http://e-maxx.ru/algo/
Ще є одна дуже крута книжка, але я загубив десь її (
Для відправлення відповіді ви повинні увійти або зареєструватися