)
, . - , , . .
.
. . - , . . () . , , , , . , C fd=open(pathname,flags,modes); fd, .
. , . , .
. , ( ) , .
. . .
. , , , , , .
16
(, , ) ,
→
Procedure → ( ).
→ (, ).
() , . : v:t var v:t, t , v .
V ( ), . , , .
← →
, , ; .
.
()
, , . . , .
|
|
() . .
Function ( ) ( ).
( ) ( )
.
, , , ( := ).
. . Delphi :
Result:= , result .
Function max(var a: tVector; n: tIndex): tComponent;
Begin
M:=a[1];
For I:=2 to n do
If m<a[i] then m:=a[i]; max:=m;
End.
: : .
: . .
:
V:= , V , .
, .
.
( ).
, , 1,,n.
, , . , .
:
1) . , .
M:=a[i];
For i:=1 to n do
If m>a[i] then m:=a[i];
2)
3) .
17
.
() (). 1 . .
- : , .
.
.
, .
: ( , ) ( , ).
X:=x+y;
( ). .
|
|
, var-, , .
, .
. .
Type tIndex=1..100;
tVector=array [tIndex] of real;
procedure max;
a: tVector;
n: tIndex;
Var m:real;
Begin
M:=a[i];
For i:=2 to n do
If m>a[i] then m:=a[i];
End.
: , , .
?
Max(b,10,x);
(, ), ( ) .
, , , , , .
:
1. . , .
M:=a[i];
For i:=1 to n do
If m>a[i] then m:=a[i];
2)
3) .
. .
. , .
: ( ).
: .
.