ოლიმპიადები და პროგრამირების ამოცანები, აბა ვივარჯიშოთ :)

ინტერნეტში ბევრი რესურსია პროგრამირების ამოცანებზე.
მე მაქვს იდეა დავწეროთ ხოლმე ამოცანები და ვეცადოთ მათი ამოხსნა. ვისაც გსურთ დაწერეთ ამ ტოპიკში ამოცანა, ოღონდ პირობა იყოს გარკვევით და სრულყოფილად დაწერილი.
აბა ვნახოთ ვინ უფრო მალე და რამდენად სწორად ამოხსნის
ჩვეულებრივ ასეთი ამოცანების პასუხების კოდი ზომაში საკმაოდ პატარაა და ამდენად აქვს შეიძლება დაწერა ხოლმე.

ისე კარგი იქნებოდა ამისთვის ცალკე განყოფილების გახსნა. ჯერჯერობით კი პირველი ამოცანა:

სახელწოდება: ”3n+1”; შედარებითი სირთულე: ადვილი
პირობა:
------------------
მოცემულია შემდეგი ალგორითმი რიცხვთა მიმდევრობების გენერირებისათვის:
ვიწყებთ მთელი n რიცხვით. თუ n ლუწია, ვყოფთ 2-ზე. თუ კენტია, ვამრავლებთ 3-ზე და ვუმატებთ 1-ს. იგივე პროცედურა მეორდება n-ის ყოველი მომდევნო მნიშვნელობისათვის, ვიდრე n=1. მაგალითად შემდეგი თანმიმდევრობა როცა საწყისი n=22:

22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

ჯერჯერობით არაა დამტკიცებული რომ ეს ალგორითმი სასრულია ნებისმიერი მთელი n რიცხვისათვის. მაგრამ ცნობილია მისი სასრულობა ყველა მთელი რიცხვისათვის 1.000.000-მდე.

მოცემული n რიცხვისათვის ციკლის სიგრძეში ვიგულისხმოთ ყველა გენერირებული რიცხვის საერთო რიცხვი 1-ის ჩათვლით. მაგალითად, ზემოთმოყვანილ მაგალითში ციკლის სიგრძეა 16.
პირობა:
მოცემული ორი i, j რიცხვისათვის თქვენ უნდა განსაზღვროთ ამ ორ რიცხვს შორის არსებული ყველა რიცხვისათვის (i და j ჩათვლით) ციკლის სიგრძეთაგან მაქსიმალური.

გეძლევათ ფაილი i და j რიცხვების წყვილებით, თითო წყვილი თითო ხაზზე. ყველა რიცხვი აკმაყოფილებს პირობას 0 < n < 1.000.000

თქვენი პროგრამის მიერ გენერირებული ფაილი უნდა იყოს შემდეგი შიგთავსის:
თითოეულ ხაზზე i და j რიცხვები, აგრეთვე მაქსიმალური ციკლის სიგრძე. ეს ყველაფერი დაყოფილი პრაბელებით.

მაგალითი საწყისი ფაილისა:
1 10
100 200
201 210
900 1000

მაგალითი ამონახსნის ფაილისა:
1 10 20
100 200 125
201 210 89
900 1000 174

იმედია პირობა გასაგებია. ასე რომ როგორც გერმანელები იტყვიან, Los geht es!

ზურა ეხლა სიცხე მაქვს და ხვალ დილას დაგიდებ აქ პასუხს კი მივხვდი რაც გინდა.

მეც მაქვს რამდენიმე ამოცანა.

კაი იდეაა, და ზუსტად ასეთი რამეები რომ არ ირეოდეს რაღაც უაზრო კრეკებსა და ვირუსების ტემებში ამიტომაც ვთხოვ ტიმ-ს რომ მარტო ტექნიკურ კონფერენციას გაუკეთოს რეკონსტრუქცია.

WebmasterGE
მართალია, საჭიროა რეკონსტრუქცია და ადრეც დავეთანხმე მაგ აზრს. მაგრამ ადმინისტრაცია ”ატორმუზებს”

ACHRDILI
უტაქტობად არ მიიღო ჩემი მხრიდან, მაგრამ სირთულეში უნდა გეწეროს" ძალინ ადვილია".ეს იმიტომ კი არა რომ მე ვარ ძალიან მაგარი პროგრამისტი ვარ მასეთი ამოცანების ამოხსნის (ტურის ამბავში) ძალზე მცირე გამოცდილება მაქვს, მაგრამ მაინც.
მაგდაგვარი საჭყლეტი საშუალებები მე მაქვს ბევრი და თუ სურვილი გექნებათ დავდებ ხოლმე. ბევრი მეც არ გადამიწყვეტია და ერთად ვეჩალიჩოთ, მაგარი გაგვისწორდება.

nika_k
ნუ ადვილია მეთქი და ძალიან ადვილი იყოს კაი, გეთანხმები.
მე სხვებიც ბევრი მაქვს და მაგაზე შედარებით და ასევე ბევრად ძნელებიც. ეს უბრალოდ დასაწყისისთვის დავდე.

რა თქმა უნდა, მაგიტომაც წამოვიწყე ეს თემა. პროგრამირების განყოფილებაში ფორუმზე უშუალოდ პროგრამირებაზე ამ ბოლო დროს ძალიან ცოტა რამ იწერება და ასეთი თემა ყველასთვის სასარგებლო იქნება
* * *
ხო მართლა, რა მაინტერესებს: არის ქართულად რამე წიგნი გამოსული პროგრამირების ამოცანების კრებულის პონტში?
იცის ვინმემ?

1 ძალიან პატარა ამოცანა::

ვინ უფრო პატარა და ლამაზ კოდს დაწერს?

მოცემულია n 0-სა და 255 შორის
დაითვალეთ რამდენ 1-იანს შეიცავს n-ის 2-ობითი წარმოდგენა.
მაგ: 255 = 11111111 = 8
254 = 11111110 = 7
და ა.შ

Dim n As Integer, k as integer, i as integer
k = 0
For i = 7 To 0 Step -1
If n >= 2 ^ i Then
n = n - 2 ^ i
k = k + 1
End If
Next

result is k

პ.ს. ბეისიკზე დავწერე რათა ყველასთვის გასაგები იყოს.
* * *
ACHRDILI
Private Sub Command1_Click()
Dim i As Long, j As Long, u As Long, rv As Long, max As Long
max = 0
i = CLng(Text1.Text)
j = CLng(Text3.Text)
If i > j Then
For u = j To i
rv = nalgo(u)
If rv > max Then max = rv
Next
Else
For u = i To j
rv = nalgo(u)
If rv > max Then max = rv
Next
End If
Text2.Text = max
End Sub


Function nalgo(n As Long) As Long
Dim k As Long
Dim n1 As Long
n1 = n
Do
If n1 \ 2 = n1 / 2 Then
n1 = n1 / 2
Else
n1 = n1 * 3 + 1
End If
k = k + 1
Loop While n1 <> 1
nalgo = k
End Function

აი აგერ პასუხი შენს ამოცანაზე

ეხლა კი მოიცა პირობას ჩამოვაყალიბებ და დავფოსტავ სერიოზულ ამოცანას.

int countOnes(int arg) {
int result=0;
for (int k=0,k<8,k++) {
if ((arg & 1) != 0) result++;
arg>>=1;
}
return result;
}

ვინ ნაკლები?

Sony
WebmasterGE
ACHRDILI
წინადადება შემომაქვს აქ დასმული ამოცანები გადავწყვიტოთ შემდეგ ენებზე: C, Pascal, Basic. ეს ყველაფერი სიცხადისათვის.

ეხლა რაც შეეხება ამოცანებს. ამოცანის ამოხსნის ხანგძლივობა ხო არ შემოვიღოთ? უბრალოდ ჩქარა რომ წავიდეთ წინ და ერთი ადგილი დიდხანს არ ვტკეპნოთ? ვინც დასვა ამოცონა იმან უპასუხოს ამ დროის გასვლის შემდეგ. იმ შემთხვევაში თუ არ იცის პასუხი მაშინ ვტკეპნოთ აბა სხვა რა დაგვრჩენია

