Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
aka_Sin
0 / 0 / 0
Регистрация: 08.05.2016
Сообщений: 4
1

Штриховка уголка в графическом режиме - Pascal

09.05.2016, 17:21. Просмотров 388. Ответов 4
Метки нет (Все метки)

Всем доброго дня, необходима помощь. Не поможете ли кодом, нужно написать ПО на паскале, для штриховки угла в графическом режиме, перелопатил кучу инфы, но везде пишут про замкнутые фигуры, а нужен угол. Чем штриховать не сказанно, видимо можно будет линиями с небольшим шагом.
Тему перенёс сюда из общего форума, просьба при обнаружении дублирования не материться..
0
Миниатюры
Штриховка уголка в графическом режиме - Pascal  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2016, 17:21
Ответы с готовыми решениями:

Строка с бегущим текстом в графическом режиме (Pascal)
Здравствуйте, помогите, пожалуйста, решить следующую задачу (используя...

Создать в графическом режиме Pascal игру Сокровища
Случайным образом разбросать сокровища (например,окружность) на...

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

Меню в графическом режиме
Дайте кто-нибудь пожалуйста текст какой-нибудь зачётной менюшки на n-ое...

Функции в графическом режиме
Составить график функций e^(-x) и sin x в графическом режиме. помогите...

4
aka_Sin
0 / 0 / 0
Регистрация: 08.05.2016
Сообщений: 4
09.05.2016, 17:31  [ТС] 2
на сколько я понимаю, штриховка должна выглядеть как то так. только шаг должен быть поменьше.
0
Миниатюры
Штриховка уголка в графическом режиме - Pascal  
aka_Sin
0 / 0 / 0
Регистрация: 08.05.2016
Сообщений: 4
09.05.2016, 18:24  [ТС] 3
пока что смог только отрисовать угол, а вот с циклом штриховки пока полный затык, у кого какие мысли ?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses
  Graph; 
var
  Gd, Gm: integer;
 
begin
  Gd := Detect;
    InitGraph(Gd, Gm, '');
    Line(50, 50, 100, 150);
  Line(100, 150, 250, 200);
  readln
end.
0
Puporev
Модератор
55024 / 42314 / 29219
Регистрация: 18.05.2008
Сообщений: 99,998
09.05.2016, 21:22 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Graph;
var  Gd, Gm,x1,y1,x2,y2,x3,y3,n,i:integer;
     h1x,h1y,h2x,h2y: real;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
x1:=50;y1:=50;
x2:=100;y2:=150;
x3:=250;y3:=200;
n:=15;
h1x:=(x2-x1)/n;
h1y:=(y2-y1)/n;
h2x:=(x3-x2)/n;
h2y:=(y3-y2)/n;
setcolor(14);
for i:=0 to n do
line(x1+round(h1x*i),y1+round(h1y*i),x3-round(h2x*i),y3-round(h2y*i));
setlinestyle(0,0,3);
setcolor(10);
Line(x1,y1,x2,y2);
Line(x2,y2,x3,y3);
readln
end.
1
aka_Sin
0 / 0 / 0
Регистрация: 08.05.2016
Сообщений: 4
10.05.2016, 01:52  [ТС] 5
спасибо большое, с меня плюсик )
0
10.05.2016, 01:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2016, 01:52

Вывод матрицы в графическом режиме
как перенести матрицу в графическом режиме??

Написать меню в графическом режиме
очень прошу о мопощи!

Нарисуйте функцию в графическом режиме
Пожалуйста, помогите нарисовать функцию в графическом режиме. 1)нужно...


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

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

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