Нарисовать колобка

@ROG_S · Регистрация: 01.02.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте столкнулся с такой проблемой:

Pascal

Program q;
uses crt,graph;
var gd,gm:integer;
begin
clrscr;
gd:=0;
initgraph (gd,gm,'C:\bp\bin');
setcolor(14);             ellipse(300,260,0,360,160,160);
setfillstyle(1,14);       floodfill(300,260,14);
setcolor(10);             ellipse(240,200,0,360,40,60);
setfillstyle(1,10);       floodfill(240,200,10);
setcolor(10);             ellipse(360,200,0,360,40,60);
setfillstyle(1,10);       floodfill(360,200,10);
setcolor(0);             ellipse(240,200,0,360,30,30);
setfillstyle(1,0);       floodfill(240,0,0);
setcolor(0);             ellipse(360,200,0,360,30,30);
setfillstyle(1,0);       floodfill(360,0,0);
setcolor(4);             ellipse(300,260,0,360,60,40);
setfillstyle(1,4);        floodfill(300,260,4);
readkey;
closegraph;
end.

По идее при вводе этой программы должен получиться вот такой вот колобок

Кликните здесь для просмотра всего текста

Но когда я ввел эту программу у себя на компьютере, у меня получилось вот это:

Кликните здесь для просмотра всего текста

Пытался изменить координаты эллипса и floodfill, но из этого не чего толкового не вышло, помогите пожалуйста.

@volvo · 01.02.2014, 17:49

Как-то вот так:

Pascal

Program q;
uses crt,graph;
var gd,gm:integer;
begin
gd:=0;
initgraph (gd,gm,'C:\bp\bin');
setcolor(14);
setfillstyle(1,14);
fillellipse(300,260,160,140);
setcolor(11);
setfillstyle(1,11);
fillellipse(240,200,40,60);
fillellipse(360,200,40,60);
setcolor(0);
setfillstyle(1,0);
fillellipse(250,210,20,33);
fillellipse(370,210,20,33);
 
setcolor(6);
setfillstyle(1,6);
fillellipse(300,280,80,17);
 
setcolor(12);
setfillstyle(1,12);
fillellipse(310,350,45,25);
 
readkey;
closegraph;
end.

@Аматори · 17.01.2016, 11:17

Как сделать чтобы этот колобок катился до конца экрана и врезался в стенку?

@Junkers1989 · 19.01.2016, 21:34

Не по теме:

Аматори, наклонить экран :)

А так запихнуть все это дело в цикл, в котором менять координату "X" всех элементов, в начале цикла чистить экран а в конце - делать небольшой sleep

@Аматори 0 / 0 / 0 Регистрация: 16.01.2016 Сообщений: 12
	17.01.2016, 11:17	3
	Как сделать чтобы этот колобок катился до конца экрана и врезался в стенку? 0

@Junkers1989 28 / 28 / 23 Регистрация: 26.12.2015 Сообщений: 154
	19.01.2016, 21:34	4
	Не по теме: Аматори, наклонить экран :) А так запихнуть все это дело в цикл, в котором менять координату "X" всех элементов, в начале цикла чистить экран а в конце - делать небольшой sleep 0

Опции темы

Нарисовать колобка

Решение