ΠΡΠ½ΠΎΠ²Ρ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π‘ΡΡΡΠΊΡΡΡΠ½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠΌ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Ρ Π·Π°ΠΏΠΈΡΡΡ ΠΈΡ Π½Π° ΠΏΡΠ΅Π²Π΄ΠΎΠΊΠΎΠ΄Π΅. ΠΡΠΎΡΡΠΎΡΠ° ΡΡΠ΅Π½ΠΈΡ, ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ ΠΈ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠΌΠ΅Π½ΡΡΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠΈΠ±ΠΎΠΊ Π² Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°Ρ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ ΠΈ ΡΠΎΠΊΡΠ°ΡΠΈΡΡ Π²ΡΠ΅ΠΌΡ ΠΈΡ ΠΎΡΠ»Π°Π΄ΠΊΠΈ Π½Π° ΠΠΠ. Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌΠΈ ΡΡΠΈΡΠ°ΡΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΌΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠ½ΠΎΠ²Ρ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΡ — ΡΡΠΎ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π² Π²ΠΈΠ΄Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π»Ρ ΠΠΠ. ΠΠ½Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΏΡΠ΅Π²ΡΠ°ΡΠ°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΡ — Π² ΡΡΡΠΎΠ³ΡΡ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΠΠΠ Π±Π΅Π· ΠΎΡΠΈΠ±ΠΎΠΊ.
ΠΠ° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π²Π° ΠΏΠΎΠ΄Ρ ΠΎΠ΄Π° ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΠΈ:
- 1) ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ (Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌ);
- 2) ΡΡΡΡΠΊΡΡΡΠ½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ (Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ);
Π’ΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΊ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌ Π³ΡΠ΅ΡΠΈΡ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΠΎΡΠΈΠ±ΠΎΠΊ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ ΠΈΠ·-Π·Π° ΠΈΡ Π³ΡΠΎΠΌΠΎΠ·Π΄ΠΊΠΎΡΡΠΈ ΠΈ Π·Π°ΠΏΡΡΠ°Π½Π½ΠΎΡΡΠΈ. ΠΠ·-Π·Π° ΡΡΠΎΠ³ΠΎ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΊ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΡΡΠ΅Π²Π°Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΠΎΡΠΈΠ±ΠΎΠΊ Π² ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ .
Π‘ΡΡΡΠΊΡΡΡΠ½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠΌ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Ρ Π·Π°ΠΏΠΈΡΡΡ ΠΈΡ Π½Π° ΠΏΡΠ΅Π²Π΄ΠΎΠΊΠΎΠ΄Π΅. ΠΡΠΎΡΡΠΎΡΠ° ΡΡΠ΅Π½ΠΈΡ, ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ ΠΈ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠΌΠ΅Π½ΡΡΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠΈΠ±ΠΎΠΊ Π² Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°Ρ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ ΠΈ ΡΠΎΠΊΡΠ°ΡΠΈΡΡ Π²ΡΠ΅ΠΌΡ ΠΈΡ ΠΎΡΠ»Π°Π΄ΠΊΠΈ Π½Π° ΠΠΠ.
ΠΡΠΈ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΌ ΠΏΠΎΠ΄Ρ ΠΎΠ΄Π΅ ΠΊ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΊΠΎΠΌΠΏΠΎΠ·ΠΈΡΠΈΠΈ:
- 1) Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠΉ Π²ΡΠ±ΠΎΡ;
- 2) ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠΎΠ²ΡΠΎΡ;
- 3) Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ).
Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌΠΈ ΡΡΠΈΡΠ°ΡΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΌΠΈ ΡΠΎΠ»ΡΠΊΠΎ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ ΡΡΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ» ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ·ΠΈΡΠΈΠΈ. ΠΠ΅ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌΠΈ ΡΡΠΈΡΠ°ΡΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ goto … ΠΈΠ»ΠΈ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ ΡΡΡΠΏΠ΅Π½ΡΠ°ΡΠ°Ρ Π·Π°ΠΏΠΈΡΡ ΡΠΈΠΊΠ»ΠΎΠ² ΠΈ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ².
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΠ΅ΠΉΡΠΈΠΊΠ°:
1. ΠΠ»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠΉ Π²ΡΠ±ΠΎΡ:
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ°ΠΏΠΈΡΡ Π΅ΡΠ»ΠΈ Ρ > 0 ΡΠΎ if Ρ > 0 then.
Ρ := Ρ Ρ = Ρ ΠΈΠ½Π°ΡΠ΅ else.
Ρ := -Ρ Ρ = -Ρ ΠΊΠ΅ΡΠ»ΠΈ end if.
2. Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠΎΠ²ΡΠΎΡ:
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ°ΠΏΠΈΡΡ ΠΏΠΎΠΊΠ° Ρ > 1 ΡΠΈΠΊΠ» do while Ρ > 1.
Ρ : = Ρ /2 Ρ = Ρ /2.
ΠΊΡΠΈΠΊΠ» loop.
3. ΠΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ).
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π°Π»Π³ «Ρ = |Ρ |» mod: 'Ρ = |Ρ |.
Π½Π°Ρ '.
Π΅ΡΠ»ΠΈ Ρ > 0 ΡΠΎ if Ρ > 0 then.
Ρ := Ρ Ρ = Ρ ΠΈΠ½Π°ΡΠ΅ else.
Ρ := -Ρ Ρ = -Ρ Π²ΡΠ΅ end if.
ΠΊΠΎΠ½ return.
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅.
«Ρ = |Ρ |» gosub mod.
Π Π΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π² Π²ΠΈΠ΄Π΅ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ: ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°:
Π°Π»Π³ «ΠΠ°Π»Π΅ΡΠ΅Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ» 'ΠΠ°Π»Π΅ΡΠ΅Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ Π½Π°Ρ cls.
Π²ΡΠ²ΠΎΠ΄ («Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ:») print «Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ:».
Π²ΡΠ²ΠΎΠ΄ («1. ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ») print «1. ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ».
Π²ΡΠ²ΠΎΠ΄ («2. ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ») print «2. ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ».
Π²ΡΠ²ΠΎΠ΄ («Π. ΠΊΠΎΠ»ΡΡΠΎ») print «3. ΠΊΠΎΠ»ΡΡΠΎ».
Π·Π°ΠΏΡΠΎΡ («Π½ΠΎΠΌΠ΅Ρ =», n) input «Π½ΠΎΠΌΠ΅Ρ =», n.
Π΅ΡΠ»ΠΈ n = 1 ΡΠΎ if n = 1 then.
ΡΠΈΡΡΠ½ΠΎΠΊ_ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° gosub treug.
ΠΈΠ½Π΅c n = 2 ΡΠΎ if n = 2 then.
ΡΠΈΡΡΠ½ΠΎΠΊ_ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° gosub box.
ΠΈΠ½Π΅c n = 3 ΡΠΎ if n = 3 then.
ΡΠΈΡΡΠ½ΠΎΠΊ_ΠΊΠΎΠ»ΡΡΠ° gosub ring.
ΠΈΠ½Π΅c ΠΏ 3 ΡΠΎ if n 3 then.
Π²ΡΠ²ΠΎΠ΄ («Π½Π΅Ρ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠΈΡΡΠ½ΠΊΠ°») print «Π½Π΅Ρ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠΈΡΡΠ½ΠΊΠ°».
Π²ΡΠ΅ 'Π²ΡΠ΅ ΠΊΠΎΠ½ end.
Π°Π»Π³ «ΡΠΈΡΡΠ½ΠΎΠΊ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°» treug: 'ΡΠΈΡΡΠ½ΠΎΠΊ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° Π½Π°Ρ cls.
Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ_ΡΠΊΡΠ°Π½ screen 2,0.
Π»ΠΈΠ½ΠΈΡ (150,50)-(100,100) line (150,50)-(100,100), 3.
Π»ΠΈΠ½ΠΈΡ (150,50)-(200,100) line (150,50)-(200,100), 3.
Π»ΠΈΠ½ΠΈΡ (100,100)-(200,100) line (100,100)-(200,100), 3.
ΠΊΠΎΠ½ return.
Π°Π»Π³ «ΡΠΈΡΡΠ½ΠΎΠΊ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°» box: 'ΡΠΈΡΡΠ½ΠΎΠΊ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° Π½Π°Ρ cls.
Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ_ΡΠΊΡΠ°Π½ screen 2,0.
ΡΠ°ΠΌΠΊΠ° (50,50)-(150,100) line (50,50)-(150,100), 3, b.
ΠΊΠΎΠ½ return.
Π°Π»Π³ «ΡΠΈΡΡΠ½ΠΎΠΊ ΠΊΠΎΠ»ΡΡΠ°» ring: 'ΡΠΈΡΡΠ½ΠΎΠΊ ΠΊΠΎΠ»ΡΡΠ° Π½Π°Ρ cls.
Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ_ΡΠΊΡΠ°Π½ screen 2,0.
ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΡ (100,100), 20 circle (100,100), 20.
ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΡ (100,100), 50 circle (100,100), 50.
ΠΊΠΎΠ½ return.
ΠΠ°Π½Π½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ — ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΠΊ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π»Ρ Π»ΡΠ±ΡΡ ΠΠΠ Π½Π° Π»ΡΠ±ΡΡ ΡΠ·ΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ — ΠΠ°ΡΠΊΠ°Π»Ρ, Π‘ΠΈ, ΠΠ΄Π°, ΠΠΎΠ΄ΡΠ»Π° ΠΈ Ρ. Π΄.
ΠΠ° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠΎΠΊΠΈΠΉ Π½Π°Π±ΠΎΡ ΠΏΡΠ°Π²ΠΈΠ» ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΏΡΠΈΠ½ΡΡΡΡ Π² ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ·ΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ~ ΠΏΡΠ°Π²ΠΈΠ»Π° Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²ΡΠ±ΠΎΡΠ°, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠΈΠΊΠ»Ρ Ρ Π²ΡΡ ΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΡΠΎ ΡΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ.
1. Π£ΡΠ»ΠΎΠ²Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
Π΅ΡΠ»ΠΈ Ρ < 0 ΡΠΎ if Ρ < 0 then.
Π²ΡΠ²ΠΎΠ΄ («Π½Π΅Π΄ΠΎΠΏΡΡΡΠΈΠΌ») print «Π½Π΅Π΄ΠΎΠΏΡΡΡΠΈΠΌ».
ΠΊΠ΅ΡΠ»ΠΈ end if.
2. ΠΠ½ΠΎΠ³ΠΎΠ°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠΉ Π²ΡΠ±ΠΎΡ.
Π΅ΡΠ»ΠΈ Ρ > 1 ΡΠΎ if Ρ > 1 then.
Ρ: = 1 Ρ = 1.
ΠΈΠ½Π΅Ρ Ρ < -1 ΡΠΎ elseif Ρ < -1 then.
Ρ: = -1 Ρ = -1.
ΠΈΠ½Π°ΡΠ΅ else.
Ρ: = Ρ Ρ = Ρ ΠΊΠ΅ΡΠ»ΠΈ end if.
3. Π¦ΠΈΠΊΠ»Ρ ΡΠΎ ΡΡΠ΅ΡΡΠΈΠΊΠΎΠΌ:
ΠΎΡ k = 1 Π΄ΠΎ ΠΏ ΡΠΈΠΊΠ» for k = 1 to n.
Π²ΡΠ²ΠΎΠ΄ (kk) print k*k.
ΠΊΡΠΈΠΊΠ» next k.
4. Π¦ΠΈΠΊΠ»Ρ Ρ Π²ΡΡ ΠΎΠ΄Π°ΠΌΠΈ.
ΡΠΈΠΊΠ» do.
s: = s + x s = s + x.
ΠΏΡΠΈ Ρ < 1 Π²ΡΡ ΠΎΠ΄ if Ρ < 1 then exit do.
Ρ : = x/2 x = x/2.
ΠΊΡΠΈΠΊΠ» loop.
Π ΡΠΈΠΊΠ»Π°Ρ Π² ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²ΡΡ ΠΎΠ΄ΠΎΠ². ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π²ΡΡ ΠΎΠ΄Ρ ΡΡΠΈΡΠ°ΡΡΡΡ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΠΌΠΈ Π΄Π°ΠΆΠ΅ Π΄Π»Ρ ΡΠΈΠΊΠ»ΠΎΠ² ΡΠΎ ΡΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ. ΠΡΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΡΠ°Π²ΠΈΠ» ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
ΠΡΠΈΠΌΠ΅Ρ Π·Π°ΠΏΠΈΡΠΈ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠΈΠΊΠ»ΠΎΠ² Π΄Π»Ρ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈΠ³ΡΡ-ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ° «Π·Π²Π΅Π·Π΄Π½ΠΎΠ΅ Π½Π΅Π±ΠΎ»:
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π°Π»Π³ «Π·Π²Π΅Π·Π΄Π½ΠΎΠ΅ Π½Π΅Π±ΠΎ» ' Π·Π²Π΅Π·Π΄Π½ΠΎΠ΅ Π½Π΅Π±ΠΎ".
Π½Π°Ρ Ρls.
ΡΠΈΠΊΠ» do.
Π·Π°ΠΏΡΠΎΡ («Π·Π²Π΅Π·Π΄=», ΠΏ) input «Π·Π²Π΅Π·Π΄=», n.
ΠΏΡΠΈ ΠΏ <= 0 Π²ΡΡ ΠΎΠ΄ if n <= 0 then exit do.
Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ_ΡΠΊΡΠ°Π½ screen 2,10.
ΠΎΡ k = 1 Π΄ΠΎ ΠΏ ΡΠΈΠΊΠ» for k = 1 to n.
Ρ : = ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ [0:200] Ρ = rnd*200.
Ρ: = ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ [0:200] Ρ = rnd*200.
ΡΠΎΡΠΊΠ° (Ρ , Ρ) pset (x, y), 3.
ΠΊΡΠΈΠΊΠ» next k.
ΠΊΡΠΈΠΊΠ» end do.
ΠΊΠΎΠ½ end.
ΠΡΠΈΠΌΠ΅Ρ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠ³ΠΎΠ°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²ΡΠ±ΠΎΡΠ° ΠΈ ΡΠΈΠΊΠ»ΠΎΠ² Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌΠΈ Π²ΡΡ ΠΎΠ΄Π°ΠΌΠΈ:
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π°Π»Π³ «ΡΠ³Π°Π΄Π°ΠΉ-ΠΊΠ°» ' ΡΠ³Π°Π΄Π°ΠΉ-ΠΊΠ° Π½Π°Ρ cls.
Π²ΡΠ²ΠΎΠ΄ («Π£Π³Π°Π΄Π°ΠΉ-ΠΊΠ° ΡΠΈΡΠ»ΠΎ») print «Π£Π³Π°Π΄Π°ΠΉ-ΠΊΠ° ΡΠΈΡΠ»ΠΎ».
Π²ΡΠ²ΠΎΠ΄ («ΠΎΡ 1 Π΄ΠΎ 100») print ΠΎΡ 1 Π΄ΠΎ 100″.
z: = ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ [0:100] z = int (rnd*100).
ΡΠΈΠΊΠ» do.
Π·Π°ΠΏΡΠΎΡ («ΡΠΈΡΠ»ΠΎ =», Ρ ) input «ΡΠΈΡΠ»ΠΎ =», Ρ ΠΏΡΠΈ Ρ = z Π²ΡΡ if Ρ = z then exit do.
Π΅ΡΠ»ΠΈ Ρ < z ΡΠΎ if Ρ < z then.
Π²ΡΠ²ΠΎΠ΄ («ΠΌΠ°Π»ΠΎ») print «ΠΌΠ°Π»ΠΎ».
ΠΈΠ½Π΅c Ρ > z Ρo elseif Ρ > z then.
Π²ΡΠ²ΠΎΠ΄ («ΠΌΠ½ΠΎΠ³ΠΎ») print «ΠΌΠ½ΠΎΠ³ΠΎ».
Π²ΡΠ΅ end if.
ΠΊΡΠΈΠΊΠ» end do.
Π²ΡΠ²ΠΎΠ΄ («ΠΌΠΎΠ»ΠΎΠ΄Π΅Ρ, ΡΠΌΠ½ΠΈΡΠ°») print «ΠΌΠΎΠ»ΠΎΠ΄Π΅Ρ, ΡΠΌΠ½ΠΈΡΠ°».
ΠΊΠΎΠ½ end.
ΠΠΎΠΏΡΠΎΡΡ.
- 1. Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΡ?
- 2. Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ?
- 3. Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ Π½Π΅ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ?
- 4. Π ΡΠ΅ΠΌ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²Π° ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ?
- 5. Π ΡΠ΅ΠΌ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΈ Π½Π΅ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ?
- 6. ΠΠΎΠΆΠ½ΠΎ Π»ΠΈ Π³Π°ΡΠ°Π½ΡΠΈΡΠΎΠ²Π°ΡΡ ΠΎΡΡΡΡΡΡΠ²ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΎΠΊ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ ?
ΠΠ°Π΄Π°ΡΠΈ.
- 1. ΠΠΎΡΡΡΠΎΠΉΡΠ΅ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π΄Π»Ρ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ
Π±Π»ΠΎΠΊΠΎΠ²:
- Π°) ΠΊΡΡΡΠ°;
- Π±) Π΄Π΅ΡΠ΅Π²ΠΎ;
- Π²) ΡΡΠ΅Π½Π° Ρ ΠΎΠΊΠ½ΠΎΠΌ;
- Π³) ΡΡΠΎΠ»Π±.
- 2. ΠΡΠ΅Π΄Π»ΠΎΠΆΠΈΡΠ΅ ΡΠΈΡΡΠ½ΠΊΠΈ ΠΈ ΡΠΎΡΡΠ°Π²ΡΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈΠ· ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅Π³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ, Π΄Π»Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ
ΡΡΡΠΎΠ΅Π½ΠΈΠΉ:
- Π°) Π΄ΠΎΠΌΠΈΠΊΠ° Ρ ΠΎΠΊΠ½ΠΎΠΌ ΠΈ Π΄Π΅ΡΠ΅Π²ΠΎΠΌ;
- Π±) Π΄ΠΎΠΌΠΈΠΊΠ° Ρ Π΄Π²ΡΠΌΡ ΠΎΠΊΠ½Π°ΠΌΠΈ;
- Π²) Π΄ΠΎΠΌΠΈΠΊΠ° Ρ ΡΠΎΠ±Π°ΡΡΠ΅ΠΉ Π±ΡΠ΄ΠΊΠΎΠΉ;
- Π³) Π΄Π²ΡΡ ΡΡΠ°ΠΆΠ½ΠΎΠ³ΠΎ Π΄ΠΎΠΌΠΈΠΊΠ°,
- 3. Π‘ΠΎΡΡΠ°Π²ΡΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌ Π²ΡΠ²ΠΎΠ΄Π° Π½Π° ΡΠΊΡΠ°Π½ ΠΏΠΎΠ»Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ.
- 4. Π‘ΠΎΡΡΠ°Π²ΡΡΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈΠ· ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ
Π·Π°Π΄Π°Ρ, Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½Π΅:
- Π°) ΠΌΠ½ΠΎΠ³ΠΎΡΠ΅ΠΊΡΠΈΠΎΠ½Π½ΡΡ Π΄ΠΎΠΌΠΎΠ² Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΡΠ΅ΠΊΡΠΈΠΉ;
- Π±) ΠΌΠ½ΠΎΠ³ΠΎΡΡΠ°ΠΆΠ½ΡΡ Π΄ΠΎΠΌΠΎΠ² Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΡΡΠ°ΠΆΠ΅ΠΉ ΠΈ ΡΠ΅ΠΊΡΠΈΠΉ.