:
: TURBO PASCAL 7.1
: ,
: 2 .
:
1. .. Turbo Pascal. . 2- . .: , 2007. . 64-67.
2. ., . Turbo Pascal. .: , 2008. . 80-105.
3. .. . . . .: , 2008. . 49-52.
:
1. .
2. .
3. .
4. , .
5. .
While
:
While Do ;
- .
. . , ( Do). , . , . , .
Repeat
:
Repeat
Until ;
. , : , ; , . , . , , .. .
Until, Begin- End. .
:
1. , (N1, N2) K, K.
2. N1 > N2, . - DownTo, N2 < N1.
3. K , GoTo.
4. (While, Repeat, For) If, GoTo. .
9- < 0, Exp(9*Ln(B)) , :
|
|
|
1
K:=1; P:=1;
While K <= 9 Do
Begin
P:=P*B;
K:=K+1
End;
2
K:=1; P:=1;
Repeat
P:=P*B;
K:=K+1
Until K > 9;
: , - a=0,1; 0,2;..., 1.
| 1, 11 | 
|
| 2, 12 | 
|
| 3, 13 | 
|
| 4, 14 | 
|
| 5, 15 | 
|
| 6, 16 | 
|
| 7, 17 | 
|
| 8, 18 | 
|
| 9, 19 | 
|
| 10, 20 | 
|
:
1. .
2. .
3. , .
4. .
5. .
, . .
