Простейшие фигуры

@rostikmal · Регистрация: 30.01.2019

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

Помогите написать программу которая рисует и закрашивает фигуры буду очень благодарен если объясните для меня координаты и оставите комментарии в коде
(Только закрытые надо закрасить треугольник линиями просто нарисовать)

@Puporev · 24.03.2019, 18:40

Треугольник

Delphi

var x,y,d:integer;
begin
x:=ClientWidth div 2;
y:=ClientHeight div 2;
d:=20;
with Canvas do
 begin
  pen.Width:=3;
  moveto(x,y);
   x:=x+d;  
   y:=y-d;
   lineto(x,y);
   x:=x+2*d; 
   y:=y+2*d;
   lineto(x,y);
   x:=x-6*d;
   lineto(x,y);
   x:=x+4*d;
   y:=y-4*d;
   lineto(x,y);
   x:=x+4*d;
   y:=y+4*d;
   lineto(x,y);
 end;
end;

murderer · 25.03.2019, 05:31

В цикле

Delphi

var x,y,d,i:integer;
begin
x:=ClientWidth div 2;
y:=ClientHeight div 2;
d:=5;
with Canvas do
 begin
  pen.Width:=3;
  moveto(x,y);
  i:=d;
  repeat
   inc(x,i);
   dec(y,i);
   lineto(x,y);
   inc(i,d*2);
   inc(x,i);
   inc(y,i);
   lineto(x,y);
   inc(i,d+d);
   dec(x,i*2);
   inc(i,d+d);
   lineto(x,y);
  until i>d*80;
 end;
end;

@rostikmal 0 / 0 / 0 Регистрация: 30.01.2019 Сообщений: 4
		1
	Delphi 6-7 Простейшие фигуры 24.03.2019, 15:59. Показов 521. Ответов 2 Метки delphi 7 (Все метки) Помогите написать программу которая рисует и закрашивает фигуры буду очень благодарен если объясните для меня координаты и оставите комментарии в коде (Только закрытые надо закрасить треугольник линиями просто нарисовать) Изображения 0

	25.03.2019, 05:31