ϳ :
: 126.25
.
.
18 .
ճ
1. Pascal :
;
;
;
.
1. ( ).
2. , ' .
3. .
4. , -.
' :
, ;
, ' .
1. .
2. . .
3. .
. , ;
;
. ̳ , , . , .
1. . .
2. , . .
3. . ' .
4. .
.
г
a, b, , d. :
= (() + p(b) + () + p(d))/4,
() = 44 + 3 + 22 + + 0.5.
г
. , b :
u = f(0.5, ) + f(a + b, - b),
. u v. :
z= f(u + v, v-u)+f(1.7, v),
г
I. , z. :
u= 
II. , b, . :
z= 
ϳ .
1. ?
2. ?
3. ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. ?
10. ?
11. ?
|
|
|
12. ?
13. ?
14. ?
15. ?
16. ?
17. ?
18. ?
19. ?
20. ?
21. ?
22. -?
23. ?
24. ?
25. ?
26. ? (: , ).
.
1. :
procedure Mytext;
begin
writeln(3 !')
end;
2.
program New; var : integer;
procedure One;
begin
writeln('111111')
end;
procedure Two;
begin
writelnf 222222')
end;
begin
One;
Two;
One;
for i:=l to 3 do Two
end.
3. , :
procedure ;
var : integer;
begin
for := 1 to 5 do writeln(:)
end;
4. :
program Rysunok;
procedure Stars(n: integer);
var i:integer;
begin
for := 1 to n do write('*'); writeln
end;
begin
Stars(5);
Stars(10);
Stars(15)
end.
5. :
program Sumy; var k,s: integer;
procedure Suma(n: integer; var s: integer);
var : integer;
begin
s:= 0;
for i:=l to n do s:= s+
end;
begin
suma(5,s);
writeln(s);
read(k);
suma(k,s);
writeln(s);
end.
6. , . , , , .
7. , 2, 4, 6, 8, 10. : ) ; ) .
8. ᒺ (S = 4 
r2, V= (4/3) r3) , ᒺ. 5, 10, 15 .
9. .
10. , , , . .
11. .
12. , , : y=sinx, 2cosx, v=tgx.
13. , 1 : ) ; ) ; ) . .
14. , 1 = =2,54 = 1/12 , 10 . : .
|
|
|
15. , .
16. .
17. .
18. , , : ) 1 = 1852 ; ) 1 = 183 ; ) 1 = 0,9144 ; ) 1 = 0,3048 .
19. =sin2x2 , - .
20. , .
21. , , - ( mn m=3, n , ).
22. , , .
.
1. ϳ
2. 13, 20.
