.


:




:

































 

 

 

 


) -??? , .. , , .




)

, . - , , . .

.

. . - , . . () . , , , , . , 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) .

 

 

. .

 

. , .

: ( ).

: .

.

 





:


: 2016-11-23; !; : 644 |


:

:

, ; , .
==> ...

1004 - | 822 -


© 2015-2024 lektsii.org - -

: 0.024 .