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