Нарисовать траекторию для круга

@Razerbreaker · Регистрация: 05.12.2013

Студворк — интернет-сервис помощи студентам

Программисты, уповаю на вашу помощь.
Нужно:
1.Что бы за кружком следовала пунктирная траектория.
2.Фон был желтый.
3.Круг должен быть цельный(зарисованный).

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
uses graphabc;
procedure vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
var
x,y,x0,y0,d:integer;
a:real;
begin
setwindowsize(700,500);
x:=100;y:=100;
x0:=100;
y0:=475;
a:=90;
d:=375;
line(0,125,100,125);
while (a<>2) do
begin
lockdrawing;
clearwindow;
setpencolor(clrandom);
circle(x,y,15);
setpencolor(clred);
setpenwidth(5);
line(0,125,100,125);
line(425,475,525,475);
vrash(a,x,y,x0,y0,d);
a:=a-0.5;
redraw;
end;
end.

@Puporev · 08.12.2014, 10:33

В коде не все написано. Я сделал так.

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
39
40
41
42
43
44
45
46
47
uses graphabc;
var x,y,x0,y0,d,n,i,j,c:integer;
    m:array[1..2,1..1000]of integer;
    a:real;
begin
setwindowsize(700,500);
x0:=100;
y0:=475;
a:=pi/2;
d:=375;
//создадим массив точек траектории
n:=0;
while a>0 do
 begin
  n:=n+1;
  m[1,n]:=x0+round(d*cos(a));
  m[2,n]:=y0-round(d*sin(a));
  a:=a-0.01;
 end;
clearwindow(clYellow);
setpenwidth(5);
setpencolor(clred);
line(0,125,100,125);
line(425,475,525,475);
j:=0;
a:=pi/2;
lockdrawing;
repeat
clearwindow(clYellow);
setpenwidth(5);
line(0,125,100,125);
line(425,475,525,475);
c:=clrandom;
setpencolor(c);
setbrushcolor(c);
j:=j+1;
for i:=1 to j do
putpixel(m[1,i],m[2,i],clBlue);
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
circle(x,y,15);
setpencolor(clred);
sleep(50);
a:=a-0.01;
redraw;
until a<0.05;
end.

Добавлено через 13 часов 42 минуты
Что-то вчера зациклило на траектории, но она же по кругу, поэтому массив не нужен.
Вот переделал и запускается в АВС.net, предыдущий запускался в простом АВС.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
uses graphabc;
var x0,y0,d:integer;
procedure line;
begin
setpenwidth(5);
setpencolor(clred);
line(0,125,100,125);
line(425,475,525,475);
end;
procedure shar(x,y:integer);
var c:Color;
begin
setpenwidth(1);
c:=clrandom;
setpencolor(c);
setbrushcolor(c);
setpenstyle(psSolid);
circle(x,y,15);
end;
procedure sled(a:integer);
begin
setpenwidth(1);
setpenstyle(psDash);
setpencolor(clBlue);
arc(x0,y0,d,a,90);
end;
var x,y:integer;
    a:integer;
begin
setwindowsize(700,500);
centerwindow;
x0:=100;
y0:=475;
a:=90;
d:=375;
clearwindow(clYellow);
lockdrawing;
repeat
clearwindow(clYellow);
a:=a-1;
x:=x0+round(d*cos(a*pi/180));
y:=y0-round(d*sin(a*pi/180));
line;
sled(a);
shar(x,y);
sleep(50);
redraw;
until a<3;
{a:=45;
sled(a);}
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки на предмет заполнения реквизитов реализован с целью установки значения по умолчанию,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .