ΠΠ½Π°Π»ΠΈΠ·
ΠΠΎΠ»Π½ΡΠΉ ΠΊΠΎΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π² ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΠ΅ ΡΠ°ΡΡΠΈ ΠΊΠΎΠ΄Π°.
ΠΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΡΡ ΠΈ ΠΈΠ½ΡΡΠΈΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ½ΡΡΠ΅Π½.
type.
TForm1 = class (TForm).
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
XPManifest1: TXPManifest;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ΠΠ· Π²ΡΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ½ΡΡΠ½ΠΎ, ΡΡΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠΎΠΈΡ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΠΈΠ· Π΄Π²ΡΡ
ΠΎΠΊΠΎΠ½ ΠΈ ΡΠ΅ΡΡΡΠ΅Ρ
ΠΊΠ½ΠΎΠΏΠΎΠΊ.
ΠΠ»Ρ Ρ
ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΡΠ°Π²ΠΈΠ» ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΌΠ°ΡΡΠΈΠ² ΠΈΠ· ΡΡΡΠΎΠΊ. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΡΠΎΡ ΠΌΠ°ΡΡΠΈΠ² Π½ΠΎΡΠΈΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠ΅ ΠΈΠΌΡ P. ΠΠ°ΡΡΠΈΠ² Π ΠΌΠΎΠΆΠ΅Ρ Π²ΠΌΠ΅ΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΡΠΌ 40 ΡΡΡΠΎΠΊ.
p: array [0.40] of string;
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π³ΡΠ°ΠΌΠΌΠ°ΡΠΈΠΊΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΡΠΈΡΡΠ²Π°ΡΡΡΡ Ρ ΡΠΎΡΠΌΡ ΠΈΠ· ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Memo1, Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ Π² Memo2. ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΡΡΡΡΠ°Π½Π΅Π½ΠΈΡ Π±Π΅ΡΠΏΠ»ΠΎΠ΄Π½ΡΡ
ΠΈ Π½Π΅Π΄ΠΎΡΡΠΈΠΆΠΈΠΌΡΡ
ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎΠ΄Π³ΡΡΠΆΠ°ΡΡΡΡ ΠΈΠ· ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Memo2 ΠΈ ΡΡΠ΄Π° ΠΆΠ΅ Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ» ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΡΡΡΠΎΠΊ Π² ΡΡΠΎΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅, ΡΠΎ Π΅ΡΡΡ ΡΠ°ΡΡΡΠΈΡΠ°Π½ΠΎ, ΡΡΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ Π±ΡΠ΄Π΅Ρ Π²Π²ΠΎΠ΄ΠΈΡΡΡΡ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ mn Π΄Π»Ρ Ρ
ΡΠ°Π½Π΅Π½ΠΈΡ Π½Π΅ΡΠ΅ΡΠΌΠΈΠ½Π°Π»ΡΠ½ΡΡ
(Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ
) ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
if p[i, j] in ['A'.'Z'] then mn[i]: =mn[i]+[P[i, j]];
ΠΠ»Ρ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π½Π΅ΡΠ΅ΡΠΌΠΈΠ½Π°Π»ΠΎΠ² ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ ΠΈ Π·Π°Π³Π»Π°Π²Π½ΡΠ΅ Π±ΡΠΊΠ²Ρ Π»Π°ΡΠΈΠ½ΡΠΊΠΎΠ³ΠΎ Π°Π»ΡΠ°Π²ΠΈΡΠ°, Π²ΡΡΡΠ΅ΡΠ°ΡΡΠΈΠ΅ΡΡ Π² ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ
, Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ Π½Π΅ΡΠ΅ΡΠΌΠΈΠ½Π°Π»Π°ΠΌ. Π’.ΠΊ. ΡΠΈΠΏ «ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π΅ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΠ΅ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, ΡΠΎ Π² mn ΡΠΎΠ±Π΅ΡΡΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΠ°Π·Ρ.
ΠΡΠ°Π²ΠΈΠ»Π° Π²ΠΈΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΡΠ°ΠΊ «ΡΠΈΠΌΠ²ΠΎΠ»">"ΡΠ»ΠΎΠ²ΠΎ». Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΡΠ°Π²Π°Ρ ΡΠ°ΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»Π° Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 3 ΡΠΈΠΌΠ²ΠΎΠ»Π°, ΠΏΠΎΡΡΠΎΠΌΡ ΠΈ Π²ΡΡ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠ°Π²ΠΈΠ»ΠΎΠΌ Π½Π°ΡΠΈΠ½Π°Π΅ΠΌ Ρ ΡΡΠ΅ΡΡΠ΅Π³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°.