10.) .
) .
11.)
) .
12.) .
) .
13.) .
) .
14.) .
) .
15.) .
) .
16.)
) B, A.
17.) .
) B,
A.
18.) n .
) .
19.) .
) Random.
20.) .
) .
3.9. (. . 1.11)
3.10.
1) FOR?
2) FOR?
3) FOR?
4) ?
5) FOR?
6) ? type var ( var).
7) , ?
8) -, -, n- ?
9) () -, , n- ?
4.
4.1.
( ) Pascal.
4.2.
( ) ( ) WHILE REPEAT.
4.3.
:
, ;
;
, ;
, , .
4.4.
1. (. 4.8).
2. WHILE REPEAT (. 4.6 4.7).
3. .
4. WHILE.
5. REPEAT.
6. Turbo Pascal (. 2.5) () .
|
|
7. (. 4.9).
8. (. . 1.11).
4.5. REPEAT
REPEAT . . , . REPEAT:
Repeat
< 1>;
< 2>;
...
< N>;
until < >;
REPEAT UNTIL , BEGIN..END.
REPEAT:
1) , ;
2) : False (.. ) ; True ( ), , .. .
, , . (), .. .
4.1 REPEAT..UNTIL:
4.1 repeat.. until
, , .. .
program ControlInput;
Var
X: Integer;
Begin
repeat { REPEAT}
Write(' X: ');
Readln(X);
if X = 0 then
Writeln('! 0! !');
until X <> 0; { , X 0}
{ ...}
end.
, GOTO.
, REPEAT. Y , Y Y. , Y 0.
program RepeatDivide;
Var
Y: Real; { }
Counter: Integer; {}
Begin
Counter:= 0; { }
Y:= 10; { Y }
repeat { REPEAT}
Y:= Y / 2; { Y 2 Y}
Inc(Counter); { 1 (Counter:= Counter + 1)}
until Y = 0; { , Y = 0}
Writeln('Y=', Y:16:14);
Writeln('Counter=', Counter);
Readln;
end.
, (Y = 0), Y > 0, Y 2 0. , , , . (Y = 0) 132 .
α=0,0001. , N . 4.2 :
|
|
4.2 n
N. , ≈ 0 N = 22. , N . , 0 ≤ N < ∞. , ≤ α. , :
program NumSeriesDemo;
Const
Alpha = 0.0001;
Var
N, I: Integer;
Sum, F: Real;
Begin
Sum:= 0; { }
N:= 0; { N}
repeat { REPEAT}
{ (-7/9)^n }
F:= 1;
for I:= 1 to N do { }
F:= F * (-7/9);
Sum:= Sum + F; { }
N:= N + 1; { N }
until Abs(F) <= Alpha; { }
Writeln('Sum: ', Sum:15:8); { (0.5624)}
Writeln('N: ', N); { (38)}
Writeln('F: ', F:15:8); { F}
Readln; { ENTER}
end.
N=38. , 38- .
, Turbo Pascal , FOR. Abs , .. , .
4.6. WHILE
WHILE, REPEAT, . ( ), ( True), , (False) , . WHILE:
while < > do
Begin
< 1>;
< 2>;
...
< N>;
end;
, WHILE , BEGIN..END.
WHILE 4.3:
4.3 while
WHILE FOR , () (Real), , , FOR, 1. 1 N, K:
program WhileDemo;
Var
N, K, I, Sum: Integer;
Begin
Write(' N, K: ');
Readln(N, K);
Sum:= 0; { }
I:= 1; { }
while I <= N do { }
Begin
Sum:= Sum + I; { }
I:= I + K; { }
end;
Writeln(': ', Sum);
end.
WHILE : True, Break :
while True do
Begin
Readln(N);
if N = 0 then Break;
{ }
end;
, . : 1, 2, 3, 5, 8, 13, 21, 34, .. . , 1,618 (34/21=1,619) 0,618 (21/34=0,6176). 1,618 , , . :
|
|
program GoldenRatio;
Var
N: Integer;
NewF, OldF: Integer; { }
Tmp: Integer; { }
Begin
Write(' N: ');
Readln(N);
OldF:= 1; { = 1}
NewF:= 2; { = 2}
while NewF <= N do
Begin
{ " "}
Writeln('F=', NewF, '; Golden ratio=', NewF/OldF:8:5);
Tmp:= OldF; { }
OldF:= NewF; { }
NewF:= NewF + Tmp; { }
end;
Readln;
end.
4.7.
=0,01 | ||
=0,001 | ||
=0,01 | ||
=0,1 | ||
=0,01 | ||
=0,001 | ||
=0,0001 | ||
=0,1 | ||
=0,01 | ||
=0,001 | ||
=0,01 | ||
=0,1 | ||
=0,0001 | ||
=0,001 | ||
=0,001 | ||
=0,001 | ||
=0,001 | ||
=0,001 | ||
=0,01 | ||
=0,01 |
4.8. (. . 1.11)
4.9.
1. ()?
2. , ?
3. WHILE REPEAT?
4. FOR? ?
5. ?
6. ? ?
5.
5.1.
Pascal.
5.2.
.
5.3.
:
, ;
;
:
[5..9] 0.1 | |
X=< > | Y=< X> |
... | ... |
:
1) (, Vvod), , , A, B, C; X;
2) (, CalcFormula) (. 5.6).
:
1) , -; (, A, B, C), X;
2) ( : WHILE, REPEAT FOR), :
X (, 5 9 0.1);
(, CalcFormula) X, , ; Y;
|
|
X Y Writeln.
5.4.
1) (. 5.6). , .
2) Pascal-, (. 5.5).
3) .
4) (. . 2.5). , .
5) (. 5.8).
6) (. . 1.11).
5.5. Pascal
, . , . , . , , . .
xa + yb + zc, x, y, x ; a, b, c ≥ 0 :
program PowerBadDemo;
Var
X, Y, Z: Real; { ( )}
A, B, C: Integer; { ( )}
Xa, Yb, Zc: Real; { }
I: Integer; { }
Begin
Writeln(' x^a + y^b + z^c');
Write(' X, Y, Z: ');
Readln(X, Y, Z);
Write(' A, B, C: ');
Readln(A, B, C);
{ X A }
Xa:= 1;
for I:= 1 to A do
Xa:= Xa * X;
{ Y B }
Yb:= 1;
for I:= 1 to B do
Yb:= Yb * Y;
{ Z C }
Zc:= 1;
for I:= 1 to C do { C}
Zc:= Zc * Z;
Writeln(Xa + Yb + Zc:8:2);
Readln;
end.
FOR. : I ( ), Xa, Yb, Zc ( ). , ua + vb + wc + xd + ye + zf. . , . , , , : , .
:
program PowerGoodDemo; { }
{Power - Value Stepen }
function Power(Value: Real; Stepen: Integer): Real;
var { }
I: Integer; {I - }
TmpValue: Real; {TmpValue - ( )}
begin { }
TmpValue:= 1; { }
for I:= 1 to Stepen do { Stepen}
TmpValue:= TmpValue * Value;
{ }
Power:= TmpValue;
end; { . , Power}
{*** ***}
var { }
X, Y, Z: Real; { ( )}
A, B, C: Integer; { ( )}
begin { }
Writeln(' x^a + y^b + z^c');
Write(' X, Y, Z: ');
Readln(X, Y, Z);
Write(' A, B, C: ');
Readln(A, B, C);
{ }
Writeln(Power(X, A) + Power(Y, B) + Power(Z, C):8:2);
Readln;
end. { }
, , Power. , Pascal, var ( , type, const, label), , , BEGIN..END. , Power. :
|
|
function Power(Value: Real; Stepen: Integer): Real;
: (function, .. , -), (Value, Stepen) , , (Real).
() . Power:
Res:= Power(5, 2);
Power; 5 Value, 2 Stepen, Value Stepen .