Сегодня займемся именно этим. Для самостоятельного задания предлагаю написать программу, рисующую вашего любимого мультгероя.
Вот примеры подобных картинок...
Желательно под героем написать его имя.
Познакомиться со всеми графическими процедурами можно .
Текст программы вставляем в комментарий к этому сообщению, в теме указываем Фамилию и Имя.
Удачи!
Uses Graph;
Var Gd, Gm, k : SmaLLInt;
Begin
Gd:=Detect;
Gm:=Detect;
InitGraph(Gd, Gm,'');
begin
SetColor(11);
SetFillStyle(1,11);
Circle(GetMAXx div 2,GetMAXy div 2,300);
Ellipse(GetMAXx div 4+GetMAXx div 6 ,GetMAXy div 4,0,360,90,250);
FillEllipse(GetMAXx div 4+GetMAXx div 6 ,GetMAXy div 4,90,250);
Ellipse(GetMAXx div 4+GetMAXx div 3 ,GetMAXy div 4,0,360,90,250);
FillEllipse(GetMAXx div 4+GetMAXx div 3 ,GetMAXy div 4,90,250);
FloodFill(GetMAXx div 2,GetMAXy div 2,11);
Rectangle(GetMAXx div 2+GetMAXx div 20,GetMAXy div 4+GetMAXy div 4,GetMAXx div 2+GetMAXx div 8,GetMAXy div 2+GetMAXy div 3 );
FloodFill(GetMAXx div 2+GetMAXx div 8 -1,GetMAXy div 2+GetMAXy div 3 -1 ,11);
Rectangle(GetMAXx div 2-GetMAXx div 20,GetMAXy div 4+GetMAXy div 4,GetMAXx div 2-GetMAXx div 8,GetMAXy div 2+GetMAXy div 3 );
FloodFill(GetMAXx div 2-GetMAXx div 8 +1,GetMAXy div 2+GetMAXy div 3 -1 ,11);
Ellipse(GetMAXx div 2-GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,0,360,60,100);
FillEllipse(GetMAXx div 2-GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,60,100);
Ellipse(GetMAXx div 2+GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,0,360,60,100);
FillEllipse(GetMAXx div 2+GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,60,100);
SetColor(15);
SetFillStyle(1,15);
Circle(GetMAXx div 2-120,GetMAXy div 2-60,70);
FloodFill(GetMAXx div 2-120+40,GetMAXy div 2-60,15);
SetColor(15);
SetFillStyle(1,15);
Circle(GetMAXx div 2+120,GetMAXy div 2-60,70);
FloodFill(GetMAXx div 2+120+40,GetMAXy div 2-60,15);
SetFillStyle(1,0);
SetColor(0);
Circle(GetMAXx div 2-120,GetMAXy div 2-60,30);
FloodFill(GetMAXx div 2-120,GetMAXy div 2-60,0);
SetFillStyle(1,0);
SetColor(0);
SetFillStyle(1,0);
Circle(GetMAXx div 2+120,GetMAXy div 2-60,30);
FloodFill(GetMAXx div 2+120,GetMAXy div 2-60,0);
SetFillStyle(1,0);
SetColor(0);
Line(GetMAXx div 2,GetMAXy div 2,GetMAXx div 2-30,GetMAXy div 2+30);
Line(GetMAXx div 2-30,GetMAXy div 2+30,GetMAXx div 2+30,GetMAXy div 2+30);
Line(GetMAXx div 2+30,GetMAXy div 2+30,GetMAXx div 2,GetMAXy div 2);
FloodFill(GetMAXx div 2,GetMAXy div 2+1,0);
SetFillStyle(1,4);
SetColor(4);
Arc(GetMAXx div 2,GetMAXy div 2+100,180,360,60);
Line(GetMAXx div 2-60,GetMAXy div 2+100,GetMAXx div 2+60,GetMAXy div 2+100);
FloodFill(GetMAXx div 2,GetMAXy div 2+100+10,4);
end;
Readln;
CloseGraph;
End.