.
: Pascal.
: Pascal.
, . , , .
WHILE <> DO <>;
<> , ( ), <> , .
. <> , <>, DO, <> , . <> <>, , , <> . , <> . , .
. Y = 1+1/2+1/3+...+1/N. WHILE :
Y:=0; I:=1;
WHILE I<= N DO
begin
Y:=Y+1/I;
I:=I+1
end;
1. , 10 .
Program Exp_3;
Const Limit=10;
Var I, A, Sum: Integer;
Begin
I:=0; { }
Sum:=0; { }
While (I< Limit) Do { }
Begin
I:= I + 1;
Write ( , I, : );
Readln (A); { }
Sum:= Sum + ;
End;
Writeln ( , Sum);
End.
Limit=10, . I, A, Sum .
I .
. While I<Limit. , :
Begin
I:= I +1;
Write ( , I, : );
Readln (A);
Sum:= Sum + ;
End;
, . While, I<Limit. , .., I 10.
|
|
|
I 10 I<Limit , , , End, .. While. Writeln, , Sum.
 |
2. = 0.1, 0.2, 0.3 y = a.tg(x /4) x [0.5,0.9] , a. ( 1) :
Program tab;
var a, x, y: real; {≤0,3;=0}
Begin
writeln('-------------------------');
writeln(' a | x | y |');
writeln('-------------------------');
a:= 0.1;
while a<=0.31 do
begin
writeln(a: 5: 2);
x: =0. 5;
while x<=0.9 do
begin
y: =a*sin(x/4) / cos(x/4);
writeln(x:12:2,' | ', y:10:2);
x: =x+a;
end;
writeln('-------------------------');
a:=a+0.1
end;
End.
1. , . .
1. .
2. .
3. .
4. .
5. . , 12345, 54321.
6. .
7. 5?
8. .
9. 5 .
10. .
11. .
12. .
13. .
14. , 6?
15. , 20?
16. , .
17. .
18. , ?
19. 8?
20. 5?
21. , 30?
22. 6.
23. 3.
24. .
25. .
26. , , , , , , 2222, 1331, 6006.
2. , :
| 1. | 
| a = 0.75, -1 ≤ x ≤ 1 0.2, 1 ≤ y ≤ 5 1.5. | |
| 2. | 
| a = 1.9, 2 ≤ x ≤ 5 0.5, -1 ≤ y ≤ 1 0.5. | |
| 3. | 
| a = -2.1, 1 ≤ t ≤ 2 0.2, 2 ≤ y ≤ 3 0.3. | |
| 4. | 
| b = 3.5, 1 ≤ x ≤ 2 0.2, 0 ≤ t ≤ 1 0.2. | |
| 5. | 
| 0 ≤ x ≤ 2, 2 < x ≤ 3.6 | = 0.5; 0.75, dx = /2. |
| 6. | 
| 0.1 ≤ x ≤ 0.4, 0.4 < x ≤ 1.2, 1.2 < x ≤ 1.6 | = 1.0; 1.5, dx = /5. |
| 7. | 
| 0 ≤ x ≤ 2, 2 < x ≤ 3.6 | = 1.0; 1.3; 1.6, dx = /4. |
| 8. | 
| 0.1 ≤ x < 0.5, x = 0.5, 0.5 < x ≤ 1.5 | = 2.0; 2.1, dx = /10. |
| 9. | 
| 0 < x ≤ 3, 3 < x ≤ 4 | = 1.0; 1.5, dx = /2. |
| 10. | 
| -1 ≤ x ≤ 0, 0 < x < 1, x = 1 | = 0.7; 1, dx = ( +0.2)/2. |
| 11. | 
| 1 ≤ x ≤ 2.5, 2.5 < x ≤ 4 | = 0.5; 1.0, dx = /2. |
| 12. | 
| 0.5 ≤ x < 1.5, x = 1.5, 1.5 < x ≤ 3 | = 0.1; 0.2; 0.3, dx = 2 . |
| 13. | 
| 0.1 ≤ x ≤ 0.5, 0.5 < x ≤ 0.9 | = 0.1; 0.2; 0.3, dx = . |
| 14. | 
| 0 ≤ x ≤ 1, 1 < x ≤ 2, 2 < x < 3 | = 0.5; 0.75; 1.0, dx = /4. |
| 15. | 
| 0.5 ≤ x ≤ 1.5, 1.5 < x ≤ 2 | = 0.1; 0.7; 1.3, dx = /4. |
| 16. | 
| 0.1 ≤ x ≤ 0.4, 0.4 < x ≤ 1.2, 1.2 < x < 1.6 | = 1.0; 1.5, dx = /5. |
|
|
|
17. , ( ). .
18. cos(ctg(n)), n = 1, 2, 3,..., x. . .
19. (k) d f. FOR .
20. . , : . .
