for i:=1 to k do writeln(mr[i].tb:3,mr[i].ch:4); writeln; { MR}
{---------------- MR -----------------------------}
for i:=1 to k-1 do begin;
for j:=i+1 to k do if mr[i].tb>mr[j].tb then
begin x:=mr[i]; mr[i]:=mr[j];mr[j]:=x end;
End;
{ }
for i:=1 to k do writeln(mr[i].tb:3,mr[i].ch:4); writeln;
{-- : , 0}
i:=1;
while i<k do begin
j:=1;
while mr[i].tb=mr[i+j].tb do begin
mr[i+j].tb:=0; mr[i].ch:=mr[i].ch+mr[i+j].ch; j:=j+1 end;
i:=i+1
End;
for i:=1 to k do if mr[i].tb>0 then writeln(mr[i].tb:3,mr[i].ch:4); writeln; { }
{------------------ Tar-----------------------------------}
assign(t,'tarif'); reset(t);
m:=0; { }
while not eof(t) do begin m:=m+1; read(t,mt[m]) end;
for i:=1 to k do writeln(mt[i].tb:3,mt[i].im:6,mt[i].tr:5); writeln;
Close(t);
{------------------ -------------------------------------------}
assign(v,'ved'); rewrite(v);
sch:=0;szr:=0;snl:=0;zvd:=0; {}
for i:=1 to k do begin
if mr[i].tb=0 then continue; { - }
mv.tb:=mr[i].tb; mv.ch:=mr[i].ch;
for j:=1 to m do begin { MT}
if mv.tb=mt[j].tb then begin {}
mv.im:=mt[j].im; mv.zr:=mv.ch*mt[j].tr;
mv.nl:=mv.zr*0.13; mv.vd:=mv.zr-mv.nl;
sch:=sch+mv.ch; szr:=szr+mv.zr;
snl:=snl+mv.nl; zvd:=zvd+mv.vd;
writeln(mv.tb:2,mv.im:5,mv.ch:4,mv.zr:5,mv.nl:5:0,mv.vd:5:0);
write(v,mv); { Ved}
Continue
End;
end; {for j}
end; {for i}
mv.tb:=0; mv.im:=''; mv.ch:=sch; mv.zr:=szr; mv.nl:=snl; mv.vd:=zvd;
write(v,mv); { Ved}
{------------------------------- -------------------------------------------}
Reset(v);
writeln(' ');
writeln(' ');
While not eof(v) do begin
Read(v,mv);
writeln(mv.tb:3,mv.im:5,mv.ch:4,mv.zr:6,mv.nl:7:1,mv.vd:7:1);
End;
End.
. . , . .., ( ), . , , .
.
@ 9.1. S(32) (32) (32) S sum Integer. .
|
|
|
, . : .
üPROCEDURE _ (_)
üFUNCTION _ (_): _
. . , . , .
procedure Sum(x,y,s:real); function Sum(x,y:real):real;
begin begin
s:=x+y sum:=x+y
end; end;
sum(a,b,c). a,b,c , x,y,z . a,b x,y . . , c:=sum(a,b).
@ 10.1. N :
y=x11!/2!x32!/3!+x43!/4!x54!/5!+... <1 :
: 1). , 2). .
. : VGA, 640480 (), 16 . EgaVga.bgi.
InitGraph(, , )
: ( VGA 9), ( 640480 2), .
, , . . .
:
CloseGraph.
, :
| GetMaxY | Y ( VGA =479, 0). |
| GetMaxX | ( VGA =639, 0). |
| MoveTo(x,y) | x,y. |
| MoveRel(dx,dy) | dx,dy |
| ClearDevice | . |
| PutPixel(x,y,) | x,y. |
| Line(x1,y1,x2,y2) | x1,y1 x2,y2. |
| LineTo(x,y) | x,y. |
| LineRel(dx,dy) | dx,dy. |
| Rectangle(x1,y1, x2,y2) | (x1,y1) (x2,y2) . |
| Bar(x1,y1,x2,y2) | (x1,y1) (x2,y2) , SetFillStyle, . |
| Cyrcle(x,y,r) | x,y r. |
| Ellipse(x,y,1, 2,Rx,Ry) | x,y 1 ( ) 2. Rx Ry . |
| PieSlice(x,y, 1, 2,r) | , r 1 ( ) 2. SetFillStyle. |
| SetFillStyle( , ) | (0 , 1 , 2 , 3 /, 4 /, 5 \, 6 \, 7 +, 8 x, 9 , 10 , 11 ) . |
| SetColor() | : Black 0, Blue 1, Green 2, Cyan 3, Red 4, Magenta 5, Brown 6, LightGray 7, DarkGray 8, LightBlue 9, LightGreen 10, LightCyan 11, LightRed 12, LightMagenta 13, Yellow 14, White 15. |
| SetBkColor() | . |
| SetLineStile(, , ) | . : 0 , 1 , 2 -, 3 . : 0. : 1 3 . |
11-1. : 1). , . 2) 50, 100, 150, 200. : , Y .
|
|
|
Program P11_1
Uses graph;
var d,i,m,rx,ry:integer;
Begin
initgraph(d,m,''); { }
ry:=getmaxy; rx:=getmaxx; { }
line(0,0,rx,ry); { }
line(0,ry,rx,0); { }
for i:=1 to 4 do begin {}
circle(rx div 2,ry div 2,50*i);
End;
readln; { }
closegraph; { }
End.
11-2. f(x)=sin(x)×x . Xn=0 Xk=20 dx=0.01. F F: F(X)ðF(X). , (. 11.2) . 0,0 ( ), Y ( ), X . .. :
1. D Y , .. D DY D DY Mx=D/Dx My=DY/DY.
2. , Y , X .
3. . , Y Y.
. 1). f(x). 2). , , . 3). Y. 4). (msy msx). , Y . 5). . . , . 6). .
Program P11_2;
Uses graph;
var d,m,rx,ry:integer;
x,y,xn,xk,ymin,ymax,dx:real; msy,msx:real;
function f(x:real):real; { }
begin f:=sin(x)*x end;
Begin
initgraph(d,m,''); { }
ry:=getmaxy+1; rx:=getmaxx+1; { }
line(0,0,0,ry); { Y}
xn:=0; xk:=60; dx:=0.01;{ }
x:=xn; { }
ymin:=f(x); ymax:=f(x);
while x<=xk do begin { Y}
y:=f(x);
if y>ymax then ymax:=y;
if y<ymin then ymin:=y;
x:=x+dx; { }
End;
msy:=ry/abs(ymax-ymin); { Y}
msx:=rx/abs(xk-xn); { X}
|
|
|
x:=xn; { }
while x<=xk do begin {}
y:=f(x);
putpixel(round((x-xn)*msx),-round((y-ymax)*msy),2); {}
lineto(round((x-xn)*msx),-round((y-ymax)*msy)); {}
x:=x+dx; { }
End;
line(0,-round(-ymax*msy),rx,-round(-ymax*msy)); { }
readln; { }
Closegraph;
End.
@
). , Y , .
). ( z[1..5]) (N=5) . .
). , . . . , , . , .
). ( z[1..5]) ( p[1..5]) N=5 . ( ). SetFillStyle.
). . . s. z[i]/s*360 z[1..5]. , PieSlice .
. , . : .. , . ., , 2004.
. , , ( ) . ( ) 4 ( ) . . .
. , , . 33, , , , 33 , £32. , 26 26- , 50 50-33=17 (.. 17- ), 94 94-66=28.
, (N,N) . ( 6.4). , , ( (2,5) 25). , . , , . , , . / , . .
|
|
|
.
0. (N,N) , . . , , . B(N,N), , , (N,N).
1. (N,N) , . , S, , ( ).
2. (N,N) , . , . , S1, S2, S3, S4 , , .
3. (N,N) MN , P , , S , . : , /, /.
4. (N,N) X(N,N). , .
5. (N,N) X(N,N). , .
6÷12. (N,N) . .
13÷20. (N,N) , .
21÷28. (N,N) . .
29÷32. (N,N) , .
 | ||
 |
 | ||||
 | ||||
 |
