Как нарисовать человечка в программе паскаль абс

Question

Информатика

Танюха

22 августа, 06:09

Как нарисовать человечка в программе паскаль абс

+1

Ответы (1)

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

Самсон · Answer 1

Program man;

uses Graph;

var gd, gm: Integer;

begin

gd:=Detect;

InitGraph (gd, gm, ' ') ;

SetFillStyle (1, Green) ;

Bar (0, 350, 639, 479) ;

SetFillStyle (1, LightBlue) ;

FloodFill (0, 0, Green) ;

SetColor (Red) ;

Circle (320, 200, 19) ;

SetLineStyle (0, 0, 3) ;

Rectangle (390, 220, 340, 300) ;

Line (320, 300, 300, 350) ;

Line (320, 300, 340, 350) ;

Line (300, 240, 250, 250) ;

Line (340, 240, 390, 250) ;

SetFillStyle (1, Red) ;

FloodFill (320, 200, Red) ;

FloodFill (320, 230, Red) ;

SetColor (Yellow) ;

Circle (315, 190, 2) ;

Circle (325, 190, 2) ;

Line (315, 210, 325, 210) ;

Readln;

CloseGraph;

end.