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

Question

Информатика

Венура

29 января, 11:37

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

+5

Ответы (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);