Question

Помогите составить рисункок звезды и нарисовать его в системе         Pascal    ABC

Answer 1

uses abcObjects,graphabc;
var s:starabc;
begin s:=new StarABC(Window.Width div 2,Window.Height div 2,60,120,5,clYellow);
for var i:=5 to 40 do
begin
Sleep(50);
S.Count:=I;
end;
for var i:=40 downto 5 do
begin
Sleep(50);
S.Count:=I; end; for var i:=1 to 360 do
S.Angle:=I;
for var i:=360 downto 1 do
S.Angle:=I;
end.