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

Question

Информатика

Феозва

7 января, 10:19

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

+3

Ответы (1)

Знаете ответ?

Рипсимия · 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) ;