Написать программу, рисующую на экране окружность и несколько (не менее 10) звёзд

@Koc52 · Регистрация: 28.11.2013

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

Ребят, нужна ваша помощь

Сам на Паскале плохо пишу и никак не получается написать программку...
Собственно сама задача:
Написать программу, рисующую на экране окружность и несколько(не менее 10) звёзд. Звезды, находящиеся внутри окружности, должны быть белого цвета(15), а снаружи- голубым(3).

@Puporev · 24.01.2014, 08:50

Сообщение от Koc52

Звезды, находящиеся внутри окружности,

Как-то непонятно, а если часть звезды в окружности, а часть за ее пределами?
Сделал так

Звезды, центр которых находится внутри окружности

Pascal

uses graph;
procedure zvezda(x,y,r,c:integer);
var p:array[1..11] of pointtype;
    i:integer;
    u:real;
begin
u:=pi/2;
for i:=1 to 11 do
 begin
  if odd(i) then
   begin
    p[i].x:=x+round(r*cos(u));
    p[i].y:=y-round(r*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r*cos(u)/2);
    p[i].y:=y-round(r*sin(u)/2);
   end;
   u:=u+pi/5
 end;
setcolor(c);
setfillstyle(1,c);
fillpoly(11,p)
end;
var xc,yc,i:integer;
    x,y:longint;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
circle(xc,yc,100);
randomize;
for i:=1 to 20 do
 begin
  x:=5+random(2*xc-10);
  y:=5+random(2*yc-10);
  if sqr(xc-x)+sqr(yc-y)<=10000 then zvezda(x,y,5,15)
  else  zvezda(x,y,5,3)
 end;
readln
end.

@Koc52 · 24.01.2014, 10:43 **[ТС]**

Puporev, огромное вам спасибо! Выручили!

@Koc52 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 44
		1
	Написать программу, рисующую на экране окружность и несколько (не менее 10) звёзд 23.01.2014, 21:24. Показов 2134. Ответов 2 Метки нет (Все метки) Ребят, нужна ваша помощь Сам на Паскале плохо пишу и никак не получается написать программку... Собственно сама задача: Написать программу, рисующую на экране окружность и несколько(не менее 10) звёзд. Звезды, находящиеся внутри окружности, должны быть белого цвета(15), а снаружи- голубым(3). 0

@Koc52 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 44
	24.01.2014, 10:43 [ТС]	3
	Puporev, огромное вам спасибо! Выручили! 0

Опции темы

Написать программу, рисующую на экране окружность и несколько (не менее 10) звёзд

Решение