, . .
- , . , , . , .
: . . , .
. , . , . , . , . , .
, - , :
inc(i); writeln(a, b, c); { }
y:= sin(x) + 1; { }
. , . .
.
, , , . , . , .
, , , , type.
:
;
- :
: ;
, :
procedure P(x: integer);
. , . .
: , , , , . , , , , . . .
, , . .
|
|
,
var x: integer;
c: byte;
y: longint;
, , :
P(x); P(c); P(y); P(200); P(x div 4 + 1);
, , , - , . -, .
;
-
- var :
var : ;
, - :
procedure P(var x: integer);
, , , . . , , .
- .
- - .
1.
var a, b, c, d, e: word;
procedure X(a, b, c: word; var d: word);
var e: word;
begin
c:= a + b; d:= c; e:= c;
writeln (':');
writeln ('c = ', c, ' d = ', d, ' e = ', e);
end;
begin
a:= 3; b:= 5;
x(a, b, c, d);
writeln (' :');
writeln ('c = ', c, ' d = ', d, ' e = ', e);
end.
:
:
c = 8 d = 8 e = 8
:
c = 0 d = 8 e = 0
, , . ,
;
- const :
const : ;
, . , . - , .
, - :
procedure P(const x: integer);
. , , . -, . , .
(, , ) , .
-, - .
|
|