Нарисовать олимпийские кольца

@vadim77 · Регистрация: 24.08.2010

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

Составьте программу рисования 5 разноцветных олимпийских колец (верхний ряд: голубое, черное, красное; нижний ряд: желтое и зеленое). Координаты центра левого кольца задаются в диалоге.

@Puporev · 31.08.2010, 12:34

Pascal

uses crt,graph;
var gd,gm,xc,yc,r,x,y:integer;
begin
clrscr;
repeat
writeln('Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:');
readln(xc,yc);
until((xc>=50)and(xc<=300))and ((yc>=50)and(yc<=350));
gd:=0;
initgraph(gd,gm,'');
setbkcolor(15);
cleardevice;
r:=50;
setlinestyle(0,0,3);
setcolor(9);
circle(xc,yc,r);
setcolor(8);{темно-серый, черный не нарисовать}
circle(xc+2*r,yc,r);
setcolor(12);
circle(xc+4*r,yc,r);
setcolor(14);
circle(xc+r,yc+r,r);
setcolor(10);
circle(xc+3*r,yc+r,r);
readln
end.

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
		1
	Нарисовать олимпийские кольца 31.08.2010, 11:41. Показов 16515. Ответов 1 Метки нет (Все метки) Составьте программу рисования 5 разноцветных олимпийских колец (верхний ряд: голубое, черное, красное; нижний ряд: желтое и зеленое). Координаты центра левого кольца задаются в диалоге. 0

	31.08.2010, 12:34

Нарисовать олимпийские кольца

Решение