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