0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 44
1

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

23.01.2014, 21:24. Показов 2134. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребят, нужна ваша помощь
Сам на Паскале плохо пишу и никак не получается написать программку...
Собственно сама задача:
Написать программу, рисующую на экране окружность и несколько(не менее 10) звёзд. Звезды, находящиеся внутри окружности, должны быть белого цвета(15), а снаружи- голубым(3).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2014, 21:24
Ответы с готовыми решениями:

Написать программу, рисующую на экране паркет из прямоугольников и кружочков
Написать программу, рисующую на экране паркет из прямоугольников и кружочков.

Написать программу, рисующую на экране пакета из разноцветных ромбов
Написать программу, рисующую на экране пакета из разноцветных ромбов.

Напишите программу, рисующую на экране смешанный лес
Здраствуйте. Суть задачи: Напишите программу, рисующую на экране смешанный лес (лес состоит из...

Составить и набрать в окне редактора программу, рисующую на экране рисунок
Составить и набрать в окне редактора программу: • Устанавливающую графический режим; • ...

2
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.01.2014, 08:50 2
Лучший ответ Сообщение было отмечено Koc52 как решение

Решение

Цитата Сообщение от Koc52 Посмотреть сообщение
Звезды, находящиеся внутри окружности,
Как-то непонятно, а если часть звезды в окружности, а часть за ее пределами?
Сделал так
Звезды, центр которых находится внутри окружности
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.
0
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 44
24.01.2014, 10:43  [ТС] 3
Puporev, огромное вам спасибо! Выручили!
0
24.01.2014, 10:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2014, 10:43
Помогаю со студенческими работами здесь

Напишите программу, рисующую на экране горизонтальную линию, состоящую из точек
Само задание: Напишите программу, рисующую на экране горизонтальную линию, состоящую из точек,...

Создайте программу, рисующую в видимом окне прямоугольник, окружность и сектор, в невидимом – негативное изображение данных фигур.
Создайте программу, рисующую в видимом окне прямоугольник, окружность и сектор, в невидимом –...

Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд
Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд, цвет которых непрерывно...

Написать программу рисующую цветок
Написать программу рисующую цветок (с помощью кругов одного размера), используя рикурсию.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru