рдРрд╕рд╛ рд╣реБрдЖ рдХрд┐ рд╡рд┐рд╢реНрд╡рд╡рд┐рджреНрдпрд╛рд▓рдп рдореЗрдВ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рд╡рд┐рд╖рдп рдореЗрд░реА рд╡рд┐рд╢реЗрд╖рддрд╛ рд╕реЗ рд╕рдлрд▓рддрд╛рдкреВрд░реНрд╡рдХ рдкрд╛рд░рд┐рдд рд╣реЛ рдЧрдпрд╛, рдореЗрд░реЗ рд╣рд┐рд╕реНрд╕реЗ рдореЗрдВ рднрд╛рд░реА рд░реБрдЪрд┐ рдХреЗ рдмрд╛рд╡рдЬреВрджред рдЖрддреНрдо-рд╢рд┐рдХреНрд╖рд╛ рдХреЗ рдкреНрд░рдпрд╛рд╕реЛрдВ рдХреЛ рдХрдИ рдмрд╛рд░ рдЕрдЬреНрдЮрд╛рдирддрд╛рд╡рд╢ рднреМрдВрдХрдиреЗ рд╕реЗ рд╡рд┐рдЬреНрдЮрд╛рди рдХреА рдЧрдврд╝ рдХреА рдЕрд╡рд┐рдирд╛рд╢реА рджреАрд╡рд╛рд░реЛрдВ рдХреЗ рдЦрд┐рд▓рд╛рдл "рдЕрд╕реНрдкрд╖реНрдЯ рд░реВрдк рдореЗрдВ" рдПрдХ рддрд╕реНрд╡реАрд░ рдХреЗ рд╕рд╛рде "рд╢рдмреНрджреЛрдВ" рдФрд░ рд╡рд┐рд╢реНрд╡рд╡рд┐рджреНрдпрд╛рд▓рдп рдХреА рдкрд╛рдареНрдпрдкреБрд╕реНрддрдХреЛрдВ рдХреА рд╕реВрдЦреА рднрд╛рд╖рд╛ рдХреЗ рднреНрд░рдорд┐рдд рд╕реНрдкрд╖реНрдЯреАрдХрд░рдг рдХреЗ рдХрд╛рд░рдг рддреЛрдбрд╝ рджрд┐рдпрд╛ рдЧрдпрд╛ред
рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ (рд▓реЗрдЦреЛрдВ рдХреА рдПрдХ рд╢реНрд░реГрдВрдЦрд▓рд╛?), рдореИрдВ рдПрдХ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рд╡рд┐рд╖рдп рдХреЛ рдПрдХ рдЕрдЬреНрдЮрд╛рдд рд╡реНрдпрдХреНрддрд┐ рдХреЗ рджреГрд╖реНрдЯрд┐рдХреЛрдг рд╕реЗ, рд╕рд░рд▓ рднрд╛рд╖рд╛ рдореЗрдВ, рд╕рд░рд▓ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реБрдП, рдЕрд▓рдорд╛рд░рд┐рдпреЛрдВ рдореЗрдВ рд╕рдм рдХреБрдЫ рд╡реНрдпрд╡рд╕реНрдерд┐рдд рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реВрдВрдЧрд╛, рди рдХрд┐ "рдиреНрдпреВрд░реЙрдиреНрд╕ рдХреА рдПрдХ рд╕рд░рдгреА рдПрдХ рдкреНрд░рд╕рд┐рджреНрдз, рд╕рд┐рджреНрдз рдкреИрдЯрд░реНрди рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдХрд╛рдо рдХрд░ рд░рд╣реЗ рдПрдХ рдЕрд╡рдзрд╛рд░рдгрд╛рддреНрдордХ рд░реВрдк рдмрдирд╛рддрд╛ рд╣реИ"ред
рд░реБрдЪрд┐ рдХреГрдкрдпрд╛ рдмрд┐рд▓реНрд▓реА рдХреЗ рдиреАрдЪреЗред
рд▓рдХреНрд╖реНрдпреЛрдВ
рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреНрдпрд╛ рд╣реИрдВ?
рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдПрдХ рд╕реАрдЦрдиреЗ рдХреА рдкреНрд░рдгрд╛рд▓реА рд╣реИред рдпрд╣ рди рдХреЗрд╡рд▓ рджрд┐рдП рдЧрдП рдПрд▓реНрдЧреЛрд░рд┐рдердо рдФрд░ рд╕реВрддреНрд░реЛрдВ рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдХрд╛рд░реНрдп рдХрд░рддрд╛ рд╣реИ, рдмрд▓реНрдХрд┐ рдкрд┐рдЫрд▓реЗ рдЕрдиреБрднрд╡ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рднреА рд╣реЛрддрд╛ рд╣реИред рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдмрдЪреНрдЪрд╛ рдЬреЛ рд╣рд░ рдмрд╛рд░ рдПрдХ рдкрд╣реЗрд▓реА рдбрд╛рд▓рддрд╛ рд╣реИ, рдЬрд┐рд╕рд╕реЗ рдХрдо рдЧрд▓рддрд┐рдпрд╛рдБ рд╣реЛрддреА рд╣реИрдВред
рдФрд░, рдЬреИрд╕рд╛ рдХрд┐ рдпрд╣ рдлреИрд╢рдиреЗрдмрд▓ рд▓реЗрдЦрдХреЛрдВ рд╕реЗ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдкреНрд░рдерд╛рдЧрдд рд╣реИ, рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдореЗрдВ рдиреНрдпреВрд░реЙрдиреНрд╕ рд╣реЛрддреЗ рд╣реИрдВред
рдпрд╣рд╛рдВ рдЖрдкрдХреЛ рдПрдХ рд╕реНрдЯреЙрдк рдмрдирд╛рдиреЗ рдФрд░ рдЗрд╕рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред
рдорд╛рди рд▓реЗрддреЗ рд╣реИрдВ рдХрд┐ рдПрдХ рдиреНрдпреВрд░реЙрди рд╕рд┐рд░реНрдл рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдХрд╛рд▓реНрдкрдирд┐рдХ рдмреНрд▓реИрдХ рдмреЙрдХреНрд╕ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдЗрдирд▓реЗрдЯреНрд╕ рдХрд╛ рдПрдХ рдЧреБрдЪреНрдЫрд╛ рдФрд░ рдПрдХ рдЖрдЙрдЯрд▓реЗрдЯ рд╣реИред
рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдЗрдирдХрдорд┐рдВрдЧ рдФрд░ рдЖрдЙрдЯрдЧреЛрдЗрдВрдЧ рджреЛрдиреЛрдВ рдЬрд╛рдирдХрд╛рд░реА рд╕рдорд╛рди рд╣реЛ рд╕рдХрддреА рд╣реИрдВ (рд╕рдмрд╕реЗ рдЕрдзрд┐рдХ рдмрд╛рд░ рдРрд╕рд╛ рд╣реЛрдЧрд╛)ред
рдЖрдЙрдЯрдкреБрдЯ рд╕рд┐рдЧреНрдирд▓ рдЗрдирдкреБрдЯ рдХреЗ рдвреЗрд░ рд╕реЗ рдХреИрд╕реЗ рдмрдирддрд╛ рд╣реИ - рдиреНрдпреВрд░реЙрди рдХреЗ рдЖрдВрддрд░рд┐рдХ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рдХреЛ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИред
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдЫреЛрдЯрд╛ рд╕рд╛ рдкреНрд░реЛрдЧреНрд░рд╛рдо рд▓рд┐рдЦреЗрдВрдЧреЗ рдЬреЛ рдмрд┐рдЯрдореИрдк рдХреЗ рдЪрд┐рддреНрд░реЛрдВ рдкрд░ рд╕рд░рд▓ рднрд╛рд╖рд╛, рд░реВрд╕реА рднрд╛рд╖рд╛ рдХреЗ рдЕрдХреНрд╖рд░реЛрдВ рдХреЛ рдкрд╣рдЪрд╛рдиреЗрдВрдЧреЗред
рд╣рдо рд╕рд╣рдордд рд╣реИрдВ рдХрд┐ рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдЕрд╡рд╕реНрдерд╛ рдореЗрдВ, рд╣рдорд╛рд░реА рдкреНрд░рдгрд╛рд▓реА рдореЗрдВ рдПрдХ "рдЦрд╛рд▓реА" рдореЗрдореЛрд░реА рд╣реЛрдЧреА, рдЕрд░реНрдерд╛рддред рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдирд╡рдЬрд╛рдд рдорд╕реНрддрд┐рд╖реНрдХ, рдЬреЛ рдпреБрджреНрдз рдХреЗ рд▓рд┐рдП рддреИрдпрд╛рд░ рд╣реИред
рдЗрд╕реЗ рд╕рд╣реА рдврдВрдЧ рд╕реЗ рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдореЗрдВ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдкрд░ рд╕рдордп рдмрд┐рддрд╛рдирд╛ рд╣реЛрдЧрд╛ред
рдЯрдорд╛рдЯрд░ рдХреЛ рдЙрдбрд╝рддреЗ рд╣реБрдП, рдореИрдВрдиреЗ рдХрд╣рд╛ рдХрд┐ рд╣рдо рдбреЗрд▓реНрдлреА рдореЗрдВ рд▓рд┐рдЦреЗрдВрдЧреЗ (рдЗрд╕ рд▓реЗрдЦ рдХреЛ рд▓рд┐рдЦрдиреЗ рдХреЗ рд╕рдордп)ред рдпрджрд┐ рдЖрд╡рд╢реНрдпрдХ рд╣реЛ, рддреЛ рдореИрдВ рдЙрджрд╛рд╣рд░рдг рдХреЛ рдЕрдиреНрдп рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдЕрдиреБрд╡рд╛рдж рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░реВрдВрдЧрд╛ред
рдореИрдВ рдЖрдкрдХреЛ рдХреЛрдб рдХреА рдЧреБрдгрд╡рддреНрддрд╛ рдХреЛ рд╣рд▓реНрдХреЗ рдореЗрдВ рд▓реЗрдиреЗ рдХреЗ рд▓рд┐рдП рднреА рдХрд╣рддрд╛ рд╣реВрдВ - рдХрд╛рд░реНрдпрдХреНрд░рдо рдПрдХ рдШрдВрдЯреЗ рдореЗрдВ рд▓рд┐рдЦрд╛ рдЧрдпрд╛ рдерд╛, рдмрд╕ рд╡рд┐рд╖рдп рд╕реЗ рдирд┐рдкрдЯрдиреЗ рдХреЗ рд▓рд┐рдП, рдЧрдВрднреАрд░ рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдРрд╕рд╛ рдХреЛрдб рд╢рд╛рдпрдж рд╣реА рд▓рд╛рдЧреВ рд╣реЛред
рддреЛ, рдХрд╛рд░реНрдп рдХреЗ рдЖрдзрд╛рд░ рдкрд░ - рдХрд┐рддрдиреЗ рдирд┐рдХрд╛рд╕ рд╡рд┐рдХрд▓реНрдк рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ? рдпрд╣ рд╕рд╣реА рд╣реИ, рдЬрд┐рддрдиреЗ рдЕрдХреНрд╖рд░ рд╣рдо рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░ рдкрд╛рдПрдВрдЧреЗред рд╡рд░реНрдгрдорд╛рд▓рд╛ рдореЗрдВ рдЙрдирдореЗрдВ рд╕реЗ рдХреЗрд╡рд▓ 33 рд╣реИрдВ, рдФрд░ рд╣рдо рд╡рд╣рд╛рдВ рд░реБрдХреЗрдВрдЧреЗред
рдЕрдЧрд▓рд╛, рд╣рдо рдЗрдирдкреБрдЯ рдбреЗрдЯрд╛ рдкрд░ рдирд┐рд░реНрдгрдп рд▓реЗрддреЗ рд╣реИрдВред рдмрд╣реБрдд рдЕрдзрд┐рдХ рдкрд░реЗрд╢рд╛рди рди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдмрд┐рдЯрдореИрдк рдЫрд╡рд┐ рдХреЗ рд░реВрдк рдореЗрдВ рдЗрдирдкреБрдЯ рдХреЛ 30x30 рдмрд┐рдЯрдореИрдк рднреЗрдЬреЗрдВрдЧреЗ:
рдирддреАрдЬрддрди, рдЖрдкрдХреЛ 33 рдиреНрдпреВрд░реЙрдиреНрд╕ рдмрдирд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдореЗрдВ 30x30 = 900 рдЗрдирдкреБрдЯ рд╣реЛрдВрдЧреЗред
рдЖрдЗрдП рд╣рдорд╛рд░реЗ рдиреНрдпреВрд░реЙрди рдХреЗ рд▓рд┐рдП рдПрдХ рдХреНрд▓рд╛рд╕ рдмрдирд╛рдПрдВ:
type Neuron = class name: string;
рдЕрдХреНрд╖рд░реЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЗ рдЕрдиреБрд╕рд╛рд░, рдиреНрдпреВрд░реЙрдиреНрд╕ рдХреА рдПрдХ рд╕рд░рдгреА рдмрдирд╛рдПрдВ:
For i:=0 to 32 do begin neuro_web[i]:=Neuron.Create; neuro_web[i].output:=0;
рдЕрдм рд╕рд╡рд╛рд▓ рдпрд╣ рд╣реИ рдХрд┐ рдЬрдм рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХрд╛рдо рдирд╣реАрдВ рдХрд░реЗрдЧрд╛ рддреЛ рд╣рдо рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдХреА "рдореЗрдореЛрд░реА" рдХреЛ рдХрд╣рд╛рдВ рд╕реНрдЯреЛрд░ рдХрд░реЗрдВрдЧреЗ?
рдЖрдИрдПрдирдЖрдИ рдпрд╛ рдИрд╢реНрд╡рд░, рднрдЧрд╡рд╛рди рдХреЛ рдордирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдирд╣реАрдВ, рдбреЗрдЯрд╛рдмреЗрд╕ рдореЗрдВ, рдореИрдВрдиреЗ рдЙрдиреНрд╣реЗрдВ рдЙрд╕реА 30x30 рд░реЗрдЦрд╛рдкреБрдВрдЬ рдЫрд╡рд┐рдпреЛрдВ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рдиреЗ рдХрд╛ рдирд┐рд░реНрдгрдп рд▓рд┐рдпрд╛ред
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╡рд┐рднрд┐рдиреНрди рдлреЛрдВрдЯ рдореЗрдВ рдХрд╛рд░реНрдпрдХреНрд░рдо рдЪрд▓рд╛рдиреЗ рдХреЗ рдмрд╛рдж рдиреНрдпреВрд░реЙрди "рдХреЗ" рдХреА рд╕реНрдореГрддрд┐:
рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рд╕рдмрд╕реЗ рд╕рдВрддреГрдкреНрдд рдХреНрд╖реЗрддреНрд░ рд╕рдмрд╕реЗ рдЖрдо рдкрд┐рдХреНрд╕рд▓ рдХреЗ рдЕрдиреБрд░реВрдк рд╣реИрдВред
рдЬрдм рдпрд╣ рдмрдирд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рддреЛ рд╣рдо "рдореЗрдореЛрд░реА" рдХреЛ рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдореЗрдВ рд▓реЛрдб рдХрд░реЗрдВрдЧреЗ:
p:=TBitmap.Create; p.LoadFromFile(ExtractFilePath(Application.ExeName)+'\res\'+ neuro_web[i].name+'.bmp')
рдЕрдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ, рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдХреА рд╕реНрдореГрддрд┐ 30x30 рдПрдХ рд╕рдлреЗрдж рд╕реНрдкреЙрдЯ рд╣реЛрдЧреАред
рдиреНрдпреВрд░реЙрди рдХреЛ рдирд┐рдореНрдирд╛рдиреБрд╕рд╛рд░ рдкрд╣рдЪрд╛рдирд╛ рдЬрд╛рдПрдЧрд╛:
- 1 рдкрд╣рд▓рд╛ рдкрд┐рдХреНрд╕реЗрд▓ рд▓реЗрдВ
- рдЗрд╕рдХреА рддреБрд▓рдирд╛ рдореЗрдореЛрд░реА рдореЗрдВ 1 рдореА рдкрд┐рдХреНрд╕реЗрд▓ рд╕реЗ рдХрд░реЗрдВ (рдореВрд▓реНрдп 0..255 рд╣реИ)
- рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕реАрдорд╛ рдХреЗ рд╕рд╛рде рдЕрдВрддрд░ рдХреА рддреБрд▓рдирд╛ рдХрд░реЗрдВ
- рдпрджрд┐ рдЕрдВрддрд░ рд╕реАрдорд╛ рд╕реЗ рдХрдо рд╣реИ, рддреЛ рд╣рдо рдорд╛рдирддреЗ рд╣реИрдВ рдХрд┐ рдЗрд╕ рдмрд┐рдВрджреБ рдкрд░ рдЕрдХреНрд╖рд░ рд╕реНрдореГрддрд┐ рдореЗрдВ рдПрдХ рдХреЗ рд╕рдорд╛рди рд╣реИ, рдиреНрдпреВрд░реЙрди рдХреЗ рд╡рдЬрди рдореЗрдВ +1 рдЬреЛрдбрд╝реЗрдВред
рдФрд░ рдЗрд╕рд▓рд┐рдП рд╕рднреА рдкрд┐рдХреНрд╕реЗрд▓ рдкрд░ред
рдПрдХ рдиреНрдпреВрд░реЙрди рдХрд╛ рд╡рдЬрди рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕рдВрдЦреНрдпрд╛ (рд╕рд┐рджреНрдзрд╛рдВрдд рдореЗрдВ, 900 рддрдХ) рд╣реИ, рдЬреЛ рд╕реНрдореГрддрд┐ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХреЗ рд╕рд╛рде рд╕рдВрд╕рд╛рдзрд┐рдд рдЬрд╛рдирдХрд╛рд░реА рдХреА рд╕рдорд╛рдирддрд╛ рдХреА рдбрд┐рдЧреНрд░реА рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд╣реЛрддрд╛ рд╣реИред
рдорд╛рдиреНрдпрддрд╛ рдХреЗ рдЕрдВрдд рдореЗрдВ, рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдиреНрдпреВрд░реЙрдиреНрд╕ рдХрд╛ рдПрдХ рд╕реЗрдЯ рд╣реЛрдЧрд╛, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдХрд╛ рдорд╛рдирдирд╛ тАЛтАЛрд╣реИ рдХрд┐ рдпрд╣ рдХреБрдЫ рдкреНрд░рддрд┐рд╢рдд рддрдХ рд╕рд╣реА рд╣реИред рдпреЗ рдкреНрд░рддрд┐рд╢рдд рдиреНрдпреВрд░реЙрди рдХрд╛ рд╡рдЬрди рд╣реИрдВред рдЕрдзрд┐рдХ рд╡рдЬрди, рдЕрдзрд┐рдХ рд╕рдВрднрд╛рд╡рдирд╛ рд╣реИ рдХрд┐ рдпрд╣ рд╡рд┐рд╢реЗрд╖ рдиреНрдпреВрд░реЙрди рд╕рд╣реА рд╣реИред
рдЕрдм рд╣рдо рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдПрдХ рдордирдорд╛рдиреА рдЫрд╡рд┐ рдЦрд┐рд▓рд╛рдПрдВрдЧреЗ рдФрд░ рдЗрд╕рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдХреЛ рдЪрд▓рд╛рдПрдВрдЧреЗ:
for x:=0 to 29 do for y:=0 to 29 do begin n:=neuro_web[i].memory[x,y]; m:=neuro_web[i].input[x,y]; if ((abs(mn)<120)) then
рдЬреИрд╕реЗ рд╣реА рдЕрдВрддрд┐рдо рдиреНрдпреВрд░реЙрди рдХреЗ рд▓рд┐рдП рдЪрдХреНрд░ рд╕рдорд╛рдкреНрдд рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ, рд╣рдо рдЕрдзрд┐рдХ рд╡рдЬрди рд╡рд╛рд▓реЗ рд╕рднреА рдХреЛ рдЪреБрдиреЗрдВрдЧреЗ:
if neuro_web[i].weight>max then begin max:=neuro_web[i].weight; max_n:=i; end;
рдпрд╣ рдЗрд╕ max_n рдорд╛рди рдХреЗ рд╕рд╛рде рд╣реИ рдХрд┐ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╣рдореЗрдВ рдмрддрд╛рдПрдЧрд╛ рдХрд┐, рдЗрд╕рдХреА рд░рд╛рдп рдореЗрдВ, рд╣рдордиреЗ рдЙрд╕реЗ рдЙрд╕рдХреЗ рдкрд╛рд╕ рдЦрд┐рд╕рдХрд╛ рджрд┐рдпрд╛ред
рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рдпрд╣ рд╣рдореЗрд╢рд╛ рд╕рдЪ рдирд╣реАрдВ рд╣реЛрдЧрд╛, рдЗрд╕рд▓рд┐рдП рдЖрдкрдХреЛ рдПрдХ рд▓рд░реНрдирд┐рдВрдЧ рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдмрдирд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред
s:=InputBox('Enter the letter', ' , '+neuro_web[max_n].name, neuro_web[max_n].name); for i:=0 to 32 do begin
рдореЗрдореЛрд░реА рдЕрдкрдбреЗрдЯ рд╕реНрд╡рдпрдВ рдЗрд╕ рддрд░рд╣ рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛:
n:=round(n+(n+m)/2);
рдпрд╛рдиреА рдпрджрд┐ рдпрд╣ рдмрд┐рдВрджреБ рдиреНрдпреВрд░реЙрди рдХреА рд╕реНрдореГрддрд┐ рдореЗрдВ рдЕрдиреБрдкрд╕реНрдерд┐рдд рд╣реИ, рд▓реЗрдХрд┐рди рд╢рд┐рдХреНрд╖рдХ рдХрд╛ рдХрд╣рдирд╛ рд╣реИ рдХрд┐ рдпрд╣ рдЗрд╕ рдкрддреНрд░ рдореЗрдВ рд╣реИ, рддреЛ рд╣рдо рдЗрд╕реЗ рдпрд╛рдж рдХрд░рддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдкреВрд░реА рддрд░рд╣ рд╕реЗ рдирд╣реАрдВ, рдмрд▓реНрдХрд┐ рдХреЗрд╡рд▓ рдЖрдзрд╛ред рдЖрдЧреЗ рдХреЗ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рд╕рд╛рде, рдЗрд╕ рдкрд╛рда рдХреЗ рдкреНрд░рднрд╛рд╡ рдХреА рдбрд┐рдЧреНрд░реА рдмрдврд╝ рдЬрд╛рдПрдЧреАред
рдЬреА рдЕрдХреНрд╖рд░ рдХреЗ рд▓рд┐рдП рдХреБрдЫ рдкреБрдирд░рд╛рд╡реГрддреНрддрд┐рдпрд╛рдБ рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣реИрдВ:
рдЗрд╕ рдкрд░ рд╣рдорд╛рд░рд╛ рдХрд╛рд░реНрдпрдХреНрд░рдо рддреИрдпрд╛рд░ рд╣реИред
рдЯреНрд░реЗрдирд┐рдВрдЧ
рдЪрд▓реЛ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВред
рд╣рдо рдЕрдХреНрд╖рд░реЛрдВ рдХреА рдЫрд╡рд┐рдпреЛрдВ рдХреЛ рдЦреЛрд▓рддреЗ рд╣реИрдВ рдФрд░ рдзреИрд░реНрдп рд╕реЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рддреНрд░реБрдЯрд┐рдпреЛрдВ рдХреА рдУрд░ рдЗрд╢рд╛рд░рд╛ рдХрд░рддреЗ рд╣реИрдВ:
рдереЛрдбрд╝реА рджреЗрд░ рдХреЗ рдмрд╛рдж, рдХрд╛рд░реНрдпрдХреНрд░рдо рдЙрди рдЕрдХреНрд╖рд░реЛрдВ рдХреЛ рднреА рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдирд╛ рд╢реБрд░реВ рдХрд░ рджреЗрдЧрд╛ рдЬреЛ рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ рдкрд░рд┐рдЪрд┐рдд рдирд╣реАрдВ рд╣реИрдВ:
рдирд┐рд╖реНрдХрд░реНрд╖
рдХрд╛рд░реНрдпрдХреНрд░рдо рдПрдХ рдирд┐рд░рдВрддрд░ рджреЛрд╖ рд╣реИ - рд╣рдорд╛рд░рд╛ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдмрд╣реБрдд рдмреЗрд╡рдХреВрдл рд╣реИ, рдпрд╣ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рджреМрд░рд╛рди рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рддреНрд░реБрдЯрд┐рдпреЛрдВ рд╕реЗ рд╕реБрд░рдХреНрд╖рд┐рдд рдирд╣реАрдВ рд╣реИ, рдФрд░ рдорд╛рдиреНрдпрддрд╛ рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдПрдХ рдЫрдбрд╝реА рдХреЗ рд░реВрдк рдореЗрдВ рд╕рд░рд▓ рд╣реИрдВред
рд▓реЗрдХрд┐рди рдпрд╣ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдХрд╛рдордХрд╛рдЬ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмреБрдирд┐рдпрд╛рджреА рдЬреНрдЮрд╛рди рджреЗрддрд╛ рд╣реИред
рдпрджрд┐ рдпрд╣ рд▓реЗрдЦ рдЖрджрд░рдгреАрдп рд╣рдм рдХреЗ рд▓рд┐рдП рджрд┐рд▓рдЪрд╕реНрдкреА рдХрд╛ рд╣реИ, рддреЛ рдореИрдВ рдЪрдХреНрд░ рдЬрд╛рд░реА рд░рдЦреВрдВрдЧрд╛, рдзреАрд░реЗ-рдзреАрд░реЗ рд╕рд┐рд╕реНрдЯрдо рдХреЛ рдЬрдЯрд┐рд▓ рдХрд░рдирд╛, рдЕрддрд┐рд░рд┐рдХреНрдд рдХрдиреЗрдХреНрд╢рди рдФрд░ рднрд╛рд░ рдХрд╛ рдкрд░рд┐рдЪрдп рджреЗрдирд╛, рдХреБрдЫ рд▓реЛрдХрдкреНрд░рд┐рдп рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдЖрд░реНрдХрд┐рдЯреЗрдХреНрдЪрд░ рдЖрджрд┐ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВред
рдЖрдк
рдпрд╣рд╛рдВ рд╕реНрд░реЛрдд рдХреЗ рд╕рд╛рде рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреЛ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░рдХреЗ рд╣рдорд╛рд░реА рддрд╛рдЬрд╛ рдЬрдиреНрдореА рдмреБрджреНрдзрд┐ рдХрд╛ рдордЬрд╛рдХ рдЙрдбрд╝рд╛ рд╕рдХрддреЗ
рд╣реИрдВ ред
рд╕рд┐рдо рдХреЗ рд▓рд┐рдП, рдореИрдВ рдЭреБрдХрддрд╛ рд╣реВрдВ, рдкрдврд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдзрдиреНрдпрд╡рд╛рджред
UPD: рд╣рдореЗрдВ рдПрдХ рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рд▓рд┐рдП рдПрдХ рдмреНрд▓реИрдВрдХ рдорд┐рд▓рд╛ рд╣реИред рдЕрдм рддрдХ, рдпрд╣ рдЕрднреА рддрдХ рдЙрд╕рдХрд╛ рдирд╣реАрдВ рд╣реИ, рд▓реЗрдХрд┐рди рдЕрдЧрд▓реЗ рд▓реЗрдЦ рдореЗрдВ рд╣рдо рдЗрд╕реЗ рд╕реЗ рдмрд╛рд╣рд░ рдПрдХ рдкреВрд░реНрдг рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдмрдирд╛рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВрдЧреЗред
рдЯрд┐рдкреНрдкрдгреА рдХреЗ рд▓рд┐рдП
Shultc рдХреЛ рдзрдиреНрдпрд╡рд╛рджред