0 / 0 / 1
Регистрация: 26.01.2014
Сообщений: 18
1

Изобразить прямоугольную спираль из 5 витков. Обеспечить циклическое изменение (1 пиксел - 3 пиксела) толщины линий, которыми отрисована спираль

06.03.2014, 22:09. Показов 1696. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Спираль из 5 витков изобразил... помогите пожалуйста сделать анимацию изменения толщины линий
Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,n:integer;
begin
x:=round(image1.width/2)-50;
y:=round(image1.height/2)-50;
Image1.Canvas.MoveTo(x,y);
n:=2;
  while n<>7 do
   begin
    Image1.Canvas.lineto(x+n*25+40,y);
    x:=x+n*25+40;
    Image1.canvas.lineto(x,y+n*25+40);
    y:=y+n*25+40;
    Image1.canvas.lineto(x-n*25-52,y);
    x:=x-n*25-52;
    Image1.canvas.lineto(x,y-n*25-52);
    y:=y-n*25-52;
    n:=n+1;
   end;
end;
 
end.
0
06.03.2014, 22:09
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.03.2014, 22:09
Ответы с готовыми решениями:

Изобразить прямоугольную спираль из 5 витков. Обеспечить циклическое изменение (1 пиксел - 3 пиксела) толщины линий, которыми отрисована спираль
Спираль из 5 витков изобразил... помогите пожалуйста сделать анимацию изменения толщины линий unit Unit1; interface uses ...

Изобразить Архимедову спираль
Помогите составить программу, которая бы изображала архимедову спираль.

Изобразить спираль Архимеда
Задача звучит немного иначе, чем название темы, но в этом и есть проблема. Вычислить площадь S фигуры, ограниченной первым витком спирали...

1
angstrom
07.03.2014, 00:27 2
Нужно добавить строку изменяющую толщину "карандаша".
Delphi
1
2
3
4
...
  Image1.Canvas.Pen.Width := StrToIntDef(Edit1.Text, 1);
  Image1.Canvas.MoveTo(x, y);
...
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.03.2014, 00:27
Помогаю со студенческими работами здесь

Изобразить на экране вращающуюся спираль

Изменение толщины линий между ячейками QTabelView
Вот по умолчанию между ячейками линии очень тонкие. И никак не могу найти как же поменять толщину ( ну и цвет, для общих знаний ). Просто...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru