ΠΠ»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π²ΡΠ΅Π³ΠΎ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½Π΅ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π±ΡΡΡΡΠΎ Π·Π°ΠΌΠ΅Π½ΡΡΡ ΡΠΈΡΡΠ½ΠΎΠΊ Π½Π° ΡΠΊΡΠ°Π½Π΅ Π΄ΡΡΠ³ΠΈΠΌ, Π³ΠΎΡΠΎΠ²ΡΠΌ ΡΠΈΡΡΠ½ΠΊΠΎΠΌ. ΠΡΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ «Π²ΡΠ»Π΅ΠΏΡΡ» — Π½Π° Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΠ΅ ΡΠΊΡΠ°Π½Π°. ΠΡΠΈ ΡΡΠΎΠΌ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΎΠ΄Π½ΠΎΠΉ Π²ΠΈΠ΄Π΅ΠΎΡΡΡΠ°Π½ΠΈΡΡ, Π½Π° Π΄ΡΡΠ³ΠΎΠΉ (Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ, Π½ΠΎ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ) ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΡΡΡ ΠΈ Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠ°Ρ ΡΡΡΠ°Π½ΠΈΡΠ° Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ»Ρ ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ
Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ
Π°Π΄Π°ΠΏΡΠ΅ΡΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠ΅ΠΆΠΈΠΌΡ ΡΠ°Π±ΠΎΡΡ Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΡΡΡΠ°Π½ΠΈΡΠ°ΠΌΠΈ, ΡΠΌ. ΡΠ°Π±Π»ΠΈΡΡ Π½Π° ΡΡΡ.
Π‘ΡΡΠ°Π½ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ: SetVisualPage (N); Π³Π΄Π΅ N — Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠ°Π½ΠΈΡΡ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π²ΠΈΠ΄Π½Π° ΠΈ Π°ΠΊΡΠΈΠ²Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ° Ρ N=0.
Π‘ΡΡΠ°Π½ΠΈΡΠ° Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ: SetActivePage (N);
ΠΠ°ΠΏΠΎΠΌΠ½ΠΈΠΌ, ΡΡΠΎ Π²ΡΠ²ΠΎΠ΄ ΡΠΈΡΡΠ½ΠΊΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡ ΠΈ Π½Π° Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΡΡ ΡΡΡΠ°Π½ΠΈΡΡ.
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΠΎ, ΡΡΠΎ Π²Π°ΠΆΠ½ΠΎ ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ Π΄Π²ΠΈΠΆΡΡΠΈΡ
ΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡΠΈΡ
ΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ, Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΡ Π½Π° Π΄ΡΡΠ³ΠΎΠΉ (Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ, Π½ΠΎ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ) ΡΡΡΠ°Π½ΠΈΡΠ΅ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ ΡΠΈΡΡΠ½ΠΎΠΊ. ΠΠ°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΡΡΠ½ΠΊΠ° ΠΈ ΠΏΡΠΎΡΠ΅ΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ.
ΠΡΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΏΡΠΈΠΌΠ΅Ρ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ — ΠΌΡΠ»ΡΡΠΈΠΏΠ»ΠΈΠΊΠ°ΡΠΈΠΈ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ΅ΡΠ΅Π΄ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄ΠΎΠ²ΡΡ
ΡΡΡΠ°Π½ΠΈΡ (ΡΠ΅ΠΆΠΈΠΌ Π΄Π²ΡΡ
Π²ΠΈΠ΄Π΅ΠΎΡΡΡΠ°Π½ΠΈΡ).
k:= 2; { ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΠΎΠ΄ΠΎΠ²ΡΡ
ΡΡΡΠ°Π½ΠΈΡ }.
Repeat.
for i:= 1 to 100 do.
begin j:= i mod k; { j — Π½ΠΎΠΌΠ΅Ρ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΡ }.
SetActivePage (j); { Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΈΡΡ Π±Π΅Π· Π΅Π΅ ΠΏΠΎΠΊΠ°Π·Π° }.
ClearDevice; { ΡΡΠΈΡΠ°Π΅ΠΌ ΡΡΠ°ΡΡΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ }.
SetfillStyle (1, i div 15 +1); { ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠ²Π΅ΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π· 15 ΡΡΡ. }.
Bar (1, 1, i+10, i+5); { ΡΡΡΠΎΠΈΠΌ Π½ΠΎΠ²ΡΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ }.
SetVisualPage (j); delay (40) { ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΡΡΠ°Π½ΠΈΡΡ }.
end.
Until KeyPressed;
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΠ΅ ΡΠΈΡΡΠ΅ΡΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΉ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ, Π·Π°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΈΡΠ° Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π΄ΡΡΠ³Π°Ρ ΡΡΡΠ°Π½ΠΈΡΠ° Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΈΡΡΠ΅ΡΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΉ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°. ΠΡΠΎΡΠ΅ΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ Π² ΡΠΈΠΊΠ»Π΅.