В Паскаль ABC сделать графического человека маленького с анимацией 8 класс

0 голосов
70 просмотров

В Паскаль ABC сделать графического человека маленького с анимацией 8 класс


Информатика (81 баллов) | 70 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172

Uses
 GraphABC;

Var
 i:integer;
begin
maximizewindow;
 for i:=100 to 500 do
  begin
   clearwindow();
   setbrushcolor(clGold);
   circle(i,i,10);
   circle(i,i+30,6);
   circle(i,i+65,6);
   setbrushcolor(clgray);
   ellipse(i-15,i+10,i+15,i+60);
   setbrushcolor(clGold);
   circle(i,i+30,6);
   sleep(40);
  end;
end.   

(38.6k баллов)