ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ½Π°ΡΠ°Π»Π΅ Π½Π°Π΄ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²Π²ΠΎΠ΄ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΡΠΈΡΠ»Π° n, Π·Π°Π΄Π°ΡΡΠ΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ². ΠΠ°ΡΠ΅ΠΌ Ρ ΠΊΠ°ΠΆΠ΄ΡΠΌ ΠΈΠ· ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΠ΄Π΅Π»Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ: Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ P ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ — Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, Π½Π΅ Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ d Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡΡ (ΠΎΠ½ ΠΎΡΡΠ°Π½Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 4). ΠΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ Π·Π°Π΄Π°Π½ΠΈΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°
«ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ»
ΠΠ°ΡΠΈΠ°Π½Ρ 6
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 1. ΠΠ²Π΅ΡΡΠΈ ΠΌΠ°ΡΡΠΈΠ² Π (5)=(2.0, 0, 0.6664, 0, 0.4150) ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ln x ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ Π Π΅ΡΠ΅Π½ΠΈΠ΅. ΠΠ΅ΡΠ²ΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄Π΅ΠΊΠΎΠΌΠΏΠΎΠ·ΠΈΡΠΈΠΈ, ΡΠΎ Π΅ΡΡΡ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΡΡΡΡ ΠΏΠΎΠ΄Π·Π°Π΄Π°Ρ, ΡΡΠΎΠ±Ρ Π²ΠΌΠ΅ΡΡΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌΡ ΠΌΠΎΠ΄ΡΠ»Ρ, ΡΠΊΠ°Π·Π°Π² Π² Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π΅Π³ΠΎ ΠΈΠΌΡ.
ΠΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ Π·Π°Π΄Π°Π½ΠΈΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π² ΡΡΠ΄ Π’Π΅ΠΉΠ»ΠΎΡΠ°. ΠΠ·Π²Π΅ΡΡΠ½ΠΎΠ΅ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΠΎΠΊΡΠ΅ΡΡΠ½ΠΎΡΡΠΈ ΡΠΎΡΠΊΠΈ Π₯ = 0 ΠΈΠΌΠ΅Π΅Ρ Π²ΠΈΠ΄:
.
ΠΈΠ»ΠΈ .
ΠΠ΄Π½Π°ΠΊΠΎ Π²ΡΡΠΈΡΠ»ΡΡΡ Π»ΠΎΠ³Π°ΡΠΈΡΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π·Π½Π°ΠΊΠΎΡΠ΅ΡΠ΅Π΄ΡΡΡΠ΅Π³ΠΎΡΡ ΡΡΠ΄Π°, ΠΊΠΎΡΠΎΡΡΠΉ ΡΡ ΠΎΠ΄ΠΈΡΡΡ ΠΎΡΠ΅Π½Ρ ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ, ΠΊΡΠ°ΠΉΠ½Π΅ Π·Π°ΡΡΡΠ΄Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ln 2 Ρ ΡΠΎΡΠ½ΠΎΡΡΡ 0,1 ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠ»ΠΎΠΆΠΈΡΡ 100 000 ΡΠ»Π΅Π½ΠΎΠ² ΡΡΠ΄Π°, ΡΠΎ Π΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΡΠΎ ΡΡΡΡΡ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ. ΠΠΎΡΡΠΎΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅:
ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΡΡΠ΅ΠΌ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠΉ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ Π·Π°Π΄Π°Π½Π½Π°Ρ ΡΠΎΡΠΌΡΠ»Π°:
.
ΠΠ°ΠΆΠ΄ΠΎΠ΅ ΡΠ»Π°Π³Π°Π΅ΠΌΠΎΠ΅ ΠΏΠΎΠ΄ Π·Π½Π°ΠΊΠΎΠΌ ΡΡΠΌΠΌΡ Π΅ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠ° Π½Π° ΡΠ΅Π»ΡΡ Π½Π΅ΡΠ΅ΡΠ½ΡΡ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° u. ΠΡΠΎΡΠΌΠΈΠΌ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ u ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ. Π’ΠΈΠΏ ΡΡΠ½ΠΊΡΠΈΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Real, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ u ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°Π²Π΅Π΄ΠΎΠΌΠΎ Π΄ΡΠΎΠ±Π½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ:
function FRACT (x:real):real; {ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ}
const
c: real = 1.414 213 562 373; {ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° ΠΊΠΎΡΠ΅Π½Ρ ΠΈΠ· 2}
Begin {Π½Π°ΡΠ°Π»ΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ}
FRACT:=(2*x-c)/(2*x+c);
End; {ΠΊΠΎΠ½Π΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ}
ΠΠ»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ Π½Π°ΠΊΠ°ΠΏΠ»ΠΈΠ²Π°Π΅ΠΌΡΡ ΡΡΠΌΠΌΡ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΉ Π² Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ b = -0.5*ln (2). ΠΠ»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΡΠΈΡΠ»Π° u ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ Π½Π°ΠΊΠ°ΠΏΠ»ΠΈΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π² ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ uk = uk-1*u, Ρ. Π΅. uk Π΅ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΡΠΈΡΠ»Π° Π½Π° ΡΠ°ΠΌΠΎ ΡΠΈΡΠ»ΠΎ. Π€ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎ Π΄Π»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ 3 ΠΈΡΠ΅ΡΠ°ΡΠΈΠΈ, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΡΡ k ΠΏΡΠΈΠΌΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ 0, 1 ΠΈ 2. ΠΡΠΈ ΡΡΠΎΠΌ 2k + 1 ΠΏΡΠΈΠΌΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ 1, 3 ΠΈ 5. ΠΠ΄Π½Π°ΠΊΠΎ, ΡΡΠΈΡΡΠ²Π°Ρ Π΄Π²Π° Π½ΡΠ»Π΅Π²ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π (5) (ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΡΡ ΡΡΠΌΠΌΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°ΡΡΡΡ, Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡ ΡΡΠΈΡΠ°ΡΡΡΡ), ΡΠ°ΡΠΈΠΎΠ½Π°Π»ΡΠ½Π΅Π΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠΈΠΊΠ» ΠΈΠ· 5-ΡΠΈ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ. Π’ΠΎΠ³Π΄Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΊΠ»Π° Π±ΡΠ΄Π΅Ρ ΡΠ»ΡΠΆΠΈΡΡ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠΌ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π (5) ΠΈ Π΄Π»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ u Π½Π΅ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. Π’ΠΈΠΏ ΡΡΠ½ΠΊΡΠΈΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Real:
function LOG (x:real):real; {ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ}
const
a: array [1.5] of real = (2.0, 0, 0.6664, 0, 0.4150);
{ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°}
b:real = -0.5*ln (2); {ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° b}
Var
u, Pr_u, Sum: real;
Begin {Π½Π°ΡΠ°Π»ΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ}
Pr_u:=1; {Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ}
u:=FRACT (x); {ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ FRACT}
for i:=1 to 5 do begin
Pr_u:=Pr_u*u; {Π²ΠΎΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² ΡΡΠ΅ΠΏΠ΅Π½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠΉ}
Sum:=Sum+a[i]*Pr_u; {ΡΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ΄Π° Π’Π΅ΠΉΠ»ΠΎΡΠ°}
end;
LOG:=b+Sum;
End; {ΠΊΠΎΠ½Π΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ}
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
1. ΠΡΠΈΡΡΠΊΠ° ΡΠΊΡΠ°Π½Π° ΠΎΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ.
2. ΠΠ²ΠΎΠ΄ ΡΠΈΡΠ»Π° x > 0.
3. ΠΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΠΈΡΠ»Π° ΠΌΠ΅Π½ΡΡΠ΅ Π»ΠΈΠ±ΠΎ ΡΠ°Π²Π½ΠΎΠ³ΠΎ Π½ΡΠ»Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ° Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΌΡΡΠ»Π°.
4. ΠΡΠ²ΠΎΠ΄ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ln x ΠΏΡΡΠ΅ΠΌ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ LOG ΠΈ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΈ LOG ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ FRACT.
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Π² ΠΎΠ±Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Ρ . Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ ΡΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΠΌ:
Begin {Π½Π°ΡΠ°Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ}
clrscr; {ΠΎΡΠΈΡΡΠΊΠ° ΡΠΊΡΠ°Π½Π°}
Write ('zadaite thislo x = '); {Π²Π²ΠΎΠ΄ ΡΠΈΡΠ»Π°}
readln (x);
if x<=0 then begin
Write ('Halt!!!'); {Π½Π΅ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΡΠΉ Π²Π²ΠΎΠ΄}
Halt; {ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ}
end;
Write ('LN (', x,') = ', LOG (x):1:5);
readln; {ΠΎΠΆΠΈΠ΄Π°Π½ΠΈΠ΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter}
end. {ΠΊΠΎΠ½Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ}
Π‘ΡΠ°Π²Π½ΠΈΠ²Π°Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠΌΠΈ Π½Π° ΠΊΠ°Π»ΡΠΊΡΠ»ΡΡΠΎΡΠ΅, ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ ΠΏΡΠΈΠ΅ΠΌΠ»Π΅ΠΌΠ°Ρ ΡΠΎΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ Ρ .
Π·Π°Π΄Π°ΡΠ° Π»ΠΎΠ³Π°ΡΠΈΡΠΌ ΡΡΡΠΎΠΊΠ° ΡΡΠ½ΠΊΡΠΈΡ ΠΠ°Π΄Π°Π½ΠΈΠ΅ 2. ΠΠ°ΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ 3 ΠΌΠ°ΡΡΠΈΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ (n?n). ΠΠ°ΠΉΡΠΈ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· Π½ΠΈΡ ΡΡΡΠΎΠΊΡ, Ρ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅ΠΉ ΡΡΠΌΠΌΠΎΠΉ.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ½Π°ΡΠ°Π»Π΅ Π½Π°Π΄ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²Π²ΠΎΠ΄ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΡΠΈΡΠ»Π° n, Π·Π°Π΄Π°ΡΡΠ΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ². ΠΠ°ΡΠ΅ΠΌ Ρ ΠΊΠ°ΠΆΠ΄ΡΠΌ ΠΈΠ· ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΠ΄Π΅Π»Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
1. ΠΠ°ΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ.
2. ΠΡΠ²Π΅ΡΡΠΈ Π½Π° ΡΠΊΡΠ°Π½ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ.
3. ΠΠΎΠ΄ΡΡΠΈΡΠ°ΡΡ ΡΡΠΌΠΌΡ ΡΡΡΠΎΠΊ ΠΈ Π½Π°ΠΉΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΡΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΌΠ°ΡΡΠΈΠ²Π΅.
4. ΠΡΠ²Π΅ΡΡΠΈ Π½Π° ΡΠΊΡΠ°Π½ ΡΡΡΠΎΠΊΠΈ Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠ΅ ΡΡΡΠΎΠΊΠΈ.
ΠΠ΅ΡΠ²ΠΎΠ΅ ΠΈ Π²ΡΠΎΡΠΎΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΏΠΎΡΡΠΎΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ 3 ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Π² ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡΡΡ ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ², ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· ΡΡΠ΅Ρ Π΄Π²ΡΡ ΠΌΠ΅ΡΠ½ΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² a: array [1.3] of Mas. Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΡΠ΅ Π±ΡΠ»ΠΎ Π±Ρ ΡΡΠ°Π·Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΡΡΠ΅Ρ ΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ (n?n?3), Π½ΠΎ ΡΡΠΎ ΠΏΡΠΎΡΠΈΠ²ΠΎΡΠ΅ΡΠΈΠ»ΠΎ Π±Ρ ΡΡΠ»ΠΎΠ²ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, Ρ.ΠΊ. ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π·Π°Π΄Π°ΡΡ ΡΡΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ²Π΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΠΎΡΠΌΠ»Π΅Π½Ρ Π² Π²ΠΈΠ΄Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Zap_Wrt, Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΠ΅ΠΉ ΠΈ ΠΏΠ΅ΡΠ°ΡΠ°ΡΡΠ΅ΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΈ Wiw_Wrt, ΠΏΠ΅ΡΠ°ΡΠ°ΡΡΠ΅ΠΉ ΡΡΡΠΎΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π° Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ. Π’ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΡΠΎΡΠΌΠ»Π΅Π½Π° Π² Π²ΠΈΠ΄Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΡ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ²ΠΎΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π²ΡΠΎΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Wiw_Wrt. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠΊΡΠ°ΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡΡ ΡΠ°ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎ ΡΠ΅ΠΌΠΈ ΡΡΡΠΎΠΊ:
Write ('Wwedite rasmer n<=100 ');
Readln (n);
For i := 1 to 3 do begin
Zap_Wrt (a[i], n); {Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΈ ΠΏΠ΅ΡΠ°ΡΡ i-Π³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°}
Wiw_Wrt (a[i], n); {ΠΏΠ΅ΡΠ°ΡΡ ΡΡΡΠΎΠΊΠΈ Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ}
Writeln; {ΠΏΠ΅ΡΠ°ΡΡ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ}
end;
ΠΠΎΠ»Π½ΡΠΉ ΡΠ΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π½ΠΈΠΆΠ΅:
Program STROKA; {Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ}
uses crt; {ΠΎΡΠΊΡΡΡΠΈΠ΅ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ}
Type
Mas = array [1.100,1.100] of Integer;
Var
a:array [1.3] of Mas;
n, i, j: byte;
{ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ}
Procedure Zap_Wrt (Var d: Mas;n:integer);
Var
k, m: byte;
Begin
For k := 1 to n do begin
For m := 1 to n do begin
d[k, m] := random (100);
Write (d[k, m]: 5);
end;
Writeln;
end;
End;
{Π€ΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΡΡΡΠΎΠΊΠΈ Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ}
Function sum_max (d: Mas;n:integer):byte;
Var
k, m, i_max: byte;
s:array[1.100] of real;
s_max:real;
Begin
For k := 1 to n do begin
s[k]: =0;
For m := 1 to n do
s[k]: =s[k]+d[k, m];
if k=1 then begin
s_max:=s[k];
i_max:=1;
end;
if s_max
s_max:=s[k];
i_max:=k;
end;
end;
sum_max:=i_max; {ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΡΠΎΠΊΠΈ Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ}
End;
{ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠ΅ΡΠ°ΡΠΈ ΡΡΡΠΎΠΊΠΈ Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ}
Procedure Wiw_Wrt (d: Mas;n:integer);
Var
k, m: byte;
Begin
k:=sum_max (d, n);
Write ('Stroka-maximum: ');
For m := 1 to n do
Write (d[k, m]: 5);
Writeln;
End;
Begin
Write ('Wwedite rasmer n<=100 ');
Readln (n);
For i := 1 to 3 do begin
Zap_Wrt (a[i], n); {Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΈ ΠΏΠ΅ΡΠ°ΡΡ i-Π³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°}
Wiw_Wrt (a[i], n); {ΠΏΠ΅ΡΠ°ΡΡ ΡΡΡΠΎΠΊΠΈ Ρ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ i-Π³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°}
Writeln;
end;
end. {ΠΊΠΎΠ½Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ}
ΠΡΠΈΠΌΠ΅Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΡΡΠ΅Ρ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ (5?5):
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 3. ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½ΠΎ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΈΠ· 4-Ρ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ²:
Var c, d: integer;
Procedure P (x, y: integer);
begin y:=x+1 end;
Procedure Q (x: integer; var y: integer);
begin y:=x+1 end;
Procedure R (var x, y: integer);
begin y:=x+1 end;
begin
c:=15: d:=4; P (c+d, d); writeln (d);
c:=15; d:=4; Q (c+d, d); writeln (d);
c:=15; d:=4; R (c+d, d); writeln (d);
c:=15; d:=4; R (c, d); writeln (d);
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ P ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ — Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, Π½Π΅ Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ d Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡΡ (ΠΎΠ½ ΠΎΡΡΠ°Π½Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 4).
Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Q ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ y — ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ-ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΎΠ½ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅Ρ ΡΠ²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΡΠ°Π²Π½ΡΠΌ x+1. ΠΡΠΈ ΡΡΠΎΠΌ x ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ c+d=15+4=19. ΠΠΎΠ΄ΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 19 Π² Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅: x+1 = 19+1= 20. ΠΡΠΎ ΠΈ Π΅ΡΡΡ ΠΈΡΠΎΠ³ΠΎΠ²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ d ΠΏΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ΅Π½ΠΈΠΈ Π² Π³ΠΎΠ»ΠΎΠ²Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ R ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΈΠΌΠ΅Π΅Ρ ΠΌΠ΅ΡΡΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°. ΠΡΠΈ 2-ΠΌ Π²ΡΠ·ΠΎΠ²Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ R ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ x ΠΈ y ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ c ΠΈ d, Ρ. Π΅. 15 ΠΈ 4 ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΠ°ΡΠ°ΠΌΠ΅ΡΡ y ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ y:=x+1=15 + 1 = 16.
ΠΡΠ²Π΅Ρ: 4, 20, ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°, 16.
ΠΠΈΠ±Π»ΠΈΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ
a. ΠΠΎΠΏΠΎΠ², Π. Π. Π’urbo Pascal Π΄Π»Ρ ΡΠΊΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² [Π’Π΅ΠΊΡΡ] /
2. Π. Π. ΠΠΎΠΏΠΎΠ². — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 2004. — 525 Ρ.
a. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ², Π. Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Turbo-Pascal 7.0. [Π’Π΅ΠΊΡΡ] / Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ², Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ². Π.: ΠΠΈΠ°Π»ΠΎΠ³ ΠΠΠ€Π, 2003. — 288 Ρ.
b. ΠΡΠ»ΡΡΠΈΠ½, Π. Π. Tupbo-Pascal Π² Π·Π°Π΄Π°ΡΠ°Ρ ΠΈ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ [Π’Π΅ΠΊΡΡ] / Π. Π. ΠΡΠ»ΡΡΠΈΠ½. Π‘ΠΠ±.: ΠΠ₯Π Π‘Π°Π½ΠΊΡΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2005. -156 Ρ.
c. ΠΠ°ΡΡΠ΅Π½ΠΊΠΎ, Π. Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Turbo-Pascal 7.0. [Π’Π΅ΠΊΡΡ] / Π. Π. ΠΠ°ΡΡΠ΅Π½ΠΊΠΎ, Π. Π. ΠΠ°ΡΡΠ΅Π½ΠΊΠΎ. — ΠΠΈΠ΅Π²: ΠΠΠ+, Π.: ΠΠΈΠ½ΠΎΠΌ Π£Π½ΠΈΠ²Π΅ΡΡΠ°Π», 2008. — 496 Ρ.