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

@aka_Sin · Регистрация: 08.05.2016

Author24 — интернет-сервис помощи студентам

Всем доброго дня, необходима помощь. Не поможете ли кодом, нужно написать ПО на паскале, для штриховки угла в графическом режиме, перелопатил кучу инфы, но везде пишут про замкнутые фигуры, а нужен угол. Чем штриховать не сказанно, видимо можно будет линиями с небольшим шагом.
Тему перенёс сюда из общего форума, просьба при обнаружении дублирования не материться..

@aka_Sin · 09.05.2016, 17:31 **[ТС]**

на сколько я понимаю, штриховка должна выглядеть как то так. только шаг должен быть поменьше.

@aka_Sin · 09.05.2016, 18:24 **[ТС]**

пока что смог только отрисовать угол, а вот с циклом штриховки пока полный затык, у кого какие мысли ?

Pascal

uses
  Graph; 
var
  Gd, Gm: integer;
 
begin
  Gd := Detect;
    InitGraph(Gd, Gm, '');
    Line(50, 50, 100, 150);
  Line(100, 150, 250, 200);
  readln
end.

@Puporev · 09.05.2016, 21:22

Pascal

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.

@aka_Sin · 10.05.2016, 01:52 **[ТС]**

спасибо большое, с меня плюсик )

@aka_Sin 0 / 0 / 0 Регистрация: 08.05.2016 Сообщений: 9
		1
	Штриховка уголка в графическом режиме - Pascal 09.05.2016, 17:21. Показов 1150. Ответов 4 Метки нет (Все метки) Всем доброго дня, необходима помощь. Не поможете ли кодом, нужно написать ПО на паскале, для штриховки угла в графическом режиме, перелопатил кучу инфы, но везде пишут про замкнутые фигуры, а нужен угол. Чем штриховать не сказанно, видимо можно будет линиями с небольшим шагом. Тему перенёс сюда из общего форума, просьба при обнаружении дублирования не материться.. Миниатюры 0

@aka_Sin 0 / 0 / 0 Регистрация: 08.05.2016 Сообщений: 9
	09.05.2016, 17:31 [ТС]	2
	на сколько я понимаю, штриховка должна выглядеть как то так. только шаг должен быть поменьше. Миниатюры 0

@aka_Sin 0 / 0 / 0 Регистрация: 08.05.2016 Сообщений: 9
	10.05.2016, 01:52 [ТС]	5
	спасибо большое, с меня плюсик ) 0