.


:




:

































 

 

 

 


, ,




( )

. Turbo Pascal

10

. ,

. , , . ; ; , , ; , , .

 

1. . . : / . ., . ., . . : , 2010. 192 .

2. . . 1 2 / . . : , 2006. 134 .

3. .

-

1. , , .

2. , .

1. Pascal?

2. ?

3. ?

4. ?

5. ?

6. ?

7. ?

8. ?

9. ?

, .

ϳ .

, , .

, , , , , .

 

, .

, , , . , , .

, , , . , , .

- :

Procedure< > (<_1>:< _1>; <_2>:< _2>;var <_3>:< _3>);

Const< >;

Type< >;

Var< >;

< >;

Begin

< >

End;

Procedure , . () , , . ֳ , . () .

, . , , . . ϳ .

, , .

, .

ϳ , .

, , .

, .

:

Function< > (< >):< >;

Const< >;

Type< >;

Var< >;

< >;

Begin

< >

< >:=<>;

End;

, , , . , :

< >:=<>;

- , , () .

, (, ), , .

.

Program zm;

var x,y,m,n: integer;

procedure MaxNumber(a,b: integer; var max: integer);

begin

if a>b then max:=a else max:=b;

end;

begin

write(' x,y ');

readln(x,y);

MaxNumber(x,y,m);

MaxNumber(2,x+y,n);

writeln('m=',m,'n=',n);

end.

, , :

Program zm;

var x,y,m,n: integer;

function MaxNumber(a,b: integer): integer;

var max: integer;

begin

if a>b then max:=a else max:=b;

MaxNumber:= max;

end;

begin

write(' x,y ');

readln(x,y);

m:= MaxNumber(x,y);

n:= MaxNumber(2,x+y);

writeln('m=',m,'n=',n);

end.

 

1. .

2. .

3. , , , , .

- Pascal , z = f (x,y), . z , , :

 

ֲ

1. .

2. .

3. .

4. , , , -, ( ), ( ).

5. , .

6. ϳ .





:


: 2016-10-22; !; : 378 |


:

:

, .
==> ...

1588 - | 1377 -


© 2015-2024 lektsii.org - -

: 0.013 .