создать функцию, рисующую окружность с вписаным 6-ти угольником

31.03.2011, 09:40. **Показов** 1363. **Ответов** 2

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

ПОМОГИТЕ
создать функцию на языке лисп.Рисующую окружность с вписаным 6-ти угольником, координаты центра,величина радиуса и цвет рисунка должны задаватся пользователем в режиме диалога.

@Catstail · 24.02.2013, 12:31

Вот решение для HomeLisp:

Lisp

(defun 6-angle nil
  (let ((r (progn (printsline "Введите радиус") (read)))
        (x (progn (printsline "Введите x") (read)))
        (y (progn (printsline "Введите y") (read)))
        (c (progn (printsline "Введите цвет") (read)))
        (fi 0))
  (grwCreate 'w 300 300 "Шестиугольник" _WHITE)
  (grwScale 'w -100 100 -100 100)
  (grwShow 'w)
  (grwLine 'w -100 0 100 0 _GRAY)
  (grwLine 'w 0 -100 0 100 _GRAY)
  (grwSetParm 'w 3 1 _BLACK _WHITE)
  (grwCircle 'w x y r c)
  (dotimes (i 6 t)
    (grwLine 'w (+ x (* r (cos (* (add1 i) (/ _Pi 3))))) (+ y (* r (sin (* (add1 i) (/ _Pi 3)))))
                (+ x (* r (cos (* i (/ _Pi 3))))) (+ y (* r (sin (* i (/ _Pi 3))))) c))))
 
==> 6-angle
 
(6-angle)
Введите радиус
40
Введите x
40
Введите y
-30
Введите цвет
_BLUE
 
==> T

@Catstail · 24.02.2013, 12:48

Пардон... Переменная fi - лишняя.

RTHR
		1
	создать функцию, рисующую окружность с вписаным 6-ти угольником 31.03.2011, 09:40. Показов 1363. Ответов 2 Метки нет (Все метки) ПОМОГИТЕ создать функцию на языке лисп.Рисующую окружность с вписаным 6-ти угольником, координаты центра,величина радиуса и цвет рисунка должны задаватся пользователем в режиме диалога.

@Catstail Модератор 36592 / 20322 / 4218 Регистрация: 12.02.2012 Сообщений: 33,623 Записей в блоге: 13
	24.02.2013, 12:48	3
	Пардон... Переменная fi - лишняя. 0