рдЕрд╕рд╛рдорд╛рдиреНрдп рдкрд╛рд░рдВрдкрд░рд┐рдХ рдбрд┐рдЬрд╛рдЗрди

рдЖрдкрдХрд╛ рд╕реНрд╡рд╛рдЧрдд рд╣реИ! рдмрд╣реБрдд рдкрд╣рд▓реЗ рдирд╣реАрдВ, рдореИрдВрдиреЗ рд╡рд┐рднрд┐рдиреНрди рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рд╕рд░рдкрдЯ рдЬрд╛рдиреЗ рдХрд╛ рдлреИрд╕рд▓рд╛ рдХрд┐рдпрд╛ред рдХрдо рд╕реЗ рдХрдо рдореИрдВрдиреЗ рдЙрдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдкрд░ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХреЛ рджреЗрдЦрд╛, рд╡рд┐рдХрд┐рдкреАрдбрд┐рдпрд╛ рдФрд░ рдЕрдиреНрдп рдмреНрд▓реЙрдЧреЛрдВ рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдпрд╛ред рдХреНрдпреЛрдВ? рд╕рдВрднрд╡рдд: рд╡рд┐рд╢реБрджреНрдз рд░реВрдк рд╕реЗ рдЬрд┐рдЬреНрдЮрд╛рд╕рд╛ рд╕реЗ рдмрд╛рд╣рд░ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдореИрдВрдиреЗ рдЕрдкрдиреЗ рд▓рд┐рдП рдХреБрдЫ рдирдпрд╛ рдирд╣реАрдВ рдЦреЛрдЬрд╛ рд╣реИред рддреЛ, рд╡рд┐рд╖рдп рдХреЗ рдХрд░реАрдмред рдХрдИ рдЖрдзреБрдирд┐рдХ (рдФрд░ рдРрд╕рд╛ рдирд╣реАрдВ) рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ, рдЕрдзрд┐рдХ рдпрд╛ рдХрдо рдорд╛рдирдХ рдирд┐рд░реНрдорд╛рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЬреИрд╕реЗ рдХрд┐ , рдЬрдмрдХрд┐ рдпрд╛ рдорд╛рдорд▓рд╛ ред рд▓реЗрдХрд┐рди рдХреБрдЫ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ, рдпреЗ рдирд┐рд░реНрдорд╛рдг, рд╣рд╛рд▓рд╛рдВрдХрд┐ рдореМрдЬреВрдж рд╣реИрдВ, рдЬрд┐рдирдореЗрдВ рдЕрджреНрднреБрдд рдЧреБрдг рдФрд░ рдХреНрд╖рдорддрд╛рдПрдВ рд╣реИрдВред рдиреАрдЪреЗ рдореИрдВ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдХреА рдЙрди рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реВрдВрдЧрд╛ рдЬреЛ рдЕрдиреНрдп рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдореМрдЬреВрдж рд╣реИрдВ, рдХреЗрд╡рд▓ рдПрдХ рд╕рдВрд╢реЛрдзрд┐рдд рд░реВрдк рдореЗрдВред рдореИрдВ рдЕрджреНрд╡рд┐рддреАрдп рдФрд░ рдЕрдиреБрдкрдпреЛрдЧреА рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдирд╣реАрдВ рдХрд░реВрдВрдЧрд╛ред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдореИрдВ рдореБрдЦреНрдп рд░реВрдк рд╕реЗ рджреБрд░реНрд▓рдн рдпрд╛ рдореГрдд рднрд╛рд╖рд╛рдУрдВ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реВрдВрдЧрд╛ред рдХреМрди рдкрд░рд╡рд╛рд╣ рдХрд░рддрд╛ рд╣реИ, рдмрд┐рд▓реНрд▓реА рдореЗрдВ рдЖрдкрдХрд╛ рд╕реНрд╡рд╛рдЧрдд рд╣реИ!

рдмреАрдЯрд╛


рдмреАрдЯрд╛ рдПрдХ рдСрдмреНрдЬреЗрдХреНрдЯ-рдУрд░рд┐рдПрдВрдЯреЗрдб рднрд╛рд╖рд╛ рд╣реИ, рдЬреЛ рд╕рд┐рдореБрд▓рд╛ рдХрд╛ рдЙрддреНрддрд░рд╛рдзрд┐рдХрд╛рд░реА рд╣реИред рдЗрд╕рдореЗрдВ рдХрдИ рдЕрджреНрднреБрдд рд╡рд┐рд╢реЗрд╖рддрд╛рдПрдВ рд╣реИрдВ рдЬреЛ рдореИрдВ рд╡рд┐рдЪрд╛рд░ рдХрд░реВрдВрдЧрд╛ред рдХреБрдЫ рднреА рд╣реЛ, рдПрдХ рд╡рд┐рдХрд┐рдкреАрдбрд┐рдпрд╛ рд▓реЗрдЦ рд╣реИред рддреЛ, рдмреАрдЯрд╛ рдореЗрдВ рдХреЗрд╡рд▓ рджреЛ (!) рдирд┐рдпрдВрддреНрд░рдг рдирд┐рд░реНрдорд╛рдг рд╣реИрдВ: рдпрджрд┐ рдФрд░ рдХреЗ рд▓рд┐рдПред рдФрд░ рдпрд╣ рдЬреАрд╡рди рдХреЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реИред рдпрджрд┐ рдирд┐рд░реНрдорд╛рдг рдЙрд▓реНрд▓реЗрдЦрдиреАрдп рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рдкреНрд░рддреНрдпреЗрдХ рдХреЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЗ рдкрд░рд┐рдгрд╛рдо рдХреЛ рд▓рд┐рдЦрдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ рдЬреЛ рдпрджрд┐ рдЙрд╕рдХреЗ рдмрд╛рдж рдЖрддрд╛ рд╣реИред рди рдХреЗрд╡рд▓ рдпрд╣ рдЖрдкрдХреЛ рдЕрдиреНрдп рд╢рд╛рдЦрд╛ рд╕реЗ рдЫреБрдЯрдХрд╛рд░рд╛ рдкрд╛рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ, рдмрд▓реНрдХрд┐ рдпрд╣ рджреГрд╖реНрдЯрд┐рдХреЛрдг рдорд╛рдорд▓реЗ рдХреЗ рдирд┐рд░реНрдорд╛рдг рдХрд╛ рдЕрдиреБрдХрд░рдг рдХрд░рдирд╛ рд╕рдВрднрд╡ рдмрдирд╛рддрд╛ рд╣реИ:
(if x
// 17 then тАж
// 33 then тАж
// y+3 then тАж
else тАж
if);

(if (x>0) and (y<0)
// True then тАж
// False then тАж
if)

рдХрд╣рдиреЗ рдХреА рдЬрд░реВрд░рдд рдирд╣реАрдВ, рдЕрджреНрднреБрдд рднрд╛рд╖рд╛! рд╕рднреА рд╡рд╛рдХреНрдпрд╡рд┐рдиреНрдпрд╛рд╕ рдХреЛ рдПрдХ рдкреГрд╖реНрда рдкрд░ рд╕рдВрдХреНрд╖реЗрдк рдореЗрдВ рд╡рд░реНрдгрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред BETA рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рдбрд┐рдЬрд╝рд╛рдЗрди рдореЗрдВ рднреА рджрд┐рд▓рдЪрд╕реНрдк рд╣реИред рдРрд╕рд╛ рд▓рдЧрддрд╛ рд╣реИ -> рдФрд░ рдЖрдкрдХреЛ рдХрдИ рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ:
10->j -> k;
i + 3 * j->k ;

рдЙрд╕реА рд╕рд┐рдВрдЯреИрдХреНрд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ, рдЖрдк C ++ рдХреА рддрд░рд╣ рдСрдмреНрдЬреЗрдХреНрдЯреНрд╕ рдХреЛ рдбреЗрдЯрд╛ рднреЗрдЬ рд╕рдХрддреЗ рд╣реИрдВ:
'Hello, World!'->putline;
рд▓реЗрдХрд┐рди рд╕рдмрд╕реЗ рджрд┐рд▓рдЪрд╕реНрдк рдЪрдХреНрд░ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреА рд╕рдВрднрд╛рд╡рдирд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдПрдХ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рд╡реИрдз рд▓реВрдк рдХреБрдЫ рдЗрд╕ рддрд░рд╣ рджрд┐рдЦрддрд╛ рд╣реИ:
X -> Root;
L: (if (X-Root*Root -> fabs) > X / 10E6 then
0.5 * (Root + X div Root) -> Root;
restart L;
if);

рдФрд░ рдпрд╣ рд╕рдм рдЗрд╕ рддрдереНрдп рдХреЗ рдмрд╛рд╡рдЬреВрдж рдХрд┐ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдореМрд▓рд┐рдХ рд░реВрдк рд╕реЗ рдирдпрд╛ рдХреБрдЫ рднреА рдирд╣реАрдВ рд╣реИ - рдПрдХ рд╣реА рд▓реВрдк, рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рдСрдкрд░реЗрдЯрд░, рдпрджрд┐ рдХрдердиред рдХреБрдЫ рдкреНрд░рддрд┐рдмрдВрдзреЛрдВ рдХреЛ рд╣рдЯрд╛ рджрд┐рдпрд╛ рдЧрдпрд╛ рдФрд░ рдирдП рдЬреЛрдбрд╝реЗ рдЧрдПред

рдПрдлрд┐рд▓


рдЗрд╕ рдЦреВрдмрд╕реВрд░рдд рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛ рдХреЛ рдЗрд╕ рддрдереНрдп рд╕реЗ рдпрд╛рдж рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛ рдХрд┐ рдЗрд╕рдореЗрдВ рдХреЗрд╡рд▓ рдПрдХ рд▓реВрдк рдСрдкрд░реЗрдЯрд░ рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рдмрд╣реБрдд рдХрд╛рд░реНрдпрд╛рддреНрдордХ рдФрд░ рдиреНрдпреВрдирддрд░ рд╣реИред рдпрд╣рд╛рдБ рдЙрд╕рдХреА рдкрд░рд┐рднрд╛рд╖рд╛ (рд╡рд┐рдХрд┐рдкреАрдбрд┐рдпрд╛ рд╕реЗ) рд╣реИ:
from

until

loop

end

рд▓реВрдк рдХреЛ рдЫреЛрдбрд╝рдХрд░ рдЗрдирдореЗрдВ рд╕реЗ рдХреЛрдИ рднреА рднрд╛рдЧ ... рдЕрдВрдд рдЖрд╡рд╢реНрдпрдХ рдирд╣реАрдВ рд╣реИред рдЗрд╕ рдкреНрд░рдХрд╛рд░, рд╣рдо рд╕реНрд╡рдпрдВ рдЪрдХреНрд░ рдХреЛ рдЬрд┐рд╕ рддрд░рд╣ рд╕реЗ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рдмрдирд╛рддреЗ рд╣реИрдВред рдЕрдирдВрдд рд▓реВрдк рдЪрд╛рд╣рд┐рдП? рд╣рдо рдХреЗрд╡рд▓ рд▓реВрдк рдЫреЛрдбрд╝рддреЗ рд╣реИрдВ ... рдЕрдВрддред рдереЛрдбрд╝реА рджреЗрд░ рдХрд╛ рд▓реВрдк рдЪрд╛рд╣рд┐рдП? рдЬрдм рддрдХ ... рдкрд╛рд╢ ... рдЕрдВрддред
рдореБрдЭреЗ рдирд╣реАрдВ рдкрддрд╛ рдХрд┐ рдХреНрдпреЛрдВ, рд▓реЗрдХрд┐рди рдореБрдЭреЗ рдпреЗ "рдбрд┐рдЬрд╝рд╛рдЗрдирд░" рдкрд╕рдВрдж рд╣реИрдВред рдЖрдЦрд┐рд░рдХрд╛рд░, рд╣рдо рд╕рд╢рд░реНрдд рдмрдпрд╛рдиреЛрдВ рдореЗрдВ рд╡реИрдХрд▓реНрдкрд┐рдХ рджреВрд╕рд░реА рд╢рд╛рдЦрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ, рдФрд░ рдЗрд╕ рдкрджреНрдзрддрд┐ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдЪрдХреНрд░реЛрдВ рдХрд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдХреНрдпреЛрдВ рдирд╣реАрдВ рдХрд░рддреЗ рд╣реИрдВ?

рдЪрд┐рд╣реНрди


рдЖрдЗрдХрди рдХреЛ рд╕реБрдкрд░-рдЙрдЪреНрдЪ рд╕реНрддрд░ рдХреА рднрд╛рд╖рд╛ рдХреЗ рд░реВрдк рдореЗрдВ рддреИрдирд╛рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред рдореЗрд░реА рдЯрд┐рдкреНрдкрдгрд┐рдпреЛрдВ рдХреЗ рд╕рд╛рде рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХреЛ рджреЗрдЦрдиреЗ рдХреЗ рдмрд╛рдж, рдЗрд╕ рдХрдерди рд╕реЗ рдЕрд╕рд╣рдордд рд╣реЛрдирд╛ рдореБрд╢реНрдХрд┐рд▓ рд╣реИред рдкрд╛рде рдЖрдЗрдХреЙрди - рд╕реНрдЯреНрд░рд┐рдВрдЧреНрд╕ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдирд╛, рдпрд╣ рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдЗрд╕ рдХрд╛ рдПрдХ рдЙрддреНрдХреГрд╖реНрдЯ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред рдпрд╣рд╛рдБ рдХреНрдпрд╛ рджрд┐рд▓рдЪрд╕реНрдк рд╣реИ? рд╣рд╛рдВ, рд▓рдЧрднрдЧ рд╕рдм рдХреБрдЫ, рдореБрдЭреЗ рдпрд╣ рднреА рдкрддрд╛ рдирд╣реАрдВ рд╣реИ рдХрд┐ рдХрд╣рд╛рдВ рд╕реЗ рд╢реБрд░реВ рдХрд░рдирд╛ рд╣реИред
рдЖрдЗрдХрди рдореЗрдВ, рд╕реНрдЯреНрд░рд┐рдВрдЧреНрд╕ рдХреЗ рд╕рд╛рде, рдЖрдк рддрд╛рд░реНрдХрд┐рдХ рд╕рдВрдЪрд╛рд▓рди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЖрдк рдХреБрдЫ рдРрд╕рд╛ рд▓рд┐рдЦ тАЛтАЛрд╕рдХрддреЗ рд╣реИрдВ
S:="ab"
S:=S || "cd" # S == "abcd"

рдореЗрд░реЗ рд▓рд┐рдП, рдпрд╣ рдкрд╛рд╕реНрдХрд▓ рдпрд╛ BASIC рдЬреИрд╕реА рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ + рдСрдкрд░реЗрдЯрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рд╕реЗ рдЕрдзрд┐рдХ рддрд░реНрдХрд╕рдВрдЧрдд рд╣реИред рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ, рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдСрдкрд░реЗрд╢рди рдХрд╛ рдирд╛рдо - рд╕рдВрдШрдирди, рдЦреБрдж рдХреЗ рд▓рд┐рдП рдмреЛрд▓рддрд╛ рд╣реИред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдПрдХ рдФрд░ рдЙрдкрдпреЛрдЧреА рдирд┐рд░реНрдорд╛рдг рд╣реИ: рдпреВрдирд┐рд░реА рдСрдкрд░реЗрдЯрд░ *ред рдпрджрд┐ рдЗрд╕рдХреЗ рдмрд╛рдж рдХреЛрдИ рд░реЗрдЦрд╛ рд╣реЛрддреА рд╣реИ, рддреЛ рд╡рд╣ рдкрдВрдХреНрддрд┐ рдореЗрдВ рд╡рд░реНрдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рд▓реМрдЯрд╛рддреА рд╣реИ:
S:="abcd"
write(*S) # '4'

рдпрд╣ рдЕрдиреНрдп рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рд▓реЗрди () рдлрд╝рдВрдХреНрд╢рди рдХреА рддреБрд▓рдирд╛ рдореЗрдВ рдмрд╣реБрдд рдЕрдзрд┐рдХ рд╕реБрд░реБрдЪрд┐рдкреВрд░реНрдг рд╣реИ (рдирд╛рдо рднрд┐рдиреНрди рд╣реЛ рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рдорд╣рддреНрд╡рдкреВрд░реНрдг рдирд╣реАрдВ рд╣реИ)ред рдЕрдиреНрдп рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдЗрд╕ рджреГрд╖реНрдЯрд┐рдХреЛрдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХреНрдпреЛрдВ рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ? рдЙрддреНрддрд░ рд╕реНрдкрд╖реНрдЯ рд╣реИ: рдкрд╛рддреНрд░реЛрдВ рдХреА рдЕрд╕реНрдкрд╖реНрдЯрддрд╛ред рд╕реА ++ рдпрд╛ рдЬрд╛рд╡рд╛ рдЬреИрд╕реА рднрд╛рд╖рд╛рдПрдВ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдЕрднрд┐рднреВрдд рд╣реИрдВ, рдФрд░ рдпрд╣рд╛рдВ рд╕рдорд╕реНрдпрд╛рдУрдВ рдХрд╛ рдПрдХ рдФрд░ рдкреИрдХреЗрдЬ рд╣реИ: рдЖрдкрдХреЛ рдпрд╣ рдкрд╣рдЪрд╛рдирдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ рдХрд┐ рдЪрд░рд┐рддреНрд░ рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕реНрдерд╛рди рдкрд░ рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдХреНрдпрд╛ рдХрд░рддрд╛ рд╣реИ: рдЧреБрдгрди, рдпрд╛ рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреА рд▓рдВрдмрд╛рдИ рд╡рд╛рдкрд╕ рдХрд░рдирд╛? рдпрд╛ рд╢рд╛рдпрдж рдореЗрд░рд╛ рдорддрд▓рдм рдХреБрдЫ рднрдпрд╛рдирдХ рд╣реИ:
S:="abcd"
S[3:3]:="aaa"
S[*S+1:*S+1]:="y"
write(S) # , !

рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдореБрдЭреЗ рддреБрд░рдВрдд рдХреБрдЫ рдФрд░ рдкрд╛рд░рдВрдкрд░рд┐рдХ рдХрд░рдиреЗ рдХреА рдЬрд░реВрд░рдд рд╣реИ ...

рдлрд╝реИрдХреНрдЯрд░


рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ, рдореИрдВрдиреЗ рдореБрдЦреНрдп рд░реВрдк рд╕реЗ рддрдЯрд╕реНрде рддрд░реАрдХреЗ рд╕реЗ рд╡рд╛рдХреНрдп рд░рдЪрдирд╛ рдХреЗ рдЕрд╕рд╛рдорд╛рдиреНрдп рд░реВрдкрд╛рдВрддрд░реЛрдВ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд▓рд┐рдЦрд╛ рдерд╛, рдкрд╛рдардХ рдЦреБрдж рдХреЗ рд▓рд┐рдП рддрдп рдХрд░ рдкрд╛рдПрдВрдЧреЗ рдХрд┐ рдХреНрдпрд╛ рдПрдХ рдЕрдЪреНрдЫрд╛ рд╡рд┐рдЪрд╛рд░ рднрд╛рд╖рд╛ рдореЗрдВ рдПрдореНрдмреЗрдбреЗрдб рдерд╛ рдпрд╛ рдирд╣реАрдВред рд▓реЗрдХрд┐рди рдЕрдм рдореИрдВ рдЗрд╕ рдмрд╛рд░реЗ рдореЗрдВ рд▓рд┐рдЦреВрдВрдЧрд╛ рдХрд┐ рдЖрдкрдХреЛ рд╕рд┐рдВрдЯреИрдХреНрд╕ рдХреЛ рд╡рд┐рдХреГрдд рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИред рдПрдХ рдкреНрд░рдореБрдЦ рдЙрджрд╛рд╣рд░рдг: рдПрдХ рд╕рд╢рд░реНрдд рдпрджрд┐ рдХрд╛рд░рдХ рдореЗрдВ рдмрдпрд╛рдиред рдлреЛрд░реНрдЯ рдХреА рддрд░рд╣ рдлреИрдХреНрдЯрд░ рдХреА рдореБрдЦреНрдп рдмрд╛рд░реАрдХрд┐рдпреЛрдВ, рд╕реНрдЯреИрдХ рдХреЗ рд╕рд╛рде рдЬреБрдбрд╝реЗ рдЙрд▓рдЯрд╛ рдЕрдВрдХрди рд╣реИрдВред рдЗрд╕рдХреЗ рдХрд╛рд░рдг, рдпрджрд┐ рдХрдерди рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рд╕реНрдерд┐рддрд┐ рдХрд╛ рдореВрд▓реНрдпрд╛рдВрдХрди рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдЖрдк рдСрдкрд░реЗрдЯрд░ рдХреЛ рдкрд╛рд░рдВрдкрд░рд┐рдХ рд░реВрдк рд╕реЗ рд▓рд┐рдЦрддреЗ рд╣реИрдВ, рддреЛ рдХреБрдЫ рдкрд╕рдВрдж рд╣реИ
IF THEN 1
ELSE 2
END IF

рдореЗрд░реА рд░рд╛рдп рдореЗрдВ, рдпрд╣ рдШреГрдгрд┐рдд рд╣реИред рдлреЛрд░реНрдЯ рдбреЗрд╡рд▓рдкрд░реНрд╕ рдиреЗ рдПрдХ рдФрд░ рд╕рдорд╛рдзрд╛рди рдкрд╛рдпрд╛ рд╣реИ, рдпрд╣ рдмрд╣реБрдд рдмреЗрд╣рддрд░ рд╣реИред рдЕрдм IF рд╕реНрдерд┐рддрд┐ рдФрд░ рдлрд┐рд░ рд╢рд╛рдЦрд╛ рдХреЛ рдЕрд▓рдЧ рдХрд░рддрд╛ рд╣реИред рдЗрд╕ рдкреНрд░рдХрд╛рд░,
IF
1
ELSE 2
END IF

рд▓реЗрдХрд┐рди рдлреИрдХреНрдЯрд░ рдиреЗ рджреВрд╕рд░реЗ рд░рд╛рд╕реНрддреЗ рдкрд░ рдЬрд╛рдиреЗ рдХрд╛ рдлреИрд╕рд▓рд╛ рдХрд┐рдпрд╛ред рдореИрдВ рдХреЗрд╡рд▓ рддрдереНрдп рдХреА рдЧрдгрдирд╛ рдХрд╛ рдПрдХ рдЙрджрд╛рд╣рд░рдг рджреЗрддрд╛ рд╣реВрдВ:
: tail-factorial
dup 0 =
[ drop ]
[ [ * ] [ 1 - ] bi tail-factorial ]
if ;

рдкреНрд░рд╢реНрди: рдХреНрдпрд╛ рдЖрдк рдХреБрдЫ рд╕рдордЭрддреЗ рд╣реИрдВ? рдореИрдВ рдПрдХ рдмрд╛рд░ рдореЗрдВ рдХреЗрд╡рд▓ рдПрдХ рд╣реА рдЪреАрдЬрд╝ рдХреЛ рд╕рдордЭрддрд╛ рдерд╛ - рддрдм рдХреЛрдИ рдФрд░ рдирд╣реАрдВ рд╣реЛрддрд╛ рд╣реИ, рдФрд░ рдЕрдЧрд░ рд╡реЗ рджреЛрдиреЛрдВ рд╢рд╛рдЦрд╛рдУрдВ рдХреЗ рдмрд╛рдж рдЫрд┐рдкрддреЗ рд╣реИрдВ! рдорддрд▓рдм? рдЖрдк рдХреЛрдб рдкрдврд╝рддреЗ рд╣реИрдВ, рдкрдврд╝рддреЗ рд╣реИрдВ, рдкрдврд╝рддреЗ рд╣реИрдВ ... рдФрд░ рдЕрдВрдд рдореЗрдВ рдЖрдкрдХреЛ рдЕрдЪрд╛рдирдХ рдкрддрд╛ рдЪрд▓рддрд╛ рд╣реИ рдХрд┐ рдпреЗ рдПрдХ рд╕рд╢рд░реНрдд рдмрдпрд╛рди рдХреА рд╢рд╛рдЦрд╛рдПрдВ рд╣реИрдВред рдХрд┐рд▓реЗ рдореЗрдВ, рдпрд╣ рддреБрд░рдВрдд рд╕реНрдкрд╖реНрдЯ рд╣реИ рдХрд┐ рдЖрдкрдХреЗ рд╕рд╛рдордиреЗ рдХреНрдпрд╛ рд╣реИ - рдПрдХ рдЪрдХреНрд░, рдпрд╛ рд╕реНрдерд┐рддрд┐ред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдлреЛрд░реНрдЯ рдореЗрдВ, рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рддрд╛рд░реНрдХрд┐рдХ рд╕рдВрд░рдЪрдирд╛ рдмреЗрд╣рддрд░ рджрд┐рдЦрд╛рдИ рджреЗрддреА рд╣реИ, рдЬрдмрдХрд┐ рдлреИрдХреНрдЯрд░ рдореЗрдВ, рдХреЗрд╡рд▓ рд╡рд░реНрдЧ рдХреЛрд╖реНрдардХ рдХрд╛ рдПрдХ рд╕реЗрдЯред рд╡реЗ рдмреБрджреНрдзрд┐рдорд╛рди рдереЗ, рдмреБрджреНрдзрд┐рдорд╛рди рдереЗ, рд╡реЗ рдЦреБрдж рднреА рдмрд╣реБрдд рдмреБрджреНрдзрд┐рдорд╛рди рдереЗ ...

рдПрдбреАрдП


рдЗрд╕ рд╢рдХреНрддрд┐рд╢рд╛рд▓реА, рд▓реЗрдХрд┐рди рдЬрдЯрд┐рд▓ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛ рдореЗрдВ, рдореБрдЭреЗ рдкреВрд░реЗ рд╕рд░рдгреА рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рдФрд░ рдмреЗрд╣рддрд░ рд╢реБрд░реБрдЖрдд ... рдПрдВрдб рдмреНрд░реИрдХреЗрдЯреНрд╕ рдпрд╛рдж рд╣реИрдВред рд╣рдо рдЙрдирдХреЗ рд╕рд╛рде рд╢реБрд░реВ рдХрд░реЗрдВрдЧреЗред рдЙрди рджрд┐рдиреЛрдВ рдореЗрдВ рдЬрдм рдореИрдВрдиреЗ рдкрд╛рд╕реНрдХрд▓ рдХреЛ рдкрдврд╝рд╛рдпрд╛ рдерд╛, рддреЛ рдореИрдВ рдмрд╣реБрдд рдирд╛рд░рд╛рдЬрд╝ рдерд╛ рдХрд┐ рдореИрдВ рдЬрд╣рд╛рдБ рдЪрд╛рд╣рддрд╛ рдерд╛, рд╡рд╣рд╛рдБ рдЪрд░ рдШреЛрд╖рд┐рдд рдирд╣реАрдВ рдХрд░ рд╕рдХрд╛ред рдирд░реНрдХ рдореЗрдВ, рдпрд╣ рдореБрджреНрджрд╛ рд╣рд▓ рд╣реЛ рдЧрдпрд╛ рд╣реИред рд╢реБрд░реВ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ ... рдЕрдВрдд рдореЗрдВ, рдореИрдВ рдШреЛрд╖рдгрд╛рддреНрдордХ рднрд╛рдЧ рд╕рдореНрдорд┐рд▓рд┐рдд рдХрд░ рд╕рдХрддрд╛ рд╣реВрдВ, рдЬрд╣рд╛рдВ рдореИрдВ рдЙрди рд╕рднреА рдЪрд░ рдФрд░ рдбреЗрдЯрд╛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реВрдВрдЧрд╛ рдЬреЛ рдХреЗрд╡рд▓ рдЗрд╕ рдмреНрд▓реЙрдХ рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛рддреЗ рд╣реИрдВред рдПрдХ рдЙрджрд╛рд╣рд░рдг:
declare
i : integer;
begin
-- , i
end;
-- i !

рджреВрд╕рд░рд╛ рджрд┐рд▓рдЪрд╕реНрдк рдмрд┐рдВрджреБ рд╕рд░рдгрд┐рдпреЛрдВ рдХрд╛ рд╕рдВрдкреВрд░реНрдг рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рд╣реИред рдорд╛рди рд▓реАрдЬрд┐рдП рдХрд┐ рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рджреЛ рд╕рдорд╛рди рд╕рд░рдгрд┐рдпрд╛рдБ рд╣реИрдВ, рдП рдФрд░ рдмреАред рд╣рдореЗрдВ a рд╕реЗ b рддрдХ рдХреЗ рд╕рднреА рдбреЗрдЯрд╛ рдХреЛ рдХреЙрдкреА рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред Ada рдореЗрдВ, рдЗрд╕ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдХреЛ b: = a рд▓рд┐рдЦрдХрд░ рдПрдХ рдЪрд░рдг рдореЗрдВ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рд▓реЗрдХрд┐рди рдПрдХ рдмрд╛рдд рд╣реИ рд▓реЗрдХрд┐рди: рд╕рдВрдХрд▓рдХ рдХреЛ рдХреИрд╕реЗ рдкрддрд╛ рдЪрд▓рддрд╛ рд╣реИ рдХрд┐ рд╕рд░рдгрд┐рдпрд╛рдБ рд╕рдорд╛рди рд╣реИрдВ? рдРрд╕рд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдЖрдзрд╛рд░ рдкреНрд░рдХрд╛рд░ рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВ, рд╣рдо рдЗрд╕реЗ Test_Array рдХрд╣реЗрдВрдЧреЗ:
type Test_Array is array (1..50) of Integer;
рдЕрдм рдЗрд╕ рдкреНрд░рдХрд╛рд░ рдХреЗ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХреЗ рд░реВрдк рдореЗрдВ a рдФрд░ b рдШреЛрд╖рд┐рдд рдХрд░реЗрдВ:
a, b : Test_Array;
рд╕рдВрдХрд▓рдХ рдпрд╛рдж рд░рдЦрддрд╛ рд╣реИ рдХрд┐ рд╕рд░рдгрд┐рдпрд╛рдБ рдкреНрд░рдХрд╛рд░ рдХреЗ рдЕрд░реНрдереЛрдВ рдореЗрдВ рд╕рдорд╛рди рд╣реИрдВ рдФрд░ рдЕрдм a: = b рдЬреИрд╕реЗ рд╕рдВрдЪрд╛рд▓рди рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддреА рд╣реИрдВред рдирд░реНрдХ рдореЗрдВ, рдУрдУрдкреА рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдХрд╛ рд╕реНрд╡рд╛рдж рдмрд╣реБрдд рдорд╣рд╕реВрд╕ рд╣реЛрддрд╛ рд╣реИред
рдПрдХ рдФрд░ рдмрд╣реБрдд рджрд┐рд▓рдЪрд╕реНрдк рдмрд╛рдд: рд╕рдореБрдЪреНрдЪрдпред рд▓реЗрдХрд┐рди рдХрдИ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ, рд╕рдореБрдЪреНрдЪрдп рдореЗрдВ рднреА рдЕрдиреБрдорд╛рдирд┐рдд рд╕рдорд░реВрдкрддрд╛ рдирд╣реАрдВ рд╣реЛрддреА рд╣реИ, рдФрд░ рд╕рдореБрдЪреНрдЪрдп рдХрд╛ рд╡рд░реНрдгрди рдмрд╣реБрдд рд╕рд░рд▓ рдирд╣реАрдВ рд╣реИред рдЗрд╕рд▓рд┐рдП, рдореИрдВ рдЬрд┐рдЬреНрдЮрд╛рд╕реБ рдХреЛ рд╕рдВрдмрдВрдзрд┐рдд рд▓реЗрдЦ рднреЗрдЬ рджреЗрддрд╛ рд╣реВрдВред

рдЦреБрдж рд╕реЗ


рдореИрдВ рдЕрдкрдиреЗ рд╡рд┐рдЪрд╛рд░реЛрдВ рдХреЛ рдЬрдирддрд╛ рдХреЗ рд╕рд╛рдордиреЗ рдкреЗрд╢ рдХрд░рдиреЗ рдХрд╛ рдЙрдкрдХреНрд░рдо рдХрд░реВрдВрдЧрд╛ред рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рдЕрдЧрд░ рдмрдпрд╛рди рдПрдХ рд╢рд░реНрдд рдХреЛ рд╕реНрд╡реАрдХрд╛рд░ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдо рджреНрд╡рд╛рд░рд╛ рдЕрд▓рдЧ рдХреА рдЧрдИ рд╢рд░реНрддреЛрдВ рдХреА рдПрдХ рд╕реВрдЪреА рдХреНрдпреЛрдВ рдирд╣реАрдВ?
if 1, 2, ... , N then
...
end if

