.


:




:

































 

 

 

 


.

19

Turbo Pascal. .

-: , . , : , , , , , . .

:

procedure ( );

Begin

end;

:

function ( ): ;

Begin

end;

:

Var :

. var . , , . , , type. .

, :

( );

- . , . , , . .

, - . , if ..

:

:= ;

:

;

.

, . , - , . , - .

:

.

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.

, , :

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.

.

, , - . , .

. , - , - .



<== | ==>
| .
:


: 2017-04-04; !; : 586 |


:

:

- , , .
==> ...

1745 - | 1526 -


© 2015-2024 lektsii.org - -

: 0.009 .