: ,
: TURBO PASCAL 7.1
: ,
: 2 .
:
1. .. Turbo Pascal. . 2- . .: , 2007. . 86-112.
2. ., . Turbo Pascal. .: , 2008. . 106-134.
3. .. . . . .: , 2008. . 58-64.
:
1. .
2. .
3. .
4. , .
: , - .
1, 11 | N . . |
2, 12 | M . . |
3, 13 | M . . |
4, 14 | N . . |
5, 15 | N . 3. |
6, 16 | N . . |
7, 17 | N . 4. |
8, 18 | M . 5. |
9, 19 | M . 6. |
10, 20 | N . . |
:
1. .
2. .
. .
7 : ,
: ,
: TURBO PASCAL 7.1
: ,
: 2 .
:
- .. Turbo Pascal. . 2- . .: , 2007. . 113-123.
- ., . Turbo Pascal. .: , 2008. . 136-157.
- .. . . . .: , 2008. . 90-104.
:
1. , .
2. , .
3. .
|
|
, .
.
:
Procedure ( );
Begin
End;
( ). - . , , Label, Const, Type, Var .
. . .
:
1) - ( );
2) - ( );
3) .
:
1: 1; 2: 2;
:
Var 1: 1; Var 2: 2;...
:
( );
, ( ).
, .. , , , . ( ) .
, . .
.
1 n .
Procedure Lux (N:Integer; Var Sum:Integer);
Var i:Integer;
Begin
Sum:=0;
For i:=1 To N Do Sum:=Sum + Sqr(i);
End;
Lux (10,s);
s - Integer.
(, , ) , .
.
A B. C.
Type Mat = Array [1..5, 1..5] Of Real;
Procedure Umn (A,B:Mat; Var C:Mat);
-
- , .
1.
Function ( ): ;
2. .
3. , , .
4.
.
|
|
.
:
Function Lux (N:Integer): Integer;
Var s,i: Integer;
Begin
S:=0;
For i:=1 To N Do S:=S + Sqr(i);
Lux:=S;
End;
W:=Lux (10);
W - Integer.
. , , (Program), . .
, , . . .
, , var ( ), .
:
procedure proc1;
function func1: boolean;
"".
, , , . , .
, :
[<_>]<_>:<>;
, :
[<_>]<1>,...,<N>: <>;
.
function func2(a,b:byte; var x,y,z:real; const c:char);
( ) . ,
procedure proc2(a: array[1..100]of char);
. , , type, :
type arr = array[1..100] of char;
procedure proc2(a: arr);
function func2(var x: string): arr;
.
, , ( ) , .
"", , . "" .
.
function min(a,b: integer): integer;
begin if a>b
then min:= b
else min:= a
end;
, ( ) .
, , .
( , ):
<_>(<_>)
, , .
. , , . , .
|
|
, - . .
.
c:= min(a,a*2);
if min(z, min(x,y))= 0 then...;
, .
.
err(res,'!');
: , , , .
, - , - -:
: , - 0,001, - -.
1, 11 | 6, 16 | ||
2, 12 | 7, 17 | ||
3, 13 | 8, 18 | ||
4, 14 | 9, 19 | ||
5, 15 | 10, 20 |
:
1. .
2. .
3. .
4. .
5. , .
, .