Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
wfall
3 / 3 / 1
Регистрация: 01.05.2013
Сообщений: 107
1

Нарисовать рисунок, используя графические примитивы

15.09.2014, 09:35. Просмотров 821. Ответов 3
Метки нет (Все метки)

Привет всем! Прошу помогите с графическими примитивами на Delphi. Необходимо построить этот рисунок используя графические примитивы. Если есть примерные работы дайте ссылку пожалуйста или подсказку...спасибо.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.09.2014, 09:35
Ответы с готовыми решениями:

Нарисовать приведенный рисунок, используя графические примитивы Delphi
используя графические примитивы Delphi изобразить рисунок и подписать по...

Графические примитивы
Всем привет! Начал изучать графику. У меня тут следующее задание. Не пойму как...

Графические примитивы
как нарисовать с помощью граф приметивов зонтик и чтобы он двигался в низ!?

Графические примитивы
Люди, помогите пожалуйса сделать работу, уже убиваюсь с ней 7 й час. Сделал...

Построить графические примитивы
Друзья! прошу помогите пожалуйста построить на Delphi используя графические...

3
wfall
3 / 3 / 1
Регистрация: 01.05.2013
Сообщений: 107
15.09.2014, 09:43  [ТС] 2
Вот картинка
0
Изображения
 
BiHiTRiLL
10 / 10 / 5
Регистрация: 26.08.2014
Сообщений: 91
15.09.2014, 11:26 3
Ну, если просто без заморочек, посчитай координаты вершин пятиугольников. нарисуй два круга и десяток линий...
0
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
15.09.2014, 11:52 4
Лучший ответ Сообщение было отмечено wfall как решение

Решение

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
procedure pentagon(xc,yc,r:integer;cv:TCanvas);
var p:array[1..6] of TPoint;
    u,du:real;
    i:byte;
begin
u:=pi/2;
du:=2*pi/5;
for i:=1 to 6 do
 begin
  p[i].X:=xc+round(r*cos(u));
  p[i].Y:=yc-round(r*sin(u));
  u:=u+du
 end;
cv.Ellipse(xc-r,yc-r,xc+r,yc+r);
cv.Polygon(p)
end;
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,r:integer;
begin
xc:=PaintBox1.Width div 2;
yc:=PaintBox1.Height div 2;
if xc<yc then r:=xc-20
else r:=yc-20;
pentagon(xc,yc,r,PaintBox1.Canvas);
r:=round(r/(sqrt(5)-1));
pentagon(xc,yc,r,PaintBox1.Canvas);
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.09.2014, 11:52

Создать графические примитивы
1.Создать графические примитивы в Delphi (в обработке события OnPaint): ...

Тема Записи. делфи 7 (Графические примитивы)
Графические примитивы type TShapeList = (Rectangle, Triangle, Circle,...

Графические примитивы и иллюстрации
Написать программу, которая выводит на экран приведенный ниже узор.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru