(). , , , . .
, , . . :
TYPE < > = ARRAY [ ] OF < >;
, , . ARRAY... OF .
, , . . , . -, , . . .
. .
, . , . . , X[i]. X , a i , , .
, , , ( , ) FOR.
8.2. . .
.
.
, " " .
procedure, () .
VAR //
procedure ;
var
begin
end;
begin
//
end.
.
. , , .
|
|
|
:
, , , .
. , , ;
. , , , .
2. . .
:
for i:=1 to 3 do
begin
writeln( a b:);
readln(a,b);
writeln(=,a*b);
end;
. , . :
readln (a,b);
readln (a,b);
readln (a,b);
( 1). , . S, 2 , .
procedure pl (c,d: integer);
var S:integer;
begin
S:=c*d;
writeln( ,c, ,d, =,S);
end;
, . , , , .
, , :
pl(4,5);
pl(a,b);
.
, :
for i:=1 to 3 do
begin
tx;
readln(a,b);
pl(a,b);
end;
. ( , ).
:
procedure error (f,g:integer);
begin
if (f<0) or (g<0) then begin
writeln( );
halt; //
end;
end;
4
:
Procedure <> ( );
Const...;
Type...;
Var...;
Begin
<>;
end;
3. , , .
procedure circle (r:real);
var S:real;
begin
S:=pi*r*r;
end;
:
procedure circle (r:real; var S:real);
begin
S:=pi*r*r;
end;
begin
readln(a, e);
writeln(e);
end.
: S . , , .. e.
(, - ).
|
|
|
, .
, .
. .
, sqr(x) : y:=sqr(x);
, , . . , , .. .
:
Function <> ( ): < >;
Const...;
Type...;
Var...;
Begin
<>;
end;
, . .
5. .
function circle (r:real): real;
begin
circle:=pi*r*r;
end;
:
a:=circle(5); ( )
e:=circle(a);
writeln(e);
6. 1!+2!++n!
, . .
function fact (a:integer): integer;
var i: integer;
begin
fact:=1;
for i:=1 to a do
fact:=fact*I;
end;
fact:=fact*I;
, . fact . , . fact :
program factorial;
uses wincrt;
var sum,n,j: integer;
function fact (a: integer): integer;
var i,d: integer;
begin
d:=1;
for i:=1 to a do
d:=d*i;
fact:=d;
end;
begin
sum:=0;
readln(n);
for j:=1 to n do
sum:=sum+fact(j);
writeln(sum);
end.
.
