Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 14.12.2011
Сообщений: 134
1

Циклы с окружностью

21.05.2012, 10:49. Показов 1031. Ответов 3
Метки нет (Все метки)

Помагите зделать следующую программу,чтобы в цикле рисовалось несколько окружностей
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Миниатюры
Циклы с окружностью  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2012, 10:49
Ответы с готовыми решениями:

Нарисовать фигуру: квадрат с вписаной окружностью и описаной окружностью (XE5)
прошу Вашей помощи. Нужно написать программу, в которой движется фигура и меняет цвет. Фигура:...

Циклы с условием, циклы с переменной, вложенные циклы
С условием 1. Ввести натуральное число N и вычислить сумму всех чисел фибоначчи меньших N....

Столкновения прямоугольника с окружностью
Пишу арканоид. Есть окружность (биток) и прямоугольник. Реализовал столкновение между ними: ...

Аппроксимация точек окружностью МНК
Здравствуйте, из за не знания математики, не знал в какой раздел написать. Имеем множество точек...

3
Модератор
Эксперт Python
28783 / 15610 / 3100
Регистрация: 12.02.2012
Сообщений: 25,612
Записей в блоге: 4
21.05.2012, 11:00 2
Вот код для HomeLisp:

Lisp
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
44
45
(defun circ (r)
   
    ;; создание графического окна
 
    (grwCreate 'w    ;; имя окна 
               200   ;; Ширина  
               200   ;; Высота  
       "Окружности"  ;; Заголовок 
           _WHITE    ;; Цвет фона           
    )
    
   ;; Установление мировых координат
 
    (grwScale  'w   ;; идентификатор окна
               -100 ;; Xmin
                100  ;; Xmax
               -100 ;; Ymin
                100  ;; Ymax
     )
  
   ;; Рисуем 5 окружностей
 
    (dotimes (i 5 t)
 
       (grwCircle 'w   ;; идентификатор окна
                   0   ;; X центра
                   0   ;; Y центра
                   r   ;; Радиус
               _BLUE   ;; цвет
       )
 
       (setq r (* 0.8 r))
    )   
 
   ;; показываем окно
 
    (grwShow 'w)
)    
 
 
==> circ
 
(circ 30)
 
==> w
Картинка прилагается...
0
Изображения
 
0 / 0 / 1
Регистрация: 14.12.2011
Сообщений: 134
21.05.2012, 11:03  [ТС] 3
; ошибка: no function definition: GRWCREATE
Что делать?Просто у меня стандартный AutoLisp.
Помагите плиз
0
Модератор
Эксперт Python
28783 / 15610 / 3100
Регистрация: 12.02.2012
Сообщений: 25,612
Записей в блоге: 4
21.05.2012, 13:06 4
В Autolispe этот код работать не будет. Пардон
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2012, 13:06

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Обвести радужку глаза окружностью
Пишу на с# в VS2015 Дано изображение глаза (s19...jpg) нужно обвести радужку глаза окружностью для...

Определить пересекается ли прямая с окружностью
Задана окружность с центром в точке x0, y0 и радиусом R0 и прямая y=ax+b. Определить, пересекаются...

Множество треугольников пересекающихся с окружностью
На плоскости n точки заданы своими координатами, дана окружность радиуса R с центром в точке x0,...

Циклы. Напечатать числа в виде таблицы, используя только циклы
Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): ...


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

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

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