აი ეს კიდევ ჩემი ამოცანა:
თუ თანახმანი ხართ დროის ლიმიტის შემოღებაზე, მაშინ ამ ამოცნაზე ლიმიტს ვაწესებ 4 დღეს. სირთულე: საშუალო (5 ბალიანი სისტემით)


მიმაგრებული სურათი (გადიდებისთვის დაუწკაპუნეთ სურათზე)

ACHRDILI
დაჯექი და რამე მაგარი მოიფიქრე მაგალითად რაიმეე დიდი მონსტრიი პროგრამა. რომ ვერ დაწერ და გაიხლართები თავისთავად ამოცანაა (ხუმრობით)

ACHRDILI

დასაწყისისათვის არაფერია გავხურდებით და მერე ეგ აღარ გვაკადრო
* * *
WebmasterGE
მშვენიერი ალგორითმია ზური, საღოლ. მაგრამ მაგას ეხლა ახსნაც უნდა. თუ ნებას მომცემ მე ავხსნი. ვფიქრობ აქ ჩვენ ერთმანეთს ცოდნა უნდა გავუზიაროთ და შეჯიბრები არ უნდა ვაწყოთ.

აუ აი ვზივარ და ვკითხულობ თქვენ ნაწერებს და არრაფეერი მე არ მესმის საღოლ ბიჭებო მე კი ყოველთვის ვიქნები თქვენი უხმო მკითხველი

nika_k

ეგ ამოცანა მე და lilith-ს ოლიმპიადაზე გვაქვს გაკეთებული და ქულებიც დავირტყით, მაგარი ადვილია

nika_k
დროის ლიმიტის შემოღება პრინციპში სწორი აზრია იმიტომ რომ ოლიმპიადებზე სწორედ დროის ლიმიტია თითქმის გადამწყვეტი ფაქტორი. მაგრამ თუ გავითვალისწინებთ რომ აქ ყველა რეგულარულად ვერ შემოდის და დროის ნაკლებობაც აქვს ბევრს, ეს არათანასწორ მდგომარეობას ქმნის. მე მგონი ჯობია უბრალოდ ეცადოს ყველამ ამოხსნა და დაწეროს თავისი ვარიანტი.

რაც შენს შემოთავაზებულ პროგრამირების ენებს შეეხება, ვეთანხმები და კიდევ დავამატებდი c++, java. c++ იმიტომ რომ ზოგს c-ს გარეშე პირდაპირ c++ აქვს ნასწავლი და მათთვისაც რომ არ იყოს შეზღუდვა. basic მე კი არ ვიცი, მაგრამ ჯობია ეგეც იყოს იგივე მოსაზრებით. ამგვარი ამოცანების ამონახსნებში არ არის ისეთი ძნელი ენობრივი სტრუქტურები რომ მათაც, ვინც მოცემული ენა არ იციან, ვერ გაიგონ.

დღეს არ მეცალა და მეც მალე მოგაწვდით ამონახსნების ჩემ ვარიანტებს.

aka
ეგ შენთვის არის ადვილი. ისე მაგის სირთულე "საშუალოა". თუ სურვილი გაქვს დადე ალგორითმი. ოღონდ იმის მერე რაც სხვა დაწერს იმიტომ რომ შენ უკვე გაკეთებული გაქვს.

ACHRDILI
მოიტათ ამოცანები. ესენი რაც დევს რაც არის ეგ არის რა. მეტი რაღა უნდა უქნა
ისეთი რაღაცეები ვაკეთოთ რის გაკეთებასაც რაიმე აზრი აქვს. აბა რომ იცი და იგივეს ჭყლიტავ ტეხავს გონი ცოტა. ჩემი პრობლემ ამოხსენით. ნაირ-ნაირი ამონახსენი აქვს, ერთმანეთზე უკეთესები