
Лабы по Delphi с готовыми программами / Поиск и сортировка массивов
.pdf
+ 0I %% 4
PP Q / /1 R S T Q,. N U(LVW 6 8( +VO
+ I M 8 ( (
I + N U(LVI (8 VO
M+ N U(LV M 8 VO
N + N U(LVN 8( 8 VO
+ N U(LV M 8 VO
+ N U(LV 8 VO
+ N U(LV M 8 VO
M+ N U(LV M(8 VO
(8; @
8U(
(8%
+ & I &
)I + 0V V9V6V9V V4
, "$
' "$ U &
! " # $ % &
P & &
"$8 & & % P %'
0 / / 1 ,Q.1/ 4 23. .,
5 & [ \ , & ! 6
'' ( , 6
[ \ , & 6
[ \ ,
& & % P
& % I
7 &-
X F 06 4 '( !
FY F 0V V%%VZV4
A F 0*%%*##4 U
PP //-, [ 3 \ /R ] R Q.3. ) ) + 0*%%:4 '( !
6+ 0:%%&4 (!
V ' & %
&

A ^ 0#%%:4 0_5%%`4 U
V % & %
A ^ 0#%%:9 _5%%`4 U
+ & ) ' & * +*U-
) % V-%'
A ^ 0#%%:9 _5%%`9 #%%`4 U
&
) 9 6+ 0#%%:4 U 6 ! (
%%%
+ 6
%%%
(8%
4 &-
) + 0#%%:4 U 6+ 0#%%:4 U
) "$
104
) + 0#%%:4 U+ 0#%%:9 #%%54 U
6 ! (0*4+ *%#054+ a%:0#9 *4+ 0*4(8%
+ & I & 1-
b c% %
] &
& I & 7
) + 0#%%a4 '( ! L*9 59 a9 dO
3 I I
) + 0#%%*9 #%%a4 '( ! LL*959a9dO9 L:9e9`9fOO
( I & 7
' I I "$
) + 0#%%*9 #%%a9 #%%54 '( !
L LL#9*95O9 L*959:O9 Ld9:9eO9 Le9&9#OO9LLa9d9:O9 Ld9:9`O9 L#9*9fO9 L*9*9#OO O
P I &
3 *
$% ) * + % ,,-# # ,
;<'= >= =? @ ;<AB > >C?D'@ ;<>E '=@ ;<F?? G?> BEHBC>@
! I F I
( ( *#
* 1 0B & &)

g 0#%%(_*4 U
) + g L#9 *9 59 a9 d9 :9 e9 `9 f9 &O 6+ g L#9 *9 59 a9 d9 :9 e9 `9 f9 &O hM U+ X U (
+ '( !
6 ! ( hM U+ M
+ C NL O D ! L O 8 0 4 60 4 ( 6 ! (
hM U+ = U
6 K
(8
hM U (
N U(LV hM UVO U
N U(LVF ( hM UVO (8%
&
hM U
] ^
& &
P & ! IC N D !1
! I C N ' & ! I
D ! & 1 &
'&% ! IC (!
|
. " # |
! |
|
|
|
M( ( C (! LiO+'( ! |
' |
|
M( |
( D ! LiO+'( ! |
' & |
M( |
( C NLiO+'( ! |
' & |
|
|
|
3 * & I " &' /$ 3 ) I @
I ' & & I 012 I I %
I
$% 3 * + % ,,-# # ,
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I F I 5
( ( *#PPQ3 , //
g 0#%%(_*4 U
) + g L#9 *9 59 a9 d9 :9 e9 `9 f9 &O 6+ g L#9 *9 59 a9 d9 :9 e9 `9 f9 &O hM U+ X U (
+ '( !
6 ! (
+ C NL O

hM U+ M
N U L D ! L OO (8 L hM UO 8 6 ! (
hM U+ 0 4 60 4( L O
(8
hM U (
N U(LV hM UVO U
N U(LVF ( hM UVO (8%
4 4 & & &' / I '4 2
& I0122
& I & " ' %
$
4 I & "$
"$' 3
" &$
$% 5 * + , 6 7 , % ,
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I '(BM
( ( :PPQ3 , // ) + 0*%%(4 U
+'( !
6 ! (
PPj Q Q, .R, k //
+ C NL O D ! L O 8 6 ! ( N LV 0V9 9V4 VO
8U(L 0 4O (8
;lQ./\ R /T Q R 1 Q ,, T // @
PPj Q 23. ., Q, .R, k // , 21R ,
+ C NL O D ! L O 8
N U(LV 0V9 9V4 V90 4+e+5O
8U(
(8%
1 "$& & %'
$% 8 * + , 6 7 , % ,
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I '(BM 5
( ( :PPS /3 / R 1 R m

I 5PPS /3 / 3 m ) + 0*%%(9 *%%I4 U
9 n+'( !
6 ! (
PPj Q //
+ * ( 8
n+ * I 8 6 ! (
N LV 0V9 9V9V9 n9V4 VO
8U(L 0 9 n4O
(8; n@
;lQ./\ R /T Q R 1 Q ,, T // @
PPj Q 23. ., // , 21R ,
+ * ( 8 6 ! (
n+ * I 8
N LV 0V9 9V9V9 n9V4 V9 0 9 n4+e+5O
N U( (8; @
8U(
(8%
1 & &
U ;_MA " &
$V ' ;
3 '
&) &
1 I 2
I ; I ^
&)
3 0
$% 9 * :-, ,
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I '( >U
( (I ^ :PP. 1 / \ //
) + |
0*%%(I ^4 U |
PP // |
U I ( |
+ U |
PP23. ., Q3 / 1 |
(8 ^ |
+ ( ! |
PP ,Q.1/ 23. ., Q3 / 1 |
( |
+ ( ! |
PPS /3 23. ., // |
|
+ ( ! |
|
6 ! (
N U(LVg) 8 U U I ( ) I ) VO
8U(L(O
PPj Q //

+ * ( 8 6 ! ( N LV 0V9 9V4 VO
8U(L 0 4O (8
PPo3. ., Q3 / 1
N U(LVg) 8 U I ( VO
8U(L U I ( O
PPp,Q.1/ 23. .,
N U(LVg) 8 (8 ^ U I ( VO
8U(L (8 ^O
PPj/ 1 23. .,
(8 ^ (q* ( 6 ! (
( L(OPP] .3 S . Q3 ,] //
LC NL O (8 ^O (8 L (8 ^ (O (
+ ( 8 N( (8 ^ 8
0 4+ 0 _*4PP/Q k //
0 (8 ^4+ U I ( (8
U 6 ! (
N U(LV'() U 8 (8 ^VO
8U(
D U L#O
(8
PPj Q 23. ., // , 21R ,
+ * ( 8
N U(LV 0V9 9V4 V9 0 4+e+5O
8U(
(8%
` 4
%
&
$% ;
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I U>U
( (I ^ :PP. 1 / \ //
) + 0*%%(I ^4 U |
PP // |
(8 ^+ ( ! |
PP ,Q.1/ 23. ., Q3 / 1 |
( + ( ! |
PPS /3 23. ., // |
+ ( ! |
|
6 ! (
N U(LVg) 8 U U I ( ) I ) VO
8U(L(O
PPj Q //
+ * ( 8 6 ! ( N LV 0V9 9V4 VO
8U(L 0 4O (8

PPp,Q.1/ 23. .,
N U(LVg) 8 (8 ^ U I ( VO
8U(L (8 ^O
PPrQ 3., . 23. .,
(8 ^ (q* ( 6 ! (
LC NL O (8 ^O (8 L (8 ^ (O (
+ (8 ^ ( 8
0 4+ 0 q*4PP/Q k // 8 L(OPP] .,\s . Q3 ,] // (8
U 6 ! (
N U(LV'() U 8 (8 ^VO
8U(
D U L#O
(8
PPj Q 23. ., // , 21R ,
+ * ( 8
N U(LV 0V9 9V4 V9 0 4+e+5O
8U(
(8%
+
+ , % %'
%' 2
& & & , &
I
+- -< = 4
3 & %
a I & I
'&% I 'b b>c
$% ? * +- -< = ,
;<'= >= =? @
;<AB > >C?D'@
;<>E '=@
;<F?? G?> BEHBC>@
! I H
( (I ^ :PP. 1 / \ //
) + 0#%%(I ^4 UPP //
(8 ^+ ( ! PP ,Q.1/ /1 k 23. .,
g UM + U PP , S., . 23. ., Q3 /1
+'( !
6 ! (
N U(LVg) 8 I ) V9 (I ^q*9V U I ( VO
PPj Q //
+ C NL O D ! L O 8 6 ! ( N LV 0V9 9V4 VO
8U(L 0 4O

(8
PP23. ., Q3 /1
N U(LV'( M U I ( VO
8U(Lg UM O
PP /1
(8 ^+_*
+ C NL O D ! L O 8 0 4 g UM ( 6 ! (
(8 ^+
6 K
(8
PP Q R. ]3\
(8 ^ # (PP./3 23. ., , Q.,
N U(LV>U I ( M(8 ( V9 (8 ^9V (VO UPP./3 23. ., ,. , Q.,
N U(LV>U I ( ( M(8tVO
8U(
(8%
( & ' I I
I &)
& 3 ) ' /4 7 & ' / " &
!$
PP /1
(8 ^+_*
+ C NL O
N U L D ! L OO (8 L (8 ^ #O 8 6 ! (
0 4 g UM ( (8 ^+
( L O
(8

' |
|
)* +),-. |
|
/34,567)8 |
|
/01.2349 |
|
/;4</=<7)8 |
A |
|
|
)017/01.2; 8 |
|
@ |
|
)>/?4+),-. |
@ |
|
|
A |
/01.234/ |
/34/: |
|
/01.2 |
|
( |
|
! " #$# |
|
@ = |
|

' |
|
)* +),-. |
|
,34,567)8C D34</=<7)8C |
|
B/01.2349 |
|
A |
|
D)0=.G |
7+),-.F4)>,?8)017+),-.;4)>D?8 |
|
|
@ |
|
A |
|
,;4D |
|
@ |
|
E347,:D8 1/+ |
|
@ |
|
)>E?;+),-. |
,34E: |
A |
|
@ |
|
)>E?F+),-. |
D34E9 |
A |
|
B/01.234E |
|
B/01.2 |
|
( |
|
% " # # |
|
d & a |