Движение одной окружности внутри другой

@Hunter5673 · Регистрация: 21.12.2014

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

Помогите пожалуйста дописать код так чтобы каждый круг крутился бы внутри другого

Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program okr;
uses crt, graphabc;
var a,b,c:integer;
begin
setbrushcolor(clRed);
 setwindowsize(800,600);
 setpencolor(clBlue);
 setpenwidth(2);
 setbrushcolor(clRed);
 
 for a:=15 downto 1 do
 circle(400,300,a*10);
end.

@Puporev · 29.12.2014, 21:28

Сообщение от Hunter5673

чтобы каждый круг крутился бы внутри другого

А как это видно будет?

@Hunter5673 · 02.01.2015, 13:55 **[ТС]**

Puporev, Примерно вот так:
По ссылке перейди.
https://www.google.ru/search?q... B400%3B400

@Puporev · 02.01.2015, 14:19

А можно написать точное и полное задание, а не

Сообщение от Hunter5673

Примерно вот так

@Hunter5673 · 02.01.2015, 15:30 **[ТС]**

Puporev, мне нужно сделать программу чтобы круги двигались также как и на этой gif-картинке

Добавлено через 51 минуту
Puporev, помочь сможешь с написанием?

@Puporev · 02.01.2015, 15:31

Наверное нет. Смотрю на картинку, в глазах рябит, в мозгах 0.

@Hunter5673 · 02.01.2015, 15:45 **[ТС]**

Puporev, Вот так вот и хочу, но пока тоже незнаю как сделать

@APALoff · 03.01.2015, 00:00

Ну по картинке логика анимации понятна.
Т.е. есть начальная окружность. От нее одновременно во внутрь и наружу расходятся круги и чем дальше они от начальной окружности - тем толще отрисовка, т.е. требуется использовать коэффициент толщины, который будет зависеть от экспоненты, т.к. толщина увеличивается не до бесконечности, а до какого-то предела.

Только нафига это нужно? Чтобы себя потешить, что сам смог нарисовать? Так ведь приведенный код не содержит даже одного процента того, что необходимо еще сделать...

@TrueTerm · 03.01.2015, 22:05

Во-первых, это не круги, а спираль. Во-вторых, они не расходятся, это только кажется. На самом деле это спираль, которая вращается относительно центра.
Или я не ту картинку увидел?

@APALoff · 03.01.2015, 22:15

Я увидел картинку именно с расходящимися кругами... но сейчас перейдя по той ссылке, там только коллекция всяких разных гифов. хм.

@Puporev · 03.01.2015, 22:32

Да, той картинки что была раньше уже нет по ссылке.

Добавлено через 4 минуты
Вот я начинал писать, это внешняя часть круга.

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
uses graphaBC;
const cl:array[0..1]of integer=(clwhite,clblack);
type okr=record
         r,c:integer;
         end;
var a:array[1..200] of okr;
    x,y,r,i,c:integer;
begin
setwindowsize(400,400);
centerwindow;
x:=windowwidth div 2;
y:=x;
r:=100;
for i:=1 to 200 do
 begin
  a[i].r:=r+i;
  if (i div 10)mod 2=0 then a[i].c:=cl[0]
  else a[i].c:=cl[1];
 end;
setpenwidth(2);
lockdrawing;
repeat
clearwindow;
setbrushstyle(bsClear);
for i:=1 to 200 do
 begin
  setpencolor(a[i].c);
  circle(x,y,a[i].r);
 end;
sleep(50);
c:=a[200].c;
for i:=200 downto 2 do
a[i].c:=a[i-1].c;
a[1].c:=c;
redraw;
until false;
end.

@Hunter5673 · 04.01.2015, 17:44 **[ТС]**

Puporev, вот да, то что и нужно было, спасибо.
А что с внутренней стороной, не выходит?

Добавлено через 4 минуты
Puporev, хотя все, уже сам доработал.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Hunter5673 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 19
	02.01.2015, 13:55 [ТС]
	Puporev, Примерно вот так: По ссылке перейди. https://www.google.ru/search?q... B400%3B400 0

@Hunter5673 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 19
	02.01.2015, 15:30 [ТС]
	Puporev, мне нужно сделать программу чтобы круги двигались также как и на этой gif-картинке Добавлено через 51 минуту Puporev, помочь сможешь с написанием? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	02.01.2015, 15:31
	Наверное нет. Смотрю на картинку, в глазах рябит, в мозгах 0. 0

@Hunter5673 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 19
	02.01.2015, 15:45 [ТС]
	Puporev, Вот так вот и хочу, но пока тоже незнаю как сделать 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	03.01.2015, 00:00
	Ну по картинке логика анимации понятна. Т.е. есть начальная окружность. От нее одновременно во внутрь и наружу расходятся круги и чем дальше они от начальной окружности - тем толще отрисовка, т.е. требуется использовать коэффициент толщины, который будет зависеть от экспоненты, т.к. толщина увеличивается не до бесконечности, а до какого-то предела. Только нафига это нужно? Чтобы себя потешить, что сам смог нарисовать? Так ведь приведенный код не содержит даже одного процента того, что необходимо еще сделать... 0

@TrueTerm 205 / 142 / 57 Регистрация: 25.12.2014 Сообщений: 447
	03.01.2015, 22:05
	Во-первых, это не круги, а спираль. Во-вторых, они не расходятся, это только кажется. На самом деле это спираль, которая вращается относительно центра. Или я не ту картинку увидел? 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	03.01.2015, 22:15
	Я увидел картинку именно с расходящимися кругами... но сейчас перейдя по той ссылке, там только коллекция всяких разных гифов. хм. 0

@Hunter5673 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 19
	04.01.2015, 17:44 [ТС]
	Puporev, вот да, то что и нужно было, спасибо. А что с внутренней стороной, не выходит? Добавлено через 4 минуты Puporev, хотя все, уже сам доработал. 0