Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Bezpro
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 17
#1

Получить на экране рисунок паутины с центром в произвольной (заданной) точке - Pascal ABC

27.12.2012, 19:43. Просмотров 1074. Ответов 7
Метки нет (Все метки)

Получить на экране рисунок паутины с центром в произвольной (заданной) точке, с произвольным числом лучей. Паутина образована лучами и многоугольниками.

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

http://www.cyberforum.ru/pascalabc/thread316636.html

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2012, 19:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить на экране рисунок паутины с центром в произвольной (заданной) точке (Pascal ABC):

Нарисовать окружности с центром в точке (х, у) и радиусом r
Используя Circle(x,y,r), нарисовать окружности с центром в точке (х,у) и...

Определить лежат ли точки на одной окружности с центром в точке О
Заданы координаты двух точек. Определить лежат ли они на одной окружности с...

точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2)
Как Написать следующее выражение на языке Pascal: точка с координатами x и y...

Найти целочисленные координаты точек, попадающих в круг радиуса R с центром в точке Q (A,B)
найти целочисленные координаты точек, попадающих в круг радиуса R с центром в...

Bычислить расстояние от точки плоскости с кординатами X, Y до круга радиуса R с центром в точке X0, Y0.
Bычислить расстояние от точки плоскости с кординатами X, Y до круга радиуса R...

7
Talkoflights
25 / 25 / 17
Регистрация: 23.09.2012
Сообщений: 274
27.12.2012, 19:52 #2
Вывести на экран рисунок паутины
Получить на экран рисунок паутины
Там разберетесь, код в АВС.
0
Bezpro
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 17
27.12.2012, 19:54  [ТС] #3
Проблема в том, что там вводится количество многоугольников, а нужно, чтобы вводилось количество лучей паутины( Это не подходит
0
Talkoflights
25 / 25 / 17
Регистрация: 23.09.2012
Сообщений: 274
27.12.2012, 19:57 #4
Цитата Сообщение от Bezpro Посмотреть сообщение
Проблема в том, что там вводится количество многоугольников, а нужно, чтобы вводилось количество лучей паутины( Это не подходит
Задания откуда?
0
Bezpro
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 17
27.12.2012, 20:02  [ТС] #5
На компьютерной графике дали
0
Puporev
Модератор
54128 / 41761 / 28873
Регистрация: 18.05.2008
Сообщений: 98,282
27.12.2012, 20:42 #6
Если сильно не озадачиваться...
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
43
uses crt,graphABC;
type point=record
           x,y:integer;
           end;
const nmax=30;
var p:array[1..nmax+1]of point;
procedure mnogoug(x,y,r,n:integer);
var  i:integer;
     a,da:real;
begin
da:=2*pi/n;
a:=0;
for i:=1 to n do
 begin
  p[i].x:=x+round(r*cos(a));
  p[i].y:=y-round(r*sin(a));
  a:=a+da;
 end;
p[n+1]:=p[1];
setbrushstyle(bsClear);
polygon(p,n+1);
end;
 
var x,y,n,r,i,mx:integer;
begin
randomize;
repeat
write('Количество лучей от 8 до ',nmax,' n=');
read(n);
until n in [8..nmax];
x:=10+random(windowwidth-20);
y:=10+random(windowheight-20);
clearwindow;
hidecursor;
r:=10;
while(x+r<2*windowwidth)or(y+r<2*windowheight)or(x-r>-200)or(y-r>-200)do
 begin
  mnogoug(x,y,r,n);
  r:=r+30;
  for i:=1 to n do
  line(x,y,p[i].x,p[i].y);
 end;
end.
1
Bezpro
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 17
27.12.2012, 21:18  [ТС] #7
После ввода числа просит ввести еще одно и так далее, не работает(

Добавлено через 11 минут
а нет, все работает!!! спасибо большое!!!!

Добавлено через 5 минут
а можно( в кратце) где что тут происходит, так сказать?
0
Puporev
Модератор
54128 / 41761 / 28873
Регистрация: 18.05.2008
Сообщений: 98,282
28.12.2012, 08:26 #8
В конце программы изменение.
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
43
uses crt,graphABC;
type point=record //тип точка
           x,y:integer;
           end;
const nmax=30;//макс.кол. лучей
var p:array[1..nmax+1]of point; //массив точек+1 для замыкания
procedure mnogoug(x,y,r,n:integer);//рисование многоугольника
var  i:integer;
     a,da:real;
begin
da:=2*pi/n;//приращение угла
a:=0; //начальный угол
for i:=1 to n do//координаты n вершин
 begin
  p[i].x:=x+round(r*cos(a));
  p[i].y:=y-round(r*sin(a));
  a:=a+da;
 end;
p[n+1]:=p[1];//замкнем
setbrushstyle(bsClear);//очищаем внутри
polygon(p,n+1); //рисуем многоугольник
end;
 
var x,y,n,r,i,mx:integer;
begin
randomize;
repeat
write('Количество лучей от 8 до ',nmax,' n=');
read(n);
until n in [8..nmax];
x:=10+random(windowwidth-20); //назначаем случайно центр паутины
y:=10+random(windowheight-20); //в пределах окна
clearwindow;//очищаем и убираем курсор
hidecursor;
r:=10; //первый радиус
while(x+r<2*windowwidth)or(y+r<2*windowheight)or(x-r>-200)or(y-r>-200)do
 begin  //пока радиус в указанных границах(взял с потолка с запасом)
  mnogoug(x,y,r,n);//рисуем многоугольник
  r:=r+30; //добавляем радиус
 end;
for i:=1 to n do //рисуем радиусы - это нужно вынести за цикл
line(x,y,p[i].x,p[i].y);
end.
1
28.12.2012, 08:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2012, 08:26
Привет! Вот еще темы с решениями:

Дана точка М(Х,У). Присвоить Z=1 если т. принадлежит окружности с радиусом Р и центром в точке (а,б)
Составьте блок-схему пользуясь условным оператором или оператором выбора. Дана...

Определить количество и номера точек последовательности, попадающих в круг радиуса R с центром в точке Q
Помогите пожалуйста написать программу! Задана последовательность точек...

Вычислить значение суммы ряда Y(x) в произвольной точке х
Вычислить значение суммы ряда Y(x) в произвольной точке x, если...

Найти кратчайшее расстояние от произвольной точки плоскости с координатами X, Y до контура четвертинки окружности с центром в начале координат
«Программы разветвленной структуры» Найти кратчайшее расстояние от...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru