|
06.09.2008, 16:01
|
#1
|
Áûâàëûé
Ðåãèñòðàöèÿ: 14.12.2006
Ñîîáùåíèé: 811
Íàïèñàíî 93 ïîëåçíûõ ñîîáùåíèé (äëÿ 257 ïîëüçîâàòåëåé)
|
Çàäà÷êà...
 òåõíàðå çàäàëè çàäà÷êó ïî VB... ÿ âîîáùå õç êàê å¸ ðåøàòü è äåëàòü..... ÌÎæåò áòü â ïîìîæåòå... î÷ü íàäî... çàðàíèå ñïñ...
.................................................. ............................................
Ðàçðàáîòàòü èìèòàöèîííóþ ìîäåëü ñèñòåìû “õèùíèê–æåðòâà” ïî ñëåäóþùåé ñõåìå.
“Îñòðîâ” ðàçìåðîì 20 íà 20 çàñåëåí äèêèìè êðîëèêàìè, âîëêàìè è âîë÷èöàìè. Èìååòñÿ ïî íåñêîëüêó ïðåäñòàâèòåëåé êàæäîãî âèäà. Êðîëèêè â êàæäûé ìîìåíò âðåìåíè ñ îäèíàêîâîé âåðîÿòíîñòüþ 1/9 ïåðåäâèãàþòñÿ â îäèí èç âîñüìè ñîñåäíèõ êâàäðàòîâ (çà èñêëþ÷åíèåì ó÷àñòêîâ, îãðàíè÷åííûõ áåðåãîâîé ëèíèåé) èëè ïðîñòî ñèäÿò íåïîäâèæíî. Êàæäûé êðîëèê ñ âåðîÿòíîñòüþ 0,2 ïðåâðàùàåòñÿ â äâóõ êðîëèêîâ. Êàæäàÿ âîë÷èöà ïåðåäâèãàåòñÿ ñëó÷àéíûì îáðàçîì, ïîêà â îäíîì èç ñîñåäíèõ âîñüìè êâàäðàòîâ íå îêàæåòñÿ êðîëèê, çà êîòîðûì îíà îõîòèòñÿ. Åñëè âîë÷èöà è êðîëèê îêàçûâàþòñÿ â îäíîì êâàäðàòå, âîë÷èöà ñúåäàåò êðîëèêà è ïîëó÷àåò îäíî î÷êî.  ïðîòèâíîì ñëó÷àå îíà òåðÿåò 0,1 î÷êà.
Âîëêè è âîë÷èöû ñ íóëåâûì êîëè÷åñòâîì î÷êîâ óìèðàþò.
 íà÷àëüíûé ìîìåíò âðåìåíè âñå âîëêè è âîë÷èöû èìåþò 1 î÷êî.
Âîëê âåäåò ñåáÿ ïîäîáíî âîë÷èöå äî òåõ ïîð, ïîêà â ñîñåäíèõ êâàäðàòàõ íå èñ÷åçíóò âñå êðîëèêè; òîãäà, åñëè âîë÷èöà íàõîäèòñÿ â îäíîì èç âîñüìè áëèçëåæàùèõ êâàäðàòîâ, âîëê ãîíèòñÿ çà íåé.
Åñëè âîëê è âîë÷èöà îêàæóòñÿ â îäíîì êâàäðàòå è òàì íåò êðîëèêà, êîòîðîãî íóæíî ñúåñòü, îíè ïðîèçâîäÿò ïîòîìñòâî ñëó÷àéíîãî ïîëà.
Çàäàíèå: ïîíàáëþäàòü çà èçìåíåíèåì ïîïóëÿöèè â òå÷åíèå íåêîòîðîãî ïåðèîäà âðåìåíè. Ïðîñëåäèòü, êàê ñêàçûâàþòñÿ íà ýâîëþöèè ïîïóëÿöèé èçìåíåíèÿ ïàðàìåòðîâ ìîäåëè.
Ïåðåãóäîâ Ô.È., Òàðàñåíêî Ô.Ï. Ââåäåíèå â ñèñòåìíûé àíàëèç. Ì.: Âûñøàÿ øêîëà, 1989
|
(Offline)
|
|
07.09.2008, 15:23
|
#2
|
Ôåðåíüêà
Ðåãèñòðàöèÿ: 26.01.2007
Àäðåñ: óëèöà Ïóøêèíà äîì Êîëîòóøêèíà
Ñîîáùåíèé: 10,741
Íàïèñàíî 5,461 ïîëåçíûõ ñîîáùåíèé (äëÿ 15,675 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
À ðåøàòü Ñ èñïîëüçîâàíèåì ÎÎÏ èëè ÁÅÇ ?
Ãîä ñîçäàíèÿ çàäà÷è àöêè ææîò 8-)
__________________
Ìîè ïðîåêòû:
Àíàëüíîå Ðàáñòâî
Çåë¸íûé Ñëîíèê
Äìèòðèé Ìàñëîâ*
Ðàçëè÷èå**
Êëþêâà**
* — â ñòàäèè ðàçðàáîòêè
** — â ñòàäèè ïðîåêòèðîâàíèÿ
Äëÿ ïðîåêòîâ â ñòàäèè ïðîåêòèðîâàíèÿ ïðèâåäåíû êîäîâûå èìåíà
|
(Offline)
|
|
07.09.2008, 15:54
|
#3
|
Çàíóäà ñ èíòåðíåòîì
Ðåãèñòðàöèÿ: 04.09.2005
Ñîîáùåíèé: 14,014
Íàïèñàíî 6,798 ïîëåçíûõ ñîîáùåíèé (äëÿ 20,935 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Ïðîáëåìà â àëãîðèòìå èëè â ÂÁ?
__________________
http://nabatchikov.com
Ìèð íóæíî äåëàòü ëó÷øå è ÷èùå. Èíà÷å, çà÷åì ìû æèâåì? tormoz
À ÿ ðàñòèëà ñûíà íà ïðåäàíüÿõ
î ïðèíöàõ, òðîëëÿõ, ïîòàéíûõ ñâèäàíüÿõ,
ïîãîíÿõ, ïîõèùåíèÿõ íåâåñò.
Äà êòî æå çíàë, ÷òî ñêàçêà äóøó ñúåñò?
|
(Offline)
|
|
07.09.2008, 21:34
|
#4
|
Áûâàëûé
Ðåãèñòðàöèÿ: 14.12.2006
Ñîîáùåíèé: 811
Íàïèñàíî 93 ïîëåçíûõ ñîîáùåíèé (äëÿ 257 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Ïðîáëåìà â àëãîðèòìå èëè â ÂÁ?
|
âî âñ¸ì... ÿ íè àëãîðèòì íåïîíèìàþ, íè êàê è ÷òî ïèñàòü...
Õîòÿ ïîëñåäíåå âûçûâàåò ìåíüøå ïðîáëåì...
À ðåøàòü Ñ èñïîëüçîâàíèåì ÎÎÏ èëè ÁÅÇ ?
|
äà ïîáàêó êàê, ëèø áû ðàáîòàëî õîòü êàê íèáóäü...
|
(Offline)
|
|
07.09.2008, 23:07
|
#5
|
☭
Ðåãèñòðàöèÿ: 26.09.2006
Ñîîáùåíèé: 6,035
Íàïèñàíî 1,474 ïîëåçíûõ ñîîáùåíèé (äëÿ 2,707 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
à ãäå íà÷àëüíûå óñëîâèÿ?
|
(Offline)
|
|
07.09.2008, 23:09
|
#6
|
Áûâàëûé
Ðåãèñòðàöèÿ: 04.01.2008
Àäðåñ: Êàçàõñòàí \ Òàëäûêîðãàí
Ñîîáùåíèé: 659
Íàïèñàíî 170 ïîëåçíûõ ñîîáùåíèé (äëÿ 509 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
À òû ïèøè è íå ïàðñÿ, íå äåëàé ãðàô ÷àñòè, ïóñòü áóäåò êîíñîëü, íà êîòîðóþ áóäóò âûâîäèòñüÿ êó÷à ïàðàìåòðîâ, è ïó ñå ñìîòðÿò =)))
__________________
Æèçíü êàê ãîâîðèòüñÿ èãðà- äåëàòü èãðû ìîÿ ïðîôåññèÿ(ñ)
Ïðîãðàììèðîâàíèå, ýòî ðåëèãèÿ! Ÿ íóæíî èñïîâåäîâàòü.
|
(Offline)
|
|
08.09.2008, 00:04
|
#7
|
Ôåðåíüêà
Ðåãèñòðàöèÿ: 26.01.2007
Àäðåñ: óëèöà Ïóøêèíà äîì Êîëîòóøêèíà
Ñîîáùåíèé: 10,741
Íàïèñàíî 5,461 ïîëåçíûõ ñîîáùåíèé (äëÿ 15,675 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Atomikc, â òàêîì ñëó÷àå íå âèæó íè÷åãî ñëîæíîãî â ðåàëèçàöèè çàäà÷è.
Îñòðîâ - ÷åòûð¸õìåðíûé ìàññèâ 20*20*2*10 ãäå
20 - âûñîòà
20 - øèðèíà
2 - ïàðàìåòðû æÛâîòíàâà
10 - äåñÿòü æèâîòíûõ ìîãóò ñèäåòü â îäíîé êëåòêå
õîòÿ òóò ÿâíî ñòîëüêî íå òðåáóåòñÿ, ìîæíî è äî äâóõ ñîêðàòèòü
ò.å. ó êàæäîé êëåòêè 10 æèâîòíûõ è ó êàæäîãî ïî 2 ïàðàìåòðà
1.
0 - ïóñòî
1 - êð¸ëèê
2 - âîëê
3 - âîë÷èöà
2.
î÷êè
òóò ìîíà ñõèòðèòü
îáúÿâèòü âåñü ìàññèâ êàê èíòåãåð
à ïðèáàâëÿòü â î÷êàì âñ¸ â 10 ðàç áîëüøå (0.1 = 1, 1 = 10) à ïðè âûâîäå óæå äåëèòü íà 10 èáî íåõðåí èç-çà îäíîãî ïàðàìåòðà ñðàçó âñ¸ â ôëîàò îáúÿâëÿòü.
Íó à ïîâåäåíèå - ýòî òîæ íåñëîæíî.
Êðîëèê - ðàíäîì 1,9
åñëè 1 òî èä¸ò íà ñîñåäíþþ íåçàíÿòóþ êëåòêó, â èíîì ñëó÷àå - íè÷åãî íå äåëàåò
èëè ðàçìíîæàåòñÿ èëè ÷òî åìó íàäî
òàêèì æå ìàêàðîì îáðàáþàòûâàåì âîëêîâ è âîë÷èö
ãîðô. èíòåðôåéñ - ïðîñòåéøèå êâàäðàòèêè è â êàæäîì ðèñîâàòü íàìàë¸âàííóþ â ïåéíòå ìîðäó âîëêà, âîë÷èöû èëè êð¸ëèêà
èëè ïðîñòî íàäïèñü Âîëê - 0.3 î÷êîâ
Çàäà÷à - íà ïîë÷àñà ïðîãàíüÿ ìàêñèìóì Äàæå õç çà÷åì áûëî íà ôîðóì ñ òàêèì ëåçòü
Ç.Û. Ñ âîëêàìè ïîíÿòíî - îíè ðàçìíîæàþòñÿ òîëüêî êîãäà â îäíîé êëåòêå äâå ðàçíîïîëûå îñîáè, à êàêèì... ñïîñîáîì ðàçìíîæàåòñÿ îäèí-åäèíñòâåííûé êð¸ëèê? Áîþñü äàæå ïðåäïîëîæèòü! Âîèñòèíó â ÑÑÑÐ ñåêñà íå áûëî...
__________________
Ìîè ïðîåêòû:
Àíàëüíîå Ðàáñòâî
Çåë¸íûé Ñëîíèê
Äìèòðèé Ìàñëîâ*
Ðàçëè÷èå**
Êëþêâà**
* — â ñòàäèè ðàçðàáîòêè
** — â ñòàäèè ïðîåêòèðîâàíèÿ
Äëÿ ïðîåêòîâ â ñòàäèè ïðîåêòèðîâàíèÿ ïðèâåäåíû êîäîâûå èìåíà
Ïîñëåäíèé ðàç ðåäàêòèðîâàëîñü ABTOMAT, 08.09.2008 â 00:11.
|
(Offline)
|
|
Ñîîáùåíèå áûëî ïîëåçíî ñëåäóþùèì ïîëüçîâàòåëÿì:
|
|
08.09.2008, 04:05
|
#8
|
Çàíóäà ñ èíòåðíåòîì
Ðåãèñòðàöèÿ: 04.09.2005
Ñîîáùåíèé: 14,014
Íàïèñàíî 6,798 ïîëåçíûõ ñîîáùåíèé (äëÿ 20,935 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Àëãîðèòì ðåàëèçàöèè ïðàêòè÷åñêè îäíîçíà÷åí. Çàòðóäíåíèÿ ìîãóò áûòü âûçâàíû ëèøü âûáîðîì îðãàíèçàöèè îáðàáîòêè\õðàíåíèÿ äàííûõ, ÷òî êîððåëèðóåò ñ èñõîäíûìè äàííûìè (ðàçìåðîì îñòðîâà è ñêîðîñòüþ âîñïðîèçâåäåíèÿ ïîïóëÿöèè)
Const PopulationTypeWolf%=1
Const PopulationTypeRabbit%=2
Const Male%=1
Const Female%=0
;=================================
Type T2Dpoint
Field x%,y%
End Type
Function Scalar2Vector(scalar%,vector.T2Dpoint)
Select scalar
Case 1
vector\x=-1
vector\y=1
Case 2
vector\x=0
vector\y=1
Case 3
vector\x=1
vector\y=1
Case 4
vector\x=-1
vector\y=0
Case 5
vector\x=1
vector\y=0
Case 6
vector\x=-1
vector\y=-1
Case 7
vector\x=0
vector\y=-1
Case 8
vector\x=1
vector\y=-1
Default
vector\x=0
vector\y=0
End Select
End Function
Function MovePoint(point.t2dpoint,vector.t2dpoint)
point\x=point\x+vector\x
point\y=point\y+vector\y
End Function
Function StabliPoint(point.t2dpoint,size.t2dpoint)
If point\x>size\x
point\x=size\x
ElseIf point\x<1
point\x=1
EndIf
If point\y>size\y
point\y=size\y
ElseIf point\y<1
point\y=1
EndIf
End Function
Function EqualPoint(a.t2dpoint,b.t2dpoint)
If a\x=b\x And a\y=b\y
Return True
EndIf
Return False
End Function
;=================================
Type TIsland
Field SIZE.T2Dpoint
Field Populations%
End Type
Function CreateIsland.TIsland(x,y)
I.TIsland=New TIsland
I\SIZE=New T2Dpoint
I\SIZE\x=x
I\SIZE\y=y
I\Populations=CreatePivot()
HideEntity I\Populations
Return I
End Function
Function AddAnimal(I.TIsland,HANDLE_,PosNeedSet%,CODE%)
;DebugLog "animal with code "+code
Local PPivot%=0
If CountChildren(I\Populations)
For j=1 To CountChildren(I\Populations)
If EntityName(GetChild(I\Populations,j))=Str(CODE)
PPivot=GetChild(I\Populations,j)
Exit
EndIf
Next
EndIf
;DebugLog "root for population "+PPivot
If PPivot=0
PPivot=CreatePivot(I\Populations)
NameEntity PPivot,Str(CODE)
;DebugLog "new population with code "+code
EndIf
Local Obj=CreatePivot(PPivot)
NameEntity Obj,Str(HANDLE_)
Select CODE
Case PopulationTypeWolf
Local Wolf.TWolf=Object.TWolf(HANDLE_)
Wolf\IslandHandle=Handle(I)
Wolf\PopPiv=Obj
If PosNeedSet
Wolf\Position\X=Rand(1,I\SIZE\x)
Wolf\Position\Y=Rand(1,I\SIZE\y)
EndIf
Case PopulationTypeRabbit
Local Rabbit.TRabbit=Object.TRabbit(HANDLE_)
Rabbit\IslandHandle=Handle(I)
Rabbit\PopPiv=Obj
If PosNeedSet
Rabbit\Position\X=Rand(1,I\SIZE\x)
Rabbit\Position\Y=Rand(1,I\SIZE\y)
EndIf
End Select
End Function
Function GetObjectsInCoord%(coord.t2dpoint,I.TIsland)
Pivot=CreatePivot()
HideEntity Pivot
Local SubPivot
Local Popul%
If CountChildren(I\Populations)
For k=1 To CountChildren(I\Populations)
popul=GetChild(I\Populations,k)
For j=1 To CountChildren(popul)
Select Int(EntityName(popul))
Case PopulationTypeWolf
Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))
If EqualPoint(Wolf\Position,coord)
SubPivot=CreatePivot(Pivot)
NameEntity SubPivot,EntityName(popul)
EntityType SubPivot,Handle(Wolf)
EndIf
Case PopulationTypeRabbit
Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))
If EqualPoint(Rabbit\Position,coord)
SubPivot=CreatePivot(Pivot)
NameEntity SubPivot,EntityName(popul)
EntityType SubPivot,Handle(Rabbit)
EndIf
End Select
Next
Next
EndIf
Return Pivot
End Function
Function UpdateIsland(I.TIsland)
If CountChildren(I\Populations)
For k=1 To CountChildren(I\Populations)
popul=GetChild(I\Populations,k)
For j=1 To CountChildren(popul)
Select Int(EntityName(popul))
Case PopulationTypeWolf
Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))
UpdateWolf(Wolf)
Case PopulationTypeRabbit
Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))
UpdateRabbit(Rabbit)
End Select
Next
Next
EndIf
End Function
Function DrawIsland(I.TIsland,x%,y%)
Local MapCellSize%=25
Color 0,200,0
For ix=1 To I\SIZE\x
For iy=1 To I\SIZE\y
Rect x+(ix-1)*MapCellSize+1,y+(iy-1)*MapCellSize+1,MapCellSize-2,MapCellSize-2
Next
Next
If CountChildren(I\Populations)
For k=1 To CountChildren(I\Populations)
popul=GetChild(I\Populations,k)
For j=1 To CountChildren(popul)
Select Int(EntityName(popul))
Case PopulationTypeWolf
Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))
DrawWolf(Wolf,x,y,MapCellSize)
Case PopulationTypeRabbit
Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))
DrawRabbit(Rabbit,x,y,MapCellSize)
End Select
Next
Next
EndIf
End Function
;=================================
Type TWolf
Field Gendor%
Field Score#
Field Position.T2Dpoint
Field IslandHandle%
Field PopPiv%
End Type
Function CreateWolf.TWolf(Gendor%)
W.TWolf=New TWolf
W\GENDOR=Gendor
W\SCORE=1
W\Position=New T2Dpoint
Return W
End Function
Function UpdateWolf(W.Twolf)
Local ISL.TIsland=Object.TIsland(W\IslandHandle)
Local Move.T2Dpoint=New T2Dpoint
Scalar2Vector(Rand(0,9),Move)
MovePoint(W\Position,Move)
StabliPoint(W\Position,ISL\SIZE)
Delete MOVE
Local List=GetObjectsInCoord(W\position,ISL)
Local hav4eg=False
Local Wolf.TWolf=Null
If CountChildren(List)
For i=1 To CountChildren(List)
Select Int(EntityName(GetChild(List,i)))
Case PopulationTypeWolf
If GetEntityType(GetChild(List,i))<>Handle(W)
If W\GENDOR=Male
Wolf.TWolf=Object.TWolf(GetEntityType(GetChild(List,i)))
If Wolf\GENDOR<>Female
Wolf=Null
EndIf
EndIf
EndIf
Case PopulationTypeRabbit
Local Rabbit.TRabbit=Object.TRabbit(GetEntityType(GetChild(List,i)))
FreeEntity Rabbit\PopPiv
Delete Rabbit
W\SCORE=W\SCORE+1
hav4eg=True
Exit
End Select
Next
EndIf
FreeEntity List
If Not hav4eg
W\SCORE=W\SCORE-0.1
If Wolf<>Null
Local gendor=Rand(0,1)
Local ChildWolf.TWolf=CreateWolf(gendor)
ChildWolf\Position\X=Wolf\Position\X
ChildWolf\Position\Y=Wolf\Position\Y
AddAnimal(ISL,Handle(ChildWolf),False,PopulationTypeWolf)
EndIf
EndIf
If W\SCORE=0
FreeEntity W\PopPiv
Delete W
EndIf
End Function
Function DrawWolf(W.TWolf,x,y,mcs)
Color 0,0,0
Local ix=W\Position\x
Local iy=W\Position\y
Oval x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,mcs-2,mcs-2
Color 255,255,255
Select W\gendor
Case male
Text x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,"M"
Case female
Text x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,"}|{"
End Select
End Function
;=================================
Type TRabbit
Field Position.T2Dpoint
Field IslandHandle%
Field PopPiv%
End Type
Function CreateRabbit.TRabbit()
R.TRabbit=New TRabbit
R\Position=New T2Dpoint
Return R
End Function
Function UpdateRabbit(R.TRabbit)
Local ISL.TIsland=Object.TIsland(R\IslandHandle)
Local Move.T2Dpoint=New T2Dpoint
Scalar2Vector(Rand(0,9),Move)
MovePoint(R\Position,Move)
StabliPoint(R\Position,ISL\SIZE)
Delete MOVE
If Rnd(0,1)<=RabbitProb
Local ChildRabbit.TRabbit=CreateRabbit()
ChildRabbit\Position\X=R\Position\X
ChildRabbit\Position\Y=R\Position\Y
AddAnimal(ISL,Handle(ChildRabbit),False,PopulationTypeRabbit)
EndIf
End Function
Function DrawRabbit(R.TRabbit,x,y,mcs)
Color 100,100,100
Local ix=R\Position\x
Local iy=R\Position\y
Oval x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,mcs-2,mcs-2
End Function
;=================================
;=================================
Const TimeMoment=1000;ms
Const RabbitProb#=0.2
Graphics3D 800,600,32
SetBuffer BackBuffer()
SetFont(LoadFont("Arial cyr",20))
SeedRnd(MilliSecs())
Island.TIsland=CreateIsland(20,20)
For i=1 To 1
Rabbit.TRabbit=CreateRabbit()
AddAnimal(Island,Handle(Rabbit),True,PopulationTypeRabbit)
Next
For i=1 To 10
Wolf.TWolf=CreateWolf(Male)
AddAnimal(Island,Handle(Wolf),True,PopulationTypeWolf)
Next
For i=1 To 10
Wolf.TWolf=CreateWolf(Female)
AddAnimal(Island,Handle(Wolf),True,PopulationTypeWolf)
Next
Local time=MilliSecs()
While Not KeyHit(1)
DrawIsland(Island,5,5)
If MilliSecs()-time>=TimeMoment
time=MilliSecs()
UpdateIsland(Island)
EndIf
Flip
Wend
End
Çàíÿòíî, óîíå÷íî:
òî êðîëèêè äåëàþò, ñàìè çíàåòå ÷òî, êàê êðîëèêè,
òî ãðóïïà âîë÷èö, çàáèòàÿ ñëó÷àéíîñòü â óãîë, ñòàíîâèòñÿ èíòåðñíîé öåëüþ äëÿ ñàìöîâ..
__________________
http://nabatchikov.com
Ìèð íóæíî äåëàòü ëó÷øå è ÷èùå. Èíà÷å, çà÷åì ìû æèâåì? tormoz
À ÿ ðàñòèëà ñûíà íà ïðåäàíüÿõ
î ïðèíöàõ, òðîëëÿõ, ïîòàéíûõ ñâèäàíüÿõ,
ïîãîíÿõ, ïîõèùåíèÿõ íåâåñò.
Äà êòî æå çíàë, ÷òî ñêàçêà äóøó ñúåñò?
|
(Offline)
|
|
Ñîîáùåíèå áûëî ïîëåçíî ñëåäóþùèì ïîëüçîâàòåëÿì:
|
|
08.09.2008, 19:23
|
#9
|
Áûâàëûé
Ðåãèñòðàöèÿ: 14.12.2006
Ñîîáùåíèé: 811
Íàïèñàíî 93 ïîëåçíûõ ñîîáùåíèé (äëÿ 257 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
ñïñ ãðîìåííîå.... ïðÿì âûðó÷èëè... ñïñ
|
(Offline)
|
|
19.09.2008, 23:28
|
#10
|
Çëîáíûé Àäìèí
Ðåãèñòðàöèÿ: 04.09.2005
Ñîîáùåíèé: 5,926
Íàïèñàíî 3,415 ïîëåçíûõ ñîîáùåíèé (äëÿ 9,330 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Âàðèàíò íà VB6.0
__________________
|
(Offline)
|
|
Ñîîáùåíèå áûëî ïîëåçíî ñëåäóþùèì ïîëüçîâàòåëÿì:
|
|
09.11.2009, 19:45
|
#11
|
ÏðîÝêòèðîâùèê
Ðåãèñòðàöèÿ: 24.10.2009
Ñîîáùåíèé: 143
Íàïèñàíî 5 ïîëåçíûõ ñîîáùåíèé (äëÿ 7 ïîëüçîâàòåëåé)
|
Îòâåò: Çàäà÷êà...
Ñîîáùåíèå îò SBJoker
Âàðèàíò íà VB6.0
|
Ñîâåò: ñäåëàéòå îãðàíè÷åíèÿ ïîñòîÿííûé Overflov. À âîîáùå ïðîãà ïðèêîëüíàÿ.
__________________
Ãîìîìîðôíûé îáðàç ãðóïïû - ïóòü âî ñëàâó êîììóíèçìà - èçîìîðôåí ôàêòîð ãðóïïå ïî ÿäðó ãîìîìîðôèçìà.
|
(Offline)
|
|
Âàøè ïðàâà â ðàçäåëå
|
Âû íå ìîæåòå ñîçäàâàòü òåìû
Âû íå ìîæåòå îòâå÷àòü íà ñîîáùåíèÿ
Âû íå ìîæåòå ïðèêðåïëÿòü ôàéëû
Âû íå ìîæåòå ðåäàêòèðîâàòü ñîîáùåíèÿ
HTML êîä Âûêë.
|
|
|
Ïîõîæèå òåìû
|
Òåìà |
Àâòîð |
Ðàçäåë |
Îòâåòîâ |
Ïîñëåäíåå ñîîáùåíèå |
Çàäà÷à ïî Ò |
impersonalis |
Ìàòåìàòèêà |
7 |
30.12.2008 22:12 |
2 çàäà÷êè |
mudriy |
Çàãàäêè |
14 |
26.11.2007 11:55 |
Çàäà÷êà |
Magus |
Áîëòîâíÿ |
19 |
16.05.2007 20:43 |
Çàäà÷êà!!! |
Halk-DS |
2D-ïðîãðàììèðîâàíèå |
60 |
29.01.2007 00:06 |
Çàäà÷à |
SubZer0 |
Çàãàäêè |
8 |
30.07.2006 16:33 |
×àñîâîé ïîÿñ GMT +4, âðåìÿ: 18:29.
|