Нарисовать треугольник и залить цветом

@DeaD_Maniac · Регистрация: 26.01.2011

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

Помогите нарисовать треугольник по заданным координатам в Pascal ABC .net, не могу понять как сделать, пробовал с помощью Polygon(points: array of Point); , но не могу правильно заполнить массив(points) с координатами(говорит что тип не тот). Если с помощью линий строить, то как залить? Пытался из справки подчерпнуть знаний, но особо ни чего не нашел.

@Puporev · 12.10.2011, 17:27

Вообще-то там есть неплохая справка, не грех и почитать.
Вот с полигоном.

Pascal

uses graphABC;
var t:array of Point;
    x,y:integer;
begin
setlength(t,4);
setwindowsize(500,500);
writeln('Введите координаты вершин треугольника от 50 до 450:');
repeat
writeln('x1,y1:');
read(x,y);
t[0].X:=x;t[0].Y:=y;
until(t[0].X>=50)and(t[0].X<=450)and (t[0].Y>=50)and(t[0].Y<=450);
repeat
writeln('x2,y2:');
read(x,y);
t[1].X:=x;t[1].Y:=y;
until(t[1].X>=50)and(t[1].X<=450)and (t[1].Y>=50)and(t[1].Y<=450);
repeat
writeln('x3,y3:');
read(x,y);
t[2].X:=x;t[2].Y:=y;
until(t[2].X>=50)and(t[2].X<=450)and (t[2].Y>=50)and(t[2].Y<=450);
t[3]:=t[0];
clearwindow;
setpencolor(clred);
setbrushcolor(clred);
Polygon(t);
readln
end.

@DeaD_Maniac · 12.10.2011, 17:54 **[ТС]**

Спасибо за помощь, я стараюсь сам разбираться, но далеко не все описанно понятно.

@DeaD_Maniac 0 / 0 / 1 Регистрация: 26.01.2011 Сообщений: 3
		1
	Нарисовать треугольник и залить цветом 12.10.2011, 16:30. Показов 13575. Ответов 2 Метки нет (Все метки) Помогите нарисовать треугольник по заданным координатам в Pascal ABC .net, не могу понять как сделать, пробовал с помощью Polygon(points: array of Point); , но не могу правильно заполнить массив(points) с координатами(говорит что тип не тот). Если с помощью линий строить, то как залить? Пытался из справки подчерпнуть знаний, но особо ни чего не нашел. 0

@DeaD_Maniac 0 / 0 / 1 Регистрация: 26.01.2011 Сообщений: 3
	12.10.2011, 17:54 [ТС]	3
	Спасибо за помощь, я стараюсь сам разбираться, но далеко не все описанно понятно. 0

Нарисовать треугольник и залить цветом

Решение