рдпрджрд┐ рдХрдо рд╕реЗ рдХрдо рдПрдХ рд╕реНрдерд┐рддрд┐ рдЭреВрдареА рд╣реИ, рддреЛ рдХрд┐рд╕реА рдЕрдиреНрдп рд╢рд╛рдЦрд╛ рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдпрджрд┐ рдХреЛрдИ рд╣реЛред рдЗрд╕рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдХреНрдпреЛрдВ рд╣реИ? рдорд╛рди рд▓реЗрдВ рдХрд┐ рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдХрдИ рд╢рд░реНрддреЗрдВ рд╣реИрдВ рдЬрд┐рдиреНрд╣реЗрдВ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рддрддреНрдХрд╛рд▓реАрди рд╢рд╛рдЦрд╛ рдХреЗ рд▓рд┐рдП рд╕рд╣реА рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПред рдлрд┐рд░ рд╣рдо рдХреБрдЫ рдРрд╕рд╛ рд▓рд┐рдЦреЗрдВрдЧреЗ
if (1) and (2) and (3) then ...
рдЕрдм рдорд╛рди рд▓реАрдЬрд┐рдП рдХрд┐ рдкреНрд░рддреНрдпреЗрдХ рд╕реНрдерд┐рддрд┐ рдмрд▓реНрдХрд┐ рдЬрдЯрд┐рд▓ рд╣реИ, рдФрд░ рдЙрдирдХреЗ рдСрдкрд░реЗрдЯрд░реЛрдВ рдХреЗ рд╕рд╛рде рдЕрд▓рдЧ-рдЕрд▓рдЧ рддрд╛рд░реНрдХрд┐рдХ рдСрдкрд░реЗрдЯрд░реЛрдВ рдХреЛ рдЕрд▓рдЧ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ рддрд╛рдХрд┐ рдЕрдиреБрд╡рд╛рджрдХ рдЙрдиреНрд╣реЗрдВ рд╕рд╣реА рдврдВрдЧ рд╕реЗ рд▓рд┐рдЦ рд╕рдХреЗред рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, рд╣рдореЗрдВ рдХреЛрд╖реНрдардХ рдХреЗ рдкрд░реНрд╡рдд рдорд┐рд▓рддреЗ рд╣реИрдВ рдФрд░ рдЗрд╕рд╕реЗ рдЕрдзрд┐рдХ рдХреБрдЫ рдирд╣реАрдВред рдмреЗрд╢рдХ, рдРрд╕реА рд╕реНрдерд┐рддрд┐рдпрд╛рдВ рдмрд╣реБрдд рджреБрд░реНрд▓рдн рд╣реИрдВ, рдФрд░ рд▓рдЧрднрдЧ рдПрдХ рд╣рдЬрд╛рд░ рдорд╛рдорд▓реЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рдореЗрдВ рд╣реЛрддреА рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЬрдм рд╡реЗ рдЙрддреНрдкрдиреНрди рд╣реЛрддреА рд╣реИрдВ ... рдореЗрд░рд╛ рдкреНрд░рд╕реНрддрд╛рд╡ рд╣рдореЗрдВ рдХреЛрд╖реНрдардХ рдкрд░ рднрд╛рд░ рдХрдо рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ, рддреЛ рдпрд╣ рд╣рдореЗрдВ рдПрдХ рдорд╣реАрдиреЗ рдореЗрдВ рдЕрдкрдиреЗ рд╕реНрд╡рдпрдВ рдХреЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреЛ рдмреЗрд╣рддрд░ рдврдВрдЧ рд╕реЗ рд╕рдордЭрдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдЧрд╛ред рд╕рд╛рдорд╛рдиреНрдп рддреМрд░ рдкрд░, рд╕реНрдерд┐рддрд┐ рдХреА рдПрдХ рд╕реВрдЪреА рдХреЗ рдмрд╛рдж рдЕрдЧрд░ рдРрд╕реА рднрдпрд╛рд╡рд╣рддрд╛ рд▓рд┐рдЦрдиреЗ рдХреА рд╕рдВрднрд╛рд╡рдирд╛ рдХрдо рд╣реЛ рдЬрд╛рдПрдЧреА:
if (figureX > leftLimit && figureX < fightLimit && figureColor == GREEN)
рднрд▓реЗ рд╣реА рд╕реНрдерд┐рддрд┐рдпреЛрдВ рдХреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ рд░реЗрдЦрд╛рдУрдВ рдкрд░ рд░рдЦрд╛ рдЧрдпрд╛ рд╣реЛ, рдЕрд░реНрдзрд╡рд┐рд░рд╛рдо рд╡рд┐рдХрд▓реНрдк рдЕрдзрд┐рдХ рд╕реБрд░реБрдЪрд┐рдкреВрд░реНрдг рджрд┐рдЦрддрд╛ рд╣реИ (рд╣рд╛рд▓рд╛рдБрдХрд┐ ... рдпрд╣ рд╕реНрд╡рд╛рдж рдХреА рдмрд╛рдд рд╣реИ):
if (figureX > leftLimit,
figureX < fightLimit,
figureColor == GREEN) ...

рдореБрдЭреЗ рдирд╣реАрдВ рд▓рдЧрддрд╛ рдХрд┐ рд╕рдореБрджрд╛рдп рдЗрд╕ рд╡рд┐рдЪрд╛рд░ рдХреЛ рд╕рдХрд╛рд░рд╛рддреНрдордХ рд░реВрдк рд╕реЗ рд▓реЗрдЧрд╛, рдореИрдВ рдЦреБрдж рдЗрд╕ рдкрд░ рдЬреЛрд░ рдирд╣реАрдВ рджреЗрддрд╛ред рд▓реЗрдХрд┐рди рдпрд╣ рд╕рднреА рдирдИ рдЪреАрдЬреЛрдВ рдФрд░ рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдХреЗ рд╕рд╛рде рд╣реЛрддрд╛ рд╣реИред рд╡рд┐рдЪрд╛рд░ рдкрд╛рд╕реНрдХрд▓ рдЬреИрд╕реА рднрд╛рд╖рд╛рдУрдВ рдХреЗ рд▓рд┐рдП рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ, рдЬрд╣рд╛рдВ рдХрднреА-рдХрднреА рджреБрд░реНрднрд╛рдЧреНрдпрдкреВрд░реНрдг рдкреНрд░реЛрдЧреНрд░рд╛рдорд░ рд╢рд░реНрддреЛрдВ рдХрд╛ рд╡рд░реНрдгрди рдХрд░рддреЗ рд╕рдордп рдХреЛрд╖реНрдардХ рдореЗрдВ рдбреВрдм рдЬрд╛рддрд╛ рд╣реИред

Source: https://habr.com/ru/post/In125582/


All Articles