Нарисовать треугольник, который движется по кругу и крутится вокруг одной из своих вершин

30.12.2012, 22:52. **Показов** 2922. **Ответов** 1

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

Здравствуйте. Собственно, сабж. Сделал так, что движется по кругу, но чтобы еще вокруг одной из вершин вращался — беда.

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
uses crt,graphABC;
var x,y,x1,y1,x2,y2,x4,y4,i:integer;
h1,h2,h3:real;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
begin
h1:=pi/8;
h2:=0;
h3:=pi/32;
repeat
clearwindow;
x1:=x+round(120*(cos(h1)));
y1:=y+round(120*(sin(h1)));
x2:=x+round(150*(cos(h2)));
y2:=y+round(150*(sin(h2)));
x4:=x+round(220*(cos(h3)));
y4:=y+round(220*(sin(h3)));
line(x1,y1,x2,y2);
line(x1,y1,x4,y4);
line(x2,y2,x4,y4);
delay(50);
h1:=h1+0.1;
h2:=h2+0.1;
h3:=h3+0.1;
until
keypressed;
end;
end.

@mrflo · 04.01.2013, 05:48

не знаю как именно это сделать, но нарисуй сначала треугольник вращающийся вокруг вершины, а потом пусти эту вершину по кругу.

Добавлено через 3 часа 14 минут

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
program treug;
uses crt, graphABC;
var x,y,x1,y1,x2,y2,x4,y4,i:integer;
h2,h3:real;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
begin
h2:=0;
h3:=pi/6;
repeat
clearwindow;
x1:=x;
y1:=y;
x2:=x+round(150*(cos(h2)));
y2:=y+round(150*(sin(h2)));
x4:=x+round(100*(cos(h3)));
y4:=y+round(100*(sin(h3)));
line(x1,y1,x2,y2);
line(x1,y1,x4,y4);
line(x2,y2,x4,y4);
delay(50);
h2:=h2+0.1;
h3:=h3+0.1;
until
keypressed;
end;
end.

просто треуг вокруг точки

Добавлено через 16 минут

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
program treug;
uses crt, graphABC;
var x,y,x1,y1,x2,y2,x4,y4,i:integer;
h1,h2,h3,z1:real;
begin
begin
h1:=pi/35;
h2:=0;
h3:=pi/6;
z1:=pi/3;
repeat
clearwindow;
x:=(windowwidth div 2)+ round(15*(cos(z1)));
y:=(windowheight div 2)+ round(15*(sin(z1)));
delay(20);
z1:=z1+0.5;
x1:=x;
y1:=y;
x2:=x+round(150*(cos(h2)));
y2:=y+round(150*(sin(h2)));
x4:=x+round(150*(cos(h3)));
y4:=y+round(150*(sin(h3)));
line(x1,y1,x2,y2);
line(x1,y1,x4,y4);
line(x2,y2,x4,y4);
delay(27);
h1:=h1+1;
h2:=h2+0.1;
h3:=h3+0.1;
until
keypressed;
end;
end.

сделал таки

Добавлено через 9 минут
кста если clearwindow убрать спирограф получится

Новые блоги и статьи Все статьи Все блоги /
Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .	Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .

Опции темы