Звітність / Інфогматика / lessen_11+
.pdf
|
121 |
, .
4. , -
0 100.
Program z;
var x: integer; s,d: real;
begin |
|
s:=0; |
{ 0 100} |
x:=2; |
|
while x<=100 do |
|
begin |
|
s:=s+x; |
|
x:=x+2; |
|
end; |
|
writeln('s=',s:0:2); |
|
d:=1; |
{ 0 |
100} |
|
x:=1; |
|
while x<=100 do |
|
begin |
|
d:=d*x; |
|
x:=x+2; |
|
end; |
|
writeln('d=',d:0:2); |
|
end. |
|
5. , -
0 100.
Program z;
var x: integer; s,d: real;
begin s:=0; d:=1;
for x:=0 to 100 do begin
if x mod 2= 0 then s:=s+x else d:=d*x; { 2
0 )
)}
end;
writeln('s=',s:0:2);
writeln('d=',d:0:2);
end.
6. = 4- 5 3 - 2 2 + 0.1
, -5 3 0.2.
Program z4_37; |
|
{ } |
var x,y:real; |
|
{ } |
begin |
|
{ } |
x:=-5; |
{ } |
|
while x<=3.1 do |
{ <=3.1 - ( )} |
|
begin |
|
{ ( )} |
y:=X*X*X*X-5*X*X*X-2*SQR(X)+0.1; |
{ } |
|
Writeln('X=',x:0:1,' |
Y=',Y:0:3); { } |
|
x:=x+0.2; |
|
{ = 0.2} |
end; |
|
{ ( )} |
end. |
|
{ } |
122 |
. |
|
., . |
7. = 4- 5 3 - 2 2 + 0.1
, -5 3 0.2.
Program z4_37; |
|
{ } |
var x,y:real; |
|
{ } |
begin |
|
{ } |
x:=-5; |
|
{ } |
repeat |
{ - ( )} |
|
y:=X*X*X*X-5*X*X*X-2*SQR(X)+0.1; |
{ } |
|
Writeln('X=',x:0:1,' |
Y=',Y:0:3); { } |
|
x:=x+0.2; |
|
{ = |
until x>3.1; |
|
0.2} |
|
{ 3 - |
|
end. |
|
)} |
|
{ } |
|
8. ,
=1+1/(n*n), - N 1 100 -
1.
Program z1; |
|
var n:integer; |
|
s,y:real; |
|
begin |
|
n:=1; |
{ } |
s:=0; |
|
while n<=100 do |
|
begin |
{ } |
y:=1+1/sqr(n); |
|
s:=s+y; |
{ } |
n:=n+1; |
{ } |
end;
writeln('s=',s:0:2);
end.
Program z1; var n:integer;
s,y:real; begin
s:=0;
for n:=1 to 100 do begin y:=1+1/sqr(n); s:=s+y;
end;
writeln('s=',s:0:2);
end.
9. , ,
Z.in. Z.out.
Program z1; |
{ f,f1 text} |
var f,f1: text; |
|
ch,s: real; |
|
begin |
{ f z.in} |
assign(f,'z.in'); |
|
reset(f); |
{ f } |
s:=0; |
{ } |
while not(eof(f)) do { f } begin
read(f,ch);
s:=s+ch;
|
|
123 |
|
|
|
, . |
|
|
|
end; |
{ f} |
|
|
|
close(f); |
|
|
|
|
assign(f1,'z.out'); |
{ f1 z.out} |
|
|
|
rewrite(f1); |
{ f1 } |
|
|
|
writeln(f1,'s=',s:0:2); { f1} |
|
|
||
close (f1); |
{ f1} |
|
|
|
end. |
|
|
|
|
10. , , |
|
|
||
Z.in. , Z.OUT. |
|
|
||
Program z1; |
{ f,f1 text} |
|
|
|
var f,f1: text; |
|
|
||
ch,s: real; |
{ h- , , S- } |
|||
begin |
{ } |
|
|
|
assign(f,'z.in'); |
{ f z.in} |
|
|
|
reset(f); |
{ f } |
|
|
|
s:=0; |
{ } |
|
|
|
while not(eof(f)) do { f } |
|
|
||
begin |
{ } |
|
|
|
read(f,ch); |
{ f ch} |
|
|
|
s:=s+ch; |
{ } |
|
|
|
end; |
{ } |
|
|
|
close(f); |
{ f} |
|
|
|
assign(f1,'z.out'); |
{ f1 z.out} |
|
|
|
rewrite(f1); |
{ f1 (z.out) } |
|
|
|
writeln(f1,'s=',s:0:2); { f1 (z.out)} |
|
|
||
close (f1); |
{ f1 (z.out)} |
|
|
|
writeln('s=',s:0:2); |
{ } |
|
|
|
end. |
|
|
|
|
Program z; |
{F - } |
|
|
|
var f:text; |
|
|
||
a,b,s,p: real; |
{a,b,s,p - } |
|
|
|
begin |
{ } |
|
|
|
assign(f,'r.dat'); |
{ f r.dat} |
|
|
|
reset(f); |
{ f (r.dat) } |
|
|
|
while not(eof(f)) do |
{ - - |
|||
} |
{ } |
|
|
|
begin |
|
|
|
|
read(f,a,b); |
{ f (r.dat) - a i b} |
|||
s:=a*b; |
{ } |
|
|
|
p:=2*(a+b); |
{ } |
|
|
|
writeln('s=',s:0:2,' |
p=',p:0:2); |
{ - |
||
end; |
|
} |
|
|
|
{ ( )} |
|||
close(f); |
|
{ f (r.dat)} |
|
|
end. |
|
{ } |
|
|
11. , ,
(5).
Program z1; |
{ } |
var a: array [1..5] of real; |
{ 5 } |
s,d: real; |
{ - } |
k,nom: integer; |
{ - } |
begin |
{ } |
{ } |
|
for nom:=1 to 5 do |
{ 1 5 1} |
begin |
{ } |
write('A[',nom,']='); |
{ - A[1]=} |
readln(a[nom]); |
{ |
end; |
} |
{ } |
|
|
124 |
|
. |
|
|
|
|
|
., . |
|
{ } |
|
{ } |
|
|
s:=0; |
|
||
|
k:=0; |
|
{ } |
|
|
d:=1; |
|
{ } |
|
|
for nom:=1 to 5 do |
{ 1 5 |
||
1} |
begin |
|
{ } |
|
|
if a[nom]>0 then |
{ ( ) } |
||
|
|
|
begin |
{ } |
|
|
|
s:=s+a[nom]; |
{ } |
|
|
|
k:=k+1; |
{ 1} |
|
|
|
d:=d*a[nom]; |
{ } |
|
end; |
end; |
{ } |
|
|
|
{ } |
||
|
{ } |
|||
|
if k:=0 then d:=0; |
{ |
||
|
writeln('S=',s:0:2); |
0 0} |
||
|
{ } |
|||
|
writeln('K=',k:0); |
{ } |
||
|
writeln('d=',d:0:2); |
{ } |
||
|
end. |
|
{ } |
|
12. , ,
(3,5).
Program z1; |
{ } |
var a: array [1..3,1..5] of real; |
{ 15 } |
s,d: real; |
{ - } |
k,x,y: integer; |
{ , - |
} |
{ } |
begin |
|
{ } |
|
for x:=1 to 3 do |
{ 1 3 1} |
for y:=1 to 5 do |
{ 1 5 - |
1} |
{ } |
begin |
|
write('A[',x,';',y,']='); |
{ - A[1]=} |
readln(a[x,y]); |
{ |
} |
{ } |
end; |
|
{ } |
{ } |
s:=0; |
|
k:=0; |
{ } |
d:=1; |
{ } |
for x:=1 to 3 do |
{ 1 3 1} |
for y:=1 to 5 do |
{ 1 5 1} |
begin |
{ } |
if a[x,y]>0 then |
{ ( ) } |
begin |
{ } |
s:=s+a[x,y]; |
{ } |
k:=k+1; |
{ 1} |
d:=d*a[x,y]; |
{ } |
end; |
{ } |
end; |
{ } |
{ } |
{ |
if k:=0 then d:=0; |
|
writeln('S=',s:0:2); |
0 0} |
{ } |
|
writeln('K=',k:0); |
{ } |
writeln('d=',d:0:2); |
{ } |
end. |
{ } |
|
125 |
|
, . |
|
|
|
|
|
..................................................................................................... |
|
3 |
.............................................................. |
|
4 |
1................................................................................................................. |
|
6 |
. Microsoft |
||
Power-Point. ........................................................................................................ |
|
6 |
2............................................................................................................... |
|
11 |
. . ........... |
|
11 |
3............................................................................................................... |
|
15 |
, |
|
|
. , , , . |
|
|
. ........................................................................... |
|
15 |
4............................................................................................................... |
|
18 |
. ............................... |
|
18 |
5............................................................................................................... |
|
20 |
. ........................................................ |
|
20 |
6............................................................................................................... |
|
21 |
" ”. ..................... |
|
21 |
7............................................................................................................... |
|
22 |
. . |
|
|
....................................................................................................................... |
|
22 |
8............................................................................................................... |
|
26 |
. . ................................. |
|
26 |
9............................................................................................................... |
|
29 |
........................................................... |
|
29 |
10............................................................................................................. |
|
32 |
. . .. |
32 |
|
11............................................................................................................. |
|
36 |
.......................................................................... |
|
36 |
12............................................................................................................. |
|
39 |
. .............................................................. |
|
39 |
13............................................................................................................. |
|
44 |
, .............................................. |
|
44 |
14............................................................................................................. |
|
47 |
. |
|
|
...................................................................................... |
|
47 |
15............................................................................................................. |
|
49 |
" " .............................. |
|
49 |
16............................................................................................................. |
|
50 |
. . |
|
|
. ................................................................................................................ |
|
50 |
126 |
|
|
|
., . |
|
17............................................................................................................. |
|
53 |
. ....................................................................... |
53 |
|
18............................................................................................................. |
|
56 |
. ............................................................................ |
56 |
|
19............................................................................................................. |
|
59 |
. . ... 59 |
||
20............................................................................................................. |
|
62 |
, . ...................................................... |
62 |
|
21............................................................................................................. |
|
64 |
............................................................................................................... |
|
64 |
22............................................................................................................. |
|
67 |
. ................................................................................................................. |
|
67 |
23............................................................................................................. |
|
70 |
" . |
||
"................................................................................................................ |
|
70 |
24............................................................................................................. |
|
76 |
. |
|
|
. . . |
|
|
. ........................................................................ |
76 |
|
25............................................................................................................. |
|
80 |
. . . |
|
|
. |
.................................................................................. |
80 |
26............................................................................................................. |
|
82 |
: , , . |
|
|
. ............................................ |
82 |
|
27............................................................................................................. |
|
87 |
. . |
|
|
" "........................................................ |
87 |
|
28............................................................................................................. |
|
89 |
. |
||
. .................................................................................... |
|
89 |
29............................................................................................................. |
|
92 |
. . |
|
|
. , . |
|
|
TurboPascal. ............................. |
92 |
|
30............................................................................................................. |
|
97 |
. . .97 |
||
31........................................................................................................... |
|
101 |
. . |
|
|
. . |
|
|
...................................................................................... |
|
101 |
|
127 |
, . |
|
32........................................................................................................... |
105 |
, |
|
. |
|
................................................................................. |
105 |
33........................................................................................................... |
109 |
|
|
. |
|
. ................................................................................................... |
109 |
34........................................................................................................... |
114 |
( ) . |
|
...................... |
114 |
35........................................................................................................... |
118 |
: " |
|
" ............................................................................................. |
118 |
................................................................................................................ |
125 |
. ........................................................................................ |
128 |
128 |
|
|
., . |
.
1.., . ( ). — .: , 2001.
2.. . , . ..: , 2001.
3.. . — ., 2004.
4. ., ., .. .1,2 — .:
, 2004.
5.., ., .. -
— : , 2004.
6.. 7-11 — .: ., 2005.
7.. . 10
, 2005.
8.., ., .
(10-11 ) – :
, 2003. – 80 .
9.., Microsoft PowerPoint — , 2005.
10.. ,
— .: , 2006.
11.., . , . .
. – : , 2003.
12.., ., ., .
. – .: , 1988. – 224 .
13.., . -
. – :, , 1987.
14.10-11 . – .: : -
" ", 2006.
