Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Lenok S
-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
1

Построение графических примитивов

26.05.2016, 15:03. Просмотров 1136. Ответов 10
Метки нет (Все метки)

Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графичнных примитивов.Нужно разные замалеванные фигуры, под каждой фигурой надпись например (эллипс), линии разной толщиной.
Помогите пожалуйста буду очень благодарна) Среда программирования ABC.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2016, 15:03
Ответы с готовыми решениями:

Построение графических примитивов
Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графинных...

Нарисовать орнамент из графических примитивов
Получить на экране орнамент из графических примитивов.

С помощью графических примитивов нарисовать елку
б) С помощью графических примитивов нарисовать елку.

Составьте программу вычерчивания рисунков из элементарных графических примитивов
Помогите решить. Составьте программу вычерчивания рисунков из элементарных графических примитивов

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

10
Joy
Эксперт Pascal/Delphi
2218 / 1231 / 1453
Регистрация: 29.08.2014
Сообщений: 4,490
26.05.2016, 15:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

так что-ли?
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
uses GraphAbc;
procedure TextP(x,y:integer;s:string);
begin
  SetBrushColor(clAquamarine);
  TextOut(x,y,s);
end;
 
begin
  SetBrushColor(clBlue);
  Ellipse(20,20,160,60);
  TextP(70,70,'Эллипс');
  
  SetBrushColor(clRed);
  SetPenWidth(2);
  SetPenStyle(psDash);
  Rectangle(200,20,360,60);
  TextP(240,70,'Прямоугольник');
  
  SetBrushColor(clGreen);
  SetPenWidth(3);
  SetPenStyle(psDashDot);
  Circle(30,110,30);
  TextP(20,150,'Круг');
  
  SetBrushColor(clViolet);
  SetPenWidth(2);
  SetPenStyle(psDashDotDot);
  RoundRect(200,90,360,130,10,10);
  TextP(200,140,'Прямоугольник со скругленными краями');
 
  SetBrushColor(clYellow);
  SetPenWidth(2);
  SetPenStyle(psDot);
  Pie(30,280,90,100,10);
  TextP(30,300,'Сектор');
end.
1
Lenok S
-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
26.05.2016, 17:22  [ТС] 3
Да, спасибо тебе большое,но мне нужно еще линия (отрезок), луч,линия конструкции(прямая),фигура,полоса,дуга,полигон(многоугольник),овал(кольцо),сплайн,мультилиния,ящик,клин,конус(дубль),цил индр,шар,тор,треугольник,пунктирная линия и графическое окно нужно каким то разноцветным цветом сделать. Все нужно так само сделать,помоги мне пожалуйста я тебя очень прошу. Пожалуйста.)
0
Joy
Эксперт Pascal/Delphi
2218 / 1231 / 1453
Регистрация: 29.08.2014
Сообщений: 4,490
26.05.2016, 21:55 4
не давай-ка пиши как задание звучит, то что выше перечислено к графическим примитивам больше половины не относится, да и как рисовать тор, шар, конус, циллиндр - я плохо представляю, они же трехмерные
0
26.05.2016, 21:55
Lenok S
-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
28.05.2016, 13:24  [ТС] 5
Вообщем смотри задание такое: "Разработка программ построения графических примитивов" .Сделай пожалуйста только эти: Треугольник,пунктирная линия, линия, многоугольник. Остальные не нужно, буду очень тебе благодарна.)
0
Joy
Эксперт Pascal/Delphi
2218 / 1231 / 1453
Регистрация: 29.08.2014
Сообщений: 4,490
30.05.2016, 05:15 6
Лучший ответ Сообщение было отмечено Lenok S как решение

Решение

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
38
39
40
41
42
var
  x,i:integer;
  p:array of point;
procedure TextP(y:integer;s:string);
begin
  SetBrushColor(clAquamarine);
  TextOut(WindowWidth div 2 - TextWidth(s) div 2,y,s);
end;
 
begin
  x:=WindowWidth div 2;
  SetBrushColor(clBlue);
  Line(x-100, 50, x+100, 100);
  Line(x-100, 50, x, 150);
  Line(x, 150,x+100,100);
  TextP(170,'Треугольник');
  
  SetPenColor(clRed);
  SetPenWidth(2);
  SetPenStyle(psDash);
  Line(0, 190,WindowWidth,190); 
  TextP(200,'пунктирная линия');
 
  SetPenColor(clGreen);
  SetPenWidth(2);
  SetPenStyle(psSolid);
  Line(0, 223,WindowWidth,223); 
  TextP(230,'линия');
  
  SetLength(p,6);
  randomize;
  for i:=0 to 5 do begin
    p[i].X:=Random(WindowWidth);
    p[i].Y:=Random(WindowHeight-270)+250;
  end;
  SetPenColor(clViolet);
  SetBrushColor(clYellow);
  SetPenWidth(2);
  Polygon(p);
  TextP(WindowHeight-15,'Многоугольник');
   
end.
1
Lenok S
-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
30.05.2016, 16:46  [ТС] 7
Извини пожалуйста, что я тебя уже замучила,но у меня эта программа не работает в Pascal ABC(
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27438 / 18370 / 7271
Регистрация: 22.10.2011
Сообщений: 32,317
Записей в блоге: 6
30.05.2016, 16:58 8
Цитата Сообщение от Lenok S Посмотреть сообщение
в Pascal ABC
Раздел вообще-то называется PascalABC.NET, и при его использовании все прекрасно работает. Если нужен обычный ABC - я перенесу тему в соответствующий раздел.
0
Lenok S
-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
30.05.2016, 17:18  [ТС] 9
Я запускаю программу в PascalABC.NET и она не работает(
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4762 / 3408 / 4013
Регистрация: 05.06.2014
Сообщений: 17,016
30.05.2016, 18:15 10
Pascal
1
2
uses
  GraphABC;
2
Joy
Эксперт Pascal/Delphi
2218 / 1231 / 1453
Регистрация: 29.08.2014
Сообщений: 4,490
31.05.2016, 02:32 11
ZX Spectrum-128, спасибо, скопировал не полностью.
1
31.05.2016, 02:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2016, 02:32

Построение основных графических примитивов
С помощью процедуры нарисовать узор

Построение графических примитивов на OpenGL
У меня такои вопрос. Есть листинг програмы на делфи, типо построение графических примитивов на...

Рисование графических примитивов
Задача такова: Необходимо нарисовать ромб. Ну а почему бы и нет? Можно и треугольник (не квадрат...


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

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

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