@sanbl4
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 2
|
|
|
19.06.2010, 19:13. Просмотров 405. Ответов 0
только шарик катается по КРУГЛОМУ столу, спс
Pascal | 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
| program sharik;
uses crt,graph;
const
a=480;
b=640;
var
grDriver : integer;
grMode : integer;
x1,y1,x2,y2:real;
v0,alfa:real;
x11,y11,x21,y21:integer;
dt:real;
begin
grDriver:= Detect;
grMode:= 12;
InitGraph( grDriver, grMode, 'E:\Install\Lab\BP\BGI' );
x1:=320; y1:=200;
dt:=1;
v0:=1;
alfa:=5;
while not keypressed do begin
x2:=x1+v0*cos(alfa*pi/180)*dt;
y2:=y1+v0*sin(alfa*pi/180)*dt;
x21:=round(x2); x11:=round(x1);
y21:=round(y2); y11:=round(y1);
line(x11,y11,x21,y21);
if ((y2<0) or (y2>a)) then begin
alfa:=360-alfa;
end;
if ((x2<0) or (x2>b)) then begin
alfa:=360-alfa;
v0:=-v0;
end;
x1:=x2;
y1:=y2;
delay(100);
end;
end. |
|
0
|