Question

помогите нарисовать в паскале улыбающийся смайлик.

Answer 1

x:=50;y:=150; 
TextOut(x-30,y-50,'смеётся'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 
Circle(x-10,y-10,7); 
Arc(x,y,20,180,360); 
Line(x-20,y,x+20,y); 
FloodFill(x+1,y+1,clWhite); 
Line(x-10,y,x-10,y+17); 
Line(x,y,x,y+20); 
Line(x+10,y,x+10,y+17);