Question

Составьте программу для рисования звёздочек(8 штук в ряд,между ними небольшое расстояние)в паскаль ABC,пожалуйста

Answer 1

uses GraphABC;

begin

 SetWindowSize(1000,100);

 var x := 0;

 for var i := 1 to 8 do begin

   MoveTo(50+x,0);

   lineto(0+x,100);

   lineto(100+x,50);

   lineto(0+x,50);

   lineto(100+x,100);

   lineto(50+x,0);

   x+=125;

 end;

end.

//Вообщем вот так получилось, если не нравятся звезды можешь подкорректировать их координаты.