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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
| PROGRAM din_0bj_17;
USES Graph,Crt;
TYPE
TMesto=Object
x,y:Integer;
Constructor Init(initx,inity:Integer);
Destructor Done;
End;
TPoint=Object(TMesto)
Procedure Show(color:BYTE) ;Virtual;
Procedure Hide;Virtual;
Procedure MoveTo(newx,newy:Integer;color:BYTE);
End;
TTreug=Object(TPoint)
a,b:Integer;
Constructor Init(initx,inity,inita,initb:Integer);
Procedure Show(color:BYTE); Virtual;
Procedure Hide; Virtual;
End;
TGraph=Object
grdriver:Integer;
grmode:Integer;
Procedure Init(gd,gm:Integer;path:STRING);
Procedure Fin;
End;
TPTreug=^TTreug;
Constructor TMesto.Init(initx, inity: Integer);
Begin
x:=initx;
y:=inity;
End;
Destructor TMesto.Done;
Begin
WriteLn;
End;
Procedure TPoint.Show(color:BYTE);
Begin
PutPixel(x,y,color);
End;
Procedure TPoint.Hide;
Begin
PutPixel(x,y,GetBkColor);
End;
Procedure TPoint.MoveTo(newx, newy:Integer;color:BYTE);
Begin
Hide;
x:=newx;
y:=newy;
Show(color);
End;
Procedure TGraph.Init(gd,gm:Integer;path:STRING);
Begin
grdriver:=gd;
grmode:=gm;
IniTGraph(grdriver,grmode, path) ;
End;
Procedure TGraph.Fin;
Begin
CloseGraph;
End;
Constructor TTreug.Init(initx,inity,inita,initb:Integer);
begin
TPoint.Init(initx, inity) ;
a:=Inita;
b:=Initb;
End;
Procedure TTreug.Show(color:BYTE);
Begin
SetColor(Color);
Line(x,y,x + b div 2,y + a div 2);
Line(x,y,x - b div 2,y + a div 2);
Line(x + b div 2,y + a div 2,x - b div 2, y +a div 2);
End;
Procedure TTreug.Hide;
Begin
SetColor(GetBkColor);
Line(x,y,x + b div 2,y + a div 2);
Line(x,y,x - b div 2,y + a div 2);
Line(x + b div 2,y + a div 2,x - b div 2, y +a div 2);
// SetFillStyle(1,GetBkColor);
//bar(x,y,x+storona,y+storona);
// FloodFill(x,y,GetBkColor);
End;
VAR
ptr:tptreug;
world:TGraph;
x,y,y0,a,b:Integer;
col:Byte;
Begin
ClrScr;
WriteLn(' Dvizhenie treugolnika ');
WriteLn(' po sin sprava nalevo');
WriteLn(' vvedite cvet c 1 do 15)');
ReadLn(col);
WriteLn('nazhmite ENTER');
ReadLn;
World. Init (DETECT, DETECT, 'C:\FPC\2.4.0\units\i386-win32\graph ' );
y0:=300;
a:=200;
b:=100;
x:=(getmaxX-b div 2);
y:=(getmaxY div 2-a);
{ptr:=new(tptreug,Init(x,y,50));}
New(ptr,Init(x,y,a,b));
ptr^.Show(col);
while x>b div 2 do
begin
y:=y0-round(sin(x*pi/180)*120);
ptr^.Moveto(x,y,col);
delay (5);
x:=x-1;
end;
while x<(getmaxX-b div 2) do
begin
y:=y0-round(sin(x*pi/180)*120);
ptr^.Moveto(x,y,col);
delay (5);
x:=x+1;
end;
World.Fin;
end. |
(
Сообщение от NooK
