Задание:
Помогите срочно пожалуйсто! Надо в общем создать в паскале человечка, ну там со шляпкой какой нибудь или с сумочкой, можно в юпочку, ну в общем что бы не обычный был) пожалуйсто помогите
Решение:
program abc; uses graphabc; beginSetWindowSize (640,480); setpencolor (clBlack); line (160,340,200,340); line (200,340,200,320); line (200,320,160,320); line (160,320,160,340); line (200,340,200,280); line (260,340,300,340); line (300,340,300,320); line (300,320,260,320); line (260,320,260,340); line (260,340,260,280); line (160,280,300,280); line (300,280,240,158); line (220,158,160,280); line (260,200,320,240); line (200,200,160,220); line (160,220,140,200); line (200,80,220,80); line (220,80,220,100); line (220,100,200,100); line (200,100,200,80); line (240,80,260,80); line (260,80,260,100); line (260,100,240,100); line (240,100,240,80) line (230,100,240,120); line (240,120,220,120); line (220,120,230,100); circle (230,110,50); circle (90,90,30); setpencolor (clRed); line (200,140,260,140); setpencolor (clBlack); line (120,180,120,140); line (120,140,140,160); ine (140,160,100,160); line (100,160,120,180); setpencolor (clBrown); line (240,60,280,80); line (280,80,300,100); line (300,100,300,160); line (280,80,290,100); line (290,100,290,160); line (220,60,180,80); line (180,80,160,100); line (160,100,160,160); line (180,80,170,100); line (170,100,170,160); setpencolor (clLime); line (140,200,100,120); floodfill (220,240,clBlue); floodfill (280,330,clBrown); floodfill (180,330,clBrown); floodfill (130,157,clYellow); floodfill (110,165,clYellow); floodfill (90,90,clGreen); floodfill (260,120,clCream); setpixel (250,90,clBlack); setpixel (210,90,clBlack); setpencolor (clBlack); line (240,80,260,80); line (260,80,260,100); line (260,100,240,100); line (240,100,240,80); line (200,80,220,80); line (220,80,220,100); line (220,100,200,100); line (200,100,200,80); line (230,100,240,120); line (240,120,220,120); line (220,120,230,100); end.
Знаете другой ответ?