- 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
program voynasharov;
uses crt, graphABC;
type shar = class
col, x, y, r: integer;
pm: byte;
constructor Create (ccol, cx, cy, cr: integer);
begin
col:=ccol;
x:=cx;
y:=cy;
r:=cr;
end;
procedure make;
begin
setbrushcolor (col);
circle (x,y,r);
end;
procedure mov;
begin
pm:=random(5);
case pm of
1: x:=x+20;
2: x:=x-20;
3: y:=y-20;
4: y:=y+20;
end;
end;
end;
var first, second:shar;
begin
setwindowsize(1280,720);
first:=shar.Create(666,550,400,60);
second:=shar.Create(1488,740,300,60);
first.make;
second.make;
repeat
//clrscr;
first.mov;
second.mov;
first.make;
second.make;
delay(50);
until first.x=70;
end.
>>shar
ну нет