: , .
. ,
type tVect = array of real48;
Var a, b: tVect;
, , SetLength ( , -1). 1. 0 ( 1). Low ( ) High ( ).
SetLength . ( ). . SetLength() , , , .
, , . : SetLength ( , 0), < >:= Nil Finalize ( ).
Copy( , , ), . . Copy () ( ) 0.
array of . ,
Type
tCube = array of array of array of real;
Var
Cube: tCube;
SetLength (Cube,4,4,4).
16. ( ).
Program Example_16;
{$APPTYPE CONSOLE}
Uses SysUtils;
type tAr = array of real48;
Var
Ar: tAr; Flag:boolean;
i,n:byte; temp:real48;
Begin
write(' :');
Readln(n);
Setlength(Ar,n);
writeln(' ',n,' :');
for i:=0 to n-1 do
read(Ar[i]);
Flag:=False;
While not Flag do
begin
Flag:=True;
for i:=0 to n-2 do
if Ar[i]>Ar[i+1] then
begin
temp:=Ar[i];
Ar[i]:=Ar[i+1];
Ar[i+1]:=Temp;
Flag:=False
end; {for}
end; {while}
writeln(' :');
for i:=0 to High(Ar) do
write(Ar[i]:5:1);
Readln; readln
End.
(.9).
|
|
.9. ( 16)
N . : , , . .
1. , .
2. , .
3. , , , .
4. .
5. , .
6. K, . K > 0, K K .
7. .
8. . , , .
9. : , , . .
10. . , .
11. .
12. , .
13. , .
14. , .
15. , .
16. , .
17. , .
18. , , .
19. , , , - , .
20. , , , - .
21. , , .
22. , , .
|
|
23. , , .
24. , , .
25. , , , .