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

Question

Информатика

Вовуля

14 августа, 07:16

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

+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) ;