Помогите составить рисункок звезды и нарисовать его в системе Pascal ABC
Помогите составить рисункок звезды и нарисовать его в системе Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы