Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
16 / 4 / 0
Регистрация: 27.06.2016
Сообщений: 99
1

Построение геометрических фигур

04.02.2017, 15:47. Показов 2928. Ответов 1
Метки нет (Все метки)

Помогите написать программу для построение графиков функций и геометрических фигур (Окружность, эллипс, ромб, скругленный прямоугольник) с использованием графического редактора Paintbox.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2017, 15:47
Ответы с готовыми решениями:

Построение простейших геометрических фигур.
Всем добрый вечер. Есть вопросик. Вообщем вот программа. ...

Вычисление площади разных геометрических фигур !
Создать модуль пользователя,что содержит функции и процедуры с помощью которых можно рассчитать...

Иерархия классов для представления геометрических фигур в контейнере
Разработать иерархию классов для представления геометрических фигур: прямая, ломанная,...

Вычислить площади геометрических фигур: прямоугольника и треугольника по заданным сторонам
В следующих задачах организовать выполнение алгоритма следующим образом: выбор вычисления по той...

1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
04.02.2017, 16:31 2
Лучший ответ Сообщение было отмечено Ernst_Hofer как решение

Решение

Для примера.
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,h,i:Integer;
    m,x,y:Double;
begin
xc:=PaintBox1.Width div 2;
yc:=PaintBox1.Height div 2;
with PaintBox1.Canvas do
 begin
   Brush.Color:=clWhite;
   FillRect(ClipRect);
 end;
case Radiogroup1.ItemIndex of
0:with PaintBox1.Canvas do
   begin
    h:=(yc-30);
    m:=h/5;
    Pen.Color:=clBlack;
    MoveTo(xc-h,yc);//линии осей
    LineTo(xc+h+10,yc);
    MoveTo(xc,0);
    LineTo(xc,Height);
    textout(xc+h+10,yc-20,'X');//подпись концов
    textout(xc-20,20,'Y');
    MoveTo(xc+h+10,yc);//стрелки
    LineTo(xc+h,yc-5);
    MoveTo(xc+h+10,yc);
    LineTo(xc+h,yc+5);
    MoveTo(xc,0);
    LineTo(xc-5,10);
    MoveTo(xc,0);
    LineTo(xc+5,10);
    textout(xc+10,yc+10,'0');
    for i:=1 to 5 do
     begin
      MoveTo(xc+round(i*m),yc-3); LineTo(xc+round(i*m),yc+3);//засечки на оси Х
      MoveTo(xc-round(i*m),yc-3); LineTo(xc-round(i*m),yc+3);
      textout(xc+round(i*m),yc+10,Inttostr(i));//подписи
      textout(xc-round(i*m),yc+10,Inttostr(-i));
      MoveTo(xc+3,yc-round(i*m)); LineTo(xc-3,yc-round(i*m));//засечки по У
      MoveTo(xc+3,yc+round(i*m)); LineTo(xc-3,yc+round(i*m));
      textout(xc-30,yc-round(i*m),Inttostr(i));//подписи
      textout(xc-30,yc+round(i*m),Inttostr(-i));
     end;
    x:=-5;
    while x<=5 do
     begin
      if abs(x)>0.01 then
       begin
        y:=1/x;
        pixels[xc+round(x*m),yc-round(y*m)]:=clred;
       end;
      x:=x+0.001;
     end;
   end;
1:with PaintBox1.Canvas do
   begin
     Pen.Color:=clBlue;
     Ellipse(xc-100,yc-100,xc+100,yc+100);
   end;
2:with PaintBox1.Canvas do
   begin
     Pen.Color:=clBlue;
     Ellipse(xc-150,yc-100,xc+150,yc+100);
   end;
3:with PaintBox1.Canvas do
   begin
     Pen.Color:=clBlue;
     Polyline([Point(xc-80,yc),Point(xc,yc-120),
               Point(xc+80,yc),Point(xc,yc+120),
               Point(xc-80,yc)]);
   end;
4:with PaintBox1.Canvas do
   begin
     Pen.Color:=clBlue;
     RoundRect(xc-150,yc-100,xc+150,yc+100,50,50);
   end;
else ShowMessage('Вы не выбрали что рисовать')
end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2017, 16:31

Вычислить площади геометрических фигур: прямоугольника и треугольника по заданным сторонам
Есть задача &quot;Вычислить площади геометрических фигур: прямоугольника и треугольника по заданным...

Изобразить 5 различных геометрических фигур используя различные цвета для заливки и обводки
Изобразить 5 различных геометрических фигур используя различные цвета для заливки и обводки....

Иерархия классов для представления геометрических фигур: прямая, ломанная, прямоугольник, эллипс, многоугольни
Здравствуйте, помогите пожалуйста с лабораторной. Задание: Разработать иерархию классов для...

Построение простейших геометрических фигур2
Извиняюсь перед модерами за повтор темы, прошу её слить с другой, просто тогда никто не увидит, у...

Построение геометрических фигур.
Ребят, нужна помощь. http://s013.***********/i323/1010/ca/eef76aee9cc7.gif unit Unit1; ...

Распознавание контуров геометрических фигур
Здравствуйте, требуется распознать контуры фигур: - точка - отрезок - прямоугольник -...